@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr }}`?? ?=}p0?@ }s?8~?g}|~???@?  l M  LO Ri)Llk2'")*FINNNNNNNN1N2N4RCOERN15DMCRN25N25N12LIN3OPCODELNNBTDFNFTABCSAADKOFBUNBOTOOP }HERSOCOUNBFILSALSAHFILMLDAPLINECOUNLINFEEN5S@@@@@@ }@@% @@ @ @ A AUAYARAVAUA(BU5@4 A  }A   - (UXh @H!A"@#@$A%B'&@ }'A(A6)*%+@,-.A`/Av0@12345}6789:;<g (}g70717,720..the string indexing that makes it all work is b}y Richard Mansfield (thank you!!) {6-6-@#6-%+6-%36-%;6-%C6-%K6-$S6-$[6-$}g6-@o6-%{6-A[6-AU6-AY'6-AR36-AV;6-&C6-'O6-BU5[6-@4}D:;$,9,9,;,;,;$,;$,;$,;,D6.#<;$,;,(6.Starting Address66.767$%<$%8,,."68,-& -(>6. <}BB6-?:C:(hhhhh>,`,(L"A@6H;6-$+"@:C,,%$+"@:N,,%$+"@:P},,%$+"@:E,,H(A@''A@A0AA0J* A0((New  * A@ha 6- AP}6-A`@( Binary File Data FileG)O6-&a )!A`r!("(Binary !6-| "}(Data ; ( Filename +B:, @16-; A+%6-$++7<,4:,)+7<,4:,,+!(6.}D1:67,.!6.6(} to load !)&(+6/"(My Own Space: -%(/ A# } A AP#6-" )6-%" Ap3 6- AP)!)3"*"A@ 6-% }$))%6-%$@(LOAD  to ? " )(>:,"@:Y,"6-# -)(#!!}   A&! F:,A6! +(A00# A`((# A0:> Ap&(}F"}IRST DATA LINE # *> AAApD# " AN A#6-X" 6-% AbF:#},% l A0vZ( }Type It In A#6-&(G(999 BACKS UP 5, MINUS # ENDSQ AWZ( (->$}   ApC"A (*****!96-&$+%,&+&,$+ %,C A@ 6-% A@ %} A0DF:,")F:,"$( 06-A : AD AP I  &(*(Use a string? (Y/N)&}1)6(I@:Y,A0I(( DIM ML$  ;,+67,.467,.=67,.F6-C:,I$''(BASIC PROGRAM'} occupies - A@("$# *(٠͡# A.  $(ϠӠϠŠϡ. A(} 0!B `&(ΧԠĠϠ͡0 A$ '*S(&(ERROR F:, AT THIS LINE@F:A,%F:A)},$FI(S @>= 6- (1(epeat enu ource File uit8)=(HH;6-$+"@:R,,%$+"@:M,,%$+"@:*}S,,%$+"@:Q,,H(A0R''A0@pA A`\  W AP6-A 6-%6-1(}+}WRITE:4(W( SOURCE file .BYTE file$ )6-&$ )!A ("(Source  "(.BYT,}E 6- ( Filename G4P)4P:6.P:(3(Lines per page 7=6-G A p"B:, @-}6-" A e%%6-$++7<,4:,)+7<,4:,,!(6.D1:67,.!6.( (Ending ).} #)6. (}6-6-6- ((A0& 6-(.BYTE F:,& A /} 6-F:,6-8,6.7$%<$%8,,11%A`AAAA$" 6-6-F:%,!"60}-&.( %% A 8#(.BYTE 6-# A B ( A L+6-F:%,6.=:,! A+ 1}A V&6.=:+F:%,%$F:%,,,& A` 6-%*+,6-j:2- '2.)46-2}:6-t! 6-%6-% !6-&~ !6-G %@4(=(Source file written to G A03} A16.7<,(7<,)4()4#1((7%+8,!,,$ A`6-A9 (4}&6-F:@,%F:@,$+9P:* -&-@9*6-F:%$%,/"(>:%@2$+ @,5},& +(/ &( ( & A7F:,"Ap#( not found&()(3 AP7 M (6},F:,"A8)F:,"AD?( Disconnected!I APM * F:,"( Input error& AP*   EEBRK,1,ORA 7}(>X),2,?,0,?,0,?,0,ORA ,2,ASL ,2,?,0,PHP,1,ORA # ,2CCASL A,1,?,0,?,0,ORA ,3,ASL ,3,?,0,BPL,-1,ORA ()>Y,2,?,0,?,0GG8}?,0,ORA >X,2,ASL >X,2,?,0,CLC,1,ORA >Y,3,?,0,?,0,?,0,ORA >X,3(JJASL >X,3,?,0,JSR ,3,AND (>X),2,?,0,?,0,BIT ,2,AND 9} ,2,ROL ,2,?,02NNPLP,1,AND # ,2,ROL A,1,?,0,BIT ,3,AND ,3,ROL ,3,?,0,BMI,-1,AND ()>Y,2<CC?,0,?,0,?,0,AND >X,2,ROL :} >X,2,?,0,SEC,1,AND >Y,3,CLI,1,?,0FFF?,0,AND >X,3,ROL >X,3,?,0,RTI,1,EOR (>X),2,?,0,?,0,?,0,EOR ,2PHHLSR ,2,?,0,PH;}A,1,EOR # ,2,LSR A,1,?,0,JMP ,3,EOR ,3,LSR ,3,?,0ZKKBVC,-1,EOR ()>Y,2,?,0,?,0,?,0,EOR >X,2,LSR >X,2,?,0,CLI,1,EOR >Y<},3dBB?,0,?,0,?,0,EOR >X,3,LSR >X,3,?,0,RTS,1,ADC (>X),2,?,0,?,0nII?,0,ADC ,2,ROR ,2,?,0,PLA,1,ADC # ,2,ROR A,1,?,0,=}JMP (),3,ADC ,3xGGROR ,3,?,0,BVS,-1,ADC ()>Y,2,?,0,?,0,?,0,ADC >X,2,ROR >X,2,?,0HHSEI,1,ADC >Y,3,?,0,?,0,?,0,ADC >} >X,3,ROR >X,3,?,0,?,0,STA (>X),2==?,0,?,0,STY ,2,STA ,2,STX ,2,?,0,DEY,1,?,0,TXA,1,?,0OOSTY ,3,STA ,3,STX ,3,?}?,0,BCC,-1,STA ()>Y,2,?,0,?,0,STY >X,2,STA >X,2CCSTX >Y,2,?,0,TYA,1,STA >Y,3,TXS,1,?,0,?,0,STA >X,3,?,0,?,0QQLDY@} # ,2,LDA (>X),2,LDX # ,2,?,0,LDY ,2,LDA ,2,LDX ,2,?,0,TAY,1,LDA # ,2EETAX,1,?,0,LDY ,3,LDA ,3,LDX ,3,?,0,BCS,-1,LDA}A ()>Y,2,?,0,?,0UULDY >X,2,LDA >X,2,LDX >Y,2,?,0,CLV,1,LDA >Y,3,TSX,1,?,0,LDY >X,3,LDA >X,3KKLDX >Y,3,?,0,CPY B}# ,2,CMP (>X),2,?,0,?,0,CPY ,2,CMP ,2,DEC ,2,?,0LLINY,1,CMP # ,2,DEX,1,?,0,CPY ,3,CMP ,3,DEC ,3,?,0,BNE,-1,CMP ()>YC},2AA?,0,?,0,?,0,CMP >X,2,DEC >X,2,?,0,CLD,1,CMP >Y,3,?,0,?,0MM?,0,CMP >X,3,DEC >X,3,?,0,CPX # ,2,SBC (>X),2,?,0,D}?,0,CPX ,2,SBC ,2FFINC ,2,?,0,INX,1,SBC # ,2,NOP,1,?,0,CPX ,3,SBC ,3,INC ,3,?,0KKBEQ,-1,SBC ()>Y,2,?,0,?,0,?,0,E}SBC >X,2,INC >X,2,?,0,SED,1,SBC >Y,3))?,0,?,0,?,0,SBC >X,3,INC >X,3,?,0 D:DISASM.BAS0,0La- B V,#PewvhwxxwwwxxwwxwwwxwfvxwwxwwwxzwwG}wɈxvvxxwxxʪwwwwxgx͸wwxxH}wwxgܩwwxwwCTg˘vwxwwDUwwwwI}#Ut"4B"XwwxxwxsEgAIww42!3FeYwwxxxxx#DBEJ}Cݪgwwx!2&t2wgxxxxb3$S63yxx!"""32FuK}2+x"3#C4WwTD(!#""#EX!2w#333FfC#BL}r2"#Dei""!B"3#DDw̧332z""2"JC""k̺M}23#3C̆33J3"22#B&szC3*̪#"3C43VXxS3FN}"43"B"jR4B3!˺R#2DC33D18t#2#0C"3#C"B#"#C#"!뺪O}2323b4C#C4wD31̪DB32""#""":s""ʚ2C3C33""C"Hi33:˺ʪP}#C"""""#25Sd22\˺"4333"223TC"˺˫ʪC4##""3##32xe32˻##Q}S33C"2"#DG"#2̺˻ʺ34C""2"2"##IS"",̻˪"33333C"234gd32&˺˻ʪ2#""33sR}####ET2"'˪̻R"#3332TB32$EF32!̻ʺb23###"#S33#%E3"!{̻̺ʻ22#333332D#5DS}3431K̻˺C3333#232#34CB"3B;˻̻B""3433##22$DC#22 ̻̻2#2323#233C#E3222 T}˻˻̺̭2"33333423#4V3332 ̻˻˫3333"3233#33DC32C+˻ʺ2333333333C35C3""+̻U}˪˻#C334#332#335C""":˻ͻ˺2"3333333CD3UC33"+̻˻ʫ˺32334333443tD33"#*˻V}ͻ̺2#33333333DTTD32"#̻˻˻#C3C4C3333D34C33#$˻ͺ˷333333CCC4DDE433" ̼˻ͪW}ۺ333334D4D44CT433#0˻̻̻333343D4DC4DT333" ݻ̻˺̺#CD3CDUfTDDDDD23#˻˻ͻX}3333DWfeE45333#"̻˻̻334CDkˇfUDD3333$˼˼ͻ̼"333E˦UTCD33322̼˻ͪݻ3CCY}4H̸eDCD33234̼̻ݻ2334ZܹfTDC333""ݻ˻κ˺ݼ3C44ʖUD3C323#˻ͺ̵ܻ3235Z}ʗUTC33322˼˼˻ۻC3DTeTD4C324̻̻323DUeD3333ܻ̼̼˽˻˻3CDHw[}dD525̻̻ݻݴ#33ZʆEvC4˼˻˻˻̂3DD^ܼxS6̼̻̪ʼS3C4|۪̽B%\}ܻ̼ͫ˻d44Cܼ37˻̺ܻ˕33C̽C*˻̼ͫͻʷ44C̘3J]}̼̻ͺۻȧD43ʇ3+̼̼ͻ˻˻٨3EDuI3;̻̻ͺ˼عD4F̶fT3-̻̼^}ͻ̼ۻtDH켇K2̼̻̼˻˻ʫC8̋Gܺ2̼̼̾ۻ˻˫D9ܽD3,̼̼˽_}˻˚3Jͼeʫ2˾ۻ˪dD:͖z3̼̻˽˼ʪS3JݧyweK3̼˻`}˺TDLCVFkDJ3̼˼ݻTD;EMej3Y1ܼ˹TC]ؘohT[v1̻ͻ˻˨dDka}˜I1λ۹TDȹtl1̻ͻD3t61λ̻DDb}BkAλ̼DCܼd61λܻ4C̪뻩s5̻34{c}̔8DDۻ9̻˼ڵ43ڬmJܾ̼3D˝;d}̼ܥDD[ݛ:ܼݥ4Dl;˼wDE;˽;e}ܾ·DD=;۾ED;;ͺwE=;f}λƧD::ݶD;Hλ܇xT:Fg}݉wTK7zxTJR̽DY6h}ݖUY%̽Eh޼(ݑTF9êTTi}*ݳLeD:ݾ[tV;ݳLDj}<ݿ[EMjUǝݾynjk}ŭ{ښέӋwݓl}syܼξ˜m}czmcξ^3jʍn}EzٮDI߬׹E9ψo}D8ڽU8ܬVH{ݭp}fG{oܫήefFz^޽wvVzVveyq}fcw}ffcxwsur}hwtzu˫柳zu˻ޖwivs}IfzɾwxIv:ھxHuIt}xHuHGWyWVu}يVT̼vTfev}uTxgUH혉wwUHw}욚xweWۈTEۈeT}ˈx}dCm˚eUkDJʩy}uUH˪eTF̹fUDݭwDDkz}콹ۆUDZۧDD7̗eTTi{}̨eTDDgݹveTDEW~veDDDh|}۩ڇveUfۗܘvUEw혈ۙff}}wܺwfw˩ˏevxʻ~}=fx̻,fwxܻʻ̚gww~ܚ8}fgw}۪AZwwx{ܽ۹xVFgwʹYeRx}xݾi׊b6wxݭɿD{yȌB(ȇxh}޻3xyΪ׍Ȋ1kxhƝlwt&y}~ݖAMښhɽ}|ϙvvگhݪǭghQ^h~}譸Zxhs6zy2y@2( HIT TO GO ON& F:B2y,@AP7b SNUAMESAA@@A6AU A  $$: *** }ΠŠҠ ***BB: "D:AUTOMAKE.R" (2. (}@@ }.@@8<U +A @1A@4CA@8UAR@F]-@@ }0(B-@@](ΠŠҠP0-@@0(Z }S-@@S(9ź Disk does not need DOS or DUP. d104,32,83,228,96n-A6A@ }x"  Y-@@ 2(INSERT DISK TO WRITE TO:D-@@Y(: Πq-@@ }/(A-@@q(+START ==> | | /-@@/( }p-@@/(A-@@p(* END ==> | | } 2-@@/(2(;@.@@K:;)@+-@ }@+(Ǡ...-AdAd%A("  6-@ A-AdAd }%A("  6-@ A-AdAd%A("  6-@ A }"T-@@'( Ҡ...;-@A ? QART,HAyP:'AV,HAxP:+' }AV&P:'AV,,$AV,6Ai@@'ArA('As@JAp@T6-?:A6 },$^@@0,3,0,7,8,7,24,96,169,0,141,68,2,168,153,128,8,136,208,250hBB200,132,9,140,1,3,206,6,3,169,88,141,48,2,169,8, }141,49,2,169rJJ105,133,24,234,234,234,234,234,165,24,141,10,3,169,1,141,11,3,230,24|CC32,13,8,185,0,10,240,71,48,59,166 },71,185,3,10,149,90,185,4,10KK149,110,138,24,105,145,166,72,157,128,8,169,11,133,73,185,5,10,56,233LL32,157,130,8,200 },232,198,73,208,241,152,56,233,11,168,138,24,105,9,133JJ72,230,71,165,71,201,9,240,0,10,152,24,105,16,168,10,144,182,176, }165KK198,66,133,20,197,20,240,252,32,79,8,56,233,49,197,71,176,246,170,222DD96,8,181,90,141,10,3,181,110,141,11,3,32, }33,8,202,32,252,7,133GG67,32,252,7,133,68,37,67,201,255,240,240,32,252,7,133,69,32,252,7II133,70,32,252,7,145,67,230, }67,208,2,230,68,165,69,197,67,165,70,229II68,176,235,173,226,2,13,227,2,240,201,134,25,198,66,32,249,7,166,25II160,0, }140,226,2,140,227,2,240,182,108,226,2,224,125,208,74,0,173,10CC3,13,11,3,208,25,198,66,108,224,2,169,49,141,0,3,169,82,14 }1,2BB3,169,10,141,5,3,169,128,141,8,3,169,64,141,3,3,32,89,228,48HH246,230,66,173,125,10,41,3,141,11,3,173,126,10,141 },10,3,141,23,208HH173,127,10,41,127,141,253,7,160,0,162,0,189,0,10,232,96,173,37,228BB72,173,36,228,72,96,112,112,112 },71,108,8,112,112,7,7,7,7,7,7AA7,7,7,65,88,8,0,0,0,97,116,97,114,105,0,112,114,111,103,11497,109,115,0,0,0,0& } D:AUTOMAKE.R 32200 RETURN' A! A A! AII(@832029 REM SPIRAL DISSOLVE FOR 0 REM SWITCHBOX by TODD HEIMARCK..COMPUTE!3/86..translated by Kevin Mykytyn..modified by don lebow100 BALL=84:GOTO 6900:REM }subs up front200 POSITION CX,CY:? M$;:RETURN :REM especially THIS one!300 CX=SX:CY=SY:M$=SP$(WP*3+1,WP*3+3):GOSUB 200:RETUR}N 400 REM **500 FOR J=0 TO 32:LB(J,0)=0:NEXT J:NB=1600 GET #1,A:A$=CHR$(A)700 IF A$="-" THEN RETURN 800 IF A$="}+" THEN A=(INT(RND(1)*8+1)):A$=STR$(A)900 IF A$<"1" OR A$>"8" THEN 6001000 A=VAL(A$)1100 LB(0,0)=1:FOR J=1 TO 3:LB(0,J)=0:}NEXT J:LB(0,4)=10+A*21200 EX=1:EV=01300 FOR J=0 TO 32:IF LB(J,0) THEN EX=0:GOSUB 17001400 NEXT J:SOUND 1,0,0,0:SOUND 3,0,0},0:SOUND 2,0,0,0:EV=EV-(EV>0):IF EX THEN RETURN 1500 GOTO 12001600 REM **1700 DY=LB(J,0):DX=LB(J,1):LY=LB(J,2):NY=L}B(J,3):NX=LB(J,4)1800 SM=SCR+40+NX+LY*160+NY*40:IF (LY+NY) THEN POKE SM,01900 LB(J,3)=(NY+1)-4*(INT((NY+1)/4)):ON NY+1 GOTO} 2000,2200,2600,27002000 IF LY>4 THEN LB(J,0)=0:GOTO 33002100 POKE SM+40,BALL:ON INT(RND(1)*3+1) GOTO 3900,4000,41002200 V}X=0:GOSUB 3200:IF SX(WY,WX)=0 OR (SW(WY,WX)=SD)=0 THEN 24002300 VX=1-2*SD:LB(J,1)=VX:LB(J,3)=NY+1:LB(J,4)=NX+VX:POKE SM+40+V}X,BALL:GOTO 43002400 IF SW(WY,WX)=SD THEN LB(J,0)=0:SX(WY,WX)=1:POKE SM+40,BALL:GOTO 42002500 LB(J,3)=NY+1:POKE SM+40,BALL:}ON INT(RND(1)*3+1) GOTO 3900,4000,41002600 LB(J,1)=0:LB(J,4)=NX+DX:POKE SM+40+DX,BALL:GOTO 45002700 LB(J,2)=LY+1:POKE SM+40},BALL:GOSUB 3200:SW(WY,WX)=1-SW(WY,WX)2800 IF SX(WY,WX)=0 THEN 31002900 LB(NB,0)=1:LB(NB,1)=0:LB(NB,2)=LY:LB(NB,3)=0:LB(NB,}4)=NX+2-SD*4:NB=NB+13000 SX(WY,WX)=0:POKE SM-40+2-SD*4,0:GOSUB 46003100 SX=12-WY*2+WX*4:SY=4+WY*4:WP=SW(WY,WX):GOSUB 300:GO}TO 43003200 WY=LY:JX=(NX/2)+LY-6:WX=INT(JX/2):SD=JX-2*(INT(JX/2)):RETURN 3300 SF=PT(RR,NX/2-1)3400 SG=SC(QR,RR)+SF3500 TX}=5+31*QR-(SG>9)-(SG>99)-(SG>999)3600 TY=1+RR:A$=STR$(SG)3700 CX=TX:CY=TY:M$=A$:GOSUB 200:SC(QR,RR)=SG:GOTO 47003800 REM *}*3900 SOUND 1,60,10,10:GOTO 44004000 SOUND 1,121,10,10:GOTO 44004100 SOUND 1,81,10,10:GOTO 44004200 FOR A=10 T}O 30 STEP 3:SOUND 1,A,10,10:NEXT A:SOUND 1,0,0,0:RETURN 4300 RETURN 4400 SOUND 1,0,0,0:RETURN 4500 FOR A=40 TO 20 STEP -3:}SOUND 1,A,10,10:NEXT A:SOUND 1,0,0,0:RETURN 4600 SOUND 2,40,10,15:FOR ZZ=1 TO 5:NEXT ZZ:SOUND 2,0,0,0:EV=15:RETURN 4700 FOR} ZZ=0 TO 121 STEP 8:SOUND 2,ZZ,10,10:NEXT ZZ:SOUND 2,0,0,04800 RETURN 4900 REM **5000 FOR RR=1 TO 4:TX=SCR+48+40*}RR:POKE TX,96:POKE TX+22,965100 GOSUB 103005200 QR=1-QR:TY=QR*20:TX=28-TY:CX=TX:CY=05300 M$=STR$(PT(RR,0)):M$(3,3)=" "540}0 GOSUB 200:TX=8+TY:CX=TX:CY=0:M$=AR$(QR*3+1,QR*3+3):GOSUB 2005500 GOSUB 500:IF SC(1-QR,RR)>=PT(RR,0) THEN 58005600 GOTO 52}005700 REM **5800 FOR J=0 TO 1:FOR K=5 TO 8:SC(J,K)=0:NEXT K:NEXT J5900 FOR J=0 TO 1:FOR K=1 TO 4:GL=PT(K,0}):AC=SC(J,K):SC(J,5)=SC(J,5)+AC6000 SC(J,6)=SC(J,6)+(AC>=GL)*GL:SC(J,7)=SC(J,7)+(SC(J,K)-SC(1-J,K)):NEXT K:NEXT J6100 FOR J}=0 TO 1:FOR K=6 TO 7:SC(J,K)=SC(J,K)+SC(J,5):NEXT K:NEXT J6200 FOR J=0 TO 1:FOR K=5 TO 7:SC(J,8)=SC(J,8)+SC(J,K):NEXT K:NEXT} J6300 FOR J=0 TO 1:FOR K=5 TO 8:Y$=STR$(SC(J,K)):L=LEN(Y$):TX=6+J*31-L6400 TY=3+K:CX=TX-(TX<20):CY=TY:M$=Y$:GOSUB 200:NEXT} K:NEXT J6500 REM **6600 NEXT RR6700 GET #1,TK:RUN 6800 REM **6900 OPEN #1,4,0,"K:":SCR=PEEK(88)+256*PE}EK(89):POKE 82,0:POKE 752,07000 DIM SW(4,7),SX(4,7),SP$(6),LB(32,4),AR$(6),PT(4,16),SC(1,8),P1$(20),P2$(20)7100 DIM M$(20),}T$(20),Y$(10),R$(10),L$(10),A$(5)7200 FOR A=0 TO 1:FOR B=0 TO 8:SC(A,B)=0:NEXT B:NEXT A7300 SP$(1,3)=" ":SP$(4,6)="":A}R$(1,3)="<- ":AR$(4,6)=" ->":QR=17400 POKE 710,156:POKE 709,0:POKE 712,PEEK(710)7500 FOR J=1 TO 4:READ Q:PT(J,0)=Q:REM 760}0 FOR K=1 TO 8:READ L:PT(J,K+8)=L:PT(J,9-K)=L:NEXT K:NEXT J:REM 7700 REM **7800 DATA 107900 DATA 2,2,2,2,2,2,2},28000 DATA 408100 DATA 1,2,3,5,8,13,21,348200 DATA 208300 DATA 2,3,4,5,6,7,8,98400 DATA 808500 DATA 1,4,9,16,25,36,49,}648600 REM **8700 ? "}":? "PLAYER 1 ";:INPUT P1$8800 ? "PLAYER 2 ";:INPUT P2$:IF LEN(P1$)>5 THEN P1$=P1$(1,5)8900 I}F LEN(P2$)>5 THEN P2$=P2$(1,5)9000 ? :? P1$;" VS ";P2$9100 ? "IS THIS CORRECT?":GET #1,A:IF CHR$(A)<>"Y" THEN 87009200 PO}KE 752,19300 ? "}";:? " ";:FOR J=1 TO 7:? " ";:NEXT J:? " ":LL=79400 FOR J=0 TO 4:TX=9-2*J:TY=1+J*4:R$="| "95}00 FOR K=1 TO 2:CX=TX:CY=TY+K-1:M$="":GOSUB 2009600 ? " ";:GOSUB 10200:? "":NEXT K9700 CX=TX:CY=TY+K-1:M$="":GOSUB 200}9800 ? "  ";:GOSUB 10200:? " ":CX=TX:CY=TY+K:M$="":GOSUB 2009900 LL=LL+2:? "";:GOSUB 10200:? " ";:NEXT J10000 ? :? "} ";:GOSUB 10200:? ""10100 R$=" ":LL=LL+1:? " ";:GOSUB 10200:? "":GOTO 1080010200 FOR L=1 TO LL:? R$;:NEXT L:RETURN }10300 FOR J=1 TO 16:K=PT(RR,J):JJ=2+J*210400 IF K>9 THEN L=INT(K/10):T$=STR$(L):L$=T$(1,1):GOTO 1060010500 L$=CHR$(32)106}00 CX=JJ:CY=22:M$=L$:GOSUB 200:CX=JJ:CY=23:T$=STR$(K):M$=T$(LEN(T$),LEN(T$)):GOSUB 20010700 NEXT J:RETURN 10800 FOR J=0 TO }4:SY=4+J*4:FOR K=0 TO J+3:SX=12-J*2+K*410900 CX=SX+1:CY=SY-1:M$=" ":GOSUB 20011000 M$=" ":CX=SX+1:CY=SY-1:GOSUB 200:WP=INT(}RND(1)*2)11100 SW(J,K)=WP:SX(J,K)=0:GOSUB 30011200 NEXT K:NEXT J11300 FOR J=1 TO 8:POKE SCR+50+J*2,16+J:NEXT J11400 FOR J}=0 TO 1:BX=J*31:CX=BX:CY=0:M$="":GOSUB 20011500 ? " ";11600 FOR K=1 TO 5:CX=BX:CY=K:M$="":GOSUB 200:? " ";:NE}XT K11700 CX=BX:CY=K:M$="":GOSUB 20011800 ? " ";11900 NEXT J:FOR TK=1 TO LEN(P1$):P1$(TK,TK)=CHR$(ASC(P1$(TK,TK))+1}28):NEXT TK12000 FOR TK=1 TO LEN(P2$):P2$(TK,TK)=CHR$(ASC(P2$(TK,TK))+128):NEXT TK12100 CX=3-(LEN(P1$)=5):CY=0:M$=P1$:GOSUB} 20012200 CX=34-(LEN(P2$)=5):CY=0:M$=P2$:GOSUB 20012300 REM **12400 GOTO 5000* + h+ ( ¢` ? JKA '?T(5 # UUUUU @3U ߁@3U  0 30 @}@03  U@U@U3U  0!DŌA@ JI9AQ3U @&@l\H}0@5@@ sP03U 0 p@ @@L0@ @P3U  } U?W{[j Z@fgogfZj jZU>UWgeU[?fVfiU}VU>UuUU[?fefeVUefU>UZjjUgU?ZVf}eVjZfZjUfVgogfeU#YeYU jUe#ieY Ujef}fVU@TUeUZW{{@PUeU UjYVffU U@UT@UU}UTUP@UUefefVfUUTUPTUPSC@P@[{{{UjZZjjUTPTUWC@}P@UfVVfeZUjZjZUfZUPT@5 3@jU@TP@ <UZefg}ogfeUZUU$U0@ tu[U0@ APdefVUU$U @@@}uYT{[{[U@@AAPefefeVYVfVfUUT@@PT}}UP@A@@PTdP@@demmeiU @@@D@@#UUUUU ?7?:}2*:28:8 :8 :2: ???  ?5?5?:2:8:2": ?? U  !UU?5ׁ܃p0 UU} ?5܁<pU !UUpUU ߁ p U UUU}UU (UUUU" ? U  UU  UU} U ! UUU UU ?UU  }UUAAU UU( UAAAAU  UU UU' }U  UU UU W> *U ;wUU( UU3]}" *U UUUU ?`U@.(@ARCRZ? ?Hhw}@`0@>@} 8$  {@ }@  }  I 96 1138 96 1870 96 2540 96 4282 100} 30         }}       } 666181::=;;:668:88568666181::941884/63/66CCC1::}:;:C6:885C6863:::::;:C6:888C856686*C666666688C13631}C666668888:*C666666888C6661C8:::C=;;;C;:::C66}61C8:::C=;;;C;:::C:::::;:C6:885C8366CCC::::::;:CC36}:888C856686*C666666688C13631C666668888:*C6666}66888C6661C8:::C=;;;C;:::C6661C8:::C=;;;C;:::C*,,./.}.611611*,,./..611611611666C::::::CC6688C8863CCC::::}:;:C:===C::===C6661C8:::C=;;;C;:::C6661C8:::C=;;;C;:}::C*,,./..611611*,,./..611611611666C666181::=;;:668:885686}66181::94184/83/66...1,1..633.**CC,,135...1,1..-CC,,CC,CC**CC}**,,CC*,,,**'%#%*,'%#%CC3631'%#%CC13631***%,..1///..***%,}..1///...**,,,**"'*.**,,,**'%#%*,'%#%CC3631'%#%CC13631***}%,..1///..***%,..1///..%%%*)))1**1**%%%*)))1,,3..1,,/11}1**,,,**" ' *.**,,,*****%,..1///..***%,..1///..%%%*)))}1**1**%%%*)))1,,3..1,,/11C...1,1..633.**CC,,135...1,1..-CC},,CC3CC..%%%)%%%''"  %%%%%)%%((('%%CC"#%%CC#%%%""#""%#"}" %#"" %C""" %%%'''%%%""" %%%((((%%%"#%%%""C"#%%%"}"#""%#"" %#"" %C""" %%%'''%%%""" %%%((((%%""""%%}%/''/%%""""%%%-((...-((,..."#%%%""C"#%%%""""" %%%'''}%%%""" %%%((((%%""""%%%/''/%%""""%%%-((...-((,**C%}%%)%%%''"  %%%%%)%%(((,CC**}CCCC}C}}}}C}   }         }        }}}            }         C}exhxxxhxxxxxxxxxxxexhxxxxxxx }xxxxxxhxxx99xxhxxxxxxx9999xxhxxuxxxxxx999 }999xuxxxxx9999xuxxhx9999uuxexxxux }xxxxexxxuxxxxxx9999xxhxxxxxxx9 }9999<xhxxxxuxxxxxx999999xuxxxxx9999x }uxxhx9999uuxexxxuxxxxxexxxuxx}xxxhxxhhxhxhxhxxhhxhxhxhxexx9999uxx}xxx9999xxhuxxuuxexxxuxxxxxexx}xuxxxxxhxxhhxhxhxhxxhhxhxhxhxexexhxxx}hxxxxxxxxxxxexhxxxxxxxxxxxexhxxxhxxxxxxxxxxxexhxx}xxxxxxxxxxxhxhxhxhxxxxxxxxxxxexxh}hxhxhxexxhhxhxhxhxhxhxhxxxx}xxxxxxxexxhhxhxhxexxhhxhxhxexxhexhxhxexxh}exhxhxhxhxhxhxhxhxexxhhxhxhxexxhhx}hxhxexxhexhxhxexxhexhxhxhxhxexhxxxhxxxxxxx}xxxxexhxxxxxxxxxxxxxexhxhxxxhxexhxexhxhxhx}hxhxexxhexexexexxhexexhx}hxhxhxhxexxhexexexexxhexe}xhxexuhexhxhxexuhexhxexhxhxhxhxhxh}xexxhexexexexxhexexhxexuhexhxhxexuhex}hxexhxhxexhxhxxxhxexhxexxxxxexexexx}xhxexexexexhxuuuuuuuxuuu}xuuuxuuuxuuuxuuuxuuuuu}uuuuuuuuuuuuuuuuuuuuu }uuuxxxxxuuuuuuuuuuuuuuu!}uuuuuuuuxuuuxuuuxuuuxu"}uuxuuuuuuuuuuuuuuuuu#}uuuuuuuuuuuuuuuxxxxuuuuu$}uuxuuuxuxuxuuuuuuuuuuu%}uuuuuuux<<xxxxxxuuuuuuuuuu&}uuuuuuuuuuuuuuuuuxuuu'}uuuuuuuuuuuuuuuuuuuuu(}uuuuuuxxxxuuuuuuuxuuuxuxu)}xuuuuuuuuuuuuuuuuuux<<xxx*}xxxexexexxxhxexexexexls P([N] Partition sizeRW"#CLPLODRAWTPLDRCLSNUAFYB'3AB$XB%A@@@@@" !,}SS S  @ AD*ANALOG*JAN85*PG67*V DEMONSTRATION PROGRAM +  STAND !-}BY...1 BPAR@1A@( 6-?:,2-A@<6-?:<<@,!.}F6-?:<@9<,P6-?:<@9<@,Z6-?:<<,d n%%A@$@%@x%%A!/}@$@%@%%A@$@%@%%A@$@%@%%A@$!0}@%@0@@/-@@/ Mix colorful graphics5-@@5 with a sc!1}reen full of text!7-@@"7 (PRESS START FOR NEXT SCREEN) F:B2y,@AM 6-?:, >:A!2}%,30@@ @M0@*-@@* Underline words.9AA'A!3}A9AA6-?:<@<@H,6-?:<@<@H,*-@$@* Highlight wo!4}rds.'AA6'AA6-@"6-?:<@$<AD%,,6-?:<@9<AD%!5},6 @7-@@"7 (PRESS START FOR NEXT SCREEN)J"F:B2y,@" A0TM 6-?:, >:A%,30!6}@M0@@^ Create colorful graphs.h]A@p'AA9A!7}A4KAAf]AAr70@@70@|-@2!8}@O-@@,6-?:<%<Au,K6-?:<%<A(&$@,O  >-@@!> $1980!9} 1981 1982 1983 1984K-@ S--@ 3 AE-@K L3-@!:} E--@3 S8-@@#8 (PRESS START FOR NEXT SCREEN)"F:B2y,@" AP!;} 6-?:, >:A%,8-@@8 PRODUCE DYNAMIC VIDEO DISPLAYS/-@@#/ (PRESS START TO END)!<}mA@f'A@TIA@$@%@[A@TmA@f56-?:<@!=}<@,56-?:<@5<@,56-?:<@5<A,56-?:<@<A,(6-?:<@<@,(6-!>}@M-@9@86-?:<@<@,M6-?:<<$@,96-?:<@5<@,96-?:<@9!?}&<$@,& F:B2y,"@A0A6-?:<@5<A,A6-?:<@9&<A&$@,:96-?:<!@}@<A,96-?:<<A&$@,D+ 6-"!A+ A0NaATARI GRAPHICS OVERLAYa!A}(C) 1984 JEFF BRENNERa&&;@,;A,;@$,a5 #BQp!-@@%"167,.>:,5 a+-@!B}A"'67,.>:,+ a+-@@$"'67,.>:,+ a, -C:,-C:,6-C:,,6-%@!aX6!C}-P:'AV,$6-&$AV>67Aw<Aw,.>:,X67Ax<Ax,.>:,a767A<A,.>:,767A<!D}A,.>:,b66F:A,'@2!P:F:A,'@2,BQ b- AF:A,&@-+F:@,bE BQ0!E}$6-F:A,$AV56-P:'AV,E6-&$AV bAA$*b`BByF:A,*A!F}<AY@bNB2w@`A#@4b9-B2VB2Y#@' 9B2`AU>bW-!G}@5B2H%@%$@2SB2R%@r&@$W Hb$RbBB104,104,104,201,40,176,71,105,24,133,2!H}06,104,104,201,192,176\b>>63,105,32,133,207,166,205,165,206,74,74,74,168,240,7,166fb@@205,230,205,136,208,251,10,10,10,56!I},229,206,73,255,168,169pb??128,200,240,4,74,136,208,252,164,203,240,7,164,207,17,204zb??56,176,6,164,207,73,255,49,204,14!J}5,204,134,205,96,104,104b104,104,96bAA104,104,104,48,111,201,40,176,107,105,24,133,97,104,104,201b==0,144,99,201,1!K}92,176,95,105,32,133,96,162,0,134,214,134bAA217,232,134,219,134,215,134,216,165,97,56,229,206,176,9,198bAA216,198,216,1!L}65,206,56,229,97,133,212,165,96,56,229,207,176bAA9,198,215,198,215,165,207,56,229,96,133,213,165,212,197,213bDD176,23,1!M}66,212,165,213,133,212,138,133,213,165,216,133,214,165bBB215,133,217,169,0,133,216,133,215,165,212,74,133,218,165,212b@@!N}240,67,208,3,104,104,96,165,206,24,101,216,133,206,165,207bCC24,101,217,133,207,230,219,165,218,24,101,213,133,218,165,21!O}2bBB197,218,176,21,165,218,56,229,212,133,218,165,206,24,101,214bAA133,206,165,207,24,101,215,133,207,165,212,197,219,1!P}44,6,32b990,0,56,176,194,165,96,133,207,165,97,133,206,76,0,0c@@104,165,106,133,209,169,0,133,208,162,16,160,0,145,208,!Q}200c$$208,251,230,209,202,208,244,96 D2:GRAFOVER(%}Twice the pixels in half the time...",,($How about some mu <&FNMOY16 BINBNODOS BINB-NSWBOX BINBOPUS BINBOPUS2 BINBIOSHERR BINB'+OVRLAY BINB0RPENCNV BINBPHONE BINBPLFUJI BINBPM1020 BINBHPMANIM BINB+PMGRPH BINB$PROSET BINB!ARACE BINB6bRAIDER BINB RECTAN BIN *L* -,H`B 5h`00LM2L*L* +`H *hLM21HZH e%r}HHƆeiH Q.lꦆ M2Օ`0  L,`8`1-1- R- M201LM21%s}01`K2 * Q.J2L2 M29 Ɔ채+K-J2L7280L2 .9K22K2LV& L2, Y2 . Y2 Y2 +%t}, M2 +ƆеJ2 +`ʕ`66`HHH66666uuuhhhL%u}* +愵 ' + 'I M2 380/66&&&`uuu` 3 3%v}Ј 3 * +` 4B3C3 .A3B3A3B3C3 LV&ȥC3iA3B3 4`L$+3B3%w} 3`LV&C38A3ƅ3 ȱC3A3B3` 3L33L3H 4 G3h`1+ %  %x}88L 4 * *` * *`  * *` 4$' 4"0 40 4L, {4L, t4L,L%y}M2LM25 M2 Q. .5555`H,? ,,HI5D55E5B 5H5h` VLV&5` %z}45 M2555 M2L5 45LV&55, 555 M258e555 M2K2L1 %{} 'L*hh iL* 5LD3 5L$+5B3&&ȱ0 6L5 6#6$6&& L5&&`%|}i`K&&L&M&` 3+ȱ&&%8e慱HȱhױM&iK&iL&L*, B%}}H Vh M2L*,&BH 5hN M2 *L M2ML*,%BNLMH 5hL*)*Z*w***`2`2+:,2+,,,j,Y%~},~,c,r,S,*$++++,,,1-.H----.`..0////D331000 1)&0001K0k04444{4t40&K'G(m(()0)])5555$155}1g1%}53%636&6661 v888(829<N9Fm9P9Z:d':nX:x::;;6;];;;;;<&<A<\<<%}<<"<,<6<@?|)}LLϠҠŠҢà(I(ʔ(,ZUYUZUYUYUXUXUWUV UV UU UT US UTR UPO UTPP U-}TN UP@O UPL UTPM UP@GUTP@IUTP@=UTP@@UTP@ LUTP@KUTP@D-}UTP@DUTP@6UTP@5UTP@U6U5UDUDULUKUE@PTU@@P-}TUM@PTUI@PTUQ@PT UM@PT UR@PT UO@PT US@PT UP@P UUT URPT UUP U-}T@T UV@ UVT UXTUW@UYUX@UZUYUZUYUeЕeeZ%-A6AV"!,9TU $COLPENPIXEMEMLOCMEMLMEMHRSAVMSFILEDLISSAMVSAOUTFILELMEMLOTEMP@1}@ @1} 1020 PICTURE MAKER Ap A(##@@P:2(1}@*H*I<-@F8,"@APP&(@H&(@C8,ZAd1}6-?:B&<,n B'gx-6-F:A,F:A,-6-%AV>>(@M,6@$+A&,*1}J0,4;1,0;0,-4F:A,A TITLE AND INITIALIZATION119@,9@,;@,;@1},' +@'0@'-@@'(@1020*-@@*(@picture1}(-@@((@;AR@;(!(c)1984 George L. Graff(-@"1}$68,-( 712,708,709,710$-@ 68,-$ 6-@6-A)6-A'A1}6-@"''READ MACHINE LANGUAGE ROUTINES305,G-A6AT"!% 9-B&B(7="CG 1}5OPEN PICTURE FILE6 A@G }ENTER FILENAME--@B:,:7<,4:='G APJ T$& 6.1}6.D:$67@,.^+@+@@gDISPLAY PICTUREh> +@$/6-F:A`,%F:Aa1},$AV>6-?:A6,r %@|A6-?:A,# -@ 6-8,1}"8,"@8,AH"@8,A"@8,@p"@1}8,@ I%@%@3%AI%A%@6-F:B2y,%"1}@6-@% A0"@$ ASELECT COLORS(Choose Pen Color:( Black 1} &( Blue 0( Green :( Red D( Blank NS-@B(1} Pen Color No.%@?8,FO68,-S X A`bGRAPHICS 7+ CONVERTERlAND SCREEN LOADER FROM1}vA.N.A.L.O.G. NO. 12ZZ216,104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0,177,203,201,79,208,21]]169,1}78,145,203,165,203,24,105,2,133,203,165,204,105,0,133,204,169,0,240,14,201,15,208,6]]169,14,145,203,208,4,201,65,240,17,11}65,203,24,105,1,133,203,165,204,105,0,133,204,169,0]]240,198,96,104,162,16,169,7,157,66,3,169,0,157,72,3,169,30,157,73,3,1}165,88,157,68,3,165==89,157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,96PRINTER DRIVER%%104,104,104,133,2051},165,204,208!!12,169,0,133,208,169,64,133 206,169,1,133,207,169,1,36$$208,208,95,198,206,198,206,165##206,201}1,254,208,19,198,207,16$$15,230,208,165,208,201,192,144 228,162,0,134,204,76,7,128!!32,18,128,133,203,6,203,2301} !!206,32,18,128,198,206,5,203%%197,205,208,201,134,204,165,208 !!133,212,6,212,169,0,133,213*""38,213,96,162,96,1}165,206,1334##85,165,207,133,86,165,208,133>84,169,7,157,66,3,169,0H157,72,3,157,73,3,32,86R""228,96,230,206,1}230,206,208,2\$$230,207,165,206,201,64,208,176f 165,207,240,172,76,224,127z (@ @0D:DUMP1}ER@%@'$+ @,'c6-@h%+!,%+!,%+!@,%+!@ ,%+!@,@E67@,.>:%A(,/0wx##PLEDICCCCWIDTHCXC264NUROTPREC70M1M2M3M4M5M6M7C2COTEMORDJJCTTBITCHFILL5}PMBAS 5}@@5}@ !"#$%&'()*+,''*5}* ANALOG ** OCT 84 ** PAGE 33 *************************** P/M CREATOR/ANIMATOR ** BY SCOTT SHECK *5}* ANALOG COMPUTING ************************* B A! ԛ6-+%,$+ ,8 -B5}2H% )-@8( C A&5@ ',@%$CB2R@%$@ A&B6-5}@'6-9B2H%A%@:7%,,"9B2H%A$ ͭԛ?6-@ ?(' right - TO S5}ELECT button - TO DISPLAY @),: 6-#T:,"&6-+&@,'0 AS: AR:,@A5}" @2,"@ "$ 6-% A ț6-+ ,$@:7%,,%67%<%,.>:,16-5}B2V%6-@' A1 A`$+ ̮, -68,-8, .#"@F B # A/ 5} BP3-@@(6" -6-8,"-@";8,%F:%,%@   A&5X$5}] қ^ A&7_3 AV6-A%)6-@3 Ar$ ΛP6-A%6-@.65}-F:,'@;P:,)"F6-F:,%P A6-F:,&@( -@%$%( ($Ҩ©)5} A&7 AV) A$Ψ©66-F:,'@!P:,)",F:,%6 AF:,&5}@(-@@ %( F:,($&6-?:C:,,$INVERTX6-?:C:,,$RIGHT6-?:C:,,$LEFT5}6-?:C:,,$DOWN6-?:C:,,$UP 6-?:C:,,$INVERSER. A&@ A&E#6-?:C:,,&$.ERASE 5} ě= ( PRESS play,# A&E' =( LOADING DATA.....˺ 905 OPEN#C1,C4,CZ,"D:FILENAME.EXT"#Ad5}@c#C:! )! A% -) AQ%6-8, -)% 5}6-@:7%,, AU  6- AR$ śB ( PRESS play & rec,) A&E- B( S5}AVING DATA...JJ˺ 955 OPEN#C1,8,CZ,"D:FILENAME.EXT":?#C1;WIDTH$:PUT#C1,PEEK(704):Ad@c)@5}C:0 :*F:,& -*F:A%,&6-8, -*F:%,   $Š -5}4 A &( data ?0 A&F4$6-8,% A&$-@'46-A(-@# 5}*(.4 A (6-& 6-'  A&D $ٛN ( READY PRINTER% A&E*5}4 APN@P: !(!( BGRND COLOR=F:,"( POKE 559,$J -(!(PLAYER 5}J(POKE %,F:%, :REM COLOR)55(POKE B2V%,@:7%,, :REM WIDTH+E(DATA !-8,8,%5},(F:,78,%A(,E 3  (G$K śL2 2(&down-SLOW SEQ.-left up-FAST STOP-rt.Q5} 6-VB2H%8,AZ 6-R:,"@ 6-%\-"@ A&6# A&A- A 1^"@5} A@`"@6-+&,$+!,d0 -  B2H%8,06-+%,$+ ,o At -u3 !(5} frame % (0-2)%3!AAv1 68,--@%$ ($ ''1 A˛# 6-6-15}#6-A( 6-%(>:,6-6 F:B2y,@A `6-F:A,0A+",$@2H5}B2Q+,$A`B2U+,$A/ 6-T:,R:,"@*%6-#/ A  *+)",A H 6-5}R:,*6-%+"@,&+"@,H6-%+"@,&+"@,$3 ԛ4E!@4) @'6-%6-16-@5}C; A&DE A&> "6-C"@#6-H A M( A%R A! ŠΠ5}ě 6-@:7@5&,,6- 1 6."@:,"&A($+ ,*6..16-6 , (6-8,%"6-%F:,, A&5} !!T:,"*R:,"@A%0 A  $' ŠԠқ( ) -@7( $- 5}ӛ.  A T:,"A&/ Q6-@  A&D# A 1G")"@)!@* @Q A&A2 /5} $@P%!@* @/ A&B4 A&66 < #6-@'%@$+ ,/6-@C9 A&D<$8  "5}6-: "@#6-; A&F ӛK ; 6-8,P:'AV,8&AV$P:'AV,;$L # 5}-@3 (PLYR #$M / ( COLOR(0-255)?( A&F,/$P > -5(' 5} ;->$Q -@($R 6-?:A,6-8,S O -)2@%@@46-F:%,> A&5}B L2O$T 5-@6$2@( 225$U  -( PRESS any keyV AdAUW 5}R:,@' A&X F:Ad,"AUA&GY $N ś Nc6-6-@'6-@36-@5}?6-@K6-@"W6-Ac6-A&@!N= +@/6-F:A`,%F:Aa,$AV=%AR"NA5}#NjA@j(@ player creator & animator  Ԡ$N ɛ%ND5}-A6AC"!% D72,165,208,141,27,208,104,64&N3A#@!A3A@'N5}̠ś(NN-ARA682%AP@@ @%D N2)N̠қ*N'-@A"5}#A%' +NVV104,160,22,132,84,162,27,134,85,164,84,177,0,133,2,162,8,134,4,38,2,176,4,169,46,N>>208,2,169,160,35}2,164,246,198,4,208,239,198,84,208,221,96-N9@,;@,;@,9@,9@,;@,;@,5};@9,;@,;@,;@,;@,;@,.N`;@,$-@@9("467,.>:,8 L-5}@@P"\67,.>:,` /NS-@@"'67,.>:,+ ?-@@C"O67,.>:,S 0NS5}-@@"'67,.>:,+ ?-@@C"O67,.>:,S 1NS-@@"'67,.>:,+ ?-5}@@C"O67,.>:,S 2N+-@@"'67,.>:,+ 3N ԛ4N)+)6-F:A`,%AV$F:Aa5},9NK%@p%%@@9%@A0KBBAN Я͛N46-F:A,&@&BBy5}46-AV$N BPB2wNL -68,-"B2V%467%<%,.>:,HA%AL N-B5}2QA!A-B2YNM)6-?:C:,<%AF<@7<A,;B2UAMB2`AN))6-?:C:5},<%A<@t<AU,N/6-?:C:,<%A<<,/B2R@PΠԭЛPoA@$'A5}AD3A?ARQ@@c@@#o-@PVV(N P0 P1 P2 2 2 25} 46 46 46 191 191 191P'@!@@ '-Pll(dӺEDIT M-EDIT WIDTH 5} RESOL. COLOR LUMIN. COLOR[B]=LUMIN[B] INVERT SCROLL P[[(SSCROLL  SCROLL  SCROLL  INVERSE ERASE LOAD 5}DATASAVE DATAPOKE DATAHARDCOPYP*@@9*(ANIMATE [0-1-2]P_ AI,@@1/@#@;5}@!M,@@ _/@$@ P A`,@%%/@%7,@@I/@@ [,@$5}@ m/@$@,@@/@@ P,@@ ',@#@1ASC,@#@5}U/@#@_A@q,@#@ { A A 1AR A&6$RŠΛR^5} 6-6-@b&68,-%Ad768,-%A H68,-%AvR B`^SINGLE 62R;6-+AU,$A;6-?:C5}:,<%A<@t<,R>/6-?:C:,<%A2<@<$+"A,,;AY>$Sd6-AU6-@F,68,-%A5}=68,-%AN68,-%A8X BAdDOUBLE-46 S-?:C:,<%A X<@7<,&$*S̠Š4SVV5}104,216,169,1,133,2,169,22,133,3,164,3,177,0,170,164,2,177,0,133,4,138,145,0,164>SVV3,165,4,145,0,230,2,198,3,192,13,16,225}8,96,104,160,23,177,0,74,145,0,136,208,248HS[[96,104,160,23,177,0,10,145,0,136,208,248,96,104,160,21,177,0,200,145,0,136,135}6,16,247RSZZ96,104,160,2,177,0,136,145,0,200,200,192,24,208,245,96,104,160,22,169,255,81,0,145,0\S^^136,208,247,96,104,165}9,0,160,23,145,0,136,208,251,96,104,104,133,1,104,133,0,104,104,168fS66104,104,145,0,136,16,251,96,1,2,4,8,16,32,64,1285} D2:PMANIM.BASrp Flat inor th th or 7th iminished Dim 5th Aug 5th--(%Chords play until changed or shut 4%&~DELAQQQREQCNQADDQSUQLINQLE9} &&** ANTIC ** APR 84 ** PAGE 50 **GRAPHICS 0 P/MBY PHILIP C. SEYERANTIC MAGAZINE APRIL 199}84(>:A%,ҠΛ'AR@'ΠƠқ$ A$ĠǠЛ *-@@9}*(In this example,(we are NOT using(the ANTIC chip or(Direct Memory Access (to fetch Player9}s !( or Missiles.#- A -$(>:A%,ҠΛ()-@$@ )(N9}otice how easy*'-@$@'( it is to add ,#-@$@#( Color to .*-@$@*(Graphics Mo9}de 0.2.6-A A.ŠҠԛ<:-@$@$( Like this!06-@P: A>?B2HA:}v'B2IAD?ԠӠΠΛA6-A AF(-@$@((It's also easyP(-@$:}@((to change thatQ6-@$@  (color.,6-A6 AU{-AT@36-@#:}@?AKAO {ؽ޳Z'A@'A@d :}Af"(>:A%,"-@@i(And it's easy toj(go back to the regulark(playfield color.l :}A nAB2H'B2IAŠӠƠΛs Au((>:A%,(((-@@:}x(You can also fill}(the entire screen(with all 5 players.6-A A!((Like so:!6-:}#@. A.Š̠ӠϠΛ, A(>:A%,,-@@##(The playfield is n:}ow hiding!((!(6-AP A (Now I'll put it in (of the players.:}36-A A3A#@%@X6-A A&(>:A%,8-@@X(Next, when you p: }ress a key,!!(I'll shrink the playfield9(for a moment by poking 9(Location 559 with 33.d A (>:A%: },4AY@%@2@6-AJ AdAY@%@2)( ()(Next, let's set each player(: }to a different color.' A 'AY@%@2A@'A@d9A@KA: }AD]AAԠӠϠԠӛ(>:A%, A.-@@.(Notice that: } players $$(0-3 are the playfield(but Player 4 (at right)%%(is in front of the playfield. A :} Q(>:A%,*A#@%@QԠӠĠŠȠқ2-@@2(As you can see, P:}layer 4%%((the one made up of missiles)##(always displays in front of@(all playfields.! A .(>:A%,:}@-@@u(Let's get rid of the 2(playfield again.< A I(>:A%,cA#@%@u-@:}@ )( Playfield now hiding.) A <(>:A%,*A#@%@<-@@ (In con:}clusion, here's an(example of how you can!!(overlap players to create(a multicolored object." A :}(>:A%,$w%A#@%@%@2wԠ٬ŠȠҬŠĠԠΠӠ:}Л+$$ԠӠĠϠЛ, B2H@H Ҡ6(B2I@H%@(Р@'B2P:}'ŠƠΛ^B2QhB2RrB2S|B2TB2U:}*-@@*(The three colors'-@@'( at left were %-@@%( produced b:}y(-@@((Players 0 & 1.)-@@)(You can use the&-@@&( same idea to':}-@@'( make a multi-(-@@((colored flying%-@@%( spacecraft!(-@:}@"((ĠƠ AXA#@%@X٠ӠΠԠƠĬŠȠ:}қpB2V@'B2W@9B2X@KB2Y@pԠ̠ӠϠŠțR-B2`:}A%@H%@%@RԠ̠ӠϠŠț*A@*ԠҠқ&A:}@&Ҡқ&A@&Ҡқ&A@&Ҡқ&A@&:}Ҡқ/??Š٠ϠŠŠҠàӛ0)B2aAU)ŠҠҰ::}B2bAUұ? B2cAU ҠD B2dAU ҠF!B2eAU!Ҡ:}$-@ $ -F:Ad,AU*AdAU-$* A?-@@"%( TAP ANY KEY: }5( TO CONTINUE? A7-@@!'( 7( $ Š̠ӠΠΛ$:!}B2H@H$ҮӮаB2I@H%@2%%B2P@H%@$@2%%B2Q@H%@:"}$@2%%B2R@H%@$@2//B2S@H%+@$@2,%@$//B2T@H%+@$@:#}2,%@.//B2U@H%+@$@2,%@$8$D2:PMGRAPH.BAS$+8Z NACMPT$$>%}$$Ҡ̬ԭРҺ$$à$$àЭ$$>&}Ҡ$$$$$$>'}$$ĠŠҠ $$ <<;@,;@,;@,;@,>(};A0,6.>:@', A `(@(}(2 (1. PICA NORMAL-(10cpi)<(2. ELITE(12>)}cpi)F(3. CONDENSED(17cpi)P (4. PROPORTIONAL SPACINGZ##(5. DOUBLE WIDTH CHARACTERSd(6. BOLD PRINTn>*}(7. UNDERLINED PRINTx(8. DEFINE LINE SPACING$$(9. RESET PRINTER'S DEFAULTS(( 0. TO END/( @>+}@+(WHAT'S YOUR CHOICE../("@3>:@x,( Ap("@3>:@i,( Ap(">,}@3>:@,( Ap("@3>:@,( Ap&"@3>:@,& Ap("@>-}3>:@3,( Ap("@3>:@,( Ap"@A "@  A `">.}A @ @@.(.(" DO YOU WANT TO COMBINE? (es/o)"4YAP,4NA @6 Ap>/}@ (} ((J(1. LEFT MARGIN SETT(2. HORIZONTAL TAB SET^##(3. UNIDIRECTIONAL PRINTINGh(4. REVE>0}RSE LINE FEEDr(5. LINE FEED PITCH|!!(6. PERFORATION SKIP OVER(7. DEFINE PRINT TYPE$$(8. RESET PRINT>1}ER'S DEFAULTS(( 0. TO END/( A +(WHAT'S YOUR CHOICE../"@A0"@A>2}("@3>:@b,( A("@3>:A,( A"@A"@A>3}@"@@@"@ A `"A @ A  (} ((""( SET LEFT MA>4}RGIN TO: XXX&'( ('( XXX MUST = 000 TO 16001(1(& DEPENDING ON CHARACTER PITCH SETTING:*( (&( SET LEFT>5} MARGIN TO: *D)2000)31606.000) ApN3>:@v,X Ab (} ((l//(' HORIZONTAL>6} TABS XXX,XXY,XXZ (UP TO 32)v0( (0(" TAB STOPS MUST BE 000 TO 1601(1(& DEPENDING ON CHARACTER PITCH SETTING>7}2(2(' caution: no error trap in this option!( (( SET TABS TO :!3>:@@,>:@F,(($(>8} HORIZONTAL TABS SET AT:(  A (} ((##(LINE FEED PITCH SETTING XX"("( XX MUST = 01 TO 9>9}9(( 18 = 1/8 INCH!!( 24 = 1/6 INCH (NORMAL),( (((SET LINE FEED PITCH TO: ,400A>:}3>:@, 9(&( LINE FEED PITCH SET AT: + 9  /144 INCH0(0($ DO YOU WANT TO COMBINE? (es / >;}o) *4YA 44N> AH##@@P:R<*@@))*@><}@e<*@@d\-@@`f-*@@d)*@@d- p)*@@g)*>=}@@dz-@b@f-*@@d)*@@d- )*@@e)*@@d>>}*@@0@3 A'('(PROGRAMING IS NOW COMPLETE.$-@A ! }$>?}BB3>:@x,>:@y,>:@,>:@4,L000GD3>:@,>:@H,>:A,>:@e,>:>@}@`,G$ D:PROSET.BINFred Pinho, ANTIC,1/86, S*P*A*C*E mods)3. FACE. "Face of the Galaxy" - Musicwith graphic< /{222` ~BB~BB~@@@@~|FFFF|~@|@@~~@|@@@~@@NB~BB~BBB~~@@@@@~~BBBBB~BB~@@~BB~LFBB}~BBBZZ~BB~~~~BBBB~~~@@~~~~BB~~@~~~@~BB~~~B~BB~~B~~$ZBC}<<<~~~<~<~~<<~~~<<<~ZBD}<~BBBBB~BBBB$~ZZBBBFLxXLF~BBBB~><@@|><>BBB<|@@<>|@@BE}~BBpg '''''''''''''pppFF/FF/FF>F/FFzF/FFF/FFF/FFF/FApppO BF}BG}p00BAZ~~~~UU  $3 DMNFXFLOXaPNJOOFL@[QBH}歀n@@nuuuuuuuuuuuuuuuuu   uSMOJSLq@uuXFKFDOquuXOCNOq uBI} 1uuuuuuuuuuuuuBJ}uuuuuuuuBK}uuuu     3 3BL}50 4=FO+>M\kz<<Z~ZB~~m۶ XP04<~~~~<FBM}f&lQ@HH惥 )΍h@ШE%`ҩҠM`ҍҩŃ hhL芍)JJJq9! IiҊBN}č҅``ҍҍҍ`<ө+ҢU)/ҩ9ԩЩލԩƍ Ѝ Ѝo BO}Z e !"; (;;!L01 M$ L愥mEҥ)iBP}" "i"";慥E ҭi"L  ҩҩL(Ń!/01 ( ZM eBQ} ƒ)? QMii@ I?  JLJ$0 = }Ƚ~LJBR}  ]L懥 qreLN,` &Ə񥐑`  BS}ƑƔJƔƑ` ԝЊHhҩҩ֮`Hj.ƴBT})<)<)]n^oh`[ƵL{ B   ҩ@ "    BU}%(ҥJ) (` )) )) ``ղiBV}ϕǵօЕ iͥL`iׅͥΩ8Е U8ϕŰ UŕũÕŕ˵սJ`J`H  -BW}i0ҥLaЊHxyx-y ҩ ҢЅҭ Ѕӥ ) ҩ 4BX}. "j ^x^x֥^x^xԵ00ȐǕԝЄ0$j )) ȍҭ ) ֵ +%BY}ݾ ԐнҩjH )8 - ґʈhBZ}0L+Х e   yMҍh%h@HH% e) 9 9 ) )  )B[} eЍЅ櫥}JJIhhh@J5հЕ`uս uuÕս uB\}ǵJ ҵI ˵ǝеJ Hh =q"H=[ѹm ёh`H=[=q h` eB]}@ԩ !oҩ Ѝ Ѕc9 ( ЩMƑօט B^}Е./ԩЩč4Z01 f jƑ7*ƔƑB_}&2, 셙Lii(i( LjLN3 -ƟJ ҥB`}0 I,j]ơ` )? -ҥLj )? ЍЅ )Ʀ )JBa}ҭ )?i  Lj Lt/@H 68 694 68 1314 68 2374 68 3166 160Fc} 30     Fd}          Fe} ,C,C,C,C)*,11')*,.066.0135)*,11356,,53,53,53Ff},53)*,11')*,.066.0135)*,11356,,53,53,53,53),*'*),5),*'*),5356Fg}36431143,+,3,+,3101),*'*),5),*'*('%),*'*),5356/./6/./643441C1Fh}C6/./6/./643441C1C6/./6/./6434-,-4-,-446888C)*,11')*,.066.0135Fi})*,11356,,53,53,53,53)*,11')*,.066.0135)*,11356,,53,53,53,6Fj}53111C%C%C%***+,%C%C%*'*+,1C1C14116388C%C%C%C%C%C)C)C)C)C%')Fk})) "$%'..%'),1%'))),12C11C11C11C1C%'))) "$%'..%'),1%')Fl})),12C11C11C11C1C%C'$C%C1%C'$C%C1C30C1C--C0CC0C0C.%C'$C%CFm}1%C'$C%C!%C'$C%C13C3C3C3C11C3C3C3C11C3C3C3C1C1C1C555C%'))) "Fn}$%'..%'),1%'))),12C11C11C11C1C%'))) "$%'..%'),1%'))),12Fo}C11C11C11C10.,,,C''C)C'$C)C1.C3055CCCCCC CC C C C C CFp}C C C C C C CC C C C C CC C C C C CCC CCC CCC CCCFq}CCC CCCCCCCCCC CCC CCC CCCFr}CCC CCCCCCCCCCCCCCCCCCCCCCCCCFs}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCFt}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCFu}CCCC  CCCCC  CCC  CCC  CCC  CCCFv}  CCCCCCCCC  CCC  CCC  CCC  CCFw}C  CCCCCCCCCCCC   CCCC   CCCCCFx}CC C C C C CCCCCCCCCCCCCCCCCCCCCCCCC CC Fy}CC CC CC CCCCCCCC CC CC CC CC CCCCCCCC C C C C C C CFz} C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C F{}C C C C C C C C C C C C C C C C C CC C C C C C C CC C C C C F|}C C CCCCCCCCC C C C C CC CC C C C C C C C C C C C C C CF}} CCCCCCCC C C C C C C C C C C C C C C CCCCCCCC CF~} CCCCCCCCCCCC  CCCCCCxHxHxH<xh<<xh<F}<xh<<<<<xx<xh<<xh<<xh9<<<<F}xx<<xx<<xx<<xx<x<<xx<<xx<<<<xx<<xx<<xF}x<x<<xx<<xx<<xx<<xx<<xx<<xx<<xx<<xx<<x<<xx<<xu<<F}xx<xh<<xh<<xh<<<<<xx<xh<<xh<