Platform(s): TS 2068
Rarity: uncommon
Short program to demonstrate the character set, colors and graphics.
5 INK 0: PAPER 7: BORDER 7: CLS
10 FOR c=0 TO 7
20 FOR i=9 TO 12
30 PRINT BRIGHT 1; PAPER c;AT i,c*4;c
60 NEXT c
100 PRINT AT 13,0
110 FOR v=0 TO 1
120 FOR h=33 TO 143: PRINT INVERSE v;CHR$ h;: NEXT h
130 PRINT
140 NEXT v
200 LET yc=143
210 CIRCLE 108,yc,10: CIRCLE 128,yc,15: CIRCLE 148,yc,10
220 FOR x=0 TO 12 STEP 3
230 PLOT x,175: DRAW 0,-63
240 PLOT x+243,175: DRAW 0,-63
250 NEXT x
260 FOR y=112 TO 124 STEP 3
270 PLOT 0,y: DRAW 255,0
280 PLOT 0,y+51: DRAW 255,0
290 NEXT y