100 IFX=0THENX=1:LOAD"PGM.BIN",8,1
110 POKE55,255:POKE56,90:CLR
120 DIMX(8),Y(8),M$(12),HT(12),S1(25),C(25),R(25)
130 CS=1:CO=2:C=2:A=RND(TI)
140 A1=40960:A2=41984:A3=42497:A4=43226:A5=44251:A6=44980:A7=45485:A8=46214
150 A9=46719:A0=47448
160 POKE53280,14:POKE53281,6:PRINT"[147]"
170 BA=32768+4*256:POKE646,0
180 SYSBA+6,57344,52224:SYSBA:SYSBA+75
185 PRINT"[147]PREPARING FOR DEMO..."
190 SYSBA+12,40960,"CHAR SETS"
200 SYSBA+12,49152,"SPRITES"
210 SYSBA+39,A2,1,1,"[147][137][138][154]":SYSBA+24
220 SYSBA+3*28,0,0,0,0,0,1
230 SYSBA+3*29,0,350,50,0
240 SYSBA+3*27,1,0
250 SYSBA+39,55296,1,0,"  [212]HIS IS THE NORMAL [195]64 CHARACTER SET."
260 SYSBA+39,55296,3,0,"[215]HILE IT IS ALMOST READABLE, IT'S NOT"
270 SYSBA+39,55296,5,0,"ALWAYS RIGHT FOR EVERY OCCASION, AND IT"
280 SYSBA+39,55296,7,0,"COULD NOT POSSIBLY BE CALLED EXCITING."
290 SYSBA+39,55296,9,0,"  [207]THER COMPUTERS CAN MIX SEVERAL"
300 SYSBA+39,55296,11,0,"CHARACTER SETS, BUT ALAS NOT OUR"
310 SYSBA+39,55296,13,0,"FAITHFUL [195]OMMODORE 64."
320 T1=10000:GOSUB2960:POKE787,7
330 SYSBA+39,A3,18,15,"[159][133][213]NTIL [206]OW![137]":POKE787,6
340 T1=4000:GOSUB2960:POKE53280,0:POKE53281,0
350 SYSBA+39,A3,0,2,"[144][144][147][133][134][215][197][204][195][207][205][197] [212][207] [208][199][205] 64[137][138]"
360 T1=1500:GOSUB2960
370 SYSBA+39,A3,3,4,"[133][154][217]OU CAN NOW DISPLAY MANY SIZES,[137]"
380 T1=1500:GOSUB2960
390 SYSBA+39,A6,6,3,"[134][129]FONTS AND SHAPES,[137][138]"
400 T1=1500:GOSUB2960
410 SYSBA+39,A4,8,5,"EVEN [211]CRIPT FONTS CAN BE USED![137][138]"
420 T1=3000:GOSUB2960
430 SYSBA+39,A5,10,0,"[152][200][201][210][197][211] [199][210][193][208][200][201][195][211] [195][193][206] [194][197] [207][206] [212][200][197] [211][193][205][197] [211][195][210][197][197][206][137][138]"
435 SYSBA+39,A1,19,0,"[156]Y=SIN "
436 SYSBA+39,A0,19,6,"D[188]"
440 X1=50:Y1=150:X2=270:Y2=90
450 FORI=Y2TOY1STEP10
460 SYSBA+60,X1,I,X2,I,3,0
470 NEXTI
480 FORI=X1TOX2STEP10
490 SYSBA+60,I,Y1,I,Y2,3,0
500 NEXTI
510 X=X1:FORI=0TO25.14STEP.1143:S=120-SIN(I)*24
520 SYSBA+60,X1,Y1,X,S,3,0:X=X+1:X1=X:Y1=S:NEXTI
530 T1=2500:GOSUB2960
540 SYSBA+36,A1,21,0,"[159][207]F COURSE [158]80 COLUMN [159]TEXT IS SUPPORTED,"
550 SYSBA+36,A1,20,20,"[133][159]INCLUDING [135][153]DOUBLE HEIGHT[139] [159]IN 80 COLUMNS![137]"
560 T1=2500:GOSUB2960
570 SYSBA+39,A2,23,1,"[133][134][135][150]EVEN UNDERLINE IT![137][138][139]"
580 T1=4000:GOSUB2960
590 SYSBA+39,A4,2,0,"[133][134][156][147][215]ELCOME"
600 SYSBA+39,A5,6,0,"[133][134] [212]O [212]HE [215]ORLD"
610 SYSBA+39,A3,10,0,C$+"[133][134]  [207][198] [196][217][206][193][205][201][195] [211][208][210][201][212][197][211]":CS=1
620 SYSBA+84,0,0,0,0,0,14
630 FORI=1TO30
640 C=C+1:IFC=16THENC=0
650 RX=INT(RND(1)*335):RY=INT(RND(1)*190)+35
660 SYSBA+99,0,RX,RY,3,0,3,CS,0,3,CS
670 T1=150:GOSUB2960
680 NEXT
690 SYSBA+99,0,163,117,3,0,3,CS,0,3,CS
700 FORI=1TO7:SYSBA+3*28,I,0,0,0,0,I+6:NEXTI
710 FORI=1TO7:SYSBA+3*29,I,163,117,0:NEXTI:FORJ=1TO100:NEXTJ
720 T1=1000:GOSUB2960
730 SYSBA+81,1,0:SYSBA+99,0,40,140,1,0,3,CS,0,3,CS
740 SYSBA+81,1,1:SYSBA+99,1,40,60,1,0,3,CS,0,3,CS
750 SYSBA+81,1,2:SYSBA+99,2,170,60,1,0,3,CS,0,3,CS
760 SYSBA+81,1,3:SYSBA+99,3,320,60,1,0,3,CS,0,3,CS
770 SYSBA+81,1,4:SYSBA+99,4,40,220,1,0,3,CS,0,3,CS
780 SYSBA+81,1,5:SYSBA+99,5,170,220,1,0,3,CS,0,3,CS
790 SYSBA+81,1,6:SYSBA+99,6,320,220,1,0,3,CS,0,3,CS
800 SYSBA+81,1,7:SYSBA+99,7,320,140,1,0,3,CS,0,3,CS
810 T1=1000:GOSUB2960
820 FORI=0TO7:SYSBA+99,I,163,117,14-I,0,3,CS,0,3,CS:NEXTI
830 BB=8:FORB=1TO4:SYSBA+72,0+B*30,199-B*15,7,4,25,B+1,0
840 X(B)=B*30+15:Y(B)=199-B*15+12
850 SYSBA+72,30+BB*30,139+(BB-5)*15,7,4,25,BB+1,0
860 X(BB)=BB*30+45:Y(BB)=139+(BB-5)*15+12:BB=BB-1:NEXTB
870 FORI=1TO7:SYSBA+81,0,I:NEXTI
880 FORI=1TO8
890 SYSBA+81,1,I-1
900 SYSBA+99,I-1,X(I),Y(I),1,0,3,CS,0,3,CS:NEXTI
910 T1=2000:GOSUB2960
920 FORI=0TO7:SYSBA+99,I,165,117,1,0,3,CS,0,3,CS:NEXTI
930 T1=250:GOSUB2960
940 FORI=1TO7:SYSBA+81,0,I:NEXTI
950 SYSBA+39,A3,2,0,"[147][156][134][204][197][212]'[211] [208][204][193][217] [204][201][206][197] [158][212][193][199]![137][138]":SYSBA+90,768,4
960 T1=1500:GOSUB2960:SYSBA+39,A3,2,2,"[147]"
970 X1=INT(RND(1)*320):Y1=INT(RND(1)*200):F=0
980 SYSBA+99,0,X1+24,Y1+50,1,0,3,CS,0,3,CS
990 X2=INT(RND(1)*320):Y2=INT(RND(1)*200)
1000 FORJ=1TO20:SYSBA+60,X1,Y1,X2,Y2,CO,0
1010 IFX2>X1ANDF=1THENSYSBA+90,768,4:F=0
1020 IFX2<X1ANDF=0THENSYSBA+90,768,4:F=1
1030 SYSBA+99,0,X2+24,Y2+50,1,0,3,CS,0,3,CS
1040 X1=X2:Y1=Y2
1050 X2=INT(RND(1)*320):Y2=INT(RND(1)*200):CO=INT(RND(1)*15)+1
1060 T1=200:GOSUB2960:NEXT:X2=319:Y2=190
1070 SYSBA+60,X1,Y1,X2,Y2,CO,0
1080 SYSBA+99,0,X2+24,Y2+50,1,0,3,CS,0,3,CS
1090 T1=500:GOSUB2960:SYSBA+81,0,255:FORI=0TO7:SYSBA+102,I,4:NEXTI
1100 IFF=1THENSYSBA+90,768,4
1110 SYSBA+39,A3,0,2,"[144][144][147]"
1120 SYSBA+18,52224,53223,0
1130 SYSBA+39,A7,0,0,"[133][215]ITH THE [135]AUTO ANIMATE[139] COMMAND YOU CAN[137]"
1140 SYSBA+39,A7,2,0,"[133]TELL A SPRITE TO GO FROM POINT ONE[137]"
1150 SYSBA+39,A7,4,0,"[133]TO POINT TWO, AT A SPECIFIED SPEED.[137]"
1160 SYSBA+39,A7,6,0,"[133][212]HE SPRITE MOVES WITHOUT [153][135]ANY[139] OTHER[137]"
1170 SYSBA+39,A7,8,0,"[133]INSTRUCTIONS BEING NECESSARY.[137]"
1180 T1=7000:GOSUB2960
1190 SYSBA+84,1,1,0,1,1,2,10,6
1200 SYSBA+87,1,300,180,4
1210 SYSBA+81,0,255:SYSBA+81,1,1
1220 SYSBA+39,A7,11,0,"[133][212]HIS IS [210]ALPH.[137]"
1230 T1=2000:GOSUB2960
1240 SYSBA+39,A7,14,0,"[133][200]E'S A SPRITE AND YOU'RE NOT."
1250 T1=2500:GOSUB2960
1260 SYSBA+39,A3,23,6,"[133][134][156][215]ATCH HIM RUN![137][138]"
1270 SYSBA+99,1,40,180,5,4,11,3,4,4,0
1280 T1=4000:GOSUB2960
1290 SYSBA+117,0,23,0,2,40
1300 SYSBA+39,A3,23,3,"[133][156][196]ID YOU NOTICE THE POINTER CHANGE?[137]"
1310 T1=3000:GOSUB2960
1320 SYSBA+117,0,23,0,2,40
1330 SYSBA+39,A3,23,1,"[156][133][204]ET'S TURN HIM AROUND AND DO IT AGAIN.[137]"
1340 T1=3000:GOSUB2960
1350 SYSBA+90,772,8:SYSBA+84,1,1,0,1,1,10,2,6
1360 SYSBA+117,0,23,0,2,40
1370 SYSBA+39,A3,23,7,"[156][133][193]ND THIS TIME MOVE FASTER![137][138]"
1380 T1=2000:GOSUB2960
1390 SYSBA+99,1,350,180,1,4,11,1
1400 T1=3000:GOSUB2960
1410 SYSBA+81,0,1
1420 SYSBA+90,772,8:SYSBA+84,1,1,0,1,1,2,10,6
1430 GOSUB2660
1440 GOSUB2970
1450 SYSBA+81,0,255:SYSBA+75:FORI=0TO7:SYSBA+102,I,0:NEXT
1460 SYSBA+39,A3,1,1,"[144][147]"
1470 SYSBA+39,A3,2,0,"[133][134][215]ELCOME TO THE [215]ORLD"
1480 SYSBA+39,A3,6,0,"[153]   OF [208]RESENTATION"
1490 SYSBA+39,A3,10,0,"  [194][213][211][201][206][197][211][211] [199][210][193][208][200][201][195][211][137][138]"
1500 T1=500:GOSUB2960
1510 M$(0)="[202]AN ":M$(1)="[198]EB ":M$(2)="[205]AR ":M$(3)="[193]PR ":M$(4)="[205]AY "
1520 M$(5)="[202]UN ":M$(6)="[202]UL ":M$(7)="[193]UG ":M$(8)="[211]EP ":M$(9)="[207]CT "
1530 M$(10)="[206]OV ":M$(11)="[196]EC ":M$(12)="[193]VG "
1540 VC=INT(RND(1)*15)+1:VC$=MID$(CO$,VC,1)
1550 POKE53280,0
1560 POKE646,0:SYSBA+39,A2,1,1,"[136]"
1570 X=0:Y=190:POKE53280,0
1580 FORI=0TO11
1590 HT=INT(RND(1)*68)+1
1600 SYSBA+36,A1,24,(I*24/8),M$(I)
1610 SYSBA+72,I*24,Y,14,8,HT,I+1,0:HT(I)=HT:AG=AG+HT
1620 NEXTI:HT(I)=INT(AG/13)
1630 SYSBA+72,I*24,Y,14,8,HT(I),13,0
1640 SYSBA+36,A1,24,(I*24/8),M$(I)
1650 SYSBA+117,0,0,0,14,40:REM CLR WND
1660 SYSBA+39,A2,1,1,"[133][134][135][158]1985 SALES ANALYSIS[137][138][139]"
1670 X1=0:Y1=0:X2=319:Y2=94:C1=6:C2=0:GOSUB2900
1680 REM TICK MARKS
1690 FORI=0TO94STEP9.4:SYSBA+60,0,I,3,I,6,0:NEXT
1700 FORI=0TO11:REM LINE GRAPH
1710 X=I*24+12
1720 SYSBA+60,X,92,X,96,6,0
1730 SYSBA+39,A2,13,X/8,"[144][159][157]"+STR$(HT(I))
1740 SYSBA+60,X,94-HT(I),X+24,94-HT(I+1),6,0:XB=X:YB=Y
1750 NEXTI:X=I*24+12
1760 SYSBA+39,A2,13,X/8,"[144][159][157]"+STR$(HT(I))
1770 T1=1000:GOSUB2960
1780 SYSBA+48,23551,0,0,25,40:REM BMCPY
1790 SYSBA+111,5,4,16,33,2,2:REMCLR CLR
1800 SYSBA+111,5,4,16,33,2,2:REMCLR CLR
1810 SYSBA+117,0,5,4,16,33:REM CLR WND
1820 SYSBA+39,A7,6,12,"[133][135]1986 [208]ROJECTIONS[137][138][139]"
1830 X1=44:Y1=45:X2=284:Y2=160:C1=1:C2=2:GOSUB2900:REM BOX
1840 REM TICK MARKS
1850 FORI=45TO160STEP11.5:SYSBA+60,45,I,48,I,1,2:NEXT:IN=18.462:X1=IN+44
1860 Y1=152:Y2=Y1:SH=80:FORI=IN+44 TO 284 STEP IN:REM LINE GRAPH
1870 SYSBA+60,I,159,I,161,1,2
1880 YH=RND(1)*11.42:X2=I
1890 SYSBA+60,X1,Y1,X2,Y2,6,2:X1=X2:Y1=Y2:Y2=Y2-YH
1900 NEXTI
1910 T1=5000:GOSUB2960
1920 SYSBA+51,23551,0,0
1930 AV=0:AG=0:S=23551:AE=1:RE=1
1940 REM SAVE 25 SCREEN CELLS
1950 FORRW=0TO24STEP5
1960 FORCL=0TO39STEP8
1970 S1(AE)=S:R(AE)=RW:C(AE)=CL
1980 SYSBA+48,S,RW,CL,5,8
1990 S=PEEK(781)+PEEK(782)*256+1:AE=AE+1
2000 NEXTCL:NEXTRW
2010 REM SCRAMBLE SCREEN
2020 FORI=1TO100
2030 R=INT(RND(1)*25)+1:R=R(R)
2040 C=INT(RND(1)*25)+1:C=C(C)
2050 A=INT(RND(1)*25)+1:A=S1(A)
2060 SYSBA+51,A,R,C
2070 NEXTI
2080 T1=1000:GOSUB2960
2090 AE=1
2100 FORRW=1TO5
2110 FORCL=1TO5:AA=S1(AE):R=R(AE):C=C(CL)
2120 SYSBA+51,AA,R,C
2130 AE=AE+1
2140 NEXTCL,RW:T1=1000:GOSUB2960
2150 REM SQUARE
2160 SYSBA+39,A3,0,0,"[144][144][147][137][138]"
2170 SYSBA+39,A3,0,4,"[133][153][215]INDOWS CAN BE CREATED BY COMMAND."
2180 X1=40:Y1=25:X2=176:Y2=103:C1=6:C2=0:GOSUB2900:REM DRAW BOX
2190 T1=2000:GOSUB2960
2200 SYSBA+117,0,0,0,2,40
2210 SYSBA+39,A3,0,4,"[133][129][193]ND CAN CONTAIN TEXT OR GRAPHICS."
2220 T1=500:GOSUB2960
2230 FORI=1TO35:GOSUB2900:X1=X1+2:X2=X2-2:Y1=Y1+2:Y2=Y2-2:NEXT
2240 T1=3000:GOSUB2960
2250 SYSBA+117,0,0,0,2,40
2260 SYSBA+39,A3,0,4,"[133][156][212]HEN STORED QUICKLY AWAY."
2270 SYSBA+48,23551,3,5,10,17
2280 T1=1000:GOSUB2960
2290 SYSBA+117,0,0,0,2,40
2300 SYSBA+39,A3,0,2,"[133][207]NCE STORED THEY CAN BE ERASED."
2310 SYSBA+117,0,3,5,12,19
2320 T1=3000:GOSUB2960
2330 SYSBA+117,0,0,0,2,40
2340 SYSBA+39,A3,0,4,"[133][129][193]ND JUST AS EASILY RESTORED."
2350 SYSBA+51,23551,3,2
2360 T1=2000:GOSUB2960
2370 SYSBA+117,0,0,0,2,40
2380 SYSBA+39,A3,0,9,"[133][150][207]R EVEN DUPLICATED!"
2390 SYSBA+51,23551,14,2
2400 SYSBA+51,23551,14,20
2410 SYSBA+51,23551,3,20
2420 T1=3000:GOSUB2960
2430 SYSBA+117,0,0,0,2,40
2440 SYSBA+39,A3,0,4,"[133][154][193] WINDOW'S COLOR CAN BE CHANGED."
2450 SYSBA+111,14,2,10,17,2,0
2460 SYSBA+111,14,20,10,17,5,0
2470 SYSBA+111,3,20,10,17,7,0
2480 T1=4000:GOSUB2960
2490 SYSBA+117,0,0,0,2,40
2500 SYSBA+39,A3,0,4,"[133][154][193]ND COLOR CAN BE RESTORED TOO!"
2510 SYSBA+111,14,2,10,17,6,0
2520 SYSBA+111,14,20,10,17,6,0
2530 SYSBA+111,3,20,10,17,6,0
2540 T1=4000:GOSUB2960
2550 SYSBA+117,0,0,0,2,40
2560 SYSBA+39,A3,0,12,"[133][201]T'S UP TO YOU."
2570 SYSBA+117,0,2,0,23,40
2580 SYSBA+51,23551,5,11
2590 T1=2000:GOSUB2960
2600 FORI=0TO3:FORJ=1TO15
2610 SYSBA+111,5,11,10,17,J,0
2620 T1=100:GOSUB2960
2630 NEXT:NEXT
2640 SYSBA+111,5,11,10,17,2,0
2650 T1=4000:GOSUB2960
2652 SYSBA+27:POKE53281,6:SYSBA+3:POKE55,0:POKE56,160:LOAD"HELLO CONNECT",8
2660 REM ANIMATE 8 DEMO
2670 SYSBA+84,0,0,0,1,1,2,10,6
2680 SYSBA+84,1,0,0,0,0,6
2690 SYSBA+39,A3,2,2,"[147][133][134][193]NIMATE ALL [135][158]EIGHT[139]"
2700 SYSBA+39,A3,5,2,"[133][134]SPRITES AT [135][129]ONCE[139]!![137][138]"
2710 X2=INT(RND(1)*200)+120:Y2=INT(RND(1)*125)+100:F=0
2720 SYSBA+90,772,8
2730 FORJ=1TO7:SYSBA+87,J,0,0,0:NEXT
2740 SYSBA+87,0,0,0,4:SYSBA+81,1,255
2750 FORI=1TO25
2760 SYSBA+99,0,X2,Y2,1,4,11,1,4,11,5:FORT=1TO50:NEXT
2770 FORJ=1TO7
2780 SYSBA+99,J,X2,Y2,2,0,3,1,0,3,2:FORT=1TO35:NEXT:NEXT
2790 X1=X2:Y1=Y2
2800 X2=INT(RND(1)*200)+120:Y2=INT(RND(1)*125)+100
2810 IFX2>X1ANDF=1THENSYSBA+90,768,12:F=0:SYSBA+84,0,1,0,1,1,2,10,6
2820 IFX2<X1ANDF=0THENSYSBA+90,768,12:F=1:SYSBA+84,0,1,0,1,1,10,2,6
2830 NEXT
2840 SYSBA+99,0,0,0,1,4,11,1
2850 FORT=1TO7:SYSBA+99,T,0,0,1,0,3,1:NEXT:T1=1000:GOSUB2960
2860 FORT=0TO7:SYSBA+102,T,0:NEXT:SYSBA+81,0,255
2870 IFF=1THENSYSBA+90,768,12
2880 RETURN
2890 REM BOX
2900 SYSBA+60,X1,Y1,X2,Y1,C1,C2
2910 SYSBA+60,X2,Y1,X2,Y2,C1,C2
2920 SYSBA+60,X2,Y2,X1,Y2,C1,C2
2930 SYSBA+60,X1,Y2,X1,Y1,C1,C2
2940 RETURN
2950 AA=PEEK(781)+PEEK(782)*256+1:RETURN
2960 FORT=1TOT1:NEXT:RETURN
2970 SYSBA+39,A7,0,0,"[144][144][147]"
2980 REM MAKE STARS
2990 SYSBA+81,0,255:FORI=0TO200
3000 X=INT(RND(.)*320):Y=INT(RND(.)*200)
3010 C=INT(RND(.)*15)+1
3020 SYSBA+54,X,Y,C,0
3030 NEXT
3040 SYSBA+39,A7,2,8,"[133][156][213]SE 14 SPRITES AT ONCE![137]"
3050 SYSBA+78,160,255:SYSBA+81,0,255
3060 SYSBA+69,0,0
3070 FORI=7TO12:SYSBA+84,I,0,0,0,1,6,5,1
3080 SYSBA+87,I,50+(I-7)*30,250,13:NEXT
3090 FORI=1TO6:SYSBA+84,I,0,0,0,1,11,12,15:NEXT
3100 SYSBA+84,13,0,0,0,0,11
3110 SYSBA+84,0,0,0,0,0,12
3120 FORI=1TO3:Y=INT(RND(.)*155):SYSBA+87,I,0,Y,28:NEXT
3130 FORI=4TO6:Y=INT(RND(.)*155):SYSBA+87,I,350,Y,28:NEXT
3140 Y=INT(RND(.)*250):SYSBA+87,13,350,Y,28
3150 Y=INT(RND(.)*250):SYSBA+87,0,0,Y,28
3160 SYSBA+81,1,255
3170 BY=255:BP=13:X(0)=350:X(1)=0:K1=1:K=-1:K2=0:L1=0
3180 FORV=1TO13
3190 FORI=1TO3:Y=INT(RND(1)*79)+60:SYSBA+99,I,X(K2),Y,8-I:NEXT
3200 FORTT=1TO3
3210 L1=L1+1:IFL1>15THEN:IFBY>180THENBY=BY-1
3220 FORI=7TO12:SYSBA+87,I,50+(I-7)*50,BY,BP:NEXT:BP=BP+1
3230 IFBP=28THENBP=13
3240 NEXT
3250 FORI=4TO6:Y=INT(RND(1)*79)+60:SYSBA+99,I,X(K1),Y,11-I:NEXT
3260 Y=INT(RND(1)*99)+40:SYSBA+99,0,X(K2),Y,2
3270 Y=INT(RND(1)*99)+40:SYSBA+99,7,X(K1),Y,4
3280 K1=K1+K:K=K*-1:K2=K2+K
3290 FORTT=1TO20
3300 L1=L1+1:IFL1>9THEN:IFBY>180THENBY=BY-1
3310 FORI=7TO12:SYSBA+87,I,50+(I-7)*50,BY,BP:NEXT:BP=BP+1
3320 IFBP=28THENBP=13
3330 NEXT:NEXT:SYSBA+81,0,255
3340 FORQ=0TO13:SYSBA+87,Q,0,0,0:NEXT
3350 SYSBA+75:SYSBA+39,A2,0,0,"[147]"
3360 RETURN
5000 A(1)=A1:A(2)=A2:A(3)=A3:A(4)=A4:A(5)=A5:A(6)=A6:A(7)=A7:A(8)=A8:A(9)=A9
5005 A(0)=A0
5007 FORT=0TO9
5010 SYSBA+39,A(T),1,0,"[144][144][147][154]@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ !#$%&'()*+,-./"
5020 SYSBA+39,A(T),5,0,"0123456789:]<=>?[192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
5025 FORJ=161TO191:SYSBA+39,A(T),9,J-161,CHR$(J):NEXT
5030 GETA$:IFA$=""THEN5030
5040 NEXT:END