10
20
30 :
40 FOR M=-1 TO 127
50 IF M>=0:MODE M:PRINT "MODE ";M;" ";LEFT$("- &"+RIGHT$("0"+STR$~(M AND -8),2)+"+"+STR$(M AND 7),M>7):COLOUR 192+M
60 N=2:IF M=2 OR M=5:N=1
70 N=VALMID$("7327323373277377",(M AND 15)+1,1)
80 FOR A=0 TO 3
90 FOR L=-2 TO 3
100 RESTORE
110 FOR B=0 TO 7
120 C=B+A*8:COLOUR 128+C:COLOUR C EOR 7
130 IF L=0:PRINT SPC((N-2)/2);RIGHT$(" "+STR$~C,2);SPC((N-1)/2);
140 IF L=1:READ A$:PRINT SPC((N-1)/2-1)LEFT$(A$,N);SPC(N/2-1); ELSE IF L:PRINT SPC(N);
150 NEXT:COLOUR 128:COLOUR 7:IF A*L<9:PRINT
160 NEXT
170 NEXT
180 A=GET:M=M-(M=6):IF M=31:M=95
190 NEXT M
200 DATA BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT