–€€10 GRAPHICS 6:CHANGE=1:A=5:B=10:? "GRAPHICS 6: PLAYFIELD ANIMATION"›20 FOR MOVE=1 TO 2›30 COLOR CHANGE:PLOT A,A:DRAWTO B,A:D}RAWTO B,B:DRAWTO A,B:DRAWTO A,A›40 IF CHANGE=1 THEN CHANGE=0:NEXT MOVE›50 IF CHANGE=0 THEN CHANGE=1:NEXT MOVE›60 A=A+1:B=B+1›}70 IF A>79 OR B>79 THEN GRAPHICS 2:POSITION 0,6:? #6;"PLAYFIELD ANIMATION":? " * GRAPHICS 2 TEXT WINDOW *":END ›80 GOTO 20}›0 IF A>79 OR B>79 THEN GRAPHICS 2:POSITION 0,6:? #6;"PLAYFIELD ANIMATION":? " * GRAPHICS 2 TEXT WINDOW *":END ›80 GOTO 2010 GRAPHICS 0:A=0:B=10:DIM CHARACTER$(1):CHARACTER$="A"›20 POSITION A,B:? CHARACTER$›25 FOR SLOMO=1 TO 10:NEXT SLOMO›30 POSIT }ION A,B:? " "›40 A=A+1:IF A>39 THEN 60›50 GOTO 20›60 IF CHARACTER$<>"" THEN CHARACTER$="":A=0:B=10:GOTO 20›70 POSITION 10,5 }:? "CHARACTER ANIMATION":? " WITH A LETTER AND CONTROL CHARACTER"›>"" THEN CHARACTER$="":A=0:B=10:GOTO 20›70 POSITION 10,5C1 REM * USING COLOR & LOCATE *›2 REM * MICHAEL A. GREENSPAN *›10 S=51:GRAPHICS 3›20 A=35:B=10:X=0:Y=INT(RND(0)*19)+1:C=INT(RN }D(0)*15)+1›25 REM PLOT THE PADDLE›30 COLOR 1:SETCOLOR 0,C,8:PLOT A,B:PLOT A,B+1›35 REM MOVE THE PADDLE UP?›40 IF STICK(0)=14  }THEN COLOR 4:PLOT A,B:PLOT A,B+1:B=B-1:IF B<0 THEN B=0›50 IF STICK(0)=14 THEN GOTO 30›55 REM MOVE THE PADDLE DOWN?›60 IF STIC}K(0)=13 THEN COLOR 4:PLOT A,B:PLOT A,B+1:B=B+1:IF B>19 THEN B=19›70 IF STICK(0)=13 THEN GOTO 30›75 REM PLOT THE BALL AND HOLD} IT AT THAT LOCATION WHILE THE COMPUTER COUNTS FROM 1 TO S›80 COLOR 2:PLOT X,Y:FOR D=1 TO S:NEXT D›85 REM CHECK IF THE BALL H}IT THE PADDLE›90 LOCATE X+1,Y,Z›95 REM MOVE BALL TO THE RIGHT IF IT HAS NOT REACHED THE END OF THE ROW›100 IF Z<>1 THEN IF X<}=35 THEN COLOR 4:PLOT X,Y:X=X+1:GOTO 30›105 REM IT'S A MISS›110 IF Z<>1 THEN IF X>35 THEN MISS=MISS+1:? "HITS-";HIT;" MISSES}-";MISS:COLOR 4:FOR B=0 TO 19:PLOT 35,B:PLOT 36,B›120 IF Z<>1 THEN NEXT B:S=S+10:GOTO 20›125 REM IT'S A HIT›130 HIT=HIT+1:? "}HITS-";HIT;" MISSES-";MISS:S=S-10:COLOR 4:FOR B=0 TO 19:PLOT 35,B:PLOT 34,B:NEXT B:GOTO 20› REM IT'S A HIT›130 HIT=HIT+1:? "\100 GRAPHICS 3:REM 3 COLORS, 40X24›110 COLOR I:REM GOLDEN ORANGE›120 PLOT 0,0›130 DRAWTO 19,19›140 COLOR 2:REM LIGHT GREEN›15 }0 DRAWTO 38,0›160 DL=PEEK(560)+256*PEEK(561)›170 REM DL IS ADDRESS OF DISPLAY LIST›180 FOR K=0 TO 33›190 PRINT "PEEK(DL+";›20 }0 PRINT K;›210 PRINT ")=";›220 PRINT PEEK(DL+K)›230 FOR J=1 TO 333:REM DELAY LOOP›240 NEXT J›250 NEXT K›260 PRINT CHR$(125);: }REM CLEAR TEXT›270 PRINT "NOW WATCH THE MODE"›280 PRINT "LINES GET CHANGED"›290 PRINT "AT THE BOTTOM"›300 PRINT "OF THE SCREE }N";›310 FOR K=1 TO 999›320 NEXT K›330 POKE DL+25,64+6:REM CHANGE LMS›340 FOR K=1 TO 333›350 NEXT K›360 POKE DL+28,6›370 FOR K }=1 TO 333›380 NEXT K›390 POKE DL+29,6›400 FOR K=1 TO 333›410 NEXT K›420 POKE DL+30,6›430 FOR K=1 TO 333›440 NEXT K›450 PRINT }›460 PRINT ›470 FOR K=1 TO 333›480 NEXT K›490 PRINT CHR$(125);›500 END ›POKE DL+30,6›430 FOR K=1 TO 333›440 NEXT K›450 PRINT H100 GRAPHICS 3›110 DL=PEEK(560)+256*PEEK(561)›120 LMSLO=PEEK(DL+4)›130 LMSHI=PEEK(DL+5)›140 TLO=PEEK(DL+26)›150 THI=PEEK(DL+2}7)›160 POKE DL+3,64+2›170 POKE DL+4,TLO›180 POKE DL+5,THI›190 FOR K=DL+6 TO DL+8›200 POKE K,2›210 NEXT K›220 POKE DL+9,64+8›2}30 POKE DL+10,LMSLO›240 POKE DL+11,LMSHI›250 FOR K=DL+12 TO DL+30›260 POKE K,8›270 NEXT K›280 COLOR 1›290 PLOT 0,0›300 DRAWTO} 19,19›310 COLOR 2›320 DRAWTO 38,0›330 END › FOR K=DL+12 TO DL+30›260 POKE K,8›270 NEXT K›280 COLOR 1›290 PLOT 0,0›300 DRAWTO,100 GRAPHICS 0›110 FOR K=1 TO 23›120 PRINT "ATARI ATARI ATARI ATARI"›130 NEXT K›140 DL=PEEK(560)+256*PEEK(561)›150 POKE DL,0› }160 POKE DL+1,0›170 POKE DL+2,0›180 FOR K=16 TO 112 STEP 16›190 POKE DL,K›200 FOR J=1 TO 100›210 NEXT J›220 NEXT K›230 FOR K=!}16 TO 112 STEP 16›240 POKE DL+1,K›250 FOR J=1 TO 100›260 NEXT J›270 NEXT K›280 FOR K=16 TO 112 STEP 16›290 POKE DL+2,K›300 FO"}R J=1 TO 100›310 NEXT J›320 NEXT K›330 FOR K=1 TO 23›340 READ P›350 POKE DL+5+K,P›360 FOR J=1 TO 100›370 NEXT J›380 NEXT K›39#}0 DATA 3,4,5,6,7,7›400 DATA 8,8,8,8,9,9,9,9›410 DATA 10,10,11,11›420 DATA 12,12,13,14,15›430 END ›00›370 NEXT J›380 NEXT K›39b10 GRAPHICS 3:A=PEEK(560)+PEEK(561)*256›20 D=PEEK(A):? D;",";:IF D<>65 THEN A=A+1:GOTO 20›30 ? PEEK(A+1);",";PEEK(A+2)›40 GOT%}O 40›APHICS 3:A=PEEK(560)+PEEK(561)*256›20 D=PEEK(A):? D;",";:IF D<>65 THEN A=A+1:GOTO 20›30 ? PEEK(A+1);",";PEEK(A+2)›40 GOT10 POKE 82,0:GRAPHICS 3:A=PEEK(560)+PEEK(561)*256›20 IF PEEK(A)<>66 THEN A=A+1:GOTO 20›30 POKE A,70:POKE A+3,6:POKE A+4,6:POK'}E A+5,6›40 ? " ATARI AND COMPUTE! AN UNBEATABLE "›50 ? " TEAM FOUR LINES MODE 1"›60 COLOR 2:SETCOLOR 1,(}10,6:PLOT 17,1:DRAWTO 17,10:DRAWTO 9,18›70 PLOT 19,1:DRAWTO 19,18:PLOT 20,1:DRAWTO 20,18›80 PLOT 22,1:DRAWTO 22,10:DRAWTO 30,)}18›90 GOTO 90›:DRAWTO 17,10:DRAWTO 9,18›70 PLOT 19,1:DRAWTO 19,18:PLOT 20,1:DRAWTO 20,18›80 PLOT 22,1:DRAWTO 22,10:DRAWTO 30,10 POKE 82,0:GRAPHICS 3:A=PEEK(560)+PEEK(561)*256›20 IF PEEK(A)<>66 THEN A=A+1:GOTO 20›30 POKE A,70:POKE A+3,7:POKE A+4,6:POK +}E A+5,65:POKE A+6,PEEK(A+7):POKE A+7,PEEK(A+8)›40 ? " ATARI AND COMPUTE! 1 LINE OF MODE 2 "›50 ? " 2 LINES OF MODE 1"›60 C ,}OLOR 2:SETCOLOR 1,10,6:PLOT 17,1:DRAWTO 17,10:DRAWTO 9,18›70 PLOT 19,1:DRAWTO 19,18:PLOT 20,1:DRAWTO 20,18›80 PLOT 22,1:DRAWT -}O 22,10:DRAWTO 30,18›90 GOTO 90›:DRAWTO 17,10:DRAWTO 9,18›70 PLOT 19,1:DRAWTO 19,18:PLOT 20,1:DRAWTO 20,18›80 PLOT 22,1:DRAWT 30000 REM This loop will act on each character in PRINTME$›30010 FOR ME=1 TO LEN(PRINTME$)›30030 VALUE=ASC(PRINTME$(ME,ME))›3$/}0040 REM Subtract 128 temporarily if it's a reverse character›30050 VALUE=VALUE-128*(VALUE>127):REM See note below›30060 REM $0}Make the appropriate value adjustments›30070 VALUE=VALUE+64*(VALUE<32)-32*(VALUE>31 AND VALUE<96)›30080 REM Convert back to r$1}everse if necessary›30090 VALUE=VALUE+128*(ASC(PRINTME$(ME,ME))>127)›30100 POKE STARTHERE+ME-1,VALUE:REM Remember, ME starts $2}at 0, not 1›30110 ? VALUE›30120 REM Go to next character›30130 NEXT ME›30140 REM All done, say goodby›30150 RETURN ›31020 REM$3} Find ATASCII value of character›EM Go to next character›30130 NEXT ME›30140 REM All done, say goodby›30150 RETURN ›31020 REM$!100 REM DEMONSTRATES TEXT WINDOW›110 REM SIMPLE MENU PROGRAM FOR DISK›130 TRAP 150›140 OPEN #1,6,0,"D:*.*":GOTO 160›150 ? "Ca(5}n't read directory":END ›160 GRAPHICS 0:COL=0:POKE 752,1:REM DISABLES CURSOR›170 DIM A$(20),F$(14):TRAP 230›180 INPUT #1;A$›1(6}90 POSITION COL,LINE:? A$(1,14)›200 LINE=LINE+1›210 IF LINE>20 THEN COL=COL+13:LINE=0›220 GOTO 180›230 POKE 703,4:REM CREATES(7} TEXT WINDOW›240 FOR I=1 TO 100:? I,:NEXT I:REM ONLY FOR DEMONSTRATION›250 ? CHR$(125):? "Run which program";:INPUT A$:REM CH(8}R$(125) ONLY CLEARS WINDOW›260 TRAP 290›270 F$="D:":F$(3)=A$›280 RUN F$›290 ? "Can't RUN ";F$;"."›300 END ›";:INPUT A$:REM CH(k1 REM ÄĹÍϛ2 REM THIS PROGRAM IS A DEMONSTRATION›3 REM OF MIXING MODES 0 AND 8›10 DIM PRINT$(167)›20 FOR I=1 TO 167›30 READ A,:}:LET PRINT$(I)=CHR$(A)›40 NEXT I›50 GRAPHICS 8›60 MLPRINT=ADR(PRINT$):REM ADDRESS OF STRING IS STARTING LOCATION OF MACHINE L,;}ANGUAGE ROUTINE›100 A=USR(MLPRINT,10,10,ADR("[1+(3n-2)] = "),20)›110 A=USR(MLPRINT,101,9,ADR("n"),1)›120 A=USR(MLPRINT,<},105,9,ADR("3n -n"),5)›130 A=USR(MLPRINT,267,8,ADR("2"),1)›140 A=USR(MLPRINT,221,10,ADR("2"),1)›150 A=USR(MLPRINT,227,10,ADR(,=}"2"),1)›160 DIM TEXT$(40)›170 TEXT$="Mixing ÁÔÁŇÉ Graphics modes 0 and 8"›180 A=USR(MLPRINT,3,0,ADR(TEXT$),LEN(TEXT$))›190 CO,>}LOR 1:PLOT 24,9:DRAWTO 304,9›200 PLOT 64,60:DRAWTO 260,60:DRAWTO 260,100:DRAWTO 64,100:DRAWTO 64,60›210 PLOT 64,100:DRAWTO 74,?},110:DRAWTO 270,110:DRAWTO 270,70:DRAWTO 260,60›220 PLOT 260,100:DRAWTO 270,110›230 END ›1500 REM Following are the decimal›1,@}510 REM bytes for the machine›1520 REM language routine,›1530 REM "Mixing GRAPHICS Modes 0 AND 8›1531 REM Ôůđĺ ĂáňĺćőěěůĄ›153,A}6 DATA 104,201,4,240,9,170›1542 DATA 240,5,104,104,202,208›1548 DATA 251,96,104,133,215,104›1554 DATA 133,214,104,104,168,104,B}›1560 DATA 133,217,104,133,216,104›1566 DATA 104,240,236,133,212,24›1572 DATA 165,214,101,88,133,214›1578 DATA 165,89,101,215,C},133,215›1584 DATA 152,240,15,165,214,105›1590 DATA 64,133,214,165,215,105›1596 DATA 1,133,215,136,208,241›1602 DATA 132,221,,D}160,0,132,220›1608 DATA 177,216,160,0,170,16›1614 DATA 1,136,132,213,138,41›1620 DATA 96,208,4,169,64,16›1626 DATA 14,201,32,,E}208,4,169›1632 DATA 0,16,6,201,64,208›1638 DATA 2,169,32,133,218,138›1644 DATA 41,31,5,218,133,218›1650 DATA 169,0,162,3,6,21,F}8›1656 DATA 42,202,208,250,109,244›1662 DATA 2,133,219,164,221,177›1668 DATA 218,69,213,164,220,145›1674 DATA 214,200,132,220,G},196,212›1680 DATA 208,182,24,165,214,105›1686 DATA 40,133,214,144,2,230›1692 DATA 215,230,221,169,8,197›1698 DATA 221,208,15,H}9,96,207,96›0 DATA 208,182,24,165,214,105›1686 DATA 40,133,214,144,2,230›1692 DATA 215,230,221,169,8,197›1698 DATA 221,208,15, 140 DIM I(7),FN$(14),N$(3)›150 IF PEEK(1536)<>72 THEN GOSUB 1400›160 GRAPHICS 0:POKE 752,1›170 SETCOLOR 2,7,2:SETCOLOR 4,7,2›0J}180 DL=PEEK(560)+256*PEEK(561)+4›190 SD=PEEK(88)+256*PEEK(89)+13*40:ASD=SD+5*40›200 A1=1630:FUNC=1631:A2=1632:LOGIC=1628›210 0K}RAM=PEEK(106)-8:PMBASE=RAM*256›220 CHRORG=57344›230 POKE 559,46:POKE 54279,RAM›240 POKE 53277,3:POKE 53256,3›250 CHSET=(RAM-80L})*256›260 POKE DL+23,6:POKE DL+24,7›270 POKE DL+18,130›280 POKE 512,0:POKE 513,6›290 POKE 54286,192›300 POKE 1549,RAM-8:POKE 0M}1538,0›310 A=USR(1555,CHSET)›320 P0=PMBASE+512+20:P1=PMBASE+640+20:P2=PMBASE+768+20:P=PMBASE+896+20:T=85›325 FOR I=0 TO 128:P0N}OKE P0+I,0:POKE P1+I,0:POKE P2+I,0:NEXT I›330 FOR I=0 TO 7:FOR J=0 TO 3:T=255-T:POKE P0+I*4+J,0:POKE P1+I*4+J,T:T=255-T›340 P0O}OKE P2+I*4+J,T:NEXT J:T=255-T:NEXT I›350 POKE 53248,64:POKE 53249,64:POKE 53250,64›360 POKE 704,198:POKE 705,240:POKE 706,68›0P}370 POKE 53256,3:POKE 53257,3:POKE 53258,3:POKE 623,1›380 ? " ":FOR I=1 TO 8:? " | |":NEXT I:? " "0Q}›390 POKE 82,14:POSITION 14,1›400 ? "Ĺ Edit Ň Restore"›410 ? "Ć Copy From Ř Switch"›420 ? "Ô Copy To Ă Clear"›430R}0 ? "Ď Overlay É Invert"›440 ? "Ó Save Font Ě Load Font"›450 ? "œ Delete  Insert"›460 ? "ž Scroll Left Ÿ Scro0S}llRight"›465 ? "Đ Print Char."›470 ? "× Write Data Ńuit"›480 ? "†ü‡ Reverse Ç Graphics"›490 FOR I=0 TO 3:FOR J=0 0T}TO 31:Z1=J+I*40+4:Z2=I*32+J:POKE SD+Z1,Z2:POKE ASD+Z1,Z2:NEXT J:NEXT I›500 POKE 82,2:POSITION 0,0›510 OPEN #2,4,0,"K:"›520 P=0U}PEEK(764):IF P=255 THEN 520›530 IF P=60 THEN 520›540 IF P=39 THEN POKE 764,168›550 GET #2,K›560 IF K<>ASC("E") THEN 790›570 G0V}OSUB 1750›580 FOR I=0 TO 7:A=PEEK(CHSET+C*8+I):FOR J=0 TO 3:POKE P0+I*4+J,A:NEXT J:NEXT I›590 POKE ASD+169,C:POKE ASD+190,C›60W}00 JX=0:JY=0›610 POSITION JX+4,JY+1›620 ? CHR$(32+128*FF);"";:FF=1-FF›630 IF STRIG(0)=0 THEN 750›640 IF PEEK(764)<255 THEN ?0X} " ";:GOTO 520›650 ST=STICK(0):IF ST=15 THEN 620›660 IF STRIG(0) THEN FOR I=0 TO 100 STEP 20:SOUND 0,100-I,10,8:NEXT I›670 PO0Y}SITION JX+4,JY+1:? " "›680 JX=JX+(ST=7)-(ST=11)›690 JY=JY+(ST=13)-(ST=14)›700 IF JX<0 THEN JX=7›710 IF JX>7 THEN JX=0›720 IF 0Z}JY<0 THEN JY=7›730 IF JY>7 THEN JY=0›740 GOTO 610›750 POKE A1,PEEK(CHSET+C*8+JY):POKE A2,2^(7-JX):POKE FUNC,73:A=USR(LOGIC)›70[}60 POKE CHSET+C*8+JY,A:FOR J=0 TO 3:POKE P0+JY*4+J,A:NEXT J›770 FOR I=1 TO 10:SOUND 0,I*4,8,8:NEXT I:SOUND 0,0,0,0›780 GOTO 60\}50›790 IF K<>ASC("F") THEN 830›800 S=C:GOSUB 1750›810 FOR I=0 TO 7:A=PEEK(CHSET+C*8+I):POKE CHSET+S*8+I,A:NEXT I›820 C=S:GOTO0]} 580›830 IF K<>ASC("T") THEN 870›840 S=C:GOSUB 1750›850 FOR I=0 TO 7:A=PEEK(CHSET+S*8+I):POKE CHSET+C*8+I,A:NEXT I›860 C=S:GO0^}TO 600›870 IF K<>ASC("O") THEN 920›880 S=C:GOSUB 1750›890 FOR I=0 TO 7:POKE A1,PEEK(CHSET+C*8+I):POKE A2,PEEK(CHSET+S*8+I):PO0_}KE FUNC,9:A=USR(LOGIC)›900 POKE CHSET+S*8+I,A:NEXT I›910 C=S:GOTO 580›920 IF K<>ASC("R") THEN 940›930 FOR I=0 TO 7:POKE CHSET0`}+C*8+I,PEEK(CHRORG+C*8+I):NEXT I:GOTO 580›940 IF K<>ASC("C") THEN 960›950 FOR I=0 TO 7:POKE CHSET+C*8+I,0:NEXT I:GOTO 580›9600a} IF K<>ASC("") THEN 980›970 FOR I=0 TO 7:POKE CHSET+C*8+I,255-PEEK(CHSET+C*8+I):NEXT I:GOTO 580›980 IF K<>ASC("X") THEN 10100b}›990 S=C:GOSUB 1750›1000 FOR I=0 TO 7:A=PEEK(CHSET+S*8+I):POKE CHSET+S*8+I,PEEK(CHSET+C*8+I):POKE CHSET+C*8+I,A:NEXT I:GOTO 50c}80›1010 IF K<>ASC("I") THEN 1030›1020 FOR I=0 TO 7:I(I)=PEEK(CHSET+C*8+I):NEXT I:FOR I=0 TO 7:POKE CHSET+C*8+I,I(7-I):NEXT I:0d}GOTO 580›1030 IF K<>ASC("") AND K<>ASC("œ") THEN 1050›1040 FOR I=JY TO 6:POKE CHSET+C*8+I,PEEK(CHSET+C*8+I+1):NEXT I:POKE CH0e}SET+C*8+7,0:GOTO 580›1050 IF K<>ASC("") AND K<>ASC("") THEN 1070›1060 FOR I=7 TO JY STEP -1:POKE CHSET+C*8+I,PEEK(CHSET+C*80f}+I-1):NEXT I:POKE CHSET+C*8+JY,0:GOTO 580›1070 IF K<>ASC("") THEN 1100›1080 FOR I=0 TO 7:A=PEEK(CHSET+C*8+I)*2:IF A>255 THEN0g} A=A-256›1090 POKE CHSET+C*8+I,A:NEXT I:GOTO 580›1100 IF K<>ASC("") THEN 1130›1110 FOR I=0 TO 7:A=INT(PEEK(CHSET+C*8+I)/2)›10h}120 POKE CHSET+C*8+I,A:NEXT I:GOTO 580›1130 IF K<>ASC("Q") THEN 1150›1140 POKE 53248,0:POKE 53249,0:POKE 53250,0:POKE 53277,00i}:GRAPHICS 0:END ›1150 IF K<>ASC("S") THEN 1210›1160 GOSUB 1610:POKE 195,0›1170 TRAP 1190:OPEN #1,8,0,FN$›1180 A=USR(1589,CHSE0j}T)›1190 CLOSE #1:TRAP 40000:IF PEEK(195) THEN 1260›1200 POKE 54286,192:GOTO 580›1210 IF K<>ASC("L") THEN 1290›1220 GOSUB 16100k}:POKE 195,0›1230 TRAP 1250:OPEN #1,4,0,FN$›1240 A=USR(1619,CHSET)›1250 CLOSE #1:TRAP 40000:IF PEEK(195)=(0) THEN 1200›1260 PO0l}SITION 14,0:? "ý* ERROR -";PEEK(195);" *":CLOSE #1›1270 IF PEEK(764)<255 THEN POSITION 14,0:? " ":GOTO 1200m}0›1280 GOTO 1270›1290 IF K<>ASC("W") THEN 1370›1300 POSITION 2,10:N$=" ":L=LEN(STR$(C)):N$(1,L)=STR$(C):L=LEN(N$)›1310 FOR 0n}I=1 TO L:? CHR$(ASC(N$(I,I))+128);:NEXT I:? ">";›1320 FOR I=0 TO 2:FOR J=0 TO 1+(I>0):A=PEEK(CHSET+C*8+J+I*3)›1330 SOUND 0,(I0o}*3+J)*10+50,10,8›1340 PRINT A;",";:NEXT L:? "~":NEXT I:SOUND 0,0,0,0›1350 IF PEEK(764)=255 THEN 1350›1360 POSITION 2,10:FOR I0p}=1 TO 3:? " ":NEXT I:GOTO 520›1370 IF K<>ASC("G") THEN 1395›1380 CF=1-CF:POKE 1549,RAM-8+2*CF›1390 GOTO 520›1395 I0q}F K<>ASC("P") THEN 520›1397 GOTO 5000›1400 GRAPHICS 2+16:SETCOLOR 4,1,6:POSITION 5,3:? #6;"SUPERĆĎÎÔ"›1410 POSITION 4,5:? #6;0r}"patience":POSITION 2,7:? #6;"ăčáňěĺó âňáîîďî"›1420 FOR I=1536 TO 1639:READ A:POKE I,A:POKE 709,A:SOUND 0,A,10,4:NEXT I›140s}30 SOUND 0,0,0,0:RETURN ›1440 DATA 72,169,100,141,10,210›1450 DATA 141,24,208,141,26,208›1460 DATA 169,6,141,9,212,104›1470 D0t}ATA 64,104,104,133,204,104›1480 DATA 133,203,169,0,133,205›1490 DATA 169,224,133,206,162,4›1500 DATA 160,0,177,205,145,203›150u}10 DATA 200,208,249,230,204,230›1520 DATA 206,202,208,240,96,104›1530 DATA 162,16,169,9,157,66›1540 DATA 3,104,157,69,3,104›10v}550 DATA 157,68,3,169,0,157›1560 DATA 72,3,169,4,157,73›1570 DATA 3,32,86,228,96,104›1580 DATA 162,16,169,5,76,58›1590 DATA 60w},9,104,169,0,9,0,133›1600 DATA 212,169,0,133,213,96›1610 POSITION 14,0:? "Filename?";›1620 FN$="":K=0›1630 POKE 20,0›1640 IF 0x}PEEK(764)<255 AND PEEK(764)<>39 AND PEEK(764)<>60 THEN 1670›1650 IF PEEK(20)<10 THEN 1640›1660 ? CHR$(21+11*K);"LEFT";:K=1-K:0y}GOTO 1630›1670 GET #2,A›1680 IF A=155 THEN ? " ";:FOR I=1 TO LEN(FN$)+10:? "~";:NEXT I:RETURN ›1690 IF A=126 AND LEN(FN$)>1 T0z}HEN FN$=FN$(1,LEN(FN$)-1):? " ";CHR$(A);:GOTO 1630›1695 IF A=126 AND LEN(FN$)=1 THEN ? CHR$(A);:GOTO 1620›1700 IF A=58 OR (A0{}>=48 AND A<=57) OR (A>=65 AND A<=90) OR A=46 THEN 1720›1710 GOTO 1630›1720 IF LEN(FN$)<14 THEN FN$(LEN(FN$)+1)=CHR$(A):? CHR$0|}(A);›1730 GOTO 1630›1740 END ›1750 REM GET CHOICE OF CHARACTER›1760 CY=INT(MRY/32):CX=MRY-32*CY›1770 C=CX+CY*32›1780 POKE SD+0}}CX+CY*40+4,C+128›1790 POKE ASD+CX+CY*40+4,C+128›1800 IF STRIG(0)=0 OR PEEK(764)<255 THEN MRY=C:GOTO 1900›1810 ST=STICK(0):IF 0~}ST=15 THEN 1800›1820 POKE 53279,0›1830 GOSUB 1900›1840 CX=CX-(ST=11)+(ST=7):CY=CY-(ST=14)+(ST=13)›1850 IF CX<0 THEN CX=31:CY=0}CY-1›1860 IF CX>31 THEN CX=0:CY=CY+1›1870 IF CY<0 THEN CY=3›1880 IF CY>3 THEN CY=0›1890 GOTO 1770›1900 POKE SD+CX+CY*40+4,C›10€}910 POKE ASD+CX+CY*40+4,C›1920 RETURN ›5000 REM PRINT DATA›5015 TRAP 1260:OPEN #1,8,0,"P:":PRINT #1;" ---(";C;")----0}-"›5020 FOR I=0 TO 7:PRINT #1;" ";›5030 A=PEEK(CHSET+C*8+I)›5040 P=128:D=A›5050 FOR J=1 TO 8›5060 IF INT(D/P)=1 THEN0‚} PUT #1,88:D=D-P:GOTO 5080›5070 PUT #1,32›5080 P=P/2:NEXT J:PRINT #1;" ";A›5090 NEXT I:PRINT #1;" ---------"›5100 C0ƒ}LOSE #1:POKE 54286,192:TRAP 40000:GOTO 520›080 P=P/2:NEXT J:PRINT #1;" ";A›5090 NEXT I:PRINT #1;" ---------"›5100 C0+1000 REM CHLOAD-CHARACTER SET LOADER›1005 OPEN #1,4,0,"D:FONT":REM YOUR FILENAME HERE›1010 X=16:CHSET=(PEEK(106)-8)*256:POKE 4…}756,CHSET/256›1020 ICCOM=834:ICBADR=836:ICBLEN=840›1030 POKE ICBADR+X+1,CHSET/256:POKE ICBADR+X,0›1040 POKE ICBLEN+X+1,4:POKE4†} ICBLEN+X,0›1050 POKE ICCOM+X,7:A=USR(ADR("hhhŞLVä"),X):REM CALL CIO›1060 CLOSE #1›OKE ICBADR+X,0›1040 POKE ICBLEN+X+1,4:POKE4S100 REM CHPRINT--CHARACTER SET PRINTOUT›110 TRAP 340›120 OPEN #1,4,0,"D:FONT":REM YOUR FILENAME HERE›130 OPEN #2,8,0,"P:":REM8ˆ} CHANGE TO "E:" FOR SCREEN›140 PRINT "ą HEX OR ˛ DECIMAL";:INPUT TYPE›150 DIM HEX$(16),F$(3)›160 HEX$="0123456789ABCDEF"›165 8‰}LSB=-1›170 FOR I=0 TO 1023 STEP 8›180 F$=" ":C=INT(I/8)›190 IF TYPE=2 THEN F$(1,LEN(STR$(C)))=STR$(C):PRINT #2;F$;":";:GOTO8Š} 250›200 LSB=LSB+1:IF LSB=256 THEN LSB=0:MSB=MSB+1›210 PRINT #2;"$";HEX$(MSB+1,MSB+1);›230 HINYB=INT(LSB/16):LONYB=LSB-16*HIN8‹}YB›240 PRINT #2;HEX$(HINYB+1,HINYB+1);HEX$(LONYB+1,LONYB+1);": ";›250 FOR J=0 TO 7›260 GET #1,A›270 F$=" ":IF TYPE=2 THEN F8Œ}$(1,LEN(STR$(A)))=STR$(A):PRINT #2;" ";F$;:GOTO 310›290 HINYB=INT(A/16):LONYB=A-16*HINYB›300 PRINT #2;HEX$(HINYB+1,HINYB+1);H8}EX$(LONYB+1,LONYB+1);" ";›310 NEXT J›320 PRINT #2›330 NEXT I›340 CLOSE #1:CLOSE #2›HINYB›300 PRINT #2;HEX$(HINYB+1,HINYB+1);H8S100 REM CHSET DATAMAKER›102 GRAPHICS 1+16:CHSET=(PEEK(106)-8)*256›105 DIM F$(14),OF$(14)›110 POSITION 3,0:? #6;"character set<}"›120 POSITION 5,2:? #6;"datamaker"›130 ? #6:? #6;"THIS UTILITY CREATES"›140 ? #6;"A SET OF DATA STATE-";›150 ? #6;"MENTS FRO<}M A SAVED"›160 ? #6;"CHARACTER SET. IT"›170 ? #6;"OPTIMIZES BY ONLY"›180 ? #6;"LISTING CHARACTERS"›190 ? #6;"NOT PRESENT IN <‘}THE"›200 ? #6;"STANDARD CHARACTER"›210 ? #6;"SET."›220 ? #6:? #6;"PRESS ďđôéďî"›230 IF PEEK(53279)<>3 THEN 230›240 GRAPHICS 1<’}+16›250 ? #6;"THE DATA STATEMENTS"›260 ? #6;"WILL BE WRITTEN"›270 ? #6;"AS A list FILE."›280 ? #6;"USE enter TO MERGE"›290 ? <“}#6;"THE DATA WITH YOUR"›300 ? #6;"PROGRAM.":? #6:? #6;"ĹÎÔĹŇ ĆÉĚĹÎÁÍĹ":? #6;"ĎĆ ĂČÁŇÁĂÔĹŇ ÓĹÔ"›305 POKE 82,0:POKE 87,0›310 ? <”}"œ";:INPUT F$:IF F$="" THEN 310›315 IF F$="C" OR F$="C:" THEN CASS=1:GOTO 332›320 ? "œœœœœœĹÎÔĹŇ ĎŐÔĐŐÔ ĆÉĚĹÎÁÍ<•}Ĺ":? :? ›330 ? "œ";:INPUT OF$:IF OF$="" THEN 330›335 ? "œœœĹÎÔĹŇ ĚÉÎĹ Ł ĆĎŇ ÄÁÔÁ ÓÔÁÔĹÍĹÎÔÓ":? :? ›340 INPUT SLINE›34<–}5 CLOSE #1›350 GRAPHICS 2+16:SETCOLOR 4,3,0›360 IF CASS THEN ? #6:? #6;"POSITION CHARACTER":? #6;"SET TAPE,HIT ŇĹÔŐŇÎ"›370 PO<—}SITION 5,6:? #6;"working"›375 GOSUB 1000:REM LOAD CHARACTER SET›377 IF CASS THEN ? #6;"}INSERT OUTPUT TAPE,":? #6;"PRESS Ň<˜}ĹÔŐŇÎ"›380 OPEN #2,8,0,OF$:POSITION 5,6:? #6;"÷ďňëéî玎Ž"›381 ? #2;SLINE;"CHSET=(PEEK(106)-8)*256:FOR I=0 TO 1023:POKE CHSET+<™}I,PEEK(57344+I):NEXT I"›382 ? #2;SLINE+1;"RESTORE ";SLINE+5›383 ? #2;SLINE+2;"READ A:IF A=-1 THEN RETURN"›384 ? #2;SLINE+3;"F<š}OR J=0 TO 7:READ B:POKE CHSET+A*8+J,B:NEXT J"›385 ? #2;SLINE+4;"GOTO ";SLINE+2›387 LINE=SLINE+4›390 FOR I=0 TO 127:F=0›400 FO<›}R J=0 TO 7›420 IF PEEK(CHSET+I*8+J)<>PEEK(57344+I*8+J) THEN F=1›430 NEXT J›440 IF NOT F THEN 460›445 LINE=LINE+1›450 ? #2;LI<œ}NE;" DATA ";:? #2;I;:FOR J=0 TO 7:? #2;",";PEEK(CHSET+I*8+J);:NEXT J:? #2›460 NEXT I:? #2;LINE+1;"DATA -1"›470 ? "All finishe<}d! Use ENTER ";CHR$(34);OF$›480 ? "to merge the file."›490 END ›1000 REM HIGH-SPEED LOAD OF CHARACTER SET›1005 OPEN #1,4,0,F<ž}$:REM OPEN FILE›1010 X=16:REM $10›1020 ICCOM=834:ICBADR=836:ICBLEN=840›1030 POKE ICBADR+X+1,CHSET/256:POKE ICBADR+X,0›1040 PO<Ÿ}KE ICBLEN+X+1,4:POKE ICBLEN+X,0›1050 POKE ICCOM+X,7:A=USR(ADR("hhhŞLVä"),X):REM CALL CIO›1060 CLOSE #1:RETURN ›DR+X,0›1040 PO<o10 RESTORE 30:FOR X=0 TO 27:READ Y:POKE 1536+X,Y:NEXT X›20 Z=USR(1536)›30 DATA 104,169,0,133,205,168,169,224,133,206,177,205,@Ą}145,203,200,208,249,230,204,230,206,165,206,201,226›40 DATA 208,239,96›30 DATA 104,169,0,133,205,168,169,224,133,206,177,205,@G10 DIM MVCHR$(28)›20 MVCHR$="hŠ…Í¨Šŕ…ι͑ËČĐůćĚćÎĽÎÉâĐď`"›30 Z=USR(ADR(MVCHR$))›(ADR(MVCHR$))›ATA 104,169,0,133,205,168,169,DQ10 DIM MVCHR$(28)›20 RESTORE 40:FOR I=1 TO 28:READ Y:MVCHR$(I)=CHR$(Y):NEXT I›30 Z=USR(ADR(MVCHR$))›40 DATA 104,169,0,133,205H¤},168,169,224,133,206,177,205,145,203,200,208,249,230,204,230,206,165,206,201,226›50 DATA 208,239,96›40 DATA 104,169,0,133,205Hd10 DIM AA$(1),MVCHR(27)›20 RESTORE 40:FOR X=1 TO 28:READ Y:POKE ADR(AA$)+X,Y:NEXT X›30 Z=USR(ADR(AA$)+1)›40 DATA 104,169,0,13LŚ}3,205,168,169,224,133,206,177,205,145,203,200,208,249,230,204,230,206,165,206,201,226›50 DATA 208,239,96›40 DATA 104,169,0,13LiProgram 6. Display List Interrupt.››PHA ;Save accumulator (decimal 72)›LDA # $E0 ;Load ROM page number (decimal 169,224P¨})›STA WSYNC ;Write to WSYNC (decimal 141,10,212)›STA $D409 ;Store page number in hardware register (decimal 141,9,212)›PLA PŠ} ;Restore accumulator (decimal 104)›RTI ;Return (decimal 64)› number in hardware register (decimal 141,9,212)›PLA PF1 GOSUB 29000:POKE 559,34›10 FOR X=0 TO 18 STEP 2:COLOR 154:PLOT X,0:COLOR 26:PLOT X,19:NEXT X›20 FOR X=1 TO 19 STEP 2:COLOR TŤ}26:PLOT X,0:COLOR 154:PLOT X,19:NEXT X›30 FOR Y=2 TO 18 STEP 2:COLOR 154:PLOT 0,Y:COLOR 26:PLOT 19,Y:NEXT Y›40 FOR Y=1 TO 17 TŹ}STEP 2:COLOR 26:PLOT 0,Y:COLOR 154:PLOT 19,Y:NEXT Y›50 POSITION 4,6:? #6;"!%&&%#":POSITION 12,6:? #6;"---"›60 ? "!%&&%#";:? "T­} ";:? "---"›100 STOP ›29000 GRAPHICS 1:POKE 559,0:BEGIN=(PEEK(106)-6)*256:POKE 756,BEGIN/256›29010 SHI=BEGIN/256:SLO=0:POKETŽ} 203,SLO:POKE 204,SHI›29020 DIM MVCHR$(28):MVCHR$="hŠ…Í¨Šŕ…ι͑ËČĐůćĚćÎĽÎÉâĐď`":Z=USR(ADR(MVCHR$)):RESTORE 30000›29030 READ TŻ}X:IF X=-1 THEN 29050›29040 FOR Y=0 TO 7:READ Z:POKE X+Y+BEGIN,Z:NEXT Y:GOTO 29030›29050 DLST=PEEK(560)+256*PEEK(561):POKE DLST°}T+24,134:RESTORE 31000:FOR X=0 TO 10:READ Y›29060 POKE 1536+X,Y:NEXT X:POKE 512,0:POKE 513,6:POKE 54286,192:RETURN ›30000 DATTą}A 8,165,231,231,231,255,219,255,231›30010 DATA 24,161,162,228,232,240,227,227,227›30020 DATA 40,24,60,126,66,126,219,255,255›T˛}30030 DATA 48,0,0,0,36,36,36,255,255›30040 DATA 104,0,44,68,254,76,44,20,22›30050 DATA 208,255,255,255,255,255,255,255,255›30Tł}060 DATA -1›31000 DATA 72,169,224,141,10,212,141,9,212,104,64›4,76,44,20,22›30050 DATA 208,255,255,255,255,255,255,255,255›30T>10 REM SUPER SCREEN-TextPlot Demo›20 REM Use all the ATARI characters›30 REM including cursor up/down›40 REM left/right, backXľ}space, RETURN.›50 REM etc. Press CAPS/LOWR to›60 REM select upper or lower case.›70 REM as usual. Atari Logo key›80 REM togglXś}es reverse field.›90 REM Press console buttons for different colors›100 REM ESC switches modes (7 vs. 8)›110 ML=1536›120 IF PXˇ}EEK(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 GRAPX¸}HICS 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)):RVXš}S=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)<>25Xş}5 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 190Xť}›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:GOTOXź} 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›3X˝}40 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("~") TXž}HEN X=X-1:KEY=32:DL=1›380 IF XXL THEN X=LM:Y=Y+1›400 IF Y>YL+YL*G THEN Y=0›410 IF Y<0 THEN Y=YL›Xż}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 THENXŔ} 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 ›480XÁ} 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›5XÂ}20 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 DAXĂ}TA 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 186XÄ},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,8XĹ}9,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,XĆ}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,XÇ}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,XČ}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 XÉ}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›85XĘ}0 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 DAXË}TA 243,133,213,96,0,1›900 DATA 28›TA 169,0,133,212,162,8›870 DATA 70,186,144,3,24,101›880 DATA 187,106,102,212,202,208›890 DAX"1 GOSUB 32000:CLR ›10 GOSUB 20000›20 GRAPHICS 7+16:POKE 756,PEEK(106)+1›30 SETCOLOR 2,3,4:SC=0:J1=1:MX1=0:MY1=0:MX2=0:MY2=0:M\Í}X3=0:MY3=0:MX4=0:MY4=0:M1=0:M2=0:M3=0:M4=0›40 COLOR 1:FOR Y=35 TO 45:PLOT 72,Y:DRAWTO 95,Y:NEXT Y›41 COLOR 2›50 PLOT 72,35:DR\Î}AWTO 69,32:PLOT 73,35:DRAWTO 69,32:PLOT 72,36:DRAWTO 69,32›60 PLOT 72,45:DRAWTO 69,48:PLOT 73,45:DRAWTO 69,48:PLOT 72,44:DRAW\Ď}TO 69,48›70 PLOT 95,35:DRAWTO 98,32:PLOT 94,35:DRAWTO 98,32:PLOT 95,36:DRAWTO 98,32›80 PLOT 95,45:DRAWTO 98,48:PLOT 94,45:DRA\Đ}WTO 98,48:PLOT 95,44:DRAWTO 98,48›90 FOR STAR=1 TO 80:STARX=RND(0)*158+1:STARY=RND(0)*94+1:PLOT STARX,STARY:NEXT STAR›100 COL\Ń}OR 0:FOR X=73 TO 94 STEP 2:PLOT X,40:NEXT X›110 D=USR(1536,83,3,0,0):D=USR(1536,67,3,1,0):D=USR(1536,79,3,2,0)›120 D=USR(1536\Ň},82,3,3,0):D=USR(1536,69,3,4,0):D=USR(1536,48,3,1,8):D=USR(1536,48,3,2,8):D=USR(1536,48,3,3,8)›130 ON J1 GOTO 140,150,160,170\Ó}›140 D=USR(1536,32,1,70,24):GOTO 180›150 D=USR(1536,32,1,72,34):GOTO 180›160 D=USR(1536,32,1,70,43):GOTO 180›170 D=USR(1536,3\Ô}2,1,68,34)›180 J=STICK(0):IF J=15 THEN GOTO 290›190 IF J=10 OR J=14 OR J=6 THEN J1=1:D=USR(1536,16,1,70,24):GOTO 230›200 IF J\Ő}=7 THEN J1=2:D=USR(1536,17,1,72,34):GOTO 230›210 IF J=5 OR J=13 OR J=9 THEN J1=3:D=USR(1536,18,1,70,43):GOTO 230›220 IF J=11 \Ö}THEN J1=4:D=USR(1536,19,1,68,34)›230 COLOR 1:SOUND 0,25,10,8:SOUND 1,28,10,8:ON J1 GOTO 250,260,270,280›250 PLOT 84,27:DRAWTO\×} 84,0:COLOR 0:PLOT 84,27:DRAWTO 84,0:IF M1=1 THEN M1=0:D=USR(1536,15,3,MX1,MY1):SC=SC+2›255 GOTO 290›260 PLOT 104,40:DRAWTO 1\Ř}59,40:COLOR 0:PLOT 104,40:DRAWTO 159,40:IF M2=1 THEN M2=0:D=USR(1536,15,3,MX2,MY2):SC=SC+2›265 GOTO 290›270 PLOT 84,54:DRAWTO\Ů} 84,95:COLOR 0:PLOT 84,54:DRAWTO 84,95:IF M3=1 THEN M3=0:D=USR(1536,15,3,MX3,MY3):SC=SC+2:GOTO 290›280 PLOT 63,40:DRAWTO 0,40\Ú}:COLOR 0:PLOT 63,40:DRAWTO 0,40:IF M4=1 THEN M4=0:D=USR(1536,15,3,MX4,MY4):SC=SC+2›290 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 3,0,\Ű}0,0:IF SC>999 THEN GOTO 700›300 V1=INT(SC/100):V2=INT(SC/10-V1*10):V3=SC-V1*100-V2*10:V1=V1+48:V2=V2+48:V3=V3+48›310 D=USR(15\Ü}36,V1,3,1,8):D=USR(1536,V2,3,2,8):D=USR(1536,V3,3,3,8)›320 IF M1=0 THEN IF INT(RND(0)*2+1)=1 THEN M1=1:MX1=70:MY1=SC/75:D=USR\Ý}(1536,20,2,MX1,MY1)›330 IF M2=0 THEN IF INT(RND(0)*2+1)=1 THEN M2=1:MX2=79-SC/400:MY2=33:D=USR(1536,21,2,MX2,MY2)›340 IF M3=0\Ţ} THEN IF INT(RND(0)*2+1)=1 THEN M3=1:MX3=70:MY3=70-SC/75:D=USR(1536,22,2,MX3,MY3)›350 IF M4=0 THEN IF INT(RND(0)*2+1)=1 THEN \ß}M4=1:MX4=60+SC/400:MY4=32:D=USR(1536,23,2,MX4,MY4)›360 IF M1=1 THEN D=USR(1536,20,0,MX1,MY1):MY1=MY1+1:D=USR(1536,20,2,MX1,MY\ŕ}1):IF MY1>=24 THEN GOTO 500›370 IF M2=1 THEN D=USR(1536,21,0,MX2,MY2):MX2=MX2-1:D=USR(1536,21,2,MX2,MY2):IF MX2<=72 THEN GOTO\á} 500›380 IF M3=1 THEN D=USR(1536,22,0,MX3,MY3):MY3=MY3-1:D=USR(1536,22,2,MX3,MY3):IF MY3<=43 THEN GOTO 500›390 IF M4=1 THEN D\â}=USR(1536,23,0,MX4,MY4):MX4=MX4+1:D=USR(1536,23,2,MX4,MY4):IF MX4>=68 THEN GOTO 500›400 GOTO 130›500 SOUND 0,50,8,8:SOUND 1,1\ă}00,8,8:SOUND 2,200,8,8:SOUND 3,5,8,8›510 D=USR(1536,15,3,68,34):D=USR(1536,15,3,70,43):D=USR(1536,15,3,72,34):D=USR(1536,15,3\ä},70,24)›520 D=USR(1536,15,3,69,36):D=USR(1536,15,3,69,40):D=USR(1536,15,3,70,30):D=USR(1536,15,3,71,27)›530 FOR N=0 TO 3:SOUN\ĺ}D N,0,0,0:NEXT N›550 FOR N=0 TO 3:SOUND N,N*80+5,8,8:NEXT N›560 COLOR 3:PLOT 84,40:DRAWTO 84,20:DRAWTO 84,60:PLOT 84,40:DRAWT\ć}O 114,40:DRAWTO 54,40:PLOT 84,40:DRAWTO 114,20›570 PLOT 84,40:DRAWTO 114,60:PLOT 84,40:DRAWTO 54,60:PLOT 84,40:DRAWTO 54,20›5\ç}80 FOR W=0 TO 15:FOR W1=1 TO 20:SETCOLOR 2,W,5:NEXT W1:NEXT W›585 FOR N=0 TO 3:SOUND N,0,0,0:NEXT N›590 FOR I=1 TO 30:FOR J=1\č} TO 10*RND(1):SOUND 0,I+10*RND(1),10,8:NEXT J:NEXT I:SOUND 0,0,0,0›600 GRAPHICS 2+16:? #6;"GAME OVER..FINAL":? #6;"SCORE ";SC\é}:? #6;"TO PLAY AGAIN":? #6;"PRESS TRIGGER"›610 IF STRIG(0)=1 THEN GOTO 610›620 GOTO 20›700 GRAPHICS 2+16:? #6;"GOOD GAME!!!":\ę}? #6;" ":? #6;"YOUR SPACE FORTRESS":? #6;"SURVIVED"›710 ? #6;"TO PLAY AGAIN":? #6;"PRESS ":GOTO 610›19999 END ›20000 ML=1536\ë}:FOR I=0 TO 252:READ A:POKE ML+I,A:NEXT I:RETURN ›20010 DATA 104,240,10,201,4,240›20020 DATA 11,170,104,104,202,208›20030 DAT\ě}A 251,169,253,76,164,246›20040 DATA 104,133,195,104,201,128›20050 DATA 144,4,41,127,198,195›20060 DATA 170,141,250,6,224,96›2\í}0070 DATA 176,15,169,64,224,32›20080 DATA 144,2,169,224,24,109›20090 DATA 250,6,141,250,6,104›20100 DATA 104,141,251,6,104,10\î}4›20110 DATA 141,252,6,14,252,6›20120 DATA 104,104,141,253,6,133›20130 DATA 186,166,87,169,10,224›20140 DATA 3,240,8,169,20,2\ď}24›20150 DATA 5,240,2,169,40,133›20160 DATA 207,133,187,165,88,133›20170 DATA 203,165,89,133,204,32›20180 DATA 228,6,24,173,2\đ}52,6›20190 DATA 101,203,133,203,144,2›20200 DATA 230,204,24,165,203,101›20210 DATA 212,133,203,165,204,101›20220 DATA 213,133\ń},204,173,250,6›20230 DATA 133,187,169,8,133,186›20240 DATA 32,228,6,165,212,133›20250 DATA 205,173,244,2,101,213›20260 DATA 1\ň}33,206,160,0,162,8›20270 DATA 169,0,133,208,133,209›20280 DATA 177,205,69,195,72,104›20290 DATA 10,72,144,8,24,173›20300 DATA\ó} 251,6,5,208,133,208›20310 DATA 224,1,240,8,6,208›20320 DATA 38,209,6,208,38,209›20330 DATA 202,208,228,104,152,72›20340 DATA\ô} 160,0,165,209,145,203›20350 DATA 200,165,208,145,203,104›20360 DATA 168,24,165,203,101,207›20370 DATA 133,203,144,2,230,204›\ő}20380 DATA 200,192,8,208,183,96›20390 DATA 169,0,133,212,162,8›20400 DATA 70,186,144,3,24,101›20410 DATA 187,106,102,212,202,\ö}208›20420 DATA 243,133,213,96,0,1›20430 DATA 28›32000 POKE 106,PEEK(106)-16:GRAPHICS 0:START=(PEEK(106)+1)*256:POKE 756,START\÷}/256:POKE 752,1›32020 POKE 559,0:FOR Z=0 TO 1023:POKE START+Z,PEEK(57344+Z):NEXT Z:RESTORE 32100›32025 FOR I=1 TO 30:FOR J=1 \ř}TO 10*RND(1):SOUND 0,I+10*RND(1),10,8:NEXT J:NEXT I:SOUND 0,0,0,0›32030 READ X:IF X=-1 THEN RESTORE :POKE 559,34:RETURN ›3204\ů}0 FOR Y=0 TO 7:READ Z:POKE X+Y+START,Z:NEXT Y:GOTO 32030›32100 DATA 632,145,82,44,222,57,52,74,137›32101 DATA 640,24,24,24,60\ú},126,126,60,255›32102 DATA 648,128,176,248,255,255,248,176,128›32103 DATA 656,255,60,126,126,60,24,24,24›32104 DATA 664,1,13,\ű}31,255,255,31,13,1›32105 DATA 672,231,231,126,60,24,24,24,0›32106 DATA 680,3,7,15,252,252,15,7,3›32107 DATA 688,24,24,24,24,6\ü}0,126,231,231›32108 DATA 696,192,224,240,63,63,240,224,192›32109 DATA -1›0,3,7,15,252,252,15,7,3›32107 DATA 688,24,24,24,24,6\I  -ĽşCHANGĹÁÂMOVĹ V +@6€-@%6-@16‚-@V( GRAPHICS 6: `ţ}PLAYFIELD ANIMATIONƒ-@@%€ ,/‚/‚‚/‚%/(€"@6€- ƒ2€"`˙}6€-@ ƒ<6-%@6‚-‚%@F|!@y)‚!@y#+@5-@V(@PLAYFIELD Aa}NIMATIONy( * GRAPHICS 2 TEXT WINDOW *|P @ € D6:P015L1.BAS5-@V(@PLAYFIELD A`Q2avÁÂCHARACTER¤SLOMĎ€ : +6€-%6-@2‚;@,:6‚.A e} -€ (‚ƒ-@@ ƒ -€( (%6€-€%@%€!@9@`2 @ <5 ‚06‚.6€-e}+6-@5 @ FW-@@-(CHARACTER ANIMATIONW(% WITH A LETTER AND CONTROL CHARACTER€ De}6:P015L2.BAS@5 @ FW-@@-(CHARACTER ANIMATIONW(% WITH A LETTER AND CONTROL CHARACTER€ Dd `-ÓÁÂŘŮĂÄÚMISÓHIÔ * USING COi}LOR & LOCATE *›* MICHAEL A. GREENSPAN *› 6€-@Q+@k6-@56‚-@'6ƒ-I6„-P:H:,i}$@,%@k6…-P:H:,$@,%@PLOT THE PADDLE›5 @!0…@',‚5,‚%@i}#MOVE THE PADDLE UP?›(\R:,"@"@(,‚6,‚%@D6‚-‚&@P‚ \6‚-2"R:i },"@" @07MOVE THE PADDLE DOWN?›<\R:,"@"@(,‚6,‚%@D6‚-‚%@P‚i }!@\6‚-@F"R:,"@" @0KVVPLOT THE BALL AND HOLD IT AT THAT LOCATION WHILE THE COMPUTER COUi }NTS FROM 1 TO S›P% @,ƒ„!†-@€% †U&&CHECK IF THE BALL HIT THE PADDLE›Z1ƒ%@„‡_EEMOVE BALL i }TO THE RIGHT IF IT HAS NOT REACHED THE END OF THE ROW›dC‡@ƒ@5%@+,ƒ„96ƒ-ƒ%@C @0ii }IT'S A MISS›ny‡@ƒ!@5)6ˆ-ˆ%@C(HITS-‰ MISSES-ˆM@a‚-@m,@5‚y,i}@6‚x+‡@ ‚!6€-€%@+ @ }IT'S A HIT›‚}6‰-‰%@+(HITS-‰ MISSES-ˆ96€-€&@i}C@W‚-@c,@5‚o,@4‚s ‚} @ € D6:P021L1.BASHITS-‰ MISSES-ˆ96€-€&@hY&;PÉDĚËĘd +@3 COLORS, 40X24›n€GOLDEN ORANGE›x,m}‚/@@Œ @LIGHT GREEN›–/@8 %%6-F:A`,%AV$F:Aa,Ş##DL IS ADDRESm}S OF DISPLAY LIST›´‚-@3ž PEEK(DL+Č ‚Ň )=Ü F:%‚,ć$ƒ-@A3$DELAY LOOP›m}đ ƒú ‚ >:A%,CLEAR TEXT› NOW WATCH THE MODE LINES GET CHANGED"  AT THE BOTTOM,  OFm} THE SCREEN6‚-@A ™@ ‚J,%@%@d%@,CHANGE LMS›T‚-@A3^ ‚h%m}@(@r‚-@A3| ‚†%@)@‚-@A3𠂤%@0@Žm}‚-@A3¸ ‚Â Ě Ö‚-@A3ŕ ‚ę >:A%,ô€ D6:P034L1.BAS@ŽlpD DĚLMSLĎLMSHÉTLĎTHÉËd +@n%%6€-F:A`,%AV$F:Aq}a,x6-F:€%@,‚6‚-F:€%@,Œ6ƒ-F:€%@&,–6„-F:€%@', €%@@d%@Ş€%q}@ƒ´€%@„ž…-€%@€%@Č…@Ň …Ü€%@ @d%@ć€%@đq}€%@‚ú…-€%@€%@0…@ … @",,/@@6 q}@@/@8J€ D6:P034L2.BAS … @",,/@@6 p8&p…ËDĚĘĐd +n€-@@#x ATARI ATARI ATARI ATARI‚ €u}Œ%%6-F:A`,%AV$F:Aa,– %@ށ%@´€-@A@u}ž €Č‚-@AŇ ‚Ü €ć€-@A@đ%@€ú‚-@Au} ‚ €€-@A@"%@€,‚-@A6 ‚@ €J€-@@#T"ƒu }^%@%€ƒh‚-@Ar ‚| €†3,4,5,6,7,7›8,8,8,8,9,9,9,9›š10,10,11,11›¤12,12,13u!},14,15›Ž€ D6:P034L3.BASAr ‚| €†3,4,5,6,7,7›8,8,8,8,9,9,9,9›š10,10,11,11›¤12,12,13t"ŤŔÁÄ / +@/6€-F:A`,%F:Aa,$AV9 6-F:€,(,!@e/6€-€%@y#}9 @ ##(F:€%@,,F:€%@,( @@€ D6:P039L1.BAS9 6-F:€,(,!@e/6€-€%@xQ  "Á A@‚+@A6€-F:A`,%F:Aa,$AV*F:€,@f 6€-€%@* @}%} K€@p#€%@@7€%@@K€%@@(//(' ATARI AND COMPUTE! AN UNBEATABLE}&} 200(( TEAM FOUR LINES MODE 1<] @'0@@@9,@@K/@@}'}]/@ @FK,@@'/@@9,@ @K/@ @P9,@"@'/@"}(}@9/@0@Z @€ D6:P039L2.BAS@ @K/@ @P9,@"@'/@"|< *?Á A@‚+@A6€-F:A`,%F:Aa,$AV*F:€,@f 6€-€%@* @*} }€@p#€%@@7€%@@K€%@@ed€%@F:€%@,}€%@F:€%@+},(//(' ATARI AND COMPUTE! 1 LINE OF MODE 2 2( 2 LINES OF MODE 1<] @'0@@@9,@,}@K/@@]/@ @FK,@@'/@@9,@ @K/@ @P-}9,@"@'/@"@9/@0@Z @€ D6:P039L3.BAS@ @K/@ @P€Y9TiMĹPRINTME¤VALUĹSTARTHERŀ0u66This loop will act on each character in PRINTME$›…/}:u€-@B:,Nu6‚-@:7€<€,,Xu::Subtract 128 temporarily if it's a reverse character›bu.6‚-‚&A($+‚!A',.…0}See note below›lu,,Make the appropriate value adjustments›vu;;6‚-‚%@d$+‚ @2,&@2$+‚!@1*‚ @–,€u**C…1}onvert back to reverse if necessary›Šu%%6‚-‚%A($+@:7€<€,,!A',”u5ƒ%€&@‚5Remember, ME starts at 0, not 1…2}›žu(‚¨uGo to next character›˛u €źuAll done, say goodby›Ću$,y%%Find ATASCII value of character›€ D6:P043L…3}1.BAS‚¨uGo to next character›˛u €źuAll done, say goodby›Ću$,y%%Find ATASCII value of character›€ D6:P043L„  5ُCOĚA¤F¤LINĹɀ€dDEMONSTRATES TEXT WINDOW›n""SIMPLE MENU PROGRAM FOR‰5} DISK›‚ APŒ0&@@D:*.*0 A`–(Can't read directory = +6€-+‰6}AR@=DISABLES CURSOR›Ş%;@ ,‚;@,% A0´@ž -€ƒ(7@<@,Č6ƒ-ƒ‰7}%@Ň)ƒ!@ 6€-€%@)6ƒ-Ü A€ć+A@+CREATES TEXT WINDOW›đ9„-@A‰8}(„ „9ONLY FOR DEMONSTRATION›úJ(>:A%,'(Run which program+JCHR$(125) ONLY CLEARS WINDOW› A‰9} 6‚.D:6‚7@,.%‚"( Can't RUN ‚.,€ D6:P045L1.BASR$(125) ONLY CLEARS WINDOW› AˆU=4IPRINT¤ÉÁMLPRINÔTEXT¤€€ ÄĹÍϛ%%THIS PROGRAM IS A DEMONSTRATION›;}OF MIXING MODES 0 AND 8› €;Ag,-@Ag"‚€7,.>:‚,( 2 +@<Q 6ƒ-C:€,QADDRESS<} OF STRING IS STARTING LOCATION OF MACHINE LANGUAGE ROUTINE›d>>6‚-?:ƒ<@<@},Œ++6‚-?:ƒ<A!<@‘K}B™rB B A0A1A2 A( AR B‰ BsD BhdAUB”DB•rB—AU‘L}@…@@2AUA' !"‘M}#$Œ&&€9@,;@,‚;@,–"F:A6,@r" A  +AR@Ş‘N}70@@@70@@@´--6ƒ-F:A`,%AV$F:Aa,%@žK56„-F:@ˆ,%AV$F‘O}:@‰,%@$@@K6…-„%@$@@Č36†-A06‡-A1'6ˆ-A236‰-A(Ň(6Š-F:A,&@‘P}(6‹-Š$AVÜ6Œ-BsDć!AY@F!BByŠđ'B2w@'B2V@ú6-+Š&@,$AV‘Q}+ƒ%@#@+ƒ%@$@ƒ%@A0'A'A@"BB†A’‘R},)AIŠ&@)A866Ž-?:AU<,@g6-‹%A%@ /6-‹%A@%@ E6‘-‹%Ah‘S}%@ [6’-‹%A–%@ g6“-@…EE”-A(%%”3%”A‘%”E ”Jq”-‘T}@+•-@96“-AU&“Q%”$@%•c%”$@%•“q6“-AU&“T+‘%”$@%•“ •‘U}'6“-AU&“+ ”^9B2H@d'B2I@d9B2P@dh9AA˜'AA@9A‘V}@hrKB2V@'B2W@9B2X@KA#@|K( '”-@@7( ‘W} | |; ”K( †'@‚@'-@@(Ĺ Edit Ň Restoreš(Ć Copy From Ř ‘X}Switch¤(Ô Copy To Ă ClearŽ(Ď Overlay É Invert¸!!(Ó Save Font Ě Load Font (œ Delete  I‘Y}nsertĚ,,($ž Scroll Left Ÿ ScrollRightŃ(Đ Print Char.Ö(× Write Data Ńuitŕ!!(†ü‡ Reverse Ç Gra‘Z}phicsęk”-@+•-@1C6–-•%”$@@%@S6—-”$@2%•[„%–—c…%–—g •k ”ô'@‚‘[}@'-ţ##@@K:&6’-F:Ad,&’"AUA ’"@`A ‘\}!’"@9!AdAh&)@˜0˜@:E,A: APDZ”-@,6Ž-F:%™$@%”,‘]}@•-@R%”$@%•ŽV •Z ”N…%Ai™…%A™X6š-6›-b-š%@›%@‘^}l-(>:@2%A($œ,-6œ-@&œv T:,"AP€)F:Ad, AU( ) A Š‘_}&6-R:,&"@A ”TT:,,”-A@ P2A&”@@T ”ž-‘`}š%@›%@( ¨!!6š-š%+"@,&+"@,˛!!6›-›%+"@,&+"@,źš 6š-@Ćš‘a}!@6š-Đ› 6›-@Ú›!@6›-ä AîE†F:%™$@%›,0ˆ@#+‘b}@&š,<‡@sE6Ž-?:‰,ř?%™$@%›Ž)•-@;%›$@%•Ž? •a”-@@;2‘c}”$@@@? ”a2  AP˜@:F,A0  6ž-™ AP*B‘d}”-@,6Ž-F:%™$@%”,>%ž$@%”ŽB ”4 6™-ž A€>˜@:T,ApH 6ž-™ APRB‘e}”-@,6Ž-F:%ž$@%”,>%™$@%”ŽB ”\ 6™-ž Af˜@:O,A p 6ž-™ APz‘f}V”-@,†F:%™$@%”,AˆF:%ž$@%”,M‡@ V6Ž-?:‰,„%ž$@%”Ž ”Ž 6™-ž A€‘g}˜˜@:R,A @˘F”-@8%™$@%”F:Œ%™$@%”,< ”F A€Ź˜@:C,A `ś=”-‘q}Ĩ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙€BP015L1 LSTBP015L2 LSTB P021L1 LSTBP034L1 LSTBP034L2 LSTBP034L3 LSTB$P039L1 LSTB&P039L2 LSTB*P039L3 LSTB.P043L1 LSTB4P045L1 LSTB9P048L1 LSTB;IP067L1 LSTB„P067L2 LSTB‡P067L3 LSTBŽP067L4 LSTB P086L2 LSTB˘P086L3 LSTBŁP086L4 LSTBĽP086L5 LSTB§P086L6 SRCB ŞP086L7 LSTB´P095L1 LSTB1ĚP103L1 LSTBýP015L1 BASBP015L2 BASB P021L1 BASBP034L1 BASBP034L2 BASBP034L3 BASB"P039L1 BASB$P039L2 BASB)P039L3 BASB.P043L1 BASB4P045L1 BASB:P048L1 BASBCJP067L1 BASB–P067L2 BASB šP067L3 BASBŁP067L4 BASBšP086L2 BASBźP086L3 BASBžP086L4 BASBÁP086L5 BASB ÄP086L7 BASBĎP095L1 BASBAčP103L1 BAS@/%™$@%”3 ”= A€Ŕ˜@:,A €ĘN”-@@%™$@%”AU&F:‘r}%™$@%”,D ”N A€Ô˜@:X,AŢ 6ž-™ APčm”-@,6Ž-F:%ž$@%”,M%ž$@‘s}%”F:%™$@%”,_%™$@%”Žc ”m A€ň˜@:I,A0ür”-@/6€8”,-F:%™$@%”,3 ”‘t}G”-@d%™$@%”€8@&”,h ”r A€˜@:,*˜@:œ,APf”-›@:%™$@‘u}%”F:%™$@%”%@,> ”\%™$@%@f A€˜@:,*˜@:,Ap$i”-@›6@‘v}C%™$@%”F:%™$@%”&@,G ”_%™$@%›i A€.˜@:,A8N”-@‘w}46Ž-F:%™$@%”,$@@Ž!AUN6Ž-Ž&AVB#%™$@%”Ž ”# A€L˜@:,A0V7”-‘x}@76Ž-P:F:%™$@%”,'@,`#%™$@%”Ž ”# A€j˜@:Q,APtXB2H'‘y}B2I9B2PKB2wU+X~˜@:S,Aˆ AA•’* A‘z}*@@œ6Ž-?:A‰<,Ś-@ B-F:A•,A`°BB†A’ A‘{}€ş˜@:L,AÄ AA•Î* AP*@@Ř6Ž-?:A<,â7‘|}@ B7F:A•,"+,Aě?-@4( ý* ERROR -F:A•, *?@öMF:Ad‘}}, AU*-@C( M A Ap ˜@:W,ApH-@@6‚‘~}. +6Ÿ-B:=:™,,?6‚7@<Ÿ,.=:™,H6Ÿ-B:‚,4”-@Ÿ)(>:@:‚7”<”,,%A(,- ”4(>(V”-@7‘}•-@%+”!,V6Ž-F:%™$@%•%”$@,2;;2+”$@%•,$@%@P@@<< ‘€}Ž, Ÿ(~ ”<2F F:Ad,"AUAPPH-@@)”-@@‘}:( > ”H A Z˜@:G,A•d/6 -@& /AIŠ&@%@$ n A s˜@:‘‚}P,A u APxX+@%@/0@@@A-@@X(@ SUPERĆĎÎÔ‚]-@‘ƒ}@.(@ patience@-@@](@ăčáňěĺó âňáîîďîŒM”-A6A9"Ž!”Ž-A ‘„}ŽI2Ž@@M ”–(%2($ 72,169,100,141,10,210›Ş141,24,208,141,26,2‘…}08›´169,6,141,9,212,104›ž64,104,104,133,204,104›Č133,203,169,0,133,205›Ň169,224,133,206,162,4›Ü160,0,177,‘†}205,145,203›ć200,208,249,230,204,230›đ206,202,208,240,96,104›ú162,16,169,9,157,66›3,104,157,69,3,104›15‘‡}7,68,3,169,0,157›72,3,169,4,157,73›"3,32,86,228,96,104›,162,16,169,5,76,58›66,9,104,169,0,9,0,133›@212,1‘ˆ}69,0,133,213,96›J$-@$( Filename?T 6.6˜-^@ hFFF:Ad, AU*F:Ad‘‰},@9*F:Ad,@`Apr F:@ , @A@|:"(>:@!%@$˜,LEFT06˜-@&˜: A‘Š}0†)@ސ=Ž"AU( /”-@B:,%@6(~: ”=$šOŽ"A&*B:,!@86.7@:Ž,O A0Ÿ.Ž"A&*B:,"@$(>:Ž,. A ¤MMŽ"@X)+Ž@H*Ž@W,)+Ž@e‘Œ}*Ž@,)Ž"@FA Ž A0¸1B:, @)67B:,%@,.>:Ž,1(>:Ž, A0ĚÖGET C‘}HOICE OF CHARACTER›ŕ$6Ą-P:˘'@2,$6Ł-˘&@2$Ąę6™-Ł%Ą$@2ô%%„%Ł%Ą$@@%@™%A(ţ%%…%Ł%Ą$@@‘Ž}%@™%A(;+T:,")F:Ad, AU16˘-™; A&6-R:,&"@A‘}B2y& A0?!6Ł-Ł&+"@,%+"@,?6Ą-Ą&+"@,%+"@,:)Ł 6Ł-@1)6Ą-Ą&‘}@D)Ł!@16Ł-)6Ą-Ą%@NĄ 6Ą-@XĄ!@6Ą-b Apl„%Ł%‘‘}Ą$@@%@™v…%Ł%Ą$@@%@™€$ˆPRINT DATA›—T A`-@@P:T @‘’} ---(™)-----œ0”-@0 @ Ś6Ž-F:%™$@%”,°6’-A(6¤-Žş‘“}•-@@Ä9P:¤'’,"@'*@@ˆ/6¤-¤&’9 AP€Î*@@2Ř'6’-’'@ •' ‘”}@ Žâ( ”( @ ---------ě4@ BB†A’* B4 A € D5:P067L1.BA‘•}S Žâ( ”( @ ---------ě4@ BB†A’* B4 A € D5:P067L1.BAIĄśŘCHSEÔICCOÍICBADŇICBLEÎÁč!!CHLOAD-CHARACTER SET LOADER›í<'•—}@@D:FONT<YOUR FILENAME HERE›ňD6€-@06-+F:A,&@,$AVDAV'AVü•˜}'6‚-A46ƒ-A6'6„-A@)ƒ%€%@'AV)ƒ%€'„%€%@@'„%€2‚%€•™}@'6…-?:C:hhhŞLVä,<€,2CALL CIO›$@€ D6:P067L2.BAS'„%€%@@'„%€2‚%€”MwáöTYPĹHEX¤F¤LSÂÉĂMSÂHINYÂLONYÂĘÁ€€ ™›} d%%CHPRINT--CHARACTER SET PRINTOUT›n A@x<'@@D:FONT<YOUR FILENAME HERE›‚?#™œ}@@P:?CHANGE TO "E:" FOR SCREEN›Œ ą HEX OR ˛ DECIMAL€–;@,‚;@, 6.01™}23456789ABCDEFĽ6ƒ-6@Ş„-A#@´ 6‚. 6…-P:„'@,žE€"@)6‚7@:@4,‚ŕ(to merge the file.ęč&&HIGH-SPEED ś}LOAD OF CHARACTER SET›í, @@,OPEN FILE›ň6‰-@$10›ü'6Š-A46‹-A6'6Œ-A@ˇ})‹%‰%@€'AV)‹%‰'Œ%‰%@@'Œ%‰2Š%‰@'6-?:C:hhhŞLVä,<‰,2CAL¸}L CIO›$@$€ D6:P067L4.BAS'Œ%‰%@@'Œ%‰2Š%‰@'6-?:C:hhhŞLVä,<‰,2CALœ,ÜńŘŮÚ 7 #@0!€-@'%"3A6%€7 €6‚-?:A6,gg104,1Ąş}69,0,133,205,168,169,224,133,206,177,205,145,203,200,208,249,230,204,230,206,165,206,201,226›(208,239,96›€ D6:P086L2Ąť}.BAS133,205,168,169,224,133,206,177,205,145,203,200,208,249,230,204,230,206,165,206,201,226›(208,239,96›€ D6:P086L2   *o„MVCHR¤ÚÉف@)@– €;@(,&&6€.hŠ…Í¨Šŕ…ι͑ËČĐůćĚćÎĽÎÉâĐď`6-?:C:€,,Ľ˝}€ D6:P086L3.BASÉف@)@– €;@(,&&6€.hŠ…Í¨Šŕ…ι͑ËČĐůćĚćÎĽÎÉâĐď`6-?:C:€,,¤  *ő MVCHR¤ÉŮڀ €;@(,5 #@@!-@@(%"‚16€7,.>:‚,5 Šż}6ƒ-?:C:€,,(gg104,169,0,133,205,168,169,224,133,206,177,205,145,203,200,208,249,230,204,230,206,165,206,201,226›220ŠŔ}8,239,96›€ D6:P086L4.BAS133,205,168,169,224,133,206,177,205,145,203,200,208,249,230,204,230,206,165,206,201,226›220¨  5'AA¤MVCHR¨ŘŮڀ@ €;@,9@',4 #@@!‚-@@(­Â}%"ƒ0C:€,%‚ƒ4 ‚6„-?:C:€,%@,(gg104,169,0,133,205,168,169,224,133,206,177,205,145,203,200,208,249,230,204,23­Ă}0,206,165,206,201,226›2208,239,96›€ D6:P086L5.BAS133,205,168,169,224,133,206,177,205,145,203,200,208,249,230,204,23Ź;YMVCHR¤ÚŘŮBEGIÎSHÉSLĎDLSԀ BAYąĹ}@4 O‚-@@)AT5,‚?@&K,‚@O ‚O‚-@@@)@&ąĆ}5,‚?ATK,‚@O ‚Oƒ-@@@)AT5,ƒ?@&K,@ƒO ƒ(OąÇ}ƒ-@@@)@&5,ƒ?ATK,@ƒO ƒ2L-@@)(@!%&&%#;-@ąČ}@L(@---< (!%&&%#(  (---d&HqT +@AY@6„-+F:A,&@,$AVąÉ}TAV„'AVRq56…-„'AV6†-)A†5A…\qI€;@(,36€.hŠ…Í¨Šŕ…ι͑ËČĐůćĚćÎĽÎÉâĐďąĘ}`?6-?:C:€,,I#Bfq"‚‚"6@BPpq3ƒ-@"%‚%ƒ%„) ƒ3 B0zq[%6‡-F:A`,%AVąË}$F:Aa,9‡%@$A4C#BW‚-@["ƒ„qNA6%‚ƒ ‚'A9A@ąĚ}KBB†A’N$0u''8,165,231,231,231,255,219,255,231›:u((24,161,162,228,232,240,227,227,227›Du%%40,24,60,126,66,126ąÍ},219,255,255›Nu48,0,0,0,36,36,36,255,255›Xu!!104,0,44,68,254,76,44,20,22›bu))208,255,255,255,255,255,255,255,255›lu-1ąÎ}›y,,72,169,224,141,10,212,141,9,212,104,64›€ D6:P086L7.BAS6,44,20,22›bu))208,255,255,255,255,255,255,255,255›lu-1°B'(Čę ˙ MĚXĚYĚCHAR¤C¤ÇLÍŘŮĂPOÓCHŇRVÓSĂÁÔKEŮĹDĚÉ€€ATľĐ} @( SUPER SCREEN-TextPlot Demo›""ľŃ}Use all the ATARI characters›including cursor up/down›($$left/right, backspace, RETURN.›2etc. Press CAPS/LOWR to›ľŇ}<!!select upper or lower case.›Fas usual. Atari Logo key›Ptoggles reverse field.›Z00Press console buttons for difľÓ}ferent colors›d""ESC switches modes (7 vs. 8)›n6€-A6xF:€," Ap‚36-@6‚-@3ƒ;AľÔ}€,„;A€,Œ1 6ƒ. 6ƒ7A€,. +6ƒ7@,.ƒ16„.ƒ–7+@%…%@7@@K: )ľŐ}…"@)0@Ş-6†-@6‡-†!6ˆ--6‰-@´C6Š-‡%ˆ$@ %@)6‹-@:ƒ7Š<Š,,/6ľÖ}Œ-‹C6-@:„7Š,,&@1ž=@ #6Œ-Œ%A(/Œ!AU=6Œ-Œ&AVČ6Ž-?:€<Œ<‰<‡<ˆ$@,Ň F:Adľ×},AUApÜ*6-F:B2y,"@*6‰-@ć"@6‰-@đ"@6‰-@ú F:@ľŘ} , @A A6Ž-?:€<‹<<‡<ˆ$@,")@6‘-"6’-‘"!!!@1* A#AľŮ}0,#"@:},@# A@61"@:,@'6…-@&…1 A@@("@:,6ˆ-ˆ&@(6‘-@ľÚ}J("@:,6ˆ-ˆ%@(6‘-@T("@:,6‡-‡&@(6‘-@^("@:,6‡-‡%@(6‘-@ľŰ}h/"AU6‡-†#6ˆ-ˆ%@/6‘-@r4"@:~,6‡-‡&@(6-@246’-@| ‡ †6‡-6ˆ-ˆ&@ľÜ}† ‡!6‡-†6ˆ-ˆ%@ ˆ!‚%‚$…6ˆ-šˆ 6ˆ-‚¤‘A€Ž6Ž-?:€<<‰<‡<ˆ$@,¸?ľÝ}6Š-‡%ˆ$@ %@)6ƒ7Š<Š,.>:,?6„7Š<Š,.>:@1%‰,ÂI’"6‡-‡%@#‡!)6‡-†76ˆ-ˆ%@=ˆ!‚I6ˆ-ľŢ}Ě A€Ö66€-A6#“-AR'"Ž/€%“Ž3 “6$ŕ104,240,10,201,4,240›ę11,170,104,104,202,2ľß}08›ô251,169,253,76,164,246›ţ104,133,195,104,201,128›144,4,41,127,198,195›170,141,250,6,224,96›176,15,1ľŕ}69,64,224,32›&144,2,169,224,24,109›0250,6,141,250,6,104›:104,141,251,6,104,104›D141,252,6,14,252,6›N104,1ľá}04,141,253,6,133›X186,166,87,169,10,224›b3,240,8,169,20,224›l5,240,2,169,40,133›v207,133,187,165,88,133›€ľâ}203,165,89,133,204,32›Š228,6,24,173,252,6›”101,203,133,203,144,2›ž230,204,24,165,203,101›¨212,133,203,165,204ľă},101›˛213,133,204,173,250,6›ź133,187,169,8,133,186›Ć32,228,6,165,212,133›Đ205,173,244,2,101,213›Ú133,206,ľä}160,0,162,8›ä169,0,133,208,133,209›î177,205,69,195,72,104›ř10,72,144,8,24,173›251,6,5,208,133,208› 224,1ľĺ},240,8,6,208›38,209,6,208,38,209› 202,208,228,104,152,72›*160,0,165,209,145,203›4200,165,208,145,203,104›>ľć}168,24,165,203,101,207›H133,203,144,2,230,204›R200,192,8,208,183,96›\169,0,133,212,162,8›f70,186,144,3,24,1ľç}01›p187,106,102,212,202,208›z243,133,213,96,0,1›„28›€ D5:P095L1.BAS9,0,133,212,162,8›f70,186,144,3,24,1´UJKK- B SĂJąMXąMYąMX˛MY˛MXłMYłMX´MY´MąM˛MłM´ŮSTAŇSTARŘSTARŮŘÄĘVąV˛VłÎ×WąÉMĚÁSTARÔÚšé} @Ŕšę} B  Bšë}2+@%@2AVF:A,%@Ĺ0@@@)6€-56-@A6‚-M6ƒ-šě}Y6„-e6…-q6†-}6‡-‰6ˆ-•6‰-Ą6Š-­6‹-š6Œ-Ĺ6-(= ší}@!Ž-@5@E-,@rŽ9/@•Ž= Ž) @2o,@r@5'/@i@29,@s@5šî}K/@i@2],@r@6o/@i@2<o,@r@E'/@i@H9,@s@EK/@i@šď}H],@r@Do/@i@HFo,@•@5'/@˜@29,@”@5K/@˜@2],@•šđ}@6o/@˜@2Po,@•@E'/@˜@H9,@”@EK/@˜@H],@•@Do/@šń}˜@HZ_-@@€66-H:,$AX%@U6‘-H:,$@”%@[,‘_ d9 )’šň}-@s@”@5,’@@9 ’n26“-?:A6<@ƒ<@<<,a6“-?:A6<@g<@<@šó}<,6“-?:A6<@y<@<@<,xî26“-?:A6<@‚<@<@<,a6“-?:A6<šô}@i<@<@<,6“-?:A6<@H<@<@<@,ż6“-?:A6<@H<@<@<@,šő}î6“-?:A6<@H<@<@<@,‚''A@APA`ApŒ<26“-?:A6<@2<@<@pšö}<@$,< A€–<26“-?:A6<@2<@<@r<@4,< A€ <26“-?:A6<@2<@<@p<@š÷}C,< A€Ş226“-?:A6<@2<@<@h<@4,´(6”-R:,”"@( Ažh#”"@)”"šř}@)”"@/6-@^6“-?:A6<@<@<@p<@$,h A0ČT”"@6-@J6“-?:A6šů}<@<@<@r<@4,T A0Ňh#”"@)”"@)”"@ /6-@^6“-?:A6<@<@<@pšú}<@C,h A0ÜJ”"@6-@J6“-?:A6<@<@<@h<@4,ću @/2@%šű}@@Q2@@(@@uAPA`ApA€úž,@„@''/@„šü}1C,@„@'U/@„aŠ"@m6Š-6“-?:A6<@<@<‚<ƒ,ž6€-€%@˙šý} Až,A@@'/AY@@1C,A@@U/AY@@a‹"@m6‹-6“-?šţ}:A6<@<@<„<…,ž6€-€%@  A¨,@„@T'/@„@•1C,@„@TUš˙}/@„@•aŒ"@m6Œ-6“-?:A6<@<@<†<‡,ž6€-€%@¨ Až,@c@@'/ş}@@1C,@c@@U/@@a"@m6-6“-?:A6<@<@<ˆ<‰,ž6€-€%ş}@"%2G2@i2@u€!A ™ş} A,s6•-P:€'A,/6–-P:€'@&•$@,I6—-€&•$A&–$@W6•-•%@He6–-–%@Hs6—-—%@Hş}6~,6“-?:A6<•<@<@<@,U6“-?:A6<–<@<@<@,~6“-?:A6<—<@<@<@,ş}@€Š"7P:H:,$@%@,"@C6Š-@O6‚-@p]6ƒ-€'@u€6“-?:A6<@ <@<‚ş}<ƒ,Jˆ‹"7P:H:,$@%@,"@C6‹-@Y6„-@y&€'Ae6…-@3ˆ6“-?:A6<@!ş}<@<„<…,TˆŒ"7P:H:,$@%@,"@C6Œ-@O6†-@pe6‡-@p&€'@uˆ6“-?:Aş}6<@"<@<†<‡,^ˆ"7P:H:,$@%@,"@C6-@Y6ˆ-@`%€'Ae6‰-@2ş}ˆ6“-?:A6<@#<@<ˆ<‰,hyŠ"@26“-?:A6<@ <<‚<ƒ,@6ƒ-ƒ%@c6“-?:A6<@ <@ş }<‚<ƒ,oƒ@$y Ary‹"@26“-?:A6<@!<<„<…,@6„-„&@c6“-?:A6<@!<@ş }<„<…,o„@ry A|yŒ"@26“-?:A6<@"<<†<‡,@6‡-‡&@c6“-?:A6<@"<@<†<ş }‡,o‡@Cy A†y"@26“-?:A6<@#<<ˆ<‰,@6ˆ-ˆ%@c6“-?:A6<@#<@<ˆ<‰,oş }ˆ@hy A A0ô‹%2@P@@G2@A@@i2@A@ş }@‹2@@@@ţż26“-?:A6<@<@<@h<@4,a6“-?:A6<@<@ş}<@p<@C,6“-?:A6<@<@<@r<@4,ż6“-?:A6<@<@<@p<@$,ż26“-?:Aş}6<@<@<@i<@6,a6“-?:A6<@<@<@i<@@,6“-?:A6<@<@<@p<ş}@0,ż6“-?:A6<@<@<@q<@',7˜-@32˜7 ˜&A˜-ş}@=2˜˜$@€%@@@A ˜0 @,@„@@1/@„@ C/@„@`U,@„ş}@@g/A@@y/@T@@‹,@„@@/A@ :o,@„@@'/A@`9,@ş}„@@K/@T@`],@„@@o/@T@ DG™-@+š-@@ ?0@™@ş}C šG ™I7˜-@32˜7 ˜N›-@@06”-@@$H:@,e2ş}›%@$H:@,@@i ”m ›2X+@%@3(@GAMEş} OVER..FINALI(@SCORE €d(@ TO PLAY AGAIN(@ PRESS TRIGGERb"T:,"@" Alş} @ źu+@%@/(@ GOOD GAME!!!>(@ _(@YOUR SPACE FORTRESSu(@SURVIVş}EDĆ=(@ TO PLAY AGAIN3(@PRESS = AN N66œ-A6#›-AR'"/œ%›3 ›6$*ş}N104,240,10,201,4,240›4N11,170,104,104,202,208›>N251,169,253,76,164,246›HN104,133,195,104,201,128›RN144,4,41,1ş}27,198,195›\N170,141,250,6,224,96›fN176,15,169,64,224,32›pN144,2,169,224,24,109›zN250,6,141,250,6,104›„N104,14ş}1,251,6,104,104›ŽN141,252,6,14,252,6›˜N104,104,141,253,6,133›˘N186,166,87,169,10,224›ŹN3,240,8,169,20,224›śN5,ş}240,2,169,40,133›ŔN207,133,187,165,88,133›ĘN203,165,89,133,204,32›ÔN228,6,24,173,252,6›ŢN101,203,133,203,144,2›čNş}230,204,24,165,203,101›ňN212,133,203,165,204,101›üN213,133,204,173,250,6›O133,187,169,8,133,186›O32,228,6,16ş}5,212,133›O205,173,244,2,101,213›$O133,206,160,0,162,8›.O169,0,133,208,133,209›8O177,205,69,195,72,104›BO10,7ş}2,144,8,24,173›LO251,6,5,208,133,208›VO224,1,240,8,6,208›`O38,209,6,208,38,209›jO202,208,228,104,152,72›tO160,ş }0,165,209,145,203›~O200,165,208,145,203,104›ˆO168,24,165,203,101,207›’O133,203,144,2,230,204›œO200,192,8,208,183,ş!}96›ŚO169,0,133,212,162,8›°O70,186,144,3,24,101›şO187,106,102,212,202,208›ÄO243,133,213,96,0,1›ÎO28›}q Aş"}F:A,&@*+K6ž-+F:A,%@,$AV_AVž'AVqAR@}JAY)ş#}Ÿ-A#<ž%ŸF:BsD%Ÿ,@ ŸJ#B!}›-@@06”-@@$H:@,e2›%@$ş$}H:@,@@i ”m ›2},"’’"6@#)AY@4,$(}3Ž-ş%}@"Ÿ%’%Ž%žŸ) Ž3 B 0d}$$632,145,82,44,222,57,52,74,137›e}$$640,24,24,24,60,126,126,60,255›f}))648,128,1ş&}76,248,255,255,248,176,128›g}$$656,255,60,126,126,60,24,24,24›h}!!664,1,13,31,255,255,31,13,1›i}##672,231,231,126,60,24,24ş'},24,0›j}680,3,7,15,252,252,15,7,3›k}$$688,24,24,24,24,60,126,231,231›l}''696,192,224,240,63,63,240,224,192›m}-1›€ş(} D5:P103L1.BAS,7,15,252,252,15,7,3›k}$$688,24,24,24,24,60,126,231,231›l}''696,192,224,240,63,63,240,224,192›m}-1›€¸