10 REM SUPER SCREEN-TextPlot Demo›20 REM Use all the ATARI characters›30 REM including cursor up/down›40 REM left/right, backspace, RETURN.›50 REM etc. Press CAPS/LOWR to›60 REM select upper or lower case.›70 REM as usual. Atari Logo key›80 REM toggles reverse field.›90 REM Press console buttons for different colors›100 REM ESC switches modes (7 vs. 8)›110 ML=1536›120 IF PEEK(ML)=0 THEN GOSUB 470›130 XL=19:YL=11:DIM CHAR$(480),C$(480)›140 CHAR$=" ":CHAR$(480)=" ":CHAR$(2)=CHAR$:C$=CHAR$›150 GRAPHICS 7+G+16:OPEN #1,4,0,"K:"›160 IF G=1 THEN SETCOLOR 2,0,0›170 LM=1:X=LM:Y=0:C=1›180 POS=X+Y*20+1:CHR=ASC(CHAR$(POS,POS)):RVS=CHR:SC=ASC(C$(POS))-31›190 POKE 20,0:RVS=RVS+128:IF RVS>255 THEN RVS=RVS-256›200 A=USR(ML,RVS,C,X,Y*8)›210 IF PEEK(764)<>255 THEN 270›220 T=PEEK(53279):IF T=6 THEN C=1›230 IF T=5 THEN C=2›240 IF T=3 THEN C=3›250 IF PEEK(20)<15 THEN 210›260 GOTO 190›270 A=USR(ML,CHR,SC,X,Y*8)›280 GET #1,KEY:E=0:DL=E›290 IF KEY>31 AND KEY<123 THEN 430›300 IF KEY=ASC("}") THEN CLOSE #1:GOTO 140›310 IF KEY=ASC("") THEN CLOSE #1:G=1-G:GOTO 140›320 IF KEY=ASC("") THEN Y=Y-1:E=1›330 IF KEY=ASC("") THEN Y=Y+1:E=1›340 IF KEY=ASC("") THEN X=X-1:E=1›350 IF KEY=ASC("") THEN X=X+1:E=1›360 IF KEY=155 THEN X=LM:Y=Y+1:E=1›370 IF KEY=ASC("~") THEN X=X-1:KEY=32:DL=1›380 IF X<LM THEN X=XL:Y=Y-1›390 IF X>XL THEN X=LM:Y=Y+1›400 IF Y>YL+YL*G THEN Y=0›410 IF Y<0 THEN Y=YL›420 IF E THEN 180›430 A=USR(ML,KEY,C,X,Y*8)›440 POS=X+Y*20+1:CHAR$(POS,POS)=CHR$(KEY):C$(POS,POS)=CHR$(31+C)›450 IF DL=0 THEN X=X+1:IF X>XL THEN X=LM:Y=Y+1:IF Y>YL THEN Y=0›460 GOTO 180›470 ML=1536:FOR I=0 TO 252:READ A:POKE ML+I,A:NEXT I:RETURN ›480 DATA 104,240,10,201,4,240›490 DATA 11,170,104,104,202,208›500 DATA 251,169,253,76,164,246›510 DATA 104,133,195,104,201,128›520 DATA 144,4,41,127,198,195›530 DATA 170,141,250,6,224,96›540 DATA 176,15,169,64,224,32›550 DATA 144,2,169,224,24,109›560 DATA 250,6,141,250,6,104›570 DATA 104,141,251,6,104,104›580 DATA 141,252,6,14,252,6›590 DATA 104,104,141,253,6,133›600 DATA 186,166,87,169,10,224›610 DATA 3,240,8,169,20,224›620 DATA 5,240,2,169,40,133›630 DATA 207,133,187,165,88,133›640 DATA 203,165,89,133,204,32›650 DATA 228,6,24,173,252,6›660 DATA 101,203,133,203,144,2›670 DATA 230,204,24,165,203,101›680 DATA 212,133,203,165,204,101›690 DATA 213,133,204,173,250,6›700 DATA 133,187,169,8,133,186›710 DATA 32,228,6,165,212,133›720 DATA 205,173,244,2,101,213›730 DATA 133,206,160,0,162,8›740 DATA 169,0,133,208,133,209›750 DATA 177,205,69,195,72,104›760 DATA 10,72,144,8,24,173›770 DATA 251,6,5,208,133,208›780 DATA 224,1,240,8,6,208›790 DATA 38,209,6,208,38,209›800 DATA 202,208,228,104,152,72›810 DATA 160,0,165,209,145,203›820 DATA 200,165,208,145,203,104›830 DATA 168,24,165,203,101,207›840 DATA 133,203,144,2,230,204›850 DATA 200,192,8,208,183,96›860 DATA 169,0,133,212,162,8›870 DATA 70,186,144,3,24,101›880 DATA 187,106,102,212,202,208›890 DATA 243,133,213,96,0,1›900 DATA 28›