Listing of file='SPECHR.BAS;01' on disk='vmedia/games2-sector.ccvf'
5 PLOT 12 10 INPUT "STRING ";A$ 12 PLOT 12 15 PLOT 15,3,0,10 20 FOR P= 1TO LEN (A$) 30 RESTORE 35 IF MID$ (A$,P,1)= " "THEN PRINT " ";:GOTO 70 40 FOR N= 65TO ASC (MID$ (A$,P,1)) 50 READ A,B,C,D 51 NEXT 55 A= A+ 96:B= B+ 96 56 C= C+ 96:D= D+ 96 60 PLOT 30,A,B,29,10,26,26,30,C,D,29,25,28 65 IF P/ 21= INT (P/ 21)THEN PRINT :PRINT :PRINT 70 NEXT 80 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :INPUT " ";Z$:RUN 1000 DATA 30,28,14,15,27,4,27,4,20,6,22,9,14,21,12,23,27,5,12,31 1010 DATA 27,5,1,-64,20,6,22,29,1,2,14,15,5,14,31,12,-64,2,7,23 1020 DATA 130,8,1,28,1,-64,12,31,16,17,1,2,16,2,1,19,20,21,22,23 1030 DATA 27,4,1,-64,20,21,22,24,27,4,1,28,3,6,7,4,5,14,-64,1 1040 DATA 1,2,22,23,1,2,28,30,1,2,18,19,28,30,30,28,28,30,2,-64 1050 DATA 5,26,25,31