Listing of file='SPCNUM.BAS;01' on disk='vmedia/games2-sector.ccvf'
5 PLOT 12 10 INPUT "STRING ";A$ 12 PLOT 12 15 PLOT 15,3,1,10 20 FOR P= 1TO LEN (A$) 30 RESTORE 35 IF MID$ (A$,P,1)= " "THEN PRINT " ";:GOTO 70 40 FOR N= 48TO 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 :INPUT Z$:RUN 1000 DATA 20,21,22,23,39,1,-64,1,8,4,25,31,5,26,7,4,30,1,5,14,27,5,7,4,20,6,27,4 1010 DATA 5,26,30,-64,3,4,3,4,3,29,7,23