–€€10 GOSUB 1500:DIF=0:F=-1:P=1:VEL=2:NUM=0:H=3:GOSUB 900:GOSUB 800:SOUND 1,100,4,2›20 POKE DL5,RT:GOSUB 100›30 POKE DL5,RT+4:GO}SUB 100›40 POKE DL5,RT+8:GOSUB 100›50 POKE DL5,RT+12:GOSUB 100›60 POKE DL5,RT+8:GOSUB 100›70 POKE DL5,RT+4:GOSUB 100›80 GOTO }20›100 FOR N=1 TO 5-DIF:ST=STICK(0):IF ST=16 THEN FOR WAIT=1 TO 15:NEXT WAIT:GOTO 185›110 X0=X0+VEL*(ST=7)*(X0<201)-VEL*(ST=1}1)*(X0>47)›120 IF X0<48 THEN X0=48›130 IF ST=7 AND F=-1 THEN F=1:D=USR(1536,PB+512+Y0,268):FOR W=1 TO 20:NEXT W:D=USR(1536,PB}+512+Y0,260):X0=X0-2›140 IF ST=11 AND F=1 THEN F=-1:D=USR(1536,PB+512+Y0,268):FOR W=1 TO 20:NEXT W:D=USR(1536,PB+512+Y0,276): }X0=X0+2›145 POKE 53248,X0›150 IF ST=14 THEN D=USR(1536,PB+512+Y0,292):Y0=Y0-2*(Y0>20)›160 IF ST=13 THEN D=USR(1536,PB+512+Y0, }292):Y0=Y0+2*(Y0<102)›170 D=USR(1536,PB+512+Y0,260*(F=1)+276*(F=-1))›180 IF X0>112 AND X0<138 AND Y0=28 AND P=1 THEN GOSUB 23 }0›185 NEXT N›190 IF PEEK(53252)<>0 THEN GOSUB 260›210 IF Y0=102 AND P=0 THEN GOSUB 330›220 RETURN ›230 N=(X0>X1)-(X1>X0):IF N }=0 THEN GOTO 250›240 FOR M=X1 TO X0 STEP N:POKE 53249,M:NEXT M:X1=M›250 D=USR(1536,PB+640+Y1,292):P=0:RETURN ›260 POKE 53278, }1:D=USR(1536,PB+512+Y0,300):FOR W=120 TO 40 STEP -1:POKE 704,W›270 POKE PB+512+Y0+INT(RND(0)*7),PEEK(53770):SOUND 0,200,8,W/1}0:NEXT W:SOUND 0,0,0,0:POKE 704,250›280 D=USR(1536,PB+512+Y0,292):H=H-1:POSITION 29,0:? H;:IF H<>0 THEN GOTO 300›290 POKE DL5},RT+12:POSITION 0,0:? "GAME OVER-RESCUED ";NUM;:POSITION 20,0:? " PRESS FIRE ";›291 IF STRIG(0)=1 THEN 291›292 POSITION 0,0:}? " ";›295 H=3:COLOR 0:NUM=0:DIF=0:VEL=2:GOSUB 970›300 POKE 53278,1:X0=180:Y0=20:POKE 532}48,X0:D=USR(1536,PB+512+Y0,276):F=-1›310 IF P=0 THEN X1=120:Y1=28:POKE 53249,X1:D=USR(1536,PB+640+Y1,284):P=1›320 RETURN ›330} D=USR(1536,PB+640+Y0,284)›340 FOR M=X0 TO 210:POKE 53249,M:NEXT M:NUM=NUM+1:D=USR(1536,PB+640+Y0,292):IF NUM=20 THEN GOTO 37}0›345 POSITION 9,0:? NUM;:IF NUM/4=INT(NUM/4) THEN DIF=DIF+1:IF NUM/8=INT(NUM/8) THEN VEL=VEL+2›350 P=1:POKE 53249,X1:D=USR(1}536,PB+640+Y1,284)›360 RETURN ›370 D=USR(1536,PB+512+Y0,292):GOTO 290›800 FOR A=1536 TO 1560:READ I:POKE A,I:NEXT A›810 DATA }104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,200,192,8,208,247,96›820 FOR A=260 TO 307:READ I:PO}KE A,I:NEXT A›830 DATA 0,31,4,143,249,15,2,63,0,127,8,62,34,62,20,62,0,248,32,241,159,240,32,252›840 DATA 0,0,24,24,126,24,36},102,0,0,0,0,0,0,0,0,68,186,84,130,255,130,68,186›850 POKE 752,1:POKE 559,46›860 A=PEEK(106)-4:POKE 54279,A:POKE 53277,3:PB=2}56*A:X0=180:Y0=20:X1=120:Y1=28›875 POKE 704,250:POKE 705,80›880 POKE 53248,X0:D=USR(1536,PB+512+Y0,276):POKE 53249,X1:D=USR(1}536,PB+640+Y1,284)›890 RETURN ›900 RT=PEEK(106)-16:GRAPHICS 5+16:POKE 88,0:POKE 89,RT-4:? #6;CHR$(125):POKE 106,RT:GRAPHICS 5}+16›910 POKE 559,0›915 SETCOLOR 4,7,4:SETCOLOR 1,12,8:SETCOLOR 2,3,3›920 PAGE=0:POKE 88,0:POKE 89,RT:GOSUB 1000›930 PAGE=1:PO}KE 88,0:POKE 89,RT+4:GOSUB 1000›940 PAGE=2:POKE 88,0:POKE 89,RT+8:GOSUB 1000›950 PAGE=3:POKE 88,0:POKE 89,RT+12:GOSUB 1000›96}0 DL=PEEK(560)+256*PEEK(561):DL4=DL+4:DL5=DL+5:POKE DL4,0:POKE DL5,RT+4:POKE 559,34›970 POKE 752,1:POKE DL+3,66:POKE 87,0:POS}ITION 0,0:? "RESCUED :";NUM;:POSITION 20,0:? "COPTERS :";H;›980 RETURN ›1000 COLOR 1:FOR X=32 TO 47:PLOT X,10:DRAWTO X,47:NEX}T X›1010 COLOR 2:FOR X=33 TO 45 STEP 4:FOR Y=13 TO 41 STEP 4:PLOT X,Y:PLOT X+1,Y:PLOT X,Y+1:PLOT X+1,Y+1:NEXT Y:NEXT X›1020 P}LOT 39,45:DRAWTO 39,47:PLOT 40,45:DRAWTO 40,47:PLOT 0,47:DRAWTO 31,47:PLOT 48,47:DRAWTO 79,47›1030 IF PAGE=1 OR PAGE=2 OR PAG }E=3 THEN GOTO 1100›1040 COLOR 3:FOR Y=45 TO 46:PLOT 1,Y:DRAWTO 8,Y:NEXT Y:PLOT 2,47:PLOT 7,47:COLOR 0:PLOT 5,45›1050 RETURN ›!}1100 COLOR 3:PLOT 48,13:PLOT 48,14:PLOT 49,12:PLOT 48,26:PLOT 48,27:PLOT 49,25:PLOT 48,36:PLOT 48,37:PLOT 49,35›1110 PLOT 31,"}19:DRAWTO 31,21:PLOT 30,18:PLOT 31,31:DRAWTO 31,33:PLOT 30,30›1120 IF PAGE=2 OR PAGE=3 THEN GOTO 1200›1130 FOR Y=45 TO 46:PLO#}T 14,Y:DRAWTO 21,Y:NEXT Y:PLOT 15,47:PLOT 20,47:COLOR 0:PLOT 18,45›1140 RETURN ›1200 COLOR 3:PLOT 48,11:PLOT 48,12:PLOT 49,11$}:PLOT 49,10:PLOT 50,10:PLOT 50,9›1210 PLOT 48,24:PLOT 48,25:PLOT 49,24:PLOT 49,23:PLOT 50,23:PLOT 50,22›1220 PLOT 48,35:PLOT %}48,34:PLOT 49,34:PLOT 49,33:PLOT 50,33:PLOT 50,32›1230 PLOT 31,40:PLOT 31,41:PLOT 31,30:PLOT 31,29:PLOT 30,29:DRAWTO 30,27:PL&}OT 29,27:PLOT 29,26›1240 PLOT 31,18:PLOT 31,17:PLOT 30,39:PLOT 30,17:DRAWTO 30,15:PLOT 29,15:PLOT 29,14›1250 IF PAGE=3 THEN G'}OTO 1300›1260 FOR Y=45 TO 46:PLOT 24,Y:DRAWTO 31,Y:NEXT Y:PLOT 25,47:PLOT 30,47:COLOR 0:PLOT 28,45›1270 RETURN ›1300 COLOR 3:(}PLOT 49,9:DRAWTO 49,3:PLOT 50,8:DRAWTO 50,5:PLOT 51,7:DRAWTO 51,9›1310 PLOT 49,22:PLOT 49,21:PLOT 50,21:DRAWTO 50,19:PLOT 51,)}20:DRAWTO 51,22›1320 PLOT 49,32:PLOT 49,31:PLOT 50,31:DRAWTO 50,29:PLOT 51,30:DRAWTO 51,32›1330 PLOT 30,38:PLOT 30,37:PLOT 29*},38:DRAWTO 29,35›1340 PLOT 30,26:DRAWTO 30,24:PLOT 29,25:DRAWTO 29,22›1350 PLOT 30,14:DRAWTO 30,12:PLOT 29,13:DRAWTO 29,10›13+}60 COLOR 3:FOR Y=45 TO 46:PLOT 1,Y:DRAWTO 8,Y:NEXT Y:PLOT 2,47:PLOT 7,47:COLOR 0:PLOT 5,45›1370 RETURN ›1500 GRAPHICS 2+16:PO,}SITION 0,1:? #6;"COMPUTE PUBLICATIONS":POSITION 6,3:? #6;"ĐŇĹÓĹÎÔÓ"›1510 POSITION 6,6:? #6;"éîćĺňîď"›1530 FOR SND=20 TO 120 S-}TEP 0.2:SOUND 0,SND,8,6:POKE 712,SND:NEXT SND›1540 FOR VOL=6 TO 0 STEP -0.1:SOUND 0,SND,8,VOL:NEXT VOL:POKE 712,0›1550 RETURN.} ›P 0.2:SOUND 0,SND,8,6:POKE 712,SND:NEXT SND›1540 FOR VOL=6 TO 0 STEP -0.1:SOUND 0,SND,8,VOL:NEXT VOL:POKE 712,0›1550 RETURN5 REM PMSAMPLE1›10 DIM PM1$(128),PM2$(128),PM3$(128)›20 SIZE1=16:SIZE2=8›30 DIM SHIP$(SIZE1),ALIEN$(SIZE2)›40 DIM CLEAR$(128)0}›50 FOR ROWS=1 TO SIZE1›60 READ DOTS›70 SHIP$(ROWS,ROWS)=CHR$(DOTS)›80 NEXT ROWS›90 DATA 0,0,0,0,0›100 DATA 16,56,56,124,108,1}68›110 DATA 0,0,0,0,0›120 FOR ROWS=1 TO SIZE2›130 READ DOTS›140 ALIEN$(ROWS,ROWS)=CHR$(DOTS)›145 POKE 53248,X0›150 NEXT ROWS›2}160 DATA 60,126,219,126,36,36,66,129›170 FOR ROWS=1 TO 128›180 CLEAR$(ROWS,ROWS)=CHR$(0)›190 NEXT ROWS›200 A=4*(INT(PEEK(742)3}/4)-1)›210 POKE 54279,A›220 VSA=256*PEEK(135)+PEEK(134)›230 BOA=256*PEEK(141)+PEEK(140)›240 PM=256*A+512›250 DISP=PM-BOA›260 4}ADD=2›270 FOR T=1 TO 3›280 PMHIGH=INT(DISP/256)›290 PMLOW=DISP-256*PMHIGH›300 POKE VSA+ADD,PMLOW›310 POKE VSA+ADD+1,PMHIGH›325}0 DISP=DISP+128:ADD=ADD+8›330 NEXT T›340 PM1$=CLEAR$:PM2$=CLEAR$:PM3$=CLEAR$›350 POKE 559,46:POKE 53277,3›360 COLR1=25:COLR2=6}11:COLR3=74›370 POKE 704,COLR1:POKE 705,COLR2:POKE 706,COLR3›380 X1=125:X2=75:X3=175›390 POKE 53248,X1:POKE 53249,X2:POKE 5327}50,X3›400 Y1=75:Y2=25:Y3=25›410 PM1$(Y1)=SHIP$:PM2$(Y2)=ALIEN$:PM3$(Y3)=ALIEN$›420 IF STICK(0)<8 THEN X1=X1+3›430 IF STICK(0)8}>8 AND STICK(0)<13 THEN X1=X1-3›440 IF STICK(0)=14 THEN Y1=Y1-3›450 IF STICK(0)=13 THEN Y1=Y1+3›460 POKE 53248,X1:PM1$(Y1)=SH9}IP$›470 IF STICK(1)<8 THEN X2=X2+2›480 IF STICK(1)>8 AND STICK(1)<13 THEN X2=X2-2›490 POKE 53249,X2›500 IF STICK(2)<8 THEN X3:}=X3+2›510 IF STICK(2)>8 AND STICK(2)<13 THEN X3=X3-2›520 POKE 53250,X3›530 GOTO 420›0 POKE 53249,X2›500 IF STICK(2)<8 THEN X3T5 REM PMSAMPLE2›10 DIM PM$(128)›20 DIM SHIP$(16),CLEAR$(128)›30 FOR ROW=1 TO 16›40 READ DOTS›50 SHIP$(ROW,ROW)=CHR$(DOTS)›60 <}NEXT ROW›70 DATA 0,0,0,0,0›80 DATA 16,56,56,124,108,68›90 DATA 0,0,0,0,0›100 FOR ROW=1 TO 128›110 CLEAR$(ROW,ROW)=CHR$(0)›120=} NEXT ROW›130 A=4*(INT(PEEK(742)/4)-1)›140 POKE 54279,A›145 POKE 53248,X0›150 VSA=256*PEEK(135)+PEEK(134)›160 BOA=256*PEEK(14>}1)+PEEK(140)›170 PM=256*A+512›180 DISP=PM-BOA›190 ADD=2›200 FOR T=1 TO 1›210 PMHIGH=INT(DISP/256)›220 PMLOW=DISP-256*PMHIGH›2?}30 POKE VSA+ADD,PMLOW›240 POKE VSA+ADD+1,PMHIGH›250 DISP=DISP+128:ADD=ADD+8›260 NEXT T›270 PM$=CLEAR$›280 POKE 559,46:POKE 53@}277,3›290 POKE 704,12›300 POKE 53248,50›310 PM$(10)=SHIP$›320 N=1›330 FOR X=60 TO 190 STEP N›340 POKE 53248,X›350 NEXT X›360 A}FOR Y=10 TO 100 STEP N›370 PM$(Y)=SHIP$›380 NEXT Y›390 FOR X=190 TO 60 STEP -N›400 POKE 53248,X›410 NEXT X›420 FOR Y=100 TO 1B}0 STEP -N›430 PM$(Y)=SHIP$›440 NEXT Y›450 N=N+0.1›460 IF N>5 THEN N=1›470 GOTO 330›POKE 53248,X›410 NEXT X›420 FOR Y=100 TO 1S1 GOTO 20›2 POKE 88,Y:POSITION 0,0:? SHIP$(I,I+15);›3 POKE 53248,X›4 GOTO STICK(0)›5 Y=Y+1:X=X+1:I=49:GOTO 2›6 Y=Y-1+(Y=0):X= D}X+1:I=17:GOTO 2›7 X=X+1:I=33:GOTO 2›9 Y=Y+1:X=X-1:I=81:GOTO 2›10 Y=Y-1+(Y=0):X=X-1:I=113:GOTO 2›11 X=X-1:I=97:GOTO 2›13 Y=Y+1 E}:I=65:GOTO 2›14 Y=Y-1+(Y=0):I=1:GOTO 2›15 GOTO 4:REM Line 2 sets screen pointer and prints ship into player 0 data area, line F} 3 moves ship horizontally›20 ? CHR$(125):POKE 752,1:POKE 82,0:POKE 83,39:? " ":REM clear screen, set margins to full screen, G} cursor off›30 DIM BL$(255),SHIP$(128):BL$(1)=" ":BL$(255)=" ":BL$(2)=BL$:REM fill BL$ with space character›40 FOR I=1 TO 128 H}:READ A:SHIP$(I,I)=CHR$(A):NEXT I:REM Read player shape data into ship$›50 DATA 32,56,56,56,56,56,92,92,92,27,126,27,126,231, I}131,32›51 DATA 32,32,33,39,62,27,254,27,126,46,44,44,60,40,40,32›52 DATA 32,32,160,128,224,112,124,95,124,112,224,128,160,32, J}32,32›53 DATA 32,32,40,40,60,44,44,46,27,127,27,254,62,39,33,32›54 DATA 32,131,231,27,126,27,126,92,92,92,56,56,56,56,56,32›5 K}5 DATA 32,32,48,48,88,80,80,112,27,126,27,127,120,228,160,32›56 DATA 32,32,33,35,39,46,94,252,94,46,39,35,33,32,32,32›57 DATA L} 32,32,160,228,120,27,127,27,126,112,80,80,88,48,48,32›60 A=PEEK(106)-16:POKE 54279,A:X=129:Y=96:POKE 704,14:REM set pmgraphi M}cs base, x and y position and color of ship›70 POKE 88,0:POKE 89,A+4:POSITION 0,0:? BL$:REM set screen pointer to player 0 da N}ta area, print blanks to clear›80 POKE 559,30:POKE 53277,3:I=1:GOTO 2:REM enable pmgraphics, go to move loop›r to player 0 da m100 J:*PMINIT›110 *MOVE C:@B53248=#X›120 C:@B88=#Y›130 POS:0,0›140 T:$SHIP›150 *LOOP A:$S=%J0›160 MS:10,9,8,6,5,4,2,1,0›170 JP}M:*DR,*UR,*R,*DL,*UL,*L,*D,*U,*LOOP›180 *DR C:#X=#X+1›190 *D C:#Y=#Y+1›200 J:*MOVE›210 *UR C:#Y=#Y-1›220 *R C:#X=#X+1›230 J:*Q}MOVE›240 *DL C:#Y=#Y+1›250 *L C:#X=#X-1›260 J:*MOVE›270 *UL C:#X=#X-1›280 *U C:#Y=#Y-1›290 J:*MOVE›300 *PMINIT›310 T:} R} [CLEAR SCREEN›320 C:@82=9984 [FULL MARGINS›330 C:$SHIP= šÝ˙Ýš [PM SHAPE DATA›340 C:#P=@B106-12 [BELOW SCREEN...S}›350 C:@B54279=#P [IS PM AREA›360 C:#X=128 [PLAYER X POS.›370 C:#Y=48 [PLAYER Y POS.›380 C:@B704=14 [PT}LAYER IS WHITE›390 C:@B559=14 [ENABLE DISPLAY..›400 C:@B53277=3 [OF PM GRAPHICS›410 C:@B89=#P+2 [SET PR. POINTERU}›420 J:*MOVE›430 R:›440 R:BE CAREFUL IN TYPING LINE 330›450 R:AFTER THE EQUAL SIGN, TYPE:›460 R:SPACE,INVERSE KEY(ATARI LOGO)V}›470 R:NINE,RIGHT BRACKET,ESCAPE,ESCAPE›480 R:ESCAPE,CONTROL AND INSERT,›490 R:RIGHT BRACKET,9,INVERSE (LOGO),›500 R:SPACE,(CW}OMMENT IS OPTIONAL)›ACKET,ESCAPE,ESCAPE›480 R:ESCAPE,CONTROL AND INSERT,›490 R:RIGHT BRACKET,9,INVERSE (LOGO),›500 R:SPACE,(C89Ÿ´DIĆĆĐVEĚNUÍČDLľRÔÎSÔWAIÔX°ÄPÂY°×XąÍYąÁÉPAGĹDĚDL´ŘŮSNÄVOĚY} Z} Œ A6€-&6-6@26‚-@>6ƒ-@J6„-V6…-@[}` A j AŒ2@A@@ †‡ A†‡%@ A(†‡%@ \}A2†‡%@ A<†‡%@ AF†‡%@ AP @ dVˆ-@@&]}€(6‰-R:,4‰"@HŠ-@@L ŠV A…n==6‹-‹%ƒ$+‰"@,$+‹ A,&ƒ$+‰"@,$+‹!@G,x^}‹ @H6‹-@H‚’‰"@*"6@&6-@I6Œ-?:A6<%A%Ž<Ah,]-@@ a „6_}Œ-?:A6<%A%Ž<A`,’6‹-‹&@Œ’‰"@*"@&6-6@I6Œ-?:A6<%A%Ž<Ah,]-`}@@ a „6Œ-?:A6<%A%Ž<Av,’6‹-‹%@‘B2H‹–L‰"@26Œ-?:A6<%A%Ž<a}A’,L6Ž-Ž&@$+Ž!@ , L‰"@26Œ-?:A6<%A%Ž<A’,L6Ž-Ž%@$+Ž A,ŞGG6Œ-?:A6b}<%A%Ž<A`$+"@,%Av$+"6@,,´7-‹!A*‹ A8*Ž"@(*‚"@7 A0š ˆž"F:c}B2R," A`Ň#Ž"A*‚"# A0Ü$ć)6ˆ-+‹!,&+!‹,ˆ") APđ# ‘-‹ˆd}B2I‘ ‘#6-‘ú5&6Œ-?:A6<%A@%’<A’,26‚-5$aB2x@86Œ-?:A6<%A%Ž<Ae},U-A @@6@aAŽ2%A%Ž%P:H:,$@,F:B7p,V2A@'@f}Z |2ŽAAPa&6Œ-?:A6<%A%Ž<A’,46…-…&@F-@)g}K(…W…a A"b†‡%@#-=(GAME OVER-RESCUED „O-@ b( PRESS Fh}IRE # T:,"@A‘$@-@(% 'G6…-@i}%6„-16€-=6ƒ-@G A p,iB2x@!6‹-A€-6Ž-@ 9B2H‹\6Œ-?:A6<%Aj}%Ž<Av,i6-6@6b‚"6-A '6’-@(3B2IV6Œ-?:A6<%A@%’<A„,b6‚-@k}@$J&&6Œ-?:A6<%A@%Ž<A„,Th‘-‹AB2I‘! ‘/6„-„%@R6Œ-?:A6<%A@%Ž<A’l},^„"@ h ApYh-@ („3„'@"P:„'@,A6€-€%@Z„'@"P:„'@,h6ƒ-ƒ%@m}^>6‚-@B2I>6Œ-?:A6<%A@%’<A„,h$r0&6Œ-?:A6<%A%Ž<A’,0 A %“n}-A6A`"”!“”% “*dd104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,200,192,8,208,2o}47,96›4%“-A`A"”!“”% “>OO0,31,4,143,249,15,2,63,0,127,8,62,34,62,20,62,0,248,32,241,159,240,32,252›HJp}J0,0,24,24,126,24,36,102,0,0,0,0,0,0,0,0,68,186,84,130,255,130,68,186›R'AR@'AY@F\v6“-F:Aq},&@&BBy“8B2w@F6-AV$“R6‹-A€^6Ž-@ j6-A v6’-@(k'AAP'r}A@€paB2H‹26Œ-?:A6<%A%Ž<Av,>B2Ia6Œ-?:A6<%A@%’<A„,z$„†6s}‡-F:A,&@,+@%@>@ˆR@‰‡&@h(@>:A%,tA‡†+@%@t}ŽAY“Q0@@@70@@@Q0@@@˜76•-!@u}ˆ-@‰‡7 A˘?6•-@!@ˆ5@‰‡%@? AŹ?6•-@!@ˆv}5@‰‡%@? Aś?6•-@!@ˆ5@‰‡%@? AŔm%6–-F:A`,%AVw}$F:Aa,36—-–%@A6†-–%@M—[†‡%@mAY@4ʁAR@)–%@@fx};@‡M-^( RESCUED :„p-@ ( COPTERS :…Ô$č= @!˜-@2@Gy}-,˜@9/˜@G= ˜ň… @)˜-@3@E@E™-@@A@K,˜™Y,˜%@™g,˜™%z}@},˜%@™%@ ™… ˜ü“,@9@E'/@9@G9,@@@EK/@@@G],@{}Go/@1@G,@H@G“/@y@G-#•"@)•"@)•"@- A} @!™-@E|}@F-,@™9/@™= ™O,@@Ga,@@Gk},@@E$LŻ @}},@H@1,@H@C,@I@U,@H@&g,@H@'y,@I@%‹,@H@6~},@H@7Ż,@I@5Vo,@1@'/@1@!9,@0@K,@1@1]/@1@3}o,@0@0`#•"@)•"@# Ajs™-@E@F#,@™//@!™3 ™E,@@G€}W,@ @Gas,@@Et$°y @,@H@1,@H@C,@I@U,@I}@g,@P@y,@P@ şo,@H@$',@H@%9,@I@$K,@I@#]‚},@P@#o,@P@"Äo,@H@5',@H@49,@I@4K,@I@3],@P@3ƒ}o,@P@2Γ,@1@@',@1@A9,@1@0K,@1@)],@0@)o/@0„}@',@)@'“,@)@&؁,@1@',@1@9,@0@9K,@0@]/@0…}@o,@)@,@)@â•"@ Aěs™-@E@F#,@$™//@1™3 ™E,†}@%@GW,@0@Gas,@(@Eö$y @,@I@ 1/@I@C,@P‡}@U/@P@g,@Q@y/@Q@ o,@I@"',@I@!9,@P@!K/@ˆ}P@],@Q@ o/@Q@"(o,@I@2',@I@19,@P@1K/@P@)‰}],@Q@0o/@Q@22K,@0@8',@0@79,@)@8K/@)@5<K,@0Š}@&'/@0@$9,@)@%K/@)@"FK,@0@'/@0@9,@)@K/@)‹}@P} @!™-@E@F-,@™9/@™= ™O,@@Ga,@@Gk},@Œ}@EZ$Üq+@%@'-@I(@COMPUTE PUBLICATIONS[-@@q(@ĐŇĹӍ}ĹÎÔÓć*-@@*(@éîćĺňîďúKš-@ A ? ;2š@@GAšK šLŽ} ›-@6?62š@›: ›LA$€ D4:P099L1.BASGAšK šLdhiQÂ×PM1¤PM2¤PM3¤SIZEąSIZE˛SHIP¤ALIEN¤CLEAR¤ROWÓDOTÓX°ÁVSÁBOÁPÍDISĐADÄÔPMHIGČPMLO×COLRąCOLR˛COLRłXąX˛XłYąY˛Ył9sB}€šs €9t €@@€˜€€A) A) AR A‚s A™'B”$B˜@‘}&@A@W@%@@tA@uAg@Q@%@%PMSAMPLE1› &&€;A’}(,;A(,‚;A(,6ƒ-@6„-@…;ƒ,†;„,(‡;A(,2ˆ-@ƒ<"‰F6…7ˆ<ˆ,.>:“}‰,P ˆZ0,0,0,0,0›d16,56,56,124,108,68›n0,0,0,0,0›xˆ-@„‚"‰Œ6†7ˆ<ˆ,.>:‰,‘B2HŠ–”} ˆ !!60,126,219,126,36,36,66,129›Şˆ-@A(´6‡7ˆ<ˆ,.>:,ž ˆČ//6‹-@$+P:F:AB,'@•},&@,ŇBBy‹Ü%%6Œ-AV$F:A5,%F:A4,ć%%6-AV$F:AA,%F:A@,đ6Ž-AV$‹%A–}ú 6-Ž&6-@‘-@@6’-P:'AV,"6“-&AV$’, Œ%“6Œ%%@’@6-—}%A(6-%@J ‘T 6€.‡6.‡6‚.‡^'AY@F'B2w@h'6”-@%6•-@'6–-@t˜}r'A”A•'A–|'6—-A%6˜-@u'6™-Au†'B2H—B2I˜'B2P™'™}6š-@u6›-@%'6œ-@%š 6€7š,.…67›,.†6‚7œ,.†¤&R:, @&6—-—%@Ž9+R:,!@š}*R:, @96—-—&@¸&R:,"@&6š-š&@Â&R:,"@&6š-š%@ĚB2H›}—6€7š,.…Ö&R:@, @&6˜-˜%@ŕ9+R:@,!@*R:@, @96˜-˜&@ęB2I˜ô&œ}R:@, @&6™-™%@ţ9+R:@,!@*R:@, @96™-™&@B2P™ A €} D4:P107L1.BAS&6™-™%@ţ9+R:@,!@*R:@, @96™-™&@B2P™ A €67Ç[pPM¤SHIP¤CLEAR¤RO×DOTÓÁX°VSÁBOÁPÍDISĐADÄÔPMHIGČPMLO×ÎŘف u€€€€A)ARŸ}A‚#A“ B”$ B@ @ @ AA`@€A`@ PMSAMPLE2› €;A(, };@,‚;A(,ƒ-@@("„267ƒ<ƒ,.>:„,< ƒF0,0,0,0,0›P16,56,56,124,108,68›Z0,0,0Ą},0,0›dƒ-@A(n6‚7ƒ<ƒ,.>:,x ƒ‚//6…-@$+P:F:AB,'@,&@,ŒBBy…‘˘}B2H†–%%6‡-AV$F:A5,%F:A4, %%6ˆ-AV$F:AA,%F:A@,Ş6‰-AV$…%A´ 6Š-‰&ˆž6Ł}‹-@ČŒ-@@Ň6-P:Š'AV,Ü6Ž-Š&AV$ć ‡%‹Žđ‡%‹%@ú6Š-Š%A(6‹-‹%¤}@ Œ 6€.‚'AY@F'B2w@"A@,B2H@P66€7@,.@Ľ}6-@J-@`ATB2H^ h‘-@Ar 6€7‘,.| ‘†-A@`Ś}6B2Hš ¤‘-A@6Ž 6€7‘,.¸ ‘Â6-%?̏!@6-@Ö A0§}€ D4:P107L2.BAS¤‘-A@6Ž 6€7‘,.¸ ‘Â6-%?̏!@6-@Ö A0  =/ŮSHIP¤ÉŘBL¤Á€€ @ 3@ˆ€!-3(7 Š}‚<‚%@,B2Hƒ R:,56€-€%@6ƒ-ƒ%@+6‚-@I5 @A6€-€&@%+€" Ş},+6ƒ-ƒ%@76‚-@A @'6ƒ-ƒ%@6‚-@3' @ 56€-€%@6ƒ-ƒ&@+6‚-@5 @ Ť} A6€-€&@%+€",+6ƒ-ƒ&@76‚-AA @ '6ƒ-ƒ&@6‚-@—' @ '6€-€%@ Ź}6‚-@e' @36€-€&@%+€",)6‚-@3 @r @rLine 2 sets screen pointer and print ­}s ship into player 0 data area, line 3 moves ship horizontally›ƒ(>:A%,"AR@4@‚F@ƒ Ž}@9L( ƒclear screen, set margins to full screen, cursor off›l„;AU,;A(,,6„7@,. =6„7AU, Ż}. L6„7@,.„lfill BL$ with space character›(Q‚-@A("…)67‚<‚,.>:…,- ‚QRead player shape data int °}o ship$›29932,56,56,56,56,56,92,92,92,27,126,27,126,231,131,32›37732,32,33,39,62,27,254,27,126,46,44,44,60,40,40,32›4?? ą}32,32,160,128,224,112,124,95,124,112,224,128,160,32,32,32›57732,32,40,40,60,44,44,46,27,127,27,254,62,39,33,32›69932,131, ˛}231,27,126,27,126,92,92,92,56,56,56,56,56,32›7;;32,32,48,48,88,80,80,112,27,126,27,127,120,228,160,32›86632,32,33,35,39,4 ł}6,94,252,94,46,39,35,33,32,32,32›9;;32,32,160,228,120,27,127,27,126,112,80,80,88,48,48,32›<Š6…-F:A,&@&BBy ´}…26ƒ-A)>6€-@–PA@Šset pmgraphics base, x and y position and color of ship›F@ˆ ľ})@‰…%@;-?(„set screen pointer to player 0 data area, print blanks to clear›PbAY@0 ś}'B2w@36‚-@= @benable pmgraphics, go to move loop›€ D4:P114L1.BASclear›PbAY@0 g10 REM Slow load (character set)›100 OPEN #1,4,0,"D1:CHARACT.SET":FOR I=0 TO 1023:GET #1,N:POKE CH,N:NEXT I:CLOSE #1:RETURN ›$¸}190 REM Slow load (display file)›200 OPEN #1,4,0,"D1:DRAWING.SCR":GET #1,MD:GET #1,WD:GET #1,LN:IF MD>5 THEN MD=MD-10:WD=WD+2$š}56›205 FOR I=708 TO 712:GET #1,N:POKE I,N:NEXT I:FOR I=0 TO WD*LN-1:GET #1,N:POKE SC+I,N:NEXT I:CLOSE #1:RETURN ›D-10:WD=WD+2$q10 REM Set up variables›20 X=16:ICCOM=834:ICBADR=836:ICBLEN=840:REM See text for meaning of variables SP and CHBAS›90 REM Fas(ť}t load (display file)›100 OPEN #1,4,0,"D1:DRAWING.SCR":GET #1,MD:GET #1,WD:GET #1,LN:IF MD>5 THEN WD=WD+256:MD=MD-10›110 SZ=W(ź}D*LN:FOR I=708 TO 712:GET #1,N:POKE I,N:NEXT I›120 POKE ICBADR+X+1,SP:POKE ICBADR+X,0:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBL(˝}EN+X,0›130 POKE ICCOM+X,7:I=USR(ADR("hhhŞLVä"),X):CLOSE #1:RETURN ›190 REM Fast load (character set)›200 OPEN #1,4,0,"D1:CHAR(ž}ACT.SET":POKE ICBADR+X+1,CHBAS:POKE ICBADR+X,0:POKE ICBLEN+X+1,4:POKE ICBLEN+X,0›210 POKE ICCOM+X,7:C=USR(ADR("hhhŞLVä"),X):C(ż}LOSE #1:POKE 756,CHBAS:RETURN ›POKE ICBADR+X,0:POKE ICBLEN+X+1,4:POKE ICBLEN+X,0›210 POKE ICCOM+X,7:C=USR(ADR("hhhŞLVä"),X):C(10 REM Lines 20 and 30 are just a demonstration. Change the value of SC and see what happens!›20 DL=PEEK(88)+256*PEEK(89):SC=,Á}DL:MODE=4:WIDE=40:GOSUB 100›30 FOR I=0 TO 1000:NEXT I:SC=0:MODE=2:GOSUB 100:FOR I=0 TO 1000:NEXT I:GOTO 20›90 REM This ANTIC ,Â}2 or 4 display list can be horizontally scrolled. Just set the values of SC,DL,MODE, and WIDE.›100 FOR I=0 TO 2:POKE DL+I,112,Ă}:NEXT I:N=0:M=MODE+64›110 FOR I=DL+3 TO DL+72 STEP 3:C=SC+N:POKE I,M:POKE I+2,INT(C/256):POKE I+1,C-256*PEEK(I+2):N=N+WIDE:NE,Ä}XT I›120 POKE I,65:DLHI=INT(DL/256):DLLO=DL-DLHI*256:POKE I+1,DLLO:POKE I+2,DLHI:POKE 561,DLHI:POKE 560,DLLO:RETURN ›+WIDE:NE,u10 REM Lines 20 and 30 are just a demonstration. Change the value of SC and see what happens!›20 DL=PEEK(88)+256*PEEK(89):SC=0Ć}PEEK(106)*256:MODE=5:WIDE=40:GOSUB 100›30 FOR I=0 TO 1000:NEXT I:SC=0:GOSUB 100:FOR I=0 TO 1000:NEXT I:GOTO 20›90 REM This AN0Ç}TIC 5 display list can be horizontally scrolled. Just set the values of SC,DL,MODE, and WIDE.›100 FOR I=0 TO 2:POKE DL+I,112:0Č}NEXT I:N=0:M=MODE+64›110 FOR I=DL+3 TO DL+36 STEP 3:C=SC+N:POKE I,M:POKE I+2,INT(C/256):POKE I+1,C-256*PEEK(I+2):N=N+WIDE:NEX0É}T I›120 POKE I,65:DLHI=INT(DL/256):DLLO=DL-DLHI*256:POKE I+1,DLLO:POKE I+2,DLHI:POKE 561,DLHI:POKE 560,DLLO:RETURN ›+WIDE:NEX0t10 REM The actual subroutine is lines 100-120. You set the value of DL,SC,MODE,and WIDE.›20 DL=PEEK(88)+256*PEEK(89):MODE=2:W4Ë}IDE=40›30 SC=0:MODE=2+2*(MODE=2):GOSUB 100›40 TRAP 30:ON PEEK(753)<>3 GOTO 40:SC=SC+460:SP=INT(SC/256):POKE DL5,SP:POKE DL4,S4Ě}C-256*SP›50 FOR I=0 TO 30:NEXT I:GOTO 40›90 REM This ANTIC 2 and 4 display list can be page flipped from BASIC. POKE the scre4Í}en address into DL4 and DL5.›100 FOR I=0 TO 2:POKE DL+I,112:NEXT I:DL4=DL+4:DL5=DL+5›110 POKE DL+3,64+MODE:POKE DL5,INT(SC/254Î}6):POKE DL4,SC-256*PEEK(DL5):FOR I=DL+6 TO DL+28:POKE I,MODE:NEXT I›120 POKE I,65:DLHI=INT(DL/256):DLLO=DL-DLHI*256:POKE I+1,4Ď}DLLO:POKE I+2,DLHI:POKE 561,DLHI:POKE 560,DLLO:RETURN ›,MODE:NEXT I›120 POKE I,65:DLHI=INT(DL/256):DLLO=DL-DLHI*256:POKE I+1,4710 REM The actual subroutine is lines 100-120. You set the value of DL,SC,MODE,and WIDE.›20 DL=PEEK(88)+256*PEEK(89):MODE=5:W8Ń}IDE=40:GOSUB 100›30 SC=0›40 TRAP 30:ON PEEK(753)<>3 GOTO 40:SC=SC+480:SP=INT(SC/256):POKE DL5,SP:POKE DL4,SC-256*SP›50 FOR I=8Ň}0 TO 30:NEXT I:GOTO 40›90 REM This ANTIC 5 display list can be page flipped from BASIC. Just POKE the screen address into DL48Ó} and DL5.›100 FOR I=0 TO 2:POKE DL+I,112:NEXT I:DL4=DL+4:DL5=DL+5›110 POKE DL+3,64+MODE:POKE DL5,INT(SC/256):POKE DL4,SC-256*8Ô}PEEK(DL5):FOR I=DL+6 TO DL+16:POKE I,MODE:NEXT I›120 POKE I,65:DLHI=INT(DL/256):DLLO=DL-DLHI*256:POKE I+1,DLLO:POKE I+2,DLHI:8Ő}POKE 561,DLHI:POKE 560,DLLO:RETURN ›,MODE:NEXT I›120 POKE I,65:DLHI=INT(DL/256):DLLO=DL-DLHI*256:POKE I+1,DLLO:POKE I+2,DLHI:8$5 DIM F$(20),FSAVE$(20),FLOAD$(20),FL$(40),FLL$(20),DELETE$(124),EXPAND$(124),CLEAR$(33),C(255)›10 GRAPHICS 0:X=16:ICCOM=834:<×}ICBADR=836:ICBLEN=840›15 COL1=708:COL2=709:COL3=710:COL4=711:COL5=712:SHIF=64:SCON=PEEK(559):POKE 16,112:GOTO 440›20 OPEN #1,<Ř}4,0,FL$:GET #1,MD:GET #1,WD:GET #1,LN:IF MD>5 THEN WD=WD+256:MD=MD-10›25 SZ=WD*LN:FOR I=COL1 TO COL5:GET #1,N:POKE I,N:NEXT I<Ů}›30 SC=SP*256:POKE ICBADR+X+1,SP:POKE ICBADR+X,0:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBLEN+X,0›35 POKE ICCOM+X,7:I=USR(ADR("h<Ú}hhŞLVä"),X):CLOSE #1:RETURN ›40 OPEN #1,8,0,"D1:TEMPFILE.SCR":WD=WIDE:MD=MODE:IF WIDE>255 THEN WD=WIDE-256:MD=MODE+10›45 PUT <Ű}#1,MD:PUT #1,WD:PUT #1,LINE:FOR I=COL1 TO COL5:PUT #1,PEEK(I):NEXT I›50 POKE ICBADR+X+1,SP:POKE ICBADR+X,0:POKE ICBLEN+X+1,1+<Ü}INT((LINE*WIDE)/256):POKE ICBLEN+X,0›55 POKE ICCOM+X,11:I=USR(ADR("hhhŞLVä"),X):CLOSE #1:RETURN ›60 IF ((LINE*WIDE-PIX)0)=LINE THEN V=0›170 LR=PIX-WIDE*UD:IF LR+H<0 OR LR+H>WIDE-1 THEN H=0›175 IF <ç}H=0 AND V=0 THEN 215›180 WH=0:WV=0:W=PEEK(DL4)+256*PEEK(DL5)-SC›185 U=INT(W/WIDE):IF V<>0 THEN WV=(UD-U-(V<0)<0)+2*(UD-U+(V>0<č})>8+12*(MODE<>5))›190 IF H<>0 THEN L=W-U*WIDE:WH=(LR+H-L<0)+2*(LR+H-L>39)›195 IF WH>0 OR WV>0 THEN POKE DL+114,WH:POKE DL+115<é},WV:C=USR(DISPLAY)›200 POKE SC+PIX,OLD:PIX=PIX+H+V:POKE 53279,1›205 IF T=1 THEN OLD=PEEK(SC+PIX):POKE SC+PIX,91:GOTO 215›210 <ę}POKE SC+PIX,OLD›215 RETURN ›220 GOSUB 785:ON (C=134)+(C=135)+(C=142)+(C=143)+2*(C=116)+3*(C=119)+4*(C=246) GOTO 250,60,90,645<ë}›225 IF C=156 THEN AV=1*(AV=0):GOTO 920›230 IF N=60 THEN SHIF=4+C-64:POKE 53279,4:GOSUB 930:RETURN ›235 IF N=39 THEN VERS=128<ě}*(VERS=0):GOTO 920›240 OLD=C(N+SHIF)+VERS:POKE SC+PIX,OLD:ON AV GOTO 245:RETURN ›245 C=135›250 V=WIDE*((C=143)-(C=142)):H=(C=<í}135)-(C=134):MV=1:RETURN ›255 GOSUB 920:POKE SC+PIX,91:RETURN ›260 GOSUB 920›265 DI=PEEK(632):T=PEEK(644):DI=DI+5*(DI=7):DI=D<î}I-10:OPT=PEEK(53279):IV=(OPT=5):IF OPT=6 THEN 255›270 IF DI<1 OR DI>4 THEN 265›275 ON (4*T)+DI GOSUB 280,285,290,295,300,305,<ď}310,320:GOTO 265›280 POKE COL5,PEEK(COL5)-2+256*(PEEK(COL5)<2):RETURN ›285 POKE COL5,PEEK(COL5)+2-256*(PEEK(COL5)>253):RETURN<đ} ›290 POKE COL3,PEEK(COL3)-2+256*(PEEK(COL3)<2):RETURN ›295 POKE COL3,PEEK(COL3)+2-256*(PEEK(COL3)>253):RETURN ›300 POKE COL2<ń},PEEK(COL2)-2+256*(PEEK(COL2)<2):RETURN ›305 POKE COL2,PEEK(COL2)+2-256*(PEEK(COL2)>253):RETURN ›310 IF IV THEN POKE COL4,PEE<ň}K(COL4)-2+256*(PEEK(COL4)<2):RETURN ›315 POKE COL1,PEEK(COL1)-2+256*(PEEK(COL1)<2):RETURN ›320 IF IV THEN POKE COL4,PEEK(COL4<ó})+2-256*(PEEK(COL4)>253):RETURN ›325 POKE COL1,PEEK(COL1)+2-256*(PEEK(COL1)>253):RETURN ›330 FLL$=FL$:FOR I=1 TO LEN(FL$):N=A<ô}SC(FL$(I,I)):ON N=58 GOSUB 370:NEXT I:FL$=FLL$›335 FLL$=FL$:FOR I=1 TO LEN(FL$):N=ASC(FL$(I,I)):ON N=46 GOSUB 375:NEXT I:FL$=<ő}FLL$›340 IF LEN(FL$)>8 THEN FL$=FL$(1,8)›345 IF LEN(FL$)<1 THEN 390›350 N=ASC(FL$(1,1)):IF N>90 OR N<65 THEN 385›355 IF LEN(F<ö}L$)<2 THEN GOTO 365›360 FOR I=2 TO LEN(FL$):N=ASC(FL$(I,I)):ON (N>90 OR N<65) AND (N>57 OR N<48) GOTO 380:NEXT I›365 FLL$="D1<÷}:":FLL$(4)=FL$:N=0:RETURN ›370 FLL$=FL$(I+1,LEN(FL$)):RETURN ›375 FLL$=FL$(1,I-1):RETURN ›380 POP :? "}":? "Illegal character<ř}s in ";FL$:GOTO 390›385 ? "}":? FL$;" must start with a capital":? "letter.":GOTO 390›390 ? "Let's try that name again.":N=1:<ů}RETURN ›395 TRAP 400:OPEN #1,4,0,FL$:N=0:CLOSE #1:RETURN ›400 ? :? FL$;" isn't on disk in":? "drive 1":? "Insert disk with ";<ú}FL$;"and":? "press RETURN.":CLOSE #1›405 ? "Or to try another file name, press anyother key."›410 ON PEEK(753)<>3 GOTO 410:GO<ű}SUB 785:ON N=12 GOTO 395:N=1:RETURN ›415 TRAP 435:OPEN #1,4,0,FL$:? FL$;" is already on disk.":? "Unless you change the name,<ü} the old"›420 ? "file will be lost. To change the namepress RETURN":? "Or press any other key to continue.":CLOSE #1›425 ON <ý}PEEK(753)<>3 GOTO 425:GOSUB 785:ON N=12 GOTO 430:N=0:RETURN ›430 N=1:RETURN ›435 CLOSE #1:N=0:RETURN ›440 ? " Ćďî<ţ}ôâůôĺň":? :? :? :GOSUB 905›445 GOSUB 850:? "What is the name of your character set? (Enter '@' for ROM set)":POKE 764,255:<˙}INPUT F$›450 IF F$="@" THEN 465›455 FL$=F$:GOSUB 330:ON N GOTO 445:F$=FLL$:F$(LEN(FLL$)+1)=".SET"›460 FL$=F$:GOSUB 395:ON N G=}OTO 445›465 GOSUB 840:? :? "What file should hold your finished screen? (Eight characters)":POKE 764,255:INPUT FSAVE$›470 F=}L$=FSAVE$:GOSUB 330:ON N GOTO 465:FSAVE$=FLL$:FSAVE$(LEN(FLL$)+1)=".SCR"›475 FL$=FSAVE$:GOSUB 415:ON N GOTO 465›480 FLOAD$=""=}:? :? "Would you like to edit a screen you have already saved? (Y or N) "›485 GOSUB 785:ON N=35 GOTO 535:ON N=43 GOTO 490:G=}OTO 485›490 ? :? "What is the name of the saved screen file? ":POKE 764,255:INPUT FLOAD$›495 FL$=FLOAD$:GOSUB 330:ON N=0 GOT=}O 500:GOTO 480›500 FLOAD$=FLL$:FLOAD$(LEN(FLL$)+1)=".SCR"›505 FL$=FLOAD$:GOSUB 395:ON N GOTO 480:OPEN #1,4,0,FLOAD$:GET #1,MD=}:GET #1,WD:GET #1,LN:CLOSE #1:FLOAD=1›510 IF MD>5 THEN MD=MD-10:WD=WD+256›515 ? :? FLOAD$;" was saved as:":? "Mode ";MD;",":?=} "with ";LN;" lines":? "of ";WD;" characters per line."›520 ? "If you wish to ăčáîçĺ these parameterspress RETURN.":? "To lea=}ve them őîăčáîçĺä press any other key."›525 ON PEEK(753)<>3 GOTO 525:GOSUB 785:IF N=12 THEN 540›530 MODE=MD:WIDE=WD:LINE==}LN:GOTO 585›535 FLOAD=0›540 ? :? "What Antic mode will you work in?":? "(Antic 2, 4, OR 5) ":POKE 764,255›545 GOSUB 785:ON N<= }>30 AND N<>24 AND N<>29 GOTO 545›550 MODE=C(N)-16›555 ? :? "How wide a line?":? " (Minimum 40 characters":? " maximum ";17= }0+170*(MODE=5);" characters)"›560 POKE 764,255:TRAP 560:INPUT WIDE:WIDE=INT(WIDE):ON WIDE<40 OR WIDE>170 GOSUB 790›565 ? :? "= }How many lines do you want to edit? (Minimum ";12+12*(MODE<>5);:? " Maximum ";INT(4096/WIDE);")"›570 TRAP 570:INPUT LIN= }E›575 LINE=INT(LINE):IF LINE>INT(4096/WIDE) THEN LINE=INT(4096/WIDE)›580 IF LINE<12+12*(MODE=4) THEN LINE=12+12*(MODE=4)›585 = }? "}":? "You have chosen:":? "Character set--";F$:? "Save file--";FSAVE$:? "Load file--";FLOAD$›590 SZ=LINE*WIDE-1:? "Mode ";=}MODE:? LINE;" lines of ";WIDE;" characters"›595 ? "If this is right, press ÓÔÁŇÔ To make changes, press ĎĐÔÉĎÎ"›600 O=}N (PEEK(53279)=6)+(2*(PEEK(53279)=3)) GOTO 605,440:GOTO 600›605 A=PEEK(106):TOP=A-24:CHBAS=TOP:CH=CHBAS*256:SP=TOP+8:SC=SP*25=}6:POKE 106,TOP:OLDCHBAS=224:GRAPHICS 0›610 ? "Just a minute while I get myself together . . ."›615 IF F$="@" THEN CHBAS==}224:CH=CHBAS*256:GOTO 630›620 OPEN #1,4,0,F$:POKE ICBADR+X+1,CHBAS:POKE ICBADR+X,0:POKE ICBLEN+X+1,4:POKE ICBLEN+X,0›625 POKE=} ICCOM+X,7:C=USR(ADR("hhhŞLVä"),X):CLOSE #1›630 POKE 559,0:GOSUB 640:GOSUB 655:GOSUB 810:GOSUB 635:ON FLOAD GOSUB 650:GOSUB 9=}25:GOTO 120›635 POKE 756,CHBAS:RETURN ›640 OPEN #1,4,0,"D1:CLEAR.SUB":FOR I=1 TO 33:GET #1,N:CLEAR$(I,I)=CHR$(N):NEXT I:CLOSE=} #1›645 C=USR(ADR(CLEAR$),SP,X):RETURN ›650 T=SZ:FL$=FLOAD$:GOSUB 20:SZ=T:RETURN ›655 DL=256*(TOP+4):DL4=DL+4:DL5=DL+5:FOR I==}0 TO 2:POKE DL+I,112:NEXT I:PIX=0:N=0›660 FOR I=DL+3 TO DL+27+36*(MODE<>5) STEP 3:C=SC+N*WIDE:POKE I,64+MODE:POKE I+2,INT(C/2=}56)›665 POKE I+1,C-256*PEEK(I+2):N=N+1:NEXT I›670 N=0:MENU=256*(TOP+5)+64:DLMEN=DL+32+36*(MODE<>5):POKE DLMEN-2,MODE+64:POKE =}DLMEN,INT(MENU/256)›675 POKE DLMEN-1,MENU-256*PEEK(DLMEN):FOR I=DLMEN+1 TO DLMEN+3:POKE I,MODE:NEXT I›680 POKE I,65:POKE I+1,=}0:POKE I+2,DL/256:OPEN #1,4,0,"D:DISPLAY.SUB"›685 DISPLAY=DL+128:TRAP 690:FOR I=0 TO 186:GET #1,N:POKE DISPLAY+I,N:NEXT I:GOT=}O 695›690 POP ›695 WHI=INT(WIDE/256):WLO=WIDE-256*WHI:POKE DL+112,WLO:POKE DL+113,WHI›700 POKE 560,0:POKE 561,DL/256:CLOSE #1=}:RETURN ›705 POKE SC+PIX,OLD:GOSUB 40:POKE 756,OLDCHBAS:GRAPHICS 0:POKE 764,255›710 ? "Screen is saved as D1:TEMPFILE.SCR":? =}:? "Do you want to save the screen as":? FSAVE$;"? (Y or N)"›715 GOSUB 785:ON N<>43 AND N<>35 GOTO 715:IF N=43 THEN GOSUB 765=}:GOTO 725›720 FSAVE=0›725 ? :? "Do you want to quit? (Y or N)":POKE 764,255›730 GOSUB 785:ON N<>43 AND N<>35 GOTO 730:ON N=35=} GOTO 735:ON N=43 GOTO 760›735 ? :? "To return to edit the same screen, press ĎĐÔÉĎÎ":? :? "To start FONTBYTER over, press=} ÓÔÁŇÔ"›740 OPT=PEEK(53279):ON ((OPT=6)+(2*(OPT=3))) GOTO 745,750:GOTO 740›745 POKE 106,A:GRAPHICS 0:GOTO 10›750 POKE 106,TOP=}:GOSUB 635:FL$="D1:TEMPFILE.SCR":IF FSAVE=1 THEN FL$=FSAVE$›755 GOSUB 20:GOSUB 655:GOTO 120›760 POKE 106,A:POKE 764,255:GRAPH= }ICS 0:END ›765 FSAVE=1:TRAP 770:OPEN #2,4,0,FSAVE$:CLOSE #2:XIO 36,#2,0,0,FSAVE$:XIO 33,#2,0,0,FSAVE$:GOTO 775›770 CLOSE #2›7=!}75 FL$="D1:TEMPFILE.SCR,":FLL$=FSAVE$(4,LEN(FSAVE$)):FL$(17)=FLL$›780 XIO 32,#1,0,0,FL$:RETURN ›785 C=PEEK(764):N=C-64*INT(C/="}64):RETURN ›790 IF WIDE<40 THEN WIDE=40:RETURN ›795 IF WIDE>170 AND MODE<>5 THEN WIDE=170:RETURN ›800 IF WIDE<340 THEN RETURN=#} ›805 WIDE=340:RETURN ›810 TRAP 815:OPEN #1,4,0,"D:DELETE.SUB":FOR I=1 TO 124:GET #1,N:DELETE$(I,I)=CHR$(N):NEXT I:GOTO 820›8=$}15 POP ›820 CLOSE #1:WHI=INT(WIDE/256):WLO=WIDE-256*WHI›825 TRAP 830:OPEN #1,4,0,"D:EXPAND.SUB":FOR I=1 TO 124:GET #1,N:EXPAN=%}D$(I,I)=CHR$(N):NEXT I:GOTO 835›830 POP ›835 CLOSE #1:RETURN ›840 TRAP 865:XIO 36,#1,0,0,"D:*.SCR"›845 ? :? "Currently saved =&}screen files:":FLL$="SCR":GOTO 860›850 TRAP 865:XIO 35,#1,0,0,"D:*.SET"›855 ? :? "Currently available character sets:":FLL$="='}SET"›860 FL$="D1:*.":FL$(LEN(FL$)+1)=FLL$:OPEN #1,6,0,FL$:FOR I=0 TO 50:INPUT #1,FLL$:? FLL$:NEXT I›865 CLOSE #1:RETURN ›870 =(}GOSUB 920:POKE SC+PIX,OLD:GOTO 895›875 WV=2*((DI=5)+(DI=13)+(DI=9))+(DI=10)+(DI=6)+(DI=14):WH=2*(DI<8 AND DI>4)+(DI<12 AND DI=)}>8)›880 W=(PEEK(DL4)+256*PEEK(DL5))-SC:U=INT(W/WIDE):WV=WV-(U=0 AND WV=1)-2*((U+7+12*(MODE<>5)=LINE-2) AND WV=2)›885 L=W-(U*W=*}IDE):WH=WH-(L=0 AND WH=1)-2*((L+40)=WIDE AND WH=2)›890 POKE DL+114,WH:POKE DL+115,WV:C=USR(DISPLAY)›895 IF PEEK(53279)<>6 THE=+}N DI=PEEK(632):ON DI<>15 GOTO 875:GOTO 895›900 PIX=PEEK(DL4)+256*PEEK(DL5)+(6+6*(MODE<>5))*WIDE+20:OLD=PEEK(PIX):PIX=PIX-SC:R=,}ETURN ›905 OPEN #4,4,0,"D:CHARDATA.DAT"›910 FOR I=0 TO 255:GET #4,N:C(I)=N:NEXT I›915 CLOSE #4:RETURN ›920 FOR I=0 TO 10:POKE=-} 53279,4:NEXT I:RETURN ›925 OPEN #1,4,0,"D:MENU.DAT":FOR I=4 TO 483:GET #1,N:POKE MENU+I,N:NEXT I:CLOSE #1›930 MENSH=MENU+160=.}*INT(SHIF/64):POKE DLMEN,INT(MENSH/256):POKE DLMEN-1,MENSH-256*PEEK(DLMEN):RETURN ›ENU+I,N:NEXT I:CLOSE #1›930 MENSH=MENU+160<S900 OPEN #1,8,0,"D1:DISPLAY.SUB"›910 FOR I=1 TO 186:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,173,49,2,133,206,1A0}33,213›1008 DATA 173,48,2,105,3,133,205,105›1016 DATA 109,133,212,162,0,161,205,41›1024 DATA 191,133,207,230,205,161,205,133›A1}1032 DATA 203,160,1,177,205,133,204,200›1040 DATA 177,212,240,34,201,2,208,16›1048 DATA 24,165,203,105,1,133,203,165›1056 DATA2}A 204,105,0,133,204,24,144,14›1064 DATA 56,165,203,233,1,133,203,165›1072 DATA 204,233,0,133,204,24,160,3›1080 DATA 177,212,2A3}40,42,201,2,208,19›1088 DATA 24,165,203,160,0,113,212,133›1096 DATA 203,200,165,204,113,212,133,204›1104 DATA 24,144,19,56,16A4}5,203,160,0›1112 DATA 241,212,133,203,165,204,200,241›1120 DATA 212,133,204,24,144,0,160,8›1128 DATA 165,207,201,5,240,2,160,A5}20›1136 DATA 162,0,165,203,129,205,230,205›1144 DATA 165,204,129,205,132,207,24,165›1152 DATA 203,160,0,113,212,133,203,165›1A6}160 DATA 204,200,113,212,133,204,230,205›1168 DATA 230,205,164,207,136,208,219,165›1176 DATA 203,129,205,230,205,165,204,129›A7}1184 DATA 205,96›113,212,133,204,230,205›1168 DATA 230,205,164,207,136,208,219,165›1176 DATA 203,129,205,230,205,165,204,129›@900 OPEN #1,8,0,"D1:EXPAND.SUB"›910 FOR I=1 TO 122:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,166,207,169,0,165,2E9}09,240›1008 DATA 29,160,255,177,203,145,205,136›1016 DATA 208,249,230,204,230,206,164,208›1024 DATA 177,203,145,205,136,208,2E:}49,198›1032 DATA 204,198,206,24,144,9,164,208›1040 DATA 177,203,145,205,136,208,249,202›1048 DATA 240,29,56,165,205,229,208,1E;}33›1056 DATA 205,165,206,229,209,133,206,56›1064 DATA 165,203,229,208,133,203,165,204›1072 DATA 229,209,133,204,24,144,182,16E<}5›1080 DATA 209,240,27,160,255,169,0,145›1088 DATA 203,136,208,251,230,206,230,204›1096 DATA 164,208,145,203,136,208,251,198›E=}1104 DATA 206,198,204,24,144,11,164,208›1112 DATA 240,7,169,0,145,203,136,208›1120 DATA 251,96›4,208,145,203,136,208,251,198›D_900 OPEN #1,8,0,"D1:DELETE.SUB"›910 FOR I=1 TO 122:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,166,207,169,0,165,2I?}09,240›1008 DATA 29,160,255,177,205,145,203,136›1016 DATA 208,249,230,204,230,206,164,208›1024 DATA 177,205,145,203,136,208,2I@}49,198›1032 DATA 204,198,206,24,144,9,164,208›1040 DATA 177,205,145,203,136,208,249,202›1048 DATA 240,29,24,165,205,101,208,1IA}33›1056 DATA 205,165,206,101,209,133,206,24›1064 DATA 165,203,101,208,133,203,165,204›1072 DATA 101,209,133,204,24,144,182,16IB}5›1080 DATA 209,240,27,160,255,169,0,145›1088 DATA 205,136,208,251,230,206,230,204›1096 DATA 164,208,145,205,136,208,251,198›IC}1104 DATA 206,198,204,24,144,11,164,208›1112 DATA 240,7,169,0,145,205,136,208›1120 DATA 251,96›4,208,145,205,136,208,251,198›H_900 OPEN #1,8,0,"D1:MENU.DAT"›910 FOR I=1 TO 482:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 0,0,91,0,17,0,18,0›1008 DME}ATA 19,0,20,0,21,0,22,0›1016 DATA 23,0,24,0,25,0,16,0›1024 DATA 28,0,30,0,126,0,0,0›1032 DATA 0,0,0,0,0,0,0,0›1040 DATA 0,0,0MF},127,0,113,0,119›1048 DATA 0,101,0,114,0,116,0,121›1056 DATA 0,117,0,105,0,111,0,112›1064 DATA 0,13,0,29,0,0,0,0›1072 DATA 0,MG}0,0,0,0,0,0,0›1080 DATA 0,0,0,0,0,0,97,0›1088 DATA 115,0,100,0,102,0,103,0›1096 DATA 104,0,106,0,107,0,108,0›1104 DATA 27,0,1MH}1,0,10,0,0,0›1112 DATA 0,0,0,0,0,0,0,0›1120 DATA 0,0,0,0,0,0,0,122›1128 DATA 0,120,0,99,0,118,0,98›1136 DATA 0,110,0,109,0,12MI},0,14›1144 DATA 0,15,0,0,0,0,0,0›1152 DATA 0,0,0,0,0,0,0,0›1160 DATA 0,0,0,0,1,0,2,0›1168 DATA 3,0,4,0,5,0,6,0›1176 DATA 7,0,MJ}32,0,8,0,9,0›1184 DATA 125,0,0,0,0,0,0,0›1192 DATA 0,0,0,0,0,0,0,0›1200 DATA 0,0,0,0,0,49,0,55›1208 DATA 0,37,0,50,0,52,0,57›MK}1216 DATA 0,53,0,41,0,47,0,48›1224 DATA 0,63,0,124,0,0,0,0›1232 DATA 0,0,0,0,0,0,0,0›1240 DATA 0,0,0,0,0,0,33,0›1248 DATA 51,ML}0,36,0,38,0,39,0›1256 DATA 40,0,42,0,43,0,44,0›1264 DATA 26,0,60,0,62,0,0,0›1272 DATA 0,0,0,0,0,0,0,0›1280 DATA 0,0,0,0,0,0,0MM},58›1288 DATA 0,56,0,35,0,54,0,34›1296 DATA 0,46,0,45,0,59,0,61›1304 DATA 0,31,0,0,0,0,0,0›1312 DATA 0,0,0,0,0,0,0,0›1320 DATMN}A 0,0,0,0,0,0,0,0›1328 DATA 0,0,0,0,0,0,0,0›1336 DATA 0,0,0,0,0,0,0,0›1344 DATA 0,0,0,0,0,0,0,0›1352 DATA 0,0,0,0,0,0,0,0›136MO}0 DATA 0,0,0,0,0,81,0,87›1368 DATA 0,69,0,82,0,84,0,89›1376 DATA 0,85,0,73,0,79,0,80›1384 DATA 0,92,0,93,0,0,0,0›1392 DATA 0,MP}0,0,0,0,0,0,0›1400 DATA 0,0,0,0,0,0,65,0›1408 DATA 83,0,68,0,70,0,71,0›1416 DATA 72,0,74,0,75,0,76,0›1424 DATA 123,0,94,0,95,MQ}0,0,0›1432 DATA 0,0,0,0,0,0,0,0›1440 DATA 0,0,0,0,0,0,0,90›1448 DATA 0,88,0,67,0,86,0,66›1456 DATA 0,78,0,77,0,64,0,96›1464 DMR}ATA 0,0,0,0,0,0,0,0›1472 DATA 0,0,0,0,0,0,0,0›1480 DATA 0,0›448 DATA 0,88,0,67,0,86,0,66›1456 DATA 0,78,0,77,0,64,0,96›1464 DL<900 OPEN #1,8,0,"D1:CHARDATA.DAT"›910 FOR I=1 TO 256:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 108,106,27,0,0,107,11QT},10›1008 DATA 111,0,112,117,0,105,13,29›1016 DATA 118,0,99,0,0,98,120,122›1024 DATA 20,0,19,22,91,21,18,17›1032 DATA 12,0,14,QU}110,0,109,15,0›1040 DATA 114,0,101,121,127,116,119,113›1048 DATA 25,0,16,23,126,24,28,30›1056 DATA 102,104,100,0,0,103,115,97QV}›1064 DATA 44,42,26,0,0,43,60,62›1072 DATA 47,0,48,53,0,41,63,124›1080 DATA 54,0,35,0,0,34,56,58›1088 DATA 4,0,3,6,0,5,2,1›10QW}96 DATA 59,0,61,46,0,45,11,0›1104 DATA 50,0,37,57,0,52,55,49›1112 DATA 8,0,9,7,0,32,125,0›1120 DATA 38,40,36,0,0,39,51,33›112QX}8 DATA 76,74,123,0,0,75,94,95›1136 DATA 79,0,80,85,0,73,92,93›1144 DATA 86,0,67,0,0,66,88,90›1152 DATA 0,0,0,0,0,0,0,0›1160 DQY}ATA 64,0,96,78,0,77,0,0›1168 DATA 82,0,69,89,0,84,87,81›1176 DATA 0,0,0,0,0,0,0,0›1184 DATA 70,72,68,0,0,71,83,65›1192 DATA 0QZ},0,0,0,0,0,0,0›1200 DATA 0,0,0,0,0,0,0,0›1208 DATA 0,0,0,0,0,0,0,0›1216 DATA 0,0,0,0,0,0,0,0›1224 DATA 0,0,0,0,0,0,0,0›1232 DQ[}ATA 0,0,0,0,0,0,0,0›1240 DATA 0,0,0,0,0,0,0,0›1248 DATA 0,0,0,0,0,0,0,0›DATA 0,0,0,0,0,0,0,0›1224 DATA 0,0,0,0,0,0,0,0›1232 DPH900 OPEN #1,8,0,"D1:CLEAR.SUB"›910 FOR I=1 TO 33:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,104,104,133,208,104,1U]}04,101›1008 DATA 208,133,209,169,0,133,207,160›1016 DATA 255,145,207,136,208,251,145,207›1024 DATA 230,208,165,208,197,209,20U^}8,235›1032 DATA 96›8,133,209,169,0,133,207,160›1016 DATA 255,145,207,136,208,251,145,207›1024 DATA 230,208,165,208,197,209,20T215 GOSUB 935:RETURN ›275 ON (4*T)+DI GOSUB 280,285,290,295,300,305,310,320:GOSUB 935:GOTO 265›780 POKE ICCOM+X,32:I=ADR(FL$)Y`}:POKE ICBADR+X+1,INT(I/256)›781 POKE ICBADR+X,I-256*PEEK(ICBADR+X+1):POKE ICBLEN+X,LEN(FL$):POKE ICBLEN+X+1,0›782 I=USR(ADR("Ya}hhhŞLVä"),X):RETURN ›920 FOR I=0 TO 120:POKE 53279,4:NEXT I:RETURN ›935 FOR I=0 TO 60:NEXT I:RETURN ›EN+X+1,0›782 I=USR(ADR("Xe5 CLR :DIM PPB(7),BPL(7),MXW(7),LPS(7),FL$(20):FL$="D1:SHIP.PIX":GOSUB 4000›4000 FOR I=0 TO 7:READ W,N,C,T:PPB(I)=W:BPL(I)=N:]c}MXW(I)=C:LPS(I)=T:NEXT I›4005 A=PEEK(106):TOP=A-36:SP=TOP+4:SC=SP*256:DL=256*TOP:POKE 106,TOP:GRAPHICS 0:PRINT "}"›4010 X=16:]d}ICCOM=834:ICBADR=836:ICBLEN=840:SCON=PEEK(559):K4=4096›4015 OPEN #1,4,0,FL$:GET #1,M:M8=M-8:GET #1,WIDE:GET #1,LLO:GET #1,LHI]e}:LINE=LLO+256*LHI:SZ=WIDE*LINE›4020 FOR I=708 TO 711:GET #I,N:POKE I,N:NEXT I:POKE I,N›4025 SC=SC+((LINE*WIDE)>K4)*(K4-INT(K4]f}/WIDE)*WIDE):SH=INT(SC/256):SL=SC-256*SH›4030 FOR I=0 TO 2:POKE DL+I,112:NEXT I:N=0›4035 FOR I=DL+3 TO DL+3*LPS(M8) STEP 3:C=]g}SC+N*WIDE:POKE I,64+M:T=INT(C/256)›4040 POKE I+2,T:POKE I+1,C-256*T:N=N+1:NEXT I›4045 POKE I,65:POKE I+1,0:POKE I+2,DL/256›40]q}Ä ˙€B+P099L1 LSTB /P107L1 LSTB;P107L2 LSTB CP114L1 LSTB OP114L2 PLTB7XP099L1 BASBP107L1 BASB žP107L2 BASB¨P114L1 BASBˇP130L1 LSTBşP130L2 LSTBŔP131L3 LSTBĹP131L4 LSTBĘP132L5 LSTBĐP132L6 LSTBYÖFONTBYTELSTB /P151L2 LSTB8P152L3 LSTB>P152L4 LSTBDP153L5 LSTB SP155L6 LSTB\P155L7 LSTB_P156L8 LSTB bP168L1 LSTBtP169L2 LSTB{P130L1 BASB€P130L2 BASB‡P131L3 BASBŽP131L4 BASB•P132L5 BASBœP132L6 BASBbŁFONTBYTEBASBP151L2 BASB P152L3 BASBP152L4 BASB P153L5 BASB&P155L6 BASB.P155L7 BASB1P156L8 BASB 5P168L1 BASB AP169L2 BASBKKP170L3 LSTB–P177L4 LSTB›P178L5 LSTBĄP178L6 LSTBşP181L7 LSTB źP181L8 LST50 POKE 560,0:POKE 561,DL/256›4055 POKE ICBADR+X+1,SH:POKE ICBADR+X,SL:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBLEN+X,0›4060 POK]r}E ICCOM+X,7:I=USR(ADR("hhhŞLVä"),X):CLOSE #1:RETURN ›4065 DATA 2,10,170,24,1,10,85,48,2,20,85,48,1,20,42,96›4070 DATA 1,20,21]s},192,2,40,42,96,2,40,40,192,1,40,40,192›E #1:RETURN ›4065 DATA 2,10,170,24,1,10,85,48,2,20,85,48,1,20,42,96›4070 DATA 1,20,21\(5 CLR :DIM GM(15),FL$(20):FL$="D1:G8.PIX":GOSUB 4000›6 FOR I=0 TO 30000:NEXT I›4000 FOR I=0 TO 15:READ N:GM(I)=N:NEXT I›4005 au}A=PEEK(106):TOP=A-36:SP=TOP+4:SC=SP*256:DL=256*TOP:POKE 106,TOP:GRAPHICS 0:PRINT "}"›4010 X=16:ICCOM=834:ICBADR=836:ICBLEN=84av}0:SCON=PEEK(559):K4=4096›4015 OPEN #1,4,0,FL$:GET #1,M:GET #1,WIDE:GET #1,LLO:GET #1,LHI:LINE=LLO+256*LHI:SZ=WIDE*LINE›4020 Faw}OR I=708 TO 711:GET #1,N:POKE I,N:NEXT I:POKE I,N›4025 SC=SC+((LINE*WIDE)>K4)*(K4-INT(K4/WIDE)*WIDE):SH=INT(SC/256):SL=SC-256ax}*SH›4030 GRAPHICS GM(M)+16:IF GM(M)=0 THEN ? "INVALID MODE":RETURN ›4035 DL=PEEK(560)+256*PEEK(561):DL4=DL+4:DL5=DL+5:POKE DLay}4,SL:POKE DL5,SH›4055 POKE ICBADR+X+1,SH:POKE ICBADR+X,SL:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBLEN+X,0›4060 POKE ICCOM+X,7:Iaz}=USR(ADR("hhhŞLVä"),X):CLOSE #1:RETURN ›4065 DATA 0,0,0,0,0,0,0,0,3,4,5,6,0,7,0,0›/256):POKE ICBLEN+X,0›4060 POKE ICCOM+X,7:I`R  EŐęÉÎCČWÄLÎSĂMÄ Slow load (character set)›dh/@e|}@D1:CHARACT.SETC€-A#P)@V‚Z €e@h$žSlow load (display file)›Če}}~/@@D1:DRAWING.SCR<)@†I)@ƒV)@„b†!@p6†-†&@~6ƒ-ƒ%AVÍe~}m€-AA$)@*€. €F€-ƒ$„&@S)@[…%€_ €j@m$€ D4:P130L1.e}BAS€-AA$)@*€. €F€-ƒ$„&@S)@[…%€_ €j@m$€ D4:P130L1.d$%1FŘICCOÍICBADŇICBLEÎMÄWÄLÎSÚÉÎSĐCHBAÓĂ i} Set up variables›d6€-@6-A4'6‚-A636ƒ-A@dSee text for meaningi‚} of variables SP and CHBAS›ZFast load (display file)›d~/@@D1:DRAWING.SCR<)@„I)@iƒ}…V)@†b„!@p6…-…%AV~6„-„&@n6 6‡-…$†ˆ-AA,)@‰2ˆ‰6 ˆxR‚%€%@i„}Š!‚%€Dƒ%€%@@%P:‡'AV,Rƒ%€‚5%€@'6ˆ-?:C:hhhŞLVä,<€,2@5$ži…}Fast load (character set)›Čq/@@D1:CHARACT.SET?‚%€%@‹M‚%€cƒ%€%@@i†}qƒ%€ŇA%€@'6Œ-?:C:hhhŞLVä,<€,2@>AV‹A$€ D4:P130L2.BAScƒ%€%@@hfiDĚSĂMODĹWIDĹÉÎÍĂDLHÉDLLĎ \\Lmˆ}ines 20 and 30 are just a demonstration. Change the value of SC and see what happens!›M%6€-F:@ˆ,%AV$F:@‰,+6m‰}-€76‚-@C6ƒ-@@M A_„-A „'6-36‚-@= AQ„-AU „_ mŠ}@ ZooThis ANTIC 2 or 4 display list can be horizontally scrolled. Just set the values of SC,DL,MODE, and WIDE.›dC„m‹}-@%€%„A) „56…-C6†-‚%@dny#„-€%@€%@r@+6‡-%…1„†J„%@P:‡mŒ}'AV,m„%@‡&AV$F:„%@,u6…-…%ƒy „xg„@e 6ˆ-P:€'AV,06‰-€&ˆ$AV>„%@‰L„%@m}ˆXAaˆdA`‰g$€ D4:P131L3.BASxg„@e 6ˆ-P:€'AV,06‰-€&ˆ$AV>„%@‰L„%@l8iDĚSĂMODĹWIDĹÉÎÍDLHÉDLLĎĂ \\Lq}ines 20 and 30 are just a demonstration. Change the value of SC and see what happens!›^%6€-F:@ˆ,%AV$F:@‰,<6q}-F:A,$AVH6‚-@T6ƒ-@@^ AS„-A „'6-1 AE„-AIq‘} „S @ ZjjThis ANTIC 5 display list can be horizontally scrolled. Just set the values of SC,DL,MODE, and WIDE.›dC„q’}-@%€%„A) „56…-C6†-‚%@dny#„-€%@€%@6@+6‰-%…1„†J„%@P:‰q“}'AV,m„%@‰&AV$F:„%@,u6…-…%ƒy „xg„@e 6‡-P:€'AV,06ˆ-€&‡$AV>„%@ˆL„%@q”}‡XAa‡dA`ˆg$€ D4:P131L4.BASxg„@e 6‡-P:€'AV,06ˆ-€&‡$AV>„%@ˆL„%@p8n9NDĚMODĹWIDĹSĂSĐDLľDL´ÉDLHÉDLLĎ u–}WWThe actual subroutine is lines 100-120. You set the value of DL,SC,MODE,and WIDE.›=%6€-F:@ˆ,%AV$F:@‰,16u—}-@=6‚-@@96ƒ-/6-@%@$+"@,9 A(_ @0*F:AS,@@@86ƒ-u˜}ƒ%A`I6„-P:ƒ'AV,O…„_†ƒ&AV$„2%‡-@0 ‡% @@ZooThis ANTIC 2 and 4 display list cau™}n be page flipped from BASIC. POKE the screen address into DL4 and DL5.›dE‡-@%€%‡A) ‡76†-€%@uš}E6…-€%@n_€%@@d%*…P:ƒ'AV,=†ƒ&AV$F:…,U‡-€%@€%@([‡_ ‡xg‡@eu›} 6ˆ-P:€'AV,06‰-€&ˆ$AV>‡%@‰L‡%@ˆXAaˆdA`‰g$€ D4:P132L5.BASxg‡@etnn-DĚMODĹWIDĹSĂSĐDLľDL´ÉDLHÉDLLĎ y}WWThe actual subroutine is lines 100-120. You set the value of DL,SC,MODE,and WIDE.›G%6€-F:@ˆ,%AV$F:@‰,16yž}-@=6‚-@@G A6ƒ-(_ @0*F:AS,@@@86ƒ-ƒ%A€I6„-P:ƒ'AV,O…„yŸ}_†ƒ&AV$„2%‡-@0 ‡% @@ZnnThis ANTIC 5 display list can be page flipped from BASIC. Just POKy }E the screen address into DL4 and DL5.›dE‡-@%€%‡A) ‡76†-€%@E6…-€%@n_€%@@yĄ}d%*…P:ƒ'AV,=†ƒ&AV$F:…,U‡-€%@€%@[‡_ ‡xg‡@e 6ˆ-P:€'AV,06‰-€&ˆ$AVy˘}>‡%@‰L‡%@ˆXAaˆdA`‰g$€ D4:P132L6.BASxg‡@e 6ˆ-P:€'AV,06‰-€&ˆ$AVxMâă s0Š0F¤FSAVE¤FLOAD¤FL¤FLL¤DELETE¤EXPAND¤CLEAR¤C¨ŘICCOÍICBADŇICBLEÎCOLąCOL˛COLłCOL´COLľSHIĆSCOÎMÄWÄLÎSÚÉÎSĂSĐWIDĹMODĹ}¤}LINĹPIŘLOWAÄHIADÄOLÄWLĎWHÉĂMÖÖČOPÔDÉÔĹUÄLŇWČWÖ×DL´DLľŐĚDĚDISPLAŮAÖVERÓIÖFLOAÄÁTOĐCHBAÓCČOLDCHBAÓMENŐDLMEÎFSAVĹMENSȀ€}Ľ}€€€€€€@ }Ś} }§}!"#$%&'()*+,-./}¨}0123456789:;<=>?}Š}@ABCDhh€;@ ,;@ ,‚;@ ,ƒ;@@,„;@ ,…;A$,†;A$,}Ş}‡;@3,ˆ9AU, = +6‰-@%6Š-A416‹-A6=6Œ-A@v6-A6Ž-A '6-A36}Ť}-A?6‘-AK6’-@dZ6“-F:AY,l@Av A@o @@ƒ-)@”:)}Ź}@•G)@–S”!@a6•-•%AVo6”-”&@* 6—-•$–˜-‘ )@™&˜™* ˜`6š-›$AV!‹%}­}‰%@›/‹%‰RŒ%‰%@@%P:—'AV,`Œ%‰#5Š%‰@'6˜-?:C:hhhŞLVä,<‰,2@}Ž}5$(d0@@D1:TEMPFILE.SCR66•-œ<6”-Hœ!AUV6•-œ&AVd6”-%@-F*@”*@}Ż}•**@ž2˜-‘B*@F:˜,F ˜2V‹%‰%@›!‹%‰HŒ%‰%@@%P:+ž$œ,'AV,VŒ%‰}°}75Š%‰@'6˜-?:C:hhhŞLVä,<‰,2@5$<++ž$œ&Ÿ, œ,$AX6 -š%œ$P:Ÿ'œ,&@"6Ą- %œ9A}ą}P:Ą'AV,XAĄ&F:A,$AVFAAP: 'AV,9A &F:A,$AVAš%Ÿ˘K2AP:}˛}+ž$œ&Ÿ,'œ,&AŁ2A ¤P6Ľ-?:C:…,,U6˘-F:š%Ÿ,š%Ÿ@‘$Z++ž$œ&Ÿ, œ,$_]6Ą-š%œ$+ž&@,&}ł}@'6 -Ą&œ>AP:Ą'AV,]AĄ&F:A,$AVdAAP: 'AV,9A &F:A,$AV}´}Aš%Ÿ˘i2AP:+ž$œ&Ÿ,'œ,&AŁ2A ¤n6Ľ-?:C:†,,s 6˘-š%Ÿ@‘ $x:6˘-F:š%Ÿ,š%Ÿ}ľ}@‘(AY“:@A}`6Ś-6§-'6¨-66Š-F:B2y,E6Ş-F:A2,T6Ť-F:AD,`6}ś}Ź-‚-Š"@ Ap# A`- A%‡#Ş @ AU# A%Œ8F:AS,"@" A .}ˇ}ŚAe8 A%‘EŠ"@A#Š"@- @@;š%Ÿ@‘E A%– A%›]K6§-œ$++Ş"@ )Ş}¸}"@)Ş"@,&+Ş"@)Ş"@)Ş"@,,]@w GG6¨-+Ş"@)Ş"@)Ş"@,&+Ş"@)Ş"@}š})Ş"@ ,ĽB6­-P:Ÿ'œ,6­&+§ , )­%+§!,"žB6§-Ş5 6Ž-Ÿ&œ$­)Ž%¨ )Ž%¨!œ&@5}ş}6¨-Ż!!¨"*§"A´36Ż-6°-36ą-F:˛,%AV$F:ł,&ššn6´-P:ą'œ,§n6°-}ť}+­&´&+§ , ,%@$+­&´%+§!,!@%@$+@,,žE¨6ľ-ą&´$œE6Ż-+Ž%¨&ľ ,%}ź}@$+Ž%¨&ľ!@9,Ă>Ż!)°!'ś%AŻ5ś%A°>6Ľ-?:ˇ,Č' š%Ÿ˘6Ÿ-Ÿ%¨%§'B2y@}˝}Í2Ť"@6˘-F:š%Ÿ,(š%Ÿ@‘2 AŇ š%Ÿ˘×$ܛ A…›+Ľ"A4,%+Ľ"A5,%+Ľ"AB,%+Ľ"AC}ž},%@$+Ľ"A,%@$+Ľ"A,%@$+Ľ"AF,AP@`@AEá1Ľ"AV'6¸-@$+}ż}¸",1 A ćD™"@`%6’-@%Ľ&@d7B2y@A A 0D$ë1™"@9'6š-A($+š"}Ŕ},1 A đ'6˘-ˆ8™%’,%šš%Ÿ˘$¸AE'$ő6Ľ-A5úN#6§-œ$++Ľ"AC,&+Ľ"AB,,?6¨-+Ľ"A5,&+Ľ"A4}Á},K6Ś-@N$˙ A š%Ÿ@‘$ A  |6Ş-F:A2,!6Ť-F:AD,;6Ş-Ş%@$+Ş"@,I6Ş}Â}-Ş&@X6Š-F:B2y,h6ş-+Š"@,|Š"@AU!!Ş @)Ş!@Ae]S+@$Ť,%ŞA€A}Ă}…AA•AAAA ] Ae.+‘F:‘,&@%AV$+F:‘, @,.$.+‘F:‘,%@}Ä}&AV$+F:‘,!AS,.$".+F:,&@%AV$+F:, @,.$'.+F:,%@&AV$+F:,!AS,.$,.}Ĺ}+ŽF:Ž,&@%AV$+F:Ž, @,.$1.+ŽF:Ž,%@&AV$+F:Ž,!AS,.$62ş/F:,&@%AV$+F:}Ć}, @,2$;.+F:,&@%AV$+F:, @,.$@2ş/F:,%@&AV$+F:,!AS,2$E.+F:,%@}Ç}&AV$+F:,!AS,.$JF 6„.ƒ˜-@B:ƒ,(6™-@:ƒ7˜<˜,,<™"@XAp@ ˜F6ƒ.„OF 6„.ƒ˜-@B:ƒ}Č},(6™-@:ƒ7˜<˜,,<™"@FAu@ ˜F6ƒ.„T)B:ƒ,!@)6ƒ.ƒ7@<@,YB:ƒ, @A^;6™-@:ƒ7}É}@<@,,;™!@)™ @eA…cB:ƒ, @ Aeh\˜-@B:ƒ,"6™-@:ƒ7˜<˜,,X+™!@)™ }Ę}@e,*+™!@W)™ @H,A€\ ˜m+ 6„.D1:6„7@,.ƒ(6™-+$r6„.ƒ7˜%@™"@A•J6™-@M$Ÿm A5*}Ď}@@ƒE(ƒ is already on disk.m(#Unless you change the name, the old¤m:(2file will be lost. To c}Đ}hange the namepress RETURNb(#Or press any other key to continue.m@ŠM F:AS,@A%* A…>™"}Ń}@A0J6™-M$Ž6™-@$ł@6™-$¸1( Ćďîôâůôĺň!($('(1 A }Ň}˝j APT(BWhat is the name of your character set? (Enter '@' for ROM set)fAdAUj€Â€4@Ae}Ó}Ç> 6ƒ.€ A0™AE%6€.„>6€7B:„,%@,..SETĚ 6ƒ.€ A•™AEŃk A@(U(@What file s}Ô}hould hold your finished screen? (Eight characters)gAdAUkÖ> 6ƒ. A0™Ae%6.„>67B:„,%@}Ő},..SCRŰ 6ƒ. A™AeŕU 6‚. (U(CWould you like to edit a screen you have already saved? (Y or }Ö}N) ĺ? A…!™"@5A55™"@CA? A…ęM(7(,What is the name of the saved screen file? I}×}AdAUM‚ď1 6ƒ.‚ A0'™"A1 A€ô" 6‚.„"6‚7B:„,%@,..SCRůz 6ƒ.‚ A•™}Ř}A€<@@‚I)@”V)@•c)@–n@z6ť-@ţ+”!@6”-”&@}Ů}+6•-•%AVb((‚ was saved as:+(Mode ”,@(with – linesb(of • characters per line.p;(3If }Ú}you wish to ăčáîçĺ these parameterspress RETURN.p(0To leave them őîăčáîçĺä press any other key. > F:AS,@}Ű}A%* A…>™"@A@ 6-”6œ-•6ž-– A…6ť-V(,(!What Antic mode will you work }Ü}in?D((Antic 2, 4, OR 5) VAdAU!5 A…5™@0*™@$*™@)AE&6-ˆ8™,&@+s(}Ý}(How wide a line?8( (Minimum 40 characterss( maximum Ap%Ap$+"@, characters)0JAdA}Ţ}U A`#œ,6œ-P:œ,Jœ @@)œ!ApA5z(Y(1How many lines do you want to edit? (Minimum @}ß}%@$+@,z( Maximum P:A@–'œ,): Apž?. 6ž-P:ž,ž!P:A@–'œ,.6ž-P:A@–'œ,DC#ž }ŕ}@%@$+"@,C6ž-@%@$+"@,IX (}(You have chosen:4(Character set--€F( Save file}á}--X( Load file--‚N@6—-ž$œ&@(Mode @(ž lines of œ charactersSKK(CIf this is right, press ÓÔÁŇÔ }â} To make changes, press ĎĐÔÉĎÎXSI+F:B2y,"@,%+@$+F:B2y,"@,,AA@S A]r6}ă}ź-F:A, 6˝-ź&@$&6ž-˝46ż-ž$AVB6›-˝%@P6š-›$AV\A˝h6Ŕ-A$r+b<<(4Just a mi}ä}nute while I get myself together . . .g/ €4@6ž-A$%6ż-ž$AV/ A0lb @@€0}ĺ}‹%‰%@ž>‹%‰TŒ%‰%@@bŒ%‰q2Š%‰@'6Ľ-?:C:hhhŞLVä,<‰,2@v]AY}ć} A@) AU3 A= A5IťAPS A %] A {AVž$€k-@@}ç} D1:CLEAR.SUBA˜-@@3N)@™\6‡7˜<˜,.>:™,` ˜k@…6Ľ-?:C:‡,<›<‰,$Š" 6Ť-—6ƒ.‚ @ }č}6—-Ť"$u6ś-AV$+˝%@,)6˛-ś%@76ł-ś%@K˜-@Yś%˜A] ˜i6Ÿ-u6™-}é}”h7˜-ś%@ś%@'%@6$+@,@A6Ľ-š%™$œO˜@d%h˜%@P:Ľ'AV,™8&˜%@Ľ}ę}&AV$F:˜%@,46™-™%@8 ˜žx6™-/6Á-AV$+˝%@,%@dQ6Â-ś%@2%@6$+@,gÂ&}ë}@%@dxÂP:Á'AV,Ł@Â&@Á&AV$F:Â,6˜-Â%@Â%@<˜@ ˜¨d˜@e#˜%@}ě}9˜%@ś'AVd@@ D:DISPLAY.SUB­R6ˇ-ś%A( A/˜-A†<)}í}@™Dˇ%˜™H ˜R A•˛'ˇ@6¤-P:œ'AV,$6Ł-œ&AV$¤2ś%AŁ@ś%A¤ź7A`)}î}Aaś'AV4@7$Á= š%Ÿ˘ @@!AVŔ++=AdAUĆd*("Screen is saved as D1:TEMP}ď}FILE.SCR-(S(!Do you want to save the screen asd( ? (Y or N)ËK A…+™@C*™@5A7™"@CA }đ}AeK A%Đ6Ă-Ő:(((Do you want to quit? (Y or N):AdAUÚS A…+™@C*™@5}ń}A0?™"@5A5S™"@CA`ßi(=(2To return to edit the same screen, press ĎĐÔÉĎÎ@(i($To start }ň}FONTBYTER over, press ÓÔÁŇÔäR6Š-F:B2y,H++Š"@,%+@$+Š"@,,,AEAPR A@é#Aź}ó}+# @îAA˝ A5/6ƒ.D1:TEMPFILE.SCR;Ă"@A6ƒ.ó! @  AU! A ř.A}ô}ź!AdAU++.ý•6Ă-@ Ap6@@A@f@6@}ő}‹@3@• Au@=6ƒ.D1:TEMPFILE.SCR,.6„.7@:™,j ˜t A /'4/@6¤-P:œ'AV,/6Ł-œ&AV}ů}$¤9t A07@@ D:EXPAND.SUBK˜-@A$X)@™f6†7˜<˜,.>:™,j ˜t A5>'}ú}C@$H: Ae:@6@D:*.SCRM<(((Currently saved screen files:26„.SCR}ű}< A`R: Ae:@5@D:*.SETW8(.(#Currently available character sets:86„.SET}ü}\i6ƒ.D1:*.#6ƒ7B:ƒ,%@,.„@@@ƒT˜-@Pa@„e(„i ˜a@$f}ý} A š%Ÿ˘ A•k‘Y6°-@$++Ş"@,%+Ş"@,%+Ş"@ ,,%+Ş"@,%+Ş"@,%+Ş"@,‘6Ż-@}ţ}$+Ş @*Ş!@,%+Ş @*Ş!@,p‚6ą-+F:˛,%AV$F:ł,,&š(6´-P:ą'œ,‚6°-°&+´"*°"@,&@$+}˙}+´%@%@$+@,"ž&@,*°"@,uM6ľ-ą&+´$œ,M6Ż-Ż&+ľ"*Ż"@,&@$++ľ%@@,"œ*Ż"@~},z(ś%AŻś%A°(6Ľ-?:ˇ,EF:B2y,@'6Ş-F:A2,;Ş@AuE A•„UA6Ÿ-F:˛,~}%AV$F:ł,%+@%@$+@,,$œ%@ J6˘-F:Ÿ,R6Ÿ-Ÿ&šU$‰//@@D:CHARDATA.DATŽ1~}˜-AU$)@™-6ˆ8˜,-™1 ˜“@$˜0˜-@)B2y@- ˜0$c+@~}@ D:MENU.DAT?˜-@AƒL)@™TÁ%˜™X ˜c@˘M6Ä-Á%A`$P:’'@d,/ÂP:Ä'A~}V,JÂ&@Ä&AV$F:Â,M$€D4:FONTBYTE.BAS™TÁ%˜™X ˜c@˘M6Ä-Á%A`$P:’'@d,/ÂP:Ä'A|;¤šÉ΄//@@D1:DISPLAY.SUBŽ>€-@A†"(*@, €7‚}@;(€>č""104,173,49,2,133,206,133,213›đ 173,48,2,105,3,133,205,105›ř""109,133,212,162,0,161,205,41›%%191‚},133,207,230,205,161,205,133›##203,160,1,177,205,133,204,200›!!177,212,240,34,201,2,208,16›""24,165,203,105,1,133,20‚}3,165› !!204,105,0,133,204,24,144,14›(""56,165,203,233,1,133,203,165›0 204,233,0,133,204,24,160,3›8!!177,212,240,42,‚ }201,2,208,19›@""24,165,203,160,0,113,212,133›H%%203,200,165,204,113,212,133,204›P 24,144,19,56,165,203,160,0›X%%241,‚ }212,133,203,165,204,200,241›` 212,133,204,24,144,0,160,8›h 165,207,201,5,240,2,160,20›p##162,0,165,203,129,205,230,20‚ }5›x$$165,204,129,205,132,207,24,165›€##203,160,0,113,212,133,203,165›ˆ%%204,200,113,212,133,204,230,205›%%230,205,16‚ }4,207,136,208,219,165›˜%%203,129,205,230,205,165,204,129›  205,96›€ D4:P151L2.BAS2,133,204,230,205›%%230,205,16€\ُÉ΄..@@ D1:EXPAND.SUBŽ>€-@A""(*@, €7†}@;(€>č##104,166,207,169,0,165,209,240›đ$$29,160,255,177,203,145,205,136›ř%%208,249,230,204,230,206,164,208›†}%%177,203,145,205,136,208,249,198›""204,198,206,24,144,9,164,208›%%177,203,145,205,136,208,249,202›##240,29,56,165†},205,229,208,133› $$205,165,206,229,209,133,206,56›(%%165,203,229,208,133,203,165,204›0$$229,209,133,204,24,144,182,165†}›8""209,240,27,160,255,169,0,145›@%%203,136,208,251,230,206,230,204›H%%164,208,145,203,136,208,251,198›P##206,198,204†},24,144,11,164,208›X!!240,7,169,0,145,203,136,208›` 251,96›€ D4:P152L3.BAS145,203,136,208,251,198›P##206,198,204„UُÉ΄..@@ D1:DELETE.SUBŽ>€-@A""(*@, €7Š}@;(€>č##104,166,207,169,0,165,209,240›đ$$29,160,255,177,205,145,203,136›ř%%208,249,230,204,230,206,164,208›Š}%%177,205,145,203,136,208,249,198›""204,198,206,24,144,9,164,208›%%177,205,145,203,136,208,249,202›##240,29,24,165Š},205,101,208,133› $$205,165,206,101,209,133,206,24›(%%165,203,101,208,133,203,165,204›0$$101,209,133,204,24,144,182,165Š}›8""209,240,27,160,255,169,0,145›@%%205,136,208,251,230,206,230,204›H%%164,208,145,205,136,208,251,198›P##206,198,204Š},24,144,11,164,208›X!!240,7,169,0,145,205,136,208›` 251,96›€ D4:P152L4.BAS145,205,136,208,251,198›P##206,198,204ˆUÉ΄,,@@ D1:MENU.DATŽ>€-@A‚"(*@, €7Ž}@;(€>č0,0,91,0,17,0,18,0›đ19,0,20,0,21,0,22,0›ř23,0,24,0,25,0,16,0›28,0,30,0,126,0,0,0›0,0,0,0Ž},0,0,0,0›0,0,0,127,0,113,0,119›0,101,0,114,0,116,0,121› 0,117,0,105,0,111,0,112›(0,13,0,29,0,0,0,0›00,0Ž},0,0,0,0,0,0›80,0,0,0,0,0,97,0›@115,0,100,0,102,0,103,0›H104,0,106,0,107,0,108,0›P27,0,11,0,10,0,0,0›X0,0Ž},0,0,0,0,0,0›`0,0,0,0,0,0,0,122›h0,120,0,99,0,118,0,98›p0,110,0,109,0,12,0,14›x0,15,0,0,0,0,0,0›€0,0,0,0,Ž}0,0,0,0›ˆ0,0,0,0,1,0,2,0›3,0,4,0,5,0,6,0›˜7,0,32,0,8,0,9,0› 125,0,0,0,0,0,0,0›¨0,0,0,0,0,0,0,0›°0,0,Ž}0,0,0,49,0,55›¸0,37,0,50,0,52,0,57›Ŕ0,53,0,41,0,47,0,48›Č0,63,0,124,0,0,0,0›Đ0,0,0,0,0,0,0,0›Ř0,0,0,0,0,0Ž },33,0›ŕ51,0,36,0,38,0,39,0›č40,0,42,0,43,0,44,0›đ26,0,60,0,62,0,0,0›ř0,0,0,0,0,0,0,0›0,0,0,0,0,0,0,58›Ž!}0,56,0,35,0,54,0,34›0,46,0,45,0,59,0,61›0,31,0,0,0,0,0,0› 0,0,0,0,0,0,0,0›(0,0,0,0,0,0,0,0›00,0,0,0,Ž"}0,0,0,0›80,0,0,0,0,0,0,0›@0,0,0,0,0,0,0,0›H0,0,0,0,0,0,0,0›P0,0,0,0,0,81,0,87›X0,69,0,82,0,84,0,89›`0Ž#},85,0,73,0,79,0,80›h0,92,0,93,0,0,0,0›p0,0,0,0,0,0,0,0›x0,0,0,0,0,0,65,0›€83,0,68,0,70,0,71,0›ˆ72,0,74,0,Ž$}75,0,76,0›123,0,94,0,95,0,0,0›˜0,0,0,0,0,0,0,0› 0,0,0,0,0,0,0,90›¨0,88,0,67,0,86,0,66›°0,78,0,77,0,64,0,Ž%}96›¸0,0,0,0,0,0,0,0›Ŕ0,0,0,0,0,0,0,0›Č 0,0›€ D4:P153L5.BAS90›¨0,88,0,67,0,86,0,66›°0,78,0,77,0,64,0,ŒKłČÉ΄00@@D1:CHARDATA.DATŽ>€-@AV"(*@, €’'}7@;(€>č108,106,27,0,0,107,11,10›đ111,0,112,117,0,105,13,29›ř118,0,99,0,0,98,120,122›20,0,19,22,9’(}1,21,18,17›12,0,14,110,0,109,15,0›##114,0,101,121,127,116,119,113›25,0,16,23,126,24,28,30›  102,104,100,0,0,1’)}03,115,97›(44,42,26,0,0,43,60,62›047,0,48,53,0,41,63,124›854,0,35,0,0,34,56,58›@4,0,3,6,0,5,2,1›H59,0,61,’*}46,0,45,11,0›P50,0,37,57,0,52,55,49›X8,0,9,7,0,32,125,0›`38,40,36,0,0,39,51,33›h76,74,123,0,0,75,94,95›p7’+}9,0,80,85,0,73,92,93›x86,0,67,0,0,66,88,90›€0,0,0,0,0,0,0,0›ˆ64,0,96,78,0,77,0,0›82,0,69,89,0,84,87,81›˜’,}0,0,0,0,0,0,0,0› 70,72,68,0,0,71,83,65›¨0,0,0,0,0,0,0,0›°0,0,0,0,0,0,0,0›¸0,0,0,0,0,0,0,0›Ŕ0,0,0,0,0,0,0,’-}0›Č0,0,0,0,0,0,0,0›Đ0,0,0,0,0,0,0,0›Ř0,0,0,0,0,0,0,0›ŕ0,0,0,0,0,0,0,0›€ D4:P155L6.BAS0,0,0,0,0,0,0,k-É΄--@@ D1:CLEAR.SUBŽ>€-@@3"(*@, €7–/}@;(€>č%%104,104,104,133,208,104,104,101›đ##208,133,209,169,0,133,207,160›ř%%255,145,207,136,208,251,145,207›–0}%%230,208,165,208,197,209,208,235›96›€ D4:P155L7.BAS209,169,0,133,207,160›ř%%255,145,207,136,208,251,145,207›”AZłČÔDÉICCOÍŘÉFL¤ICBADŇICBLEÎ€× A 5$gSš2}+@$€,%A€A…AA•AAAA ] A 5g Ae 5‚%ƒ@26„-C:…,5š3}†%ƒ%@P:„'AV, C"†%ƒ„&AV$F:†%ƒ%@,-‡%ƒB:…,C‡%ƒ%@6„-?:C:hhhŞLVä,<ƒ,$˜0š4}„-A )B2y@- „0$§„-@` „$€ D4:P156L8.BAS6„-?:C:hhhŞLVä,<ƒ,$˜0˜_QRB˘PPB¨BPL¨MXW¨LPS¨FL¤É×ÎĂÔÁTOĐSĐSĂDĚÍM¸WIDĹLLĎLHÉLINĹSÚK´SČSĚICBADŇŘICBLEÎICCOÍSCOÎ@@@@ž6}€ ž7}[?€9@,9@,‚9@ž8},ƒ9@,„;@ ,Q6„. D1:SHIP.PIX[ A@ I…-@!"†‡ˆ‰*6€8…,-†368…,-‡<6‚8…,-ˆE6ƒ8…,-‰I …ž9}Ľf6Š-F:A, 6‹-Š&@6.6Œ-‹%@<6-Œ$AVJ6Ž-AV$‹VA‹`+f }ŞN6š-@6œ-A4ž:}'6™-A636›-A@B6-F:AY,N6–-A@–Żz @@„-)@;6-&@H)@ž;}‘U)@’b)@“r6”-’%AV$“z6•-‘$”´.…-AA)…‡$…‡( ….…‡šA 6-%++”$‘,!–,$+–&P:–'‘ž<},$‘,16—-P:'AV,A6˜-&AV$—ž5…-@%Ž%…A) …56‡-ĂQ(…-Ž%@Ž%@$ƒ8,@ž=}26ˆ-%‡$‘@…@d%Q6‰-P:ˆ'AV,Č;…%@‰)…%@ˆ&AV$‰76‡-‡%@; …Í9…@e#…%ž>}@9…%@Ž'AVŇ)A`)AaŽ'AV×L™%š%@—™%š˜>›%š%@@ž?}%P:•'AV,L›%šÜ5œ%š@'6…-?:C:hhhŞLVä,<š,2@5$á222,10,170,24,1,10,85,48,2,20,85,48,1,2ž@}0,42,96›ć441,20,21,192,2,40,42,96,2,40,40,192,1,40,40,192›€ D4:P168L1.BAS$á222,10,170,24,1,10,85,48,2,20,85,48,1,2œQEFF[GM¨FL¤ÉÎÁTOĐSĐSĂDĚŘICCOÍICBADŇICBLEÎSCOÎK´LINĹWIDĹSČSĚÍDL´DLľSÚLLĎLHÉ@€˘B} ˘C}8€9@,;@ ,.6. D1:G8.PIX8 A@‚-B ‚ (‚-˘D}@"ƒ$6€8‚,-ƒ( ‚Ľf6„-F:A, 6…-„&@6.6†-…%@<6‡-†$AVJ6ˆ-AV$…VA…`+˘E}f }ŞN6‰-@6Š-A4'6‹-A636Œ-A@B6-F:AY,N6Ž-A@–Żl @@-)@˘F}“:)@G)@—T)@˜d6-—%AV$˜l6–-$´4‚-AA$)@ƒ*‚ƒ. ‚4‚ƒšA˘G} 6‡-‡%++$,!Ž,$+Ž&P:Ž',$,16‘-P:‡'AV,A6’-‡&AV$‘ž5+€8“,%@!€8“,"2( INVALID MODE5$ĂM%6ˆ-F:˘H}A`,%AV$F:Aa,36”-ˆ%@A6•-ˆ%@G”’M•‘×L‹%‰%@‘‹%‰’>Œ%‰%@@%P:–'AV˘I},LŒ%‰Ü5Š%‰@'6‚-?:C:hhhŞLVä,<‰,2@5$á%%0,0,0,0,0,0,0,0,3,4,5,6,0,7,0,0›€ D4:P169L2.˘J}BASLŒ%‰Ü5Š%‰@'6‚-?:C:hhhŞLVä,<‰,2@5$á%%0,0,0,0,0,0,0,0,3,4,5,6,0,7,0,0›€ D4:P169L2. 5 DIM FSAVE$(20),FLOAD$(20),FL$(40),FLL$(20),DELETE$(118),EXPAND$(102),N$(13),FILL$(230),CLEAR$(26)›10 DIM PPB(7),BPL(7),MXW(ŚL}7),LPS(7),COL(11),CL(3)›15 A=PEEK(106):TOP=A-40:SP=TOP+8:SC=SP*256:DL=256*TOP:SCROLL=DL+600:POKE 106,TOP›20 X=16:ICCOM=834:ICŚM}BADR=836:ICBLEN=840:GRAPHICS 0:SCON=PEEK(559):F=1670:K4=4096:N$="No equivalent"›25 C=707:FOR I=0 TO 7:IF I/2=INT(I/2) THEN C=ŚN}C+1:IF C=711 THEN C=712›30 COL(I)=C:NEXT I:CL(0)=0:CL(1)=85:CL(2)=170:CL(3)=255:FMS=ADR("hhhŞLVä")›35 RESTORE 770:FOR I=0 TO ŚO}7:READ W,N,C,T:PPB(I)=W:BPL(I)=N:MXW(I)=C:LPS(I)=T:NEXT I:POKE 16,112:GOTO 315›40 OPEN #1,4,0,FL$:GET #1,MD:GET #1,WD:GET #1,ŚP}LLO:GET #1,LHI:LN=LLO+256*LHI:SZ=WD*LN›45 FOR I=0 TO 6 STEP 2:GET #1,N:POKE COL(I),N:NEXT I›50 POKE ICBADR+X+1,SH:POKE ICBADRŚQ}+X,SL:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBLEN+X,0›55 POKE ICCOM+X,7:I=USR(FMS,X):CLOSE #1:RETURN ›60 OPEN #1,8,0,"D1:TEMPFIŚR}LE.PIX":PUT #1,M:PUT #1,WIDE:PUT #1,LLO:PUT #1,LHI›65 FOR I=0 TO 6 STEP 2:PUT #1,PEEK(COL(I)):NEXT I:POKE PEEK(1688)+256*PEEKŚS}(1689),PEEK(1690)›70 POKE ICBADR+X+1,SH:POKE ICBADR+X,SL:POKE ICBLEN+X+1,1+INT((LINE*WIDE)/256):POKE ICBLEN+X,0›75 POKE ICCOMŚT}+X,11:I=USR(FMS,X):CLOSE #1:RETURN ›80 IF ((LINE*WIDE-PIX)3 THEN 185›195 DI=4*T+DI:IF DI/2=IŚ^}NT(DI/2) THEN POKE COL(DI),PEEK(COL(DI))-2+256*(PEEK(COL(DI))<2):GOTO 185›200 POKE COL(DI),PEEK(COL(DI))+2-256*(PEEK(COL(DI))Ś_}>253):GOTO 185›205 FLL$=FL$:FOR I=1 TO LEN(FL$):N=ASC(FL$(I,I)):ON N=58 GOSUB 245:NEXT I:FL$=FLL$›210 FLL$=FL$:FOR I=1 TO LENŚ`}(FL$):N=ASC(FL$(I,I)):ON N=46 GOSUB 250:NEXT I:FL$=FLL$›215 IF LEN(FL$)>8 THEN FL$=FL$(1,8)›220 IF LEN(FL$)<1 THEN 265›225 N=Śa}ASC(FL$(1,1)):IF N>90 OR N<65 THEN 260›230 IF LEN(FL$)<2 THEN GOTO 240›235 FOR I=2 TO LEN(FL$):N=ASC(FL$(I,I)):ON (N>90 OR N<Śb}65) AND (N>57 OR N<48) GOTO 255:NEXT I›240 FLL$="D1:":FLL$(4)=FL$:N=0:RETURN ›245 FLL$=FL$(I+1,LEN(FL$)):RETURN ›250 FLL$=FL$Śc}(1,I-1):RETURN ›255 POP :? "}":? "Illegal characters in ";FL$:GOTO 265›260 ? "}":? FL$;" must start with a capital":? "letterŚd}.":GOTO 265›265 ? "Let's try that name again.":N=1:RETURN ›270 TRAP 275:OPEN #1,4,0,FL$:N=0:CLOSE #1:RETURN ›275 ? :? FL$;" iŚe}sn't on disk in":? "drive 1":? "Insert disk with ";FL$;"and":? "press RETURN.":CLOSE #1›280 ? "Or to try another file name, pŚf}ress anyother key."›285 ON PEEK(753)<>3 GOTO 285:GOSUB 635:ON N=12 GOTO 270:N=1:RETURN ›290 TRAP 310:OPEN #1,4,0,FL$:? FL$;" Śg}is already on disk.":? "Unless you change the name, the old"›295 ? "file will be lost. To change the namepress RETURN":? "OrŚh} press any other key to continue.":CLOSE #1›300 ON PEEK(753)<>3 GOTO 300:GOSUB 635:ON N=12 GOTO 305:N=0:RETURN ›305 N=I:RETURŚi}N ›310 CLOSE #1:N=0:RETURN ›315 ? "} Óăňĺĺîâůôĺň":? :? :? ›320 GOSUB 695:? :? "What file should hold your finishedŚj} screen? (Eight characters)":POKE 764,255:INPUT FSAVE$›325 FL$=FSAVE$:GOSUB 205:ON N GOTO 320:FSAVE$=FLL$:FSAVE$(LEN(FLL$)+Śk}1)=".PIX"›330 FL$=FSAVE$:GOSUB 290:ON N GOTO 320›335 FLOAD$="":? :? "Would you like to edit a screen you have already savedŚl}? (Y or N) "›340 GOSUB 635:ON N=35 GOTO 390:ON N=43 GOTO 345:GOTO 340›345 ? :? "What is the name of the saved screen file? ":Śm}POKE 764,255:INPUT FLOAD$›350 FL$=FLOAD$:GOSUB 205:ON N=0 GOTO 355:GOTO 335›355 FLOAD$=FLL$:FLOAD$(LEN(FLL$)+1)=".PIX"›360 FLŚn}$=FLOAD$:GOSUB 270:ON N GOTO 335:OPEN #1,4,0,FLOAD$:GET #1,MD:GET #1,WD:GET #1,LLO:GET #1,LHI›365 CLOSE #1:FLOAD=1:LN=LLO+256Śo}*LHI›370 ? :? FLOAD$;" was saved as:":? "Mode ";MD;",":? "with ";LN;" lines":? "of ";WD;" characters per line."›375 ? "If youŚp} wish to ăčáîçĺ these parameterspress RETURN.":? "To leave them őîăčáîçĺä press any other key."›380 ON PEEK(753)<>3 GOTO Śq}380:GOSUB 635:IF N=12 THEN 395›385 M=MD:M8=M-8:WIDE=WD:LINE=LN:GOTO 445›390 FLOAD=0›395 ? :? "What Antic made will you work iŚr}n?":? :? "Antic","Graphics":? 8,3:? 9,4:? "A (10)",5:? "B (11)",6›400 ? "C (12)",N$:? "D (13)",7:? "E (14)",N$:? "F (15)",8:PŚs}OKE 764,255›405 TRAP 405:OPEN #1,4,0,"K:":GET #1,N:CLOSE #1:ON N<56 OR (N>57 AND N<65) OR N>70 GOTO 405›410 M=N-48:M=M-7*(M>9Śt}):M8=M-8›415 ? :? "How wide a line?":? " (Minimum ";BPL(M8);" bytes":? " maximum ";MXW(M8);" bytes)"›420 POKE 764,255:TRAPŚu} 420:INPUT WIDE:WIDE=INT(WIDE):GOSUB 640:GOSUB 745›425 ? :? "How many lines do you want to edit?":? "(Minimum ";LPS(M8);", MaŚv}ximum ";MXL;")"›430 TRAP 430:INPUT LINE›435 LINE=INT(LINE):ON LINE<=MXL AND LINE>=LPS(M8) GOTO 440:LINE=MXL*(LINE>MXL)+LPS(M8Św})*(LINEK4)*(K4-INT(K4/WIDE)*WIDE):SH=INT(SC/256):SL=SC-256*SH›475 POKE 1670,WIDE-1:POKE 1674,Ś{}LLO-1+256*(LLO=0):POKE 1675,LHI-(LLO=255)›480 POKE 1678,BPL(M8)-1:POKE 1680,LPS(M8)-1:POKE 1692,CL(3):POKE 1693,PPB(M8):POKE Ś|}1698,LPS(M8):POKE 1699,WIDE›485 GOSUB 755:GOSUB 490:GOSUB 505:GOSUB 650:GOSUB 530:ON FLOAD GOSUB 500:GOTO 110›490 OPEN #1,4,0Ś}},"D1:CLEARS.SUB":FOR I=1 TO 26:GET #1,N:CLEAR$(I,I)=CHR$(N):NEXT I:CLOSE #1›495 C=USR(ADR(CLEAR$),SP):RETURN ›500 T=SZ:FL$=FLŚ~}OAD$:GOSUB 40:SZ=T:RETURN ›505 DL4=DL+4:DL5=DL+5:FOR I=0 TO 2:POKE DL+I,112:NEXT I:C=INT(SC/256):N=SC-C*256›510 FOR I=1686 TOŚ} 1688 STEP 2:POKE I,N:POKE I+1,C:NEXT I:N=0›515 FOR I=DL+3 TO DL+3*LPS(M8) STEP 3:C=SC+N*WIDE:POKE I,64+M:T=INT(C/256)›520 POŚ€}KE I+2,T:POKE I+1,C-256*T:N=N+1:NEXT I›525 POKE I,65:POKE I+1,0:POKE I+2,DL/256:RETURN ›530 OPEN #1,4,0,"D:SCROLL.SUB":N=INT(ځ}SCROLL/256):C=SCROLL-256*N›535 POKE ICBADR+X+1,N:POKE ICBADR+X,C:POKE ICBLEN+X+1,3:POKE ICBLEN+X,0›540 POKE ICCOM+X,7:I=USR(FŚ‚}MS,X):CLOSE #1›545 POKE 560,0:POKE 561,DL/256:CLOSE #1:RETURN ›550 POKE PEEK(1688)+256*PEEK(1689),PEEK(1690):GOSUB 60:GRAPHICڃ}S 0:POKE 764,255›555 ? "Screen is saved as D1:TEMPFILE.SCR":? :? "Do you want to save the screen as":? FSAVE$;"? (Y or N)"›56Ś„}0 GOSUB 635:ON N<>43 AND N<>35 GOTO 560:IF N=43 THEN GOSUB 610:GOTO 570›565 FSAVE=0›570 ? :? "Do you want to quit? (Y or N)":Ś…}POKE 764,255›575 GOSUB 635:ON N<>43 AND N<>35 GOTO 575:ON N=35 GOTO 580:ON N=43 GOTO 605›580 ? :? "To return to edit the sameچ} screen, press ĎĐÔÉĎÎ":? :? "To start SCREENBYTER over, press ÓÔÁŇÔ"›585 OPT=PEEK(53279):ON ((OPT=6)+(2*(OPT=3))) GOTO 590ڇ},595:GOTO 585›590 POKE 106,A:GRAPHICS 0:GOTO 20›595 POKE 106,TOP:FL$="D1:TEMPFILE.PIX":IF FSAVE=1 THEN FL$=FSAVE$›600 GOSUB 7ڈ}55:GOSUB 40:GOSUB 505:POKE 560,0:POKE 561,DL/256:GOTO 110›605 POKE 106,A:POKE 764,255:GRAPHICS 0:END ›610 FSAVE=1:TRAP 615:OPډ}EN #2,4,0,FSAVE$:CLOSE #2:XIO 36,#2,0,0,FSAVE$:XIO 33,#2,0,0,FSAVE$:GOTO 620›615 CLOSE #2›620 FL$="D1:TEMPFILE.PIX":FLL$=FSAVڊ}E$(4,LEN(FSAVE$)):FL$(17)=FLL$›625 XIO 32,#1,0,0,FL$:RETURN ›630 ON PEEK(753)<>3 GOTO 630:RETURN ›635 C=PEEK(764):N=C-64*INT(Ś‹}C/64):RETURN ›640 IF WIDE>=BPL(M8) AND WIDE<=MXW(M8) THEN RETURN ›645 WIDE=MXW(M8)*(WIDE>MXW(M8))+BPL(M8)*(WIDE0 THEN SHIF=3:POKE 1692,CL(SHIF)›730 RETURN ›735 N=(VERS=255):SOUND 0,20Ś’}0*N,14*N,4*N:RETURN ›740 FOR I=0 TO 10:NEXT I:RETURN ›745 IF BPL(M8)=MXW(M8) THEN MXL=LPS(M8):RETURN ›750 MXL=INT(K4/WIDE):REŚ“}TURN ›755 FOR I=1677 TO 1681 STEP 2:POKE I,0:NEXT I:FOR I=1686 TO 1688 STEP 2:POKE I,SL:POKE I+1,SH:NEXT I›760 N=128+64*(PPB(Ś”}M8)=2):POKE 1696,N:POKE 1701,N›765 POKE 1672,0:POKE 1676,0:VERS=0:GOSUB 735:POKE 1695,VERS:RETURN ›770 DATA 2,10,170,24,1,10,Ś•}85,48,2,20,85,48,1,20,42,96›775 DATA 1,20,21,192,2,40,42,96,2,40,40,192,1,40,40,192›5,VERS:RETURN ›770 DATA 2,10,170,24,1,10,¤T900 OPEN #1,8,0,"D1:EXPANDS.SUB"›910 FOR I=1 TO 102:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,56,165,205,237,163Ş—},6,133›1008 DATA 203,165,206,233,0,133,204,56›1016 DATA 173,138,6,237,140,6,133,207›1024 DATA 173,139,6,237,141,6,133,208›103ޘ}2 DATA 165,208,240,5,162,255,24,144›1040 DATA 2,166,207,172,163,6,177,203›1048 DATA 145,205,136,208,249,202,240,31›1056 DATA Ş™}56,165,205,237,163,6,133,205›1064 DATA 165,206,233,0,133,206,56,165›1072 DATA 203,237,163,6,133,203,165,204›1080 DATA 233,0,1Şš}33,204,24,144,212,165›1088 DATA 208,208,206,172,163,6,169,0›1096 DATA 145,203,136,208,251,96›33,203,165,204›1080 DATA 233,0,1¨]900 OPEN #1,8,0,"D1:DELETES.SUB"›910 FOR I=1 TO 118:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,56,173,152,6,237,1ޜ}36,6›1008 DATA 133,203,173,153,6,233,0,133›1016 DATA 204,24,165,203,109,163,6,133›1024 DATA 205,165,204,105,0,133,206,56›1032Ž} DATA 173,138,6,237,140,6,133,207›1040 DATA 173,139,6,237,141,6,133,208›1048 DATA 165,208,240,5,162,255,24,144›1056 DATA 2,16Žž}6,207,172,163,6,177,205›1064 DATA 145,203,136,208,249,202,240,31›1072 DATA 24,165,205,109,163,6,133,205›1080 DATA 165,206,105ޟ},0,133,206,24,165›1088 DATA 203,109,163,6,133,203,165,204›1096 DATA 105,0,133,204,24,144,212,165›1104 DATA 208,208,206,172,16Ž }3,6,169,0›1112 DATA 145,205,136,208,251,96›33,203,165,204›1096 DATA 105,0,133,204,24,144,212,165›1104 DATA 208,208,206,172,16Ź+900 OPEN #1,8,0,"D1:SCROLL.SUB"›910 FOR I=1 TO 650:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,104,104,141,161,6,1˛˘}73,152›1008 DATA 6,133,207,173,153,6,133,208›1016 DATA 160,0,140,158,6,173,154,6›1024 DATA 145,207,173,161,6,41,8,240›1032 DA˛Ł}TA 92,173,161,6,41,4,208,71›1040 DATA 172,157,6,173,160,6,42,176›1048 DATA 8,136,208,250,141,160,6,240›1056 DATA 54,42,136,20˛¤}8,252,141,148,6›1064 DATA 173,136,6,208,2,240,40,173›1072 DATA 148,6,141,160,6,56,173,136›1080 DATA 6,233,1,141,136,6,56,173›˛Ľ}1088 DATA 152,6,233,1,141,152,6,173›1096 DATA 153,6,233,0,141,153,6,173›1104 DATA 143,6,240,6,206,143,6,24›1112 DATA 144,99,1˛Ś}73,158,6,9,8,141›1120 DATA 158,6,24,144,88,172,157,6›1128 DATA 173,160,6,106,176,8,136,208›1136 DATA 250,141,160,6,240,71,106˛§},136›1144 DATA 208,252,141,148,6,173,136,6›1152 DATA 205,134,6,208,2,240,54,173›1160 DATA 148,6,141,160,6,24,173,136›1168 DAT˛¨}A 6,105,1,141,136,6,24,173›1176 DATA 152,6,105,1,141,152,6,173›1184 DATA 153,6,105,0,141,153,6,173›1192 DATA 143,6,205,142,6,˛Š}240,6,238›1200 DATA 143,6,24,144,8,173,158,6›1208 DATA 9,4,141,158,6,173,161,6›1216 DATA 41,1,240,83,173,161,6,41›1224 DATA 2˛Ş},208,62,173,140,6,205,138›1232 DATA 6,208,8,173,141,6,205,139›1240 DATA 6,240,124,24,173,140,6,105›1248 DATA 1,141,140,6,173,˛Ť}141,6,105›1256 DATA 0,141,141,6,24,173,152,6›1264 DATA 109,163,6,141,152,6,173,153›1272 DATA 6,105,0,141,153,6,173,145›1280 D˛Ź}ATA 6,205,144,6,240,6,238,145›1288 DATA 6,24,144,75,173,158,6,9›1296 DATA 1,141,158,6,24,144,64,173›1304 DATA 140,6,208,5,173˛­},141,6,240›1312 DATA 54,56,173,140,6,233,1,141›1320 DATA 140,6,173,141,6,233,0,141›1328 DATA 141,6,56,173,152,6,237,163›1336 ˛Ž}DATA 6,141,152,6,173,153,6,233›1344 DATA 0,141,153,6,173,145,6,240›1352 DATA 6,206,145,6,24,144,8,175›1360 DATA 158,6,9,2,141˛Ż},158,6,173›1368 DATA 152,6,133,207,173,153,6,133›1376 DATA 208,173,132,2,240,36,160,0›1384 DATA 177,207,141,154,6,73,255,45›1˛°}392 DATA 160,6,141,155,6,173,160,6›1400 DATA 73,255,45,154,6,13,6›1408 DATA 141,155,6,173,158,6,240,40›1416 DATA 208,41,160,0˛ą},177,207,141,155›1424 DATA 6,173,156,6,45,160,6,141›1432 DATA 161,6,173,160,6,73,255,45›1440 DATA 155,6,141,155,6,13,161,6›14˛˛}48 DATA 141,154,6,173,158,6,208,3›1456 DATA 24,144,98,41,8,240,17,56›1464 DATA 173,150,6,233,1,141,150,6›1472 DATA 173,151,6,˛ł}233,0,141,151,6›1480 DATA 173,158,6,41,4,240,17,24›1488 DATA 173,150,6,105,1,141,150,6›1496 DATA 173,151,6,105,0,141,151,6›15˛´}04 DATA 173,158,6,41,1,240,18,24›1512 DATA 173,150,6,109,163,6,141,150›1520 DATA 6,173,151,6,105,0,141,151›1528 DATA 6,173,15˛ľ}8,6,41,2,240,24›1536 DATA 56,173,150,6,237,163,6,141›1544 DATA 150,6,173,151,6,233,0,141›1552 DATA 151,6,24,144,3,24,144,67›1˛ś}560 DATA 173,150,6,133,203,173,151,6›1568 DATA 133,204,24,173,48,2,105,4›1576 DATA 133,205,173,49,2,133,206,174›1584 DATA 162˛ˇ},6,160,0,165,203,145,205›1592 DATA 200,165,204,145,205,24,165,205›1600 DATA 105,3,133,205,165,206,105,0›1608 DATA 133,206,24,˛¸}165,203,109,163,6›1616 DATA 133,203,165,204,105,0,133,204›1624 DATA 202,208,215,173,155,6,160,0›1632 DATA 145,207,173,159,6,2˛š}01,255,208›1640 DATA 8,173,132,2,208,3,32,166›1648 DATA 6,96›4 DATA 202,208,215,173,155,6,160,0›1632 DATA 145,207,173,159,6,2°=900 OPEN #1,8,0,"D1:CLEARS.SUB"›910 FOR I=1 TO 26:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,104,104,133,208,162,śť}32,169›1008 DATA 0,133,207,160,255,145,207,136›1016 DATA 208,251,145,207,230,208,202,208›1024 DATA 238,96›04,104,133,208,162,´j900 OPEN #1,8,0,"D1:FILL.SUB"›910 FOR I=1 TO 230:READ N:PUT #1,N:NEXT I:CLOSE #1:? I;END›1000 DATA 173,136,6,141,135,6,173,15ş˝}4›1008 DATA 6,141,146,6,165,207,133,203›1016 DATA 165,208,133,204,162,0,173,160›1024 DATA 6,141,148,6,172,157,6,78›1032 DATA şž}148,6,176,52,136,208,248,173›1040 DATA 146,6,45,148,6,141,149,6›1048 DATA 173,156,6,45,148,6,205,149›1056 DATA 6,240,20,141,1şż}49,6,173,148›1064 DATA 6,73,255,45,146,6,13,149›1072 DATA 6,141,146,6,24,144,205,173›1080 DATA 146,6,129,207,141,154,6,96›108şŔ}8 DATA 173,135,6,205,134,6,240,247›1096 DATA 238,135,6,24,165,203,105,1›1104 DATA 133,203,165,204,105,0,133,204›1112 DATA 161şÁ},203,141,148,6,173,165,6›1120 DATA 141,164,6,173,164,6,45,148›1128 DATA 6,141,149,6,173,164,6,45›1136 DATA 156,6,205,149,6,24şÂ}0,13,172›1144 DATA 157,6,78,164,6,176,193,136›1152 DATA 208,248,240,223,172,157,6,14›1160 DATA 164,6,176,29,136,208,248,173›1şĂ}168 DATA 164,6,45,156,6,141,149,6›1176 DATA 173,164,6,73,255,45,148,6›1184 DATA 13,149,6,141,148,6,24,144›1192 DATA 219,162,0şÄ},173,148,6,129,203›1200 DATA 173,146,6,129,207,141,154,6›1208 DATA 56,173,135,6,237,136,6,240›1216 DATA 12,168,136,240,8,173,şĹ}156,6›1224 DATA 145,207,136,208,251,96›129,207,141,154,6›1208 DATA 56,173,135,6,237,136,6,240›1216 DATA 12,168,136,240,8,173,¸'