@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`34l\nINSTKTENDENCPRESSURWINPESSUR@AǠø}dz;@,6-@n+@%@(($(9( >(T( Y(n(} -@A ;+@%@(($()(;( <($(Ү}Π®8-@A< : +(((:(Do you want instructions (Y/N)((7@<@,4}YA n (} ((2(What is the pressure tendency?5(8(F( 1) n(# (up >0.05 inches in past 12 hours)> }(( 2) >(% (<0.05 inch change in past 12 hours)G((3) ǠG(& (0.05-0.2 inch drop in past 12 hou }rs)(F((4) ǠF($ (down >0.2 inches in past 12 hours)2+((Indicate by number' @P+<&P }:, @F''AA A0A@PF($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F @ }Barometer Rising APAAALQGApApAp Ap Ap Ap }ApApQ AuQGApAp Ap@ApPAp Ap ApApQ AuQGAp}Ap ApAp Ap Ap Ap Ap`Q AuBarometer Steady APA!A"A}!4 Aqp AuQGAqpAqpAqpAqpAqpAqpAp Ap Q Au Barometer }Falling Slowly AP A1A2A3 QGAq AqAqAqAqAqAq Aq} Q Au QGArAqAqArArAr ApPAq Q Au QGArArAr}Ar`Aq`ApPAsAsQ Au AuBarometer Falling Rapidly APAA}ABACQGAppAppApApAqAqAqAq Q AuhQGAq0Aq@Aq@}AqPAq@Aq0AqAq`Q AuQGAr0Ar@Ar@ArPAqAr`Aq`ArpQ }AuPressure Subroutine (} (((.(( What is the barometric pressure?+(.( (1) } (# (2) #(#(3) 堳 (#(((Indicate by number$ AP`(++"@})"@)"@AUF($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F AP|Wind Direction Sub}routine (} ((()#(What is the wind direction?&()(>(1) !( 2) -(3) >( 4) }D(5) !( 6) -(7) >( 8) A(D(((Indicate by number$ AUP(&P:,}AV!!!* @ A`F($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F AUp Gr}aphics Set-up Subroutinezg+@%@((3( THE FORECASTI(VALID 24 HOURS]( FROM NOW IS:b(g(}$XForecast Listb(ҠĠ$l(fair$v(ҠĠ$*('(}ҠΠ*$(FAIR AND WARMER$(ҬȠ$Q( 2(}N(ĠQ$/( ,( /$*( '(*$}.(+(ΠҬ.$(rain$( unsettled$(ΠĠ$*( }increasing wind,'(rain*$8(increasing wind,'(rain5(WARMER8$*( INCREASING'( CLOUDIN!}ESS*$( no change$ ( ά$(unsettled, cloudy$ /( unsettled,,(probably c"}loudy/$*(RAIN AND WARMER$4(unsettled, WARMER$>7(cloudy&( rain probable4(WARMER7$H#}*('(*$R(cloudy and rain$\(CLOUDY AND WARMER$f=( unsettled,$($}:(=$p4(SUMMER:LIGHT WINDS1( 4$z1(summer:unsettled.( %}1$1(RISING TEMPERATURES.(and fair1$L"F:B2y,"@" @V Au@Instruction&}sJU (}0("This program forecasts the weatherU( for the 24 hour period beginningT%%(24 hours after forecast time.^'}j)(!User supplies the following data:,(J( 1) Pressure TendencyM(j( 2) Present Pressureh/()( 3) Pr(}esent Wind Direction,(/(ri)(!To begin, press . To re-runQ(#the program after completion, pressi(. To st)}op the|5#(program at any time, press 5( ͠. Au D2:WEATHERYYA@ǠøknoRbMSPCDHIGRAIAPEKPPLOLAOLHEPOYNTDISCARFLAYDITXLDINEYNE  +}(@A'B6B`AS A4 AP Bq @ih4 ?sp"9ABih@BxA ,}@B(A(B"@@@@@ @0!-}@"#A $%&'@()ǠødzdF&;@2,;@,;@.},F@@K:** NEW CHARACTER SET **$$** ML routine for moving 1K **+-@@2/}"'67,.>:,+ ii104,104,133,204,104,133,203,104,133,206,104,133,205,162,4,160,0,177,203,145,205,136,208,249,230,2040}230,206,202,208,240,96//** Lower RAMTOP and move character set **[ AF:A,&@$+E6-+F:A1},%@,$AV[6-?:C:,<BsD<,)-%@%@G"%) UU0,24,60,126,126,60,24,0,0,189,219,2312},231,219,189,0,255,24,255,24,255,24,255,24AA170,85,170,85,170,85,170,85,219,109,182,219,109,182,219,182 +@/6-3}F:A`,%AV$F:Aa,U6-F:%@,%AV$F:%@,c6-%@"t6-P:'AV,6-&$AV_%@4}@+%@7@K%@@_%@@0-@@,%%@!F:5}%,0 o#-%@%@5@/AC%@AFW%@@[ o%@5@q{6}AV'AV)AA;-@U(@ INITIALIZINGo0@@{6-** 7}DATA FOR ROADWAY **$$6-+F:A,&@,$AV+6-@6-@+-%A/ 6-%!@/68}-6@P$H:,& @&6-@P$H:,6-%AA   3@%%AA3%A9}A%AA,** PAGE SIX POKES **6/ #A!-A6AH%"+/ :** Change VBI vector **;&&104:},160,17,162,6,169,7,76,92,228<&&** Init. data for VBI routine **=1,1,0,0,0,0,0>88** VERT BLANK ROUTINE ** Determin;}e scroll value **?''206,11,6,208,94,173,10,6,141,11,6@;;173,12,6,206,16,6,74,176,250,173,16,6,141,5,212,16,71A** M<}ove lines down **B&&169,16,141,16,6,173,48,2,133,203Ebb56,233,3,133,205,173,49,2,133,204,133,206,160,37,177,205,145,203=},136,177,205,145,203,136,136J192,10,208,241K** Add a new line **LII230,207,208,2,230,208,162,0,161,207,201,255,2>}08,15,173,14,6,133,207M33173,15,6,133,208,161,207,238,13,6,136,145,203OXX173,0,211,72,41,8,208,2,230,209,104,41,4,208,2?},198,209,165,209,141,0,208,76,98,228R** Screen roadway data **Tee4,5,5,5,5,67,130,1,1,130,67,4,4,4,4,5,5,5,5,67,130,1@},1,130,67,4,4,4,4,5,5,5,5,67,130,1,1,130,67U4,4,4,4,5,5V""** Remove our VBI routine **W((104,160,98,162,228,169,7,A}76,92,228X@@104,104,104,168,162,11,189,232,6,153,0,6,136,202,16,246,96YOAP)AQ'AV;AB}OA'AV^** ROADWAY WIDTH **rk'-A&@A%@37 [-A&@C}A%@gA"k ** PM GRAPHICS **|6-F:A,&@&BBy46-AV$FAY@FD}XB2w@d6-A pB2H|A  #A0AAs-%A%Ah'E}+ =A@VI6-@e-%A%%A"%i"os ,,24,90,126,90,24,60,165,165,231,189,153-F}-@@")67<,.>:,- 106,96,85,76,63,51,40,22K-AhAy"!% K0,0,0,0,90,126G},90,24,60,165,231,189J6-%A@"6-P:'AV,26-&$AV>ABJAC7-7(@H} L-@L(@(PRESS FIRE BUTTON WHEN READY TO START  T:,"@I}A6-?:A6,i-@5(@ G-@i(@ spJ}eed LAP$$** RESET CLOCK - INIT. VAR. **6-@'@3@ ?6-K6-WK}6-c6-o6-B"{6-@6-6-@@6-@** SPEED BYTES STRING **M #A L}!-@@%"167,.>:,5 A6-@M6-@00,1,3,7,15,31,63,127 ))** CK TRIGGER - CLEAR COLL. RM}EG. ** 86-F:A2,$B2x8"A2R6-%'@$6-?:A2<,0!A0<6-@@H6N}-R A@a16-&@$+!AP,%@$+ @,A6-$'@I6-%U!@a6-@BO}2I A@$H:,!@&6-@@]A+H:,$@%@,$@%@i6-@u6P}-A B2I6-?:A2<,5"@6-&@) @56-@&5"@6-%@)!Q}@56-@0AH@:7<,,:"6-F:AI,!" A <"A=** COLLISION DETECTIOR}N **?5+F:B2R,"@)F:B2`,5 AA%%** PRINT SPEED - MOTOR SOUND **D.-@.(@S}@ $ H))2@:7<,,@@%N A%X** FINISH ROUTINE **b4%2T}46-?:A",l>->(@SCORE = P:, v !6-A-@A(U}@ Ƞ = P:, 1-@1(@Again? Press Trigger T:,"AU V}T:,"@A` A ** COLLISION SUBROUTINE **K-@G2@P%@ $@W}$%@@K -@6@q 6-AH@:7<,,9A$@%@UA$@X}%@i-@@m q 6-&@K-%&@%#' 36-?6-A K6-@@Y}B^A@V'A;-@W2[ ^$** NEW LAP SUBROUTINE Z}**00** Ck. clock for lap time - calc. speed **T 6-F6-F:@ ,%AV$F:@,%AV$AV$F:@,T6-[}%'+&,1-@+(@P:, 16-"-@"(@$D2:RACERhhhh\}h͢oRbMSPCDHIGRAIAPEKPPLOLAOLHEPOYNTDISCARFLAYDITXLDINEYNE  qNN1NNNANNMAN3XN16SCORGGNXYDNDNDIDNZN3NN16N16AIGOLSCLEVEVWDIRDIRMN1^}3GAMN3SECHAROCKGAROC@@@@@@@ @ @ @_}2 @ AaAaA@@@@@@@@ `}Ah@5@ Ah!Ab"@#@$@%@ &@'(@ )@*@a}+@,A3-A3./@80AV1AX2@@3@4 5AC6@7@89@Qb}ǠøǷd******************n* MINER JACK *x* BY ** RANDY SCHULZE ****c}*************** A@J 2- #2+6-%7!@P=6-@'J A  %d}6-@w$ " ,@ " ,@$ 1&",& 1e}", 1%",% 1&",& 1%",%$"82@f}6-%$%6-%+6-528$,< A6-& A0) A/6-<(AP6 A0@***g}* MAIN LOOP ****JA 6-6--@P32@@7 A2T 6-R:,6-6-^@2h}@Th)6-+",&+"%,)6-+"%,&+"%,r - | 6-%6-% )!+%,6- )!@"i}6- 2 1" A= "6-6-%2AT/-$3 =2? "2j}@'-AP+ 52? A"A  ,@,F:%,! Apk}I&* 6-%6-%6-&+6-16-76-?6-%I A0  6-&"A@&GUARD NOT ON BOl}ARD 6-6-6-N:&,6-N:&, 6-%6-%&!$) 6-0) 1")")")"#6-)6-m}:"AD  ,N )@2,X A@b6-@6-@'6-@36-@?6n}-@K6-@W6-@c6-@o6-@ {6-@6-6-6-6-6-6-lu6-Aao}6-Ab'6-@536-A3?6-@8K6-AhQ6-W6-]6-c6-i6-u6-@2vVAF:Ap},&$+%+%,;6-F:A,$AVJ6-F:A,VAV -% SPACE #Ap,-$%q}"% ,CHARACTERS^^24,60,24,126,90,60,36,102,231,165,231,24,126,165,129,255,126,195,189,191,177,189,195,126Tr}T24,60,54,126,127,251,159,255,255,247,255,191,251,255,223,255,0,0,24,24,0,0,0,0==60,110,255,191,251,255,110,60,165,60,68s},130,70,40,36,40 #Ap**** PLAYFIELD SETUP ******** STARS ****9 -6-H:,$+%,%6-H:,$)5,t}P:,P:,9 **** EARTH ****!-$%,/%! **** ROCKS ****  A%7 -u}6-H:,$+$,+6-H:,$+$%,1 76- ,P:,P:, ***** GAS POCKETS ****47 -6-H:,$+$,+6v}-H:,$+$%,1 76->,P:,P:, H**** MOON ****R @9,%\**** GOLD ****f -p=w}6-H:,$+$,!6-H:,$+$,/1P:,P:,="Az A )!@A,P:,P:, x}""**** MEN LEFT INDICATOR ****(A ` 6-,@,@ #A  ""6A y}A0 , A pWW1,4,2,4,3,4,4,4,5,4,6,4,7,4,8,4,10,4,11,4,12,4,13,4,14,4,15,4,16,4,17,4,18,4,-999**z}** SCREEN CHECK ****! "6-6-6-!6-! "6-6-6-!6-! "6-6-6-!6-# {}"6-%6-6-#6-# "6-%6-6-#6-$% "6-%6-%6-%6-.# "6-$6-|}6-#6-8# "6-6-%6-#6-B# 6-%6-6-#6-L$V #A@` ""AV2}} $j# 2- # A tEE243,243,243,243,243,243,230,230,230,230,243,243,243,243,243,256~9-@#~},#/@' 9AVA$ - (@ GAME OVER -(@GOLD ' -'(@}levels completed -(@'-@'(@ fire*-@*(@ PLAY }, (T:,"AF:A,%, A A I+@%@/0@@ @I0@@@}--@@-(@ MINER JACK--@@-(@ CREATED BY1-@@1(@}RANDY SCHULZE&-@@P&6-F:A, rAF:A,,-@@0 EAF:A,}Y-@@] rAF:A ,5-@@ 'A + 5 AD2:MINER,,`}@qNN1NNNANNMAN3XN16SCORGGNXYDNDNDIDNZN3NN16N16AIGOLSCLEVEVWDIRDIRMN1#2CǠøǹ$$******************************$$* } *$$* NO-FRILLS ALTERNATE CURSOR *$$* BY TOM HUDSON *$$* ANALOG COMPUTING *$$* } *$$****************************** [-AVAd"!% 7@I@@ }[@ @)&(}PRESS TO INSTALL CURSOR)UU169,1,133,13,169,0,133,12,169,0,141,7,212,169,1,141,111 },2,162,1,160,40,169,7,32VV92,228,169,58,141,47,2,169,2,141,29,208,96,0,0,216,169,1,141,240,2,169,58,141,47VV2,169,0,1 }70,157,0,6,202,208,250,165,85,10,10,24,105,48,141,2,208,165,84,10,10,10VV24,105,39,168,169,240,153,0,6,238,109,1,173,109, }1,74,74,74,41,1,208,4,169,15,208!!2,169,0,141,194,2,76,98,228 D2:CURSORBASAd@ c BINCODPSXPIXMAPBANRBANNRROWMAPHCCRVAOFSESTARINPIXPOFSVPOLSHPOSPRPIXHPIVPIROWSUD}A 6APAAAA  @ @ @ @@ A Bvd@ }@G@@a@@@@f@?P@ @@}B6àøǹBANNERTIZERBY JOHN BAUMANANTIC MAGAZINE ]]9@,;@,;@,};@,9@d,9AU,;AU,9@,TITLE SCREEN A@( @@2GET BANNER<' +}'0@AM' INPUT 0 FOR A HORIZONTAL BANNERI INPUT 1 FOR A VERTICAL BANNERMF#*@}# @P @Zb +'0@^ 2ENTER CHARACTER SIZE - FROM 1 (SMALL) TO 10 (BIG).b}d# @)!@# @n Ax\ +'0@E INPUT LINE TO BANNERTIZE.\(THE}N PRESS RETURN.( 6-B:,A-@@'( נǺ9-@@A( -@6-@}:7<,,ADJUST CHARACTER VALUE AiiCALCULATE OFFSET OF CHAR FROM START OF CHARACTER SET AND THEN CALCULAT}E ACTUAL START OF CHAR IN SET6-$@6-BsD%??STORE THE BINARY VALUES FOR THE CHARACTER IN ARRAY BINCO}D-@@68,-F:%&@, ))CREATE A PIXEL MAP OF THE CHARACTER A0PRINT OUT} THE CHARACTER" (7<,, A 6 @ @@((CHARACTER VALUE ADJUCTMENT ROUTINE56-!A'})6-&A(56-@3+@2* @,)6-&@23 A@)+* @2,)6-%@d}$$PRINTING ROUTINE'6-+$@&@,'6-@ --@@bbIF THE BIT IS A 1} THEN STORE 10 ASTERISKS IN ARRAY S$, OTHERWISE STORE 10 BLANKS IN ARRAY S$(+8,%"@,6.*( A ` 6.}  --LOOP TO STORE ASTERISKS OR BLANKS IN S$  -%@ 67,. 6-%@6-%@  *-}@3 46-@> H$ 44ROUTINE TO CREATE A PIXEL MAP OF THE CHARACTER ]]INITIALIZE POSITION POI}NTER FOR PIXMAP ARRAY AND SET PIXL TO VALUE OF FIRST BIT TO TEST 6-@6-A( //LOOP TO GET VALUES OF PIXELS} HORIZONTALLY -@@ --LOOP TO GET VALUES OF PIXELS VERTICALLY -@@6@ +"@}+6-++&@,$@%, ddTEST PIXEL: IF THE BIT IS A ONE, THEN STORE A ONE IN PIXMAP; OTHERWISE, STORE A ZERO IN }PIXMAP ;8,&"68,-8,&168,-@; A0` 68,- INCREMENT PIXPOS 6-%@ }  SET PIXL VALUE TO NEXT BIT 6-'@   ;;DETERMINE IF EACH 8 BIT ROW IN PIXMAP IS BLANK OR NOT }-@! 6-& 2-@@.6-%8%+$@,,2 0 0!&68%@,-@0 A}1@: 68%@,-D  I SSDETERMINE WHERE THE CHARACTER'S FIRST AND LAST ROWS TO BE PRINTED ARE LOCATEDN 1}"6-@'6-@1 A1S *-@@&8,@* X 6-&+@,b 3 -@}@6@/8,@3 l 6-v $] +@'0@I6-F:A`,%F:Aa,$AV]}%@@-@@2(@THE BANNERTIZERD-@@a(@by john baumans-@}@ (@ 蠠/F:B2y,"@,+B2y,@/$ A@  D2:BANNER}@ (@ 蠠/F:B2y,"@,+B2y,@/$ A@  D2:BANNER`  ""NNNNNNNNNNOUUDMXYBOPLTURMOVNNFXYTCYPYPPMCURNWNODMTAKCCIRX}RYZXYWBDPCHIPCPSPPE1PTHTQHHT} @@@} !"#$%&'}()*+,-.@/01234@5@6@}789:;<=>?@ABCD@EF}GHI@J@KLMNOPQRS*COMPUTE!*NOV8}4*PAGE58*6-@6-@'6-36-@?6-@K6-@W6-@c6-@o6-@{6-}@ 6- +@#A@ 1A CA@UAAgA@0q AP}{ A 6-q%6-F:A`,%AV$F:Aa,3%@p;%H;@@,P6-%a6-P:'AV,q6-&$A}V(6. ( A@26. &A`2Aa1-@!,@}-/AB1 r9,9,6-5-@@@68,-%H6-%N,Z/ABn/AF%@}r b 6-%-@AB@068,-%86-%>,J/@^/%@@b 7,AC}%/AC@7/@$ 9<,.& --68<,-" & 8P #A-"(68<,-}, 6 AP4,4,2,5,5,2,4,5,3,5,4,3B A@6-F:A,V:F:B2y,"&-B2HB2Q,0 : A0}` Aj8.6.$ ϾŠ 8 A@lF@K:$)0"@y<6-}@F A!t8.6.$ <>Š lack first8 A@~& )"@6-& A"@f}6- AQ2AU@@+B7h9-A= G2Q AP[ 6-36.# } = A@K-AO U6-[6-g-6.# 7 A@E-}AI V;@,g6. black67@,. %67@@,. 467@,.@6-@L6-@W6. } 67@,.7$@&@<$@,67@,.'S MOVE67@",.BLACK:U67@(,.=:,+67@2},.WHITE:=67@8,.=:,G A@U243,1,121,4/"@* A"% AU/ AG+ #A"#A }+121,1,243,4/ 6- A6-# A)6-/6-B@w6-R:,:+"@)"@)",*+!,B6}-& F:Ad,"@BA-%+"@)"@)",*+!,-6-&!+")")",*+ ,!6-%'+"})"@)",*+ ,'6-%a @-@;2? a2} "@A A3B2H@H%8,-6-8,%%@ 36-(@67<%,.7$&<$,'A}/6-%9")"@6-62)6-%@"Ad)6-@<T:,A@? AP@%"@6-}% A@C")"AD%"@dAE6-@& AFY8<,!#AP*6-@}4 A@6-@C$Y162,.5,144,.5,243,3K"@6-$P468<,-+&,%@ 6-&6-46-%@}U+ A  A ! AP+ A d "6-%n "6-%x@$yv 6-6-=6.' } FORFEITURE OF MOVEG A@X68<,-d6-@m6-8,v6-8,zA A6-6-##A}- AA243,1,243,1,243,4{#-A "#6-&| 6-&"6-&}$ -68,- }6-) - 8%8,<%8,,")68,-6-8,%   $(-@@(8,"A1-@}@$6-%8,$16-%8,$4 )!) )!!6-@*68,-4 AC6-8<,"68,--6-%&@}96-@C A "68,-6-@    $ -8, A*-8,&6-%}8,$*6-%8,$<8<,"&"68<,-&8<,, A 26-< A`  $ "6-%6-&" }"6-%6-&, 6   $@<6-@6-@#-+-16-<6-8<,J) "6-&,#/}%)/TA "6-&@',AP5/AT%A/AY^   h2 "6. i ae( A@}2 AurO6-A&6. ,!86-A O6. black| A@`-A6@}2-%@P@P8N2@@R V `2kk243,2,243,2,217,1,193,1,217,1,243,1,162,2,16}2,2,162,1,144,1,193,1,182,1,217,2,217,2,217,1,182,1,193,1217,1,243,8E 6-#Aq6-@) A7-A}; E AwSS243,1,162,1,193,1,162,1,243,1,162,1,193,1,162,1,243,1,162,1,182,1,193,1,243,8; 6-6-@#}Au) A7-A; 6-#####@ A66." @ A@2}B2H2F:B2y,@Ay%167,.67A H,..67@,.1$c -"6-$%}6-@--;-@Q2@c6-&+!,   $++-1,-1,0,-1,1,-1,-1,0,1,0,-1,1},0,1,1,1] #A 09@,9@,9@,>-@D"M68,-V68,-Z ]$204,1,217,1,230,4,}114,46-@! A$5-,%!/%%% -,%5/% ,%%/%%$( -}- A ! % ($ 6-8<, 18,%8,%& "*! A$0")+"*",$:U A$}B2I8,%@H76-8,%@ %OA@$+",U6-D=67<%,.7$&<$,!6-*6-8,36-8,= }ANB-6&67<%,.7$&<$,>2$@@B X Ab$lO A$B2I8,%@H}76-8,%@ %OA@$+",v? -#67<%,.7$&<$,;2$@@?  2:} 6-6-8,6-8,% A7B2I:$f@-L(@( } R-Z(f@$b;A H,,6-P:C:,'A$,$A$5 C:,C6-%A$N6-&C:,bBBy}'AV-AY@F!B2w-A#~6-%A6-%A(-6-%A(;6-%A(S;A},;A,^67,.o67A H,.~67@,.**6. ~~~BBBB~<$$<**6. <<}<~~~~<~~$4] #A!P59@<@,9@<@,I-@@]-@@>"6}8<,-  H$f3316,-6,6,2,2,6,-6,16,-6,-12,-2,-2,-2,-2,-12,-6p))6,-2,6,2,2,6,-2,6,2,-2,2,1,1,2,-2,2z))2,-2,2},1,1,2,-2,2,6,-2,6,2,2,6,-2,633-6,-12,-2,-2,-2,-2,-12,-6,16,-6,6,2,2,6,-6,16D6-@6-6B 0-@@}D-@@8<,!A"-6- A -"A"-6- AP-}"A"D 6-%D6-+'@,$+&@,%8<,$++@e&,'@,% !6-6-6-% A"}"A"?'!?*' @ ?6-P:H:@,$@,%@-"@6-!6-'6--6}-6-  c"6B 6-@(6-@A6.NO POSSIBLE MOVES.K A@_-@Ac } ;1+"@)"@,*+"@)"@,; A#P  6-6-6-$. !!"@*"@A$P8 !!"@}*"@A%B !!"@*"@A%PL 4-@@068<@,-&@4 V 4-@}@068@<,-&@4 ` $ 4-@@068@<,-@&4  4-@@068<@},-@&4  $ 4-@@068<@,-@&4  4-@@068@<,-&@}4  $ 4-@@068<@,-&@4  4-@@068@<,-@&4  $} D2:REFLECTASMTAKCCIRXo D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G%}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)}  hyhyB q L> Lm JJ  Ln*` dB%'}8  H H` 1 { LL   !L     Hh SY?  q  1L}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}``} |||DDOS DOSDOS SYS }}}}D}B&WEATHER B3*RACER B(]MINER BCURSOR BBANNER BDREFLECT CDOS SYS} 0`BDELV !B  }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV }QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh }DEL8HI   0 HI,0 0  9 .G VLO },0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO }STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -}LLu DEHILV 9 .l 9 .l  `` s$B VBH}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL}1 3u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e}1i1232435ޥ<<8} 3E:} Generic Brand Version 0.01 A. Directory I. Format DiskB. Run Cartridge J. D}uplicate DiskC. Copy File K. Binary SaveD. Delete File(s) L. Binary LoadE. Rename File M. Run at AddressF. Lock F}ile N. Create MEM.SAVG. Unlock File O. Duplicate FileH. Write DOS Files9!&x#!7&p))'&X*./)L''-؆莟}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i}il ! 1L WHAT?? SELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L } BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED005 FREE SECTORS COPYING---D2:STAR}.DAT# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A# }PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%!} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u0CDtK]FILENAMEFILEF@@Q@@H n +A @1A@!@}2<@\@@K:nAR@:-@:( !A}:-@@:( |ՠ͠|(:-@@:( 2..;@!B}d$@,;@,;@ ,< BF&&@@D:*.*P-@@dZ@!C}d67@<@,4SYS,6-&@6 APn?'@"P:'@,.@@ 5( ? A0x(!D}@@//7@<@,4 FREE SECTORSA`F([>:@d%,] 7@<@,.7@;)@"@'!G}.@@8+;"AS.)6-&@d) )A(>:@d%,BB6.7+&@!H},$@%@<+&@,$@%@, 6.D:-@@7<,4 A67B:,%@!I},.7<, 67B:,%@,.."((67B:,%@,.7@ <@,,U7@ <@,4EXE)@!J}F@@U6-?:AUv,6&&7@ <@,4LSTA`@&&7@ <@,4SRCAJ!K}@@T%^hw(>:A%,(G(<7@<@,.7@ <@,>J(_(IS A LISTED FILE!L}b(w(MUST USE r A|g(>:A%,(G(<7@<@,.7@ <@,>J(g(ASSEMBLER !M}SOURCE LISTING&(&(MUST USE ASSEM/ED CARTRIDGE-@A % D:MENU.BAS WEATHER BAS 03 RACER !N} BAS 05 MINER BAS 04ILEF@@Q@@H n +A @1A@  &j8ԅ̅8˅ͩ./0ԭ1ՠfԠ&W}%P} &TU & &TU& &!L "i ?!!%Q}####L $####L  Π XXL i `&ХXihХYi%R}ѩҩҩ4f˅ͥ̅Π̅Υ˅Π@W& L& Π@L& W&%S}  ЍҍҍЍЍ03W} & TU %Uh&p &pU %TU%T}& &L#&q& &L#&W Z12L#x 1L"1L" cL"  %U} My 2L)#2L)# cL)#   1Э2 N%` Ј ɪU  Ll# %V}    #8  #  #`ȑ`XiҥYiӢґ͈҅iҥӅi C#`  #``%W}L$2@ҭa@@p<d@ҭ,823Lv$m 20%X}Lv$2Щ %L!ҍ03 L0%2AҭaAAp<dAҭ,%Y}813L%m 10L%1Щ %L!ҍ 03@ҭAҭ0Э3 #L%W T%Z}U % &Un& & TU % &W` ")1Щ %L!)2Щ %L!L%[}#ҩҩd@`ԅ ؠ˱H) &h0`GHFH`TUР & &-L <%\}Z?~6<~~L! Ŗ) 񦔠  $  $L" ]-)a} #曤L"2 ,  ,( e$Ɣ #Ɩɠҩ $L:"Ҥi暤  )b}=v& $ $:/ $ , , ,  ,< $v& L"t$L! R#Ƣ =#w)c} $L!& $L L"` L#襗 =#`A` $ , )d} , $υ' $&ƋХ8*Ɨŗ L|#拽JJ $拥8L#)ߥi $L#`)e}L----$`L-:H(50)1) $`012#*)f}2 ē`ȖxdPFA<72-(# HiL$h`Ŕ` %e` }, `@ #)g} -0~*00*1o Щ&  $ i0)1*ԩi])q}/B&WEATHER BASB3*RACER BASB(]MINER BASBCURSOR BASBBANNER BASBDREFLECT BASB'DOS SYSB*DUP SYSB?MENU BASBOCANYON EXEB]POPCORN EXEB;TAG BASB<ROBOT BASBQCHESS BASBUKDARK BASBAUTORUN SYS敭& &&%L%&)&w&Ƚw&i \_idIJHKp $d)r}ҍҩҩҩq $ɇ $ $L%ҍҩ $&&]Ȍ^ȌqȌr&&ɁL1& $/ $)s}Ѝ Ѝ&@ # # C$ $ $$u&v&`!"#$mnopqr)t} $.9GUy`y`y`y`ly`y`y`l`y)u}<5/<5@<QQQl`y !%!%AAAAAAAAAAAAAAAAAAAAAA)v}AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)w}AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)x}"y-arkand#athy3loatman3#/2%,%6%,ppBA(pppFpA)ppM )y} A5)Hڍ ԍЩ)h@H ԍЭ)z}Щύ)h@H ԍЩЩ)h@Hȍ ԍЩ)h@H ԍ ԩ Щh@H ԍ ԩh@`>xx8* ){}./ (U((UUU(UUU(UU)|}88xxxxxxx???=}?<< 7=}켾;<<)}}=>}}ؼ|?<<?ooooo`onnvvppp>ppppppx| إƏL+I&!ҩ&)~}膝L+Ҧʽ&x +2!ƜƜƜL+ð 朩MiХ+接#+轄+ҩ膍 )}҅7慥/ҥ8( Lb+L\ 膒 `aʩ)}膒 , `2懩 & & & & &eeeie & & )}&eei(栥 ƊL,`8$JJ8ő Ȣ`N煞L,)}` p~>~~~~~~~x  -'x(x(( C$0(C[mSTKLCATTRACPLYRSKIQUICSPSPEEP0PSKHITCLSTRP0PHTCLP1SMILEP2P3EXPLODP0PAINLESWOBBLHPOSPXPO-}SIZEPTAGP0HLDP1HLDP2HLDP3HLDPMBAYPO@7A2@ARA@@B2R @Q-} B2x @5 B2` @ @9eEAB2HA$B2V-}AU  %!AD"A(#A6Ǫθdz!!*********-}******************!!* A SIMPLE GAME OF TAG *!!* DEMONSTRATING WAYS TO *!!* COMMUNICATE WITH THE *!!* -} PAINLES$ PLAYER MOVER *!!* by CHET WALTERS 8/84 * !!*************************** Z +@A1-}AR@4(F( INITIALIZINGP AZ AҠŠӠšC-@%%) -}-96-C @5e @ @&(>:A%,C(ENTER NUMBER OF PLAYERSGe @)!@@ -}s @,1/@9C/@9@U/@g/@s6-A^ @0-}(>:A%,6( ENTER SPEED (1 TO 4):@6-^ @)!@@0#& BF:AV,& A(-}( A -T-&@'%@ + 7TTURN ON STICKS AND PLAYERS01** MAIN GAME -}LOOP **2P F:,6-&@:2A@@FP @`7JR:,@(6-%@-}%J2@@@<^ @&-@6@A%H:,$@%@E ^RANDOM PLAYER MOV-}EMENTA<"@&%@R:,<**CREATE "SHADOW"**FL6-%@*F:B2y,"@66-B6--}@L A KQ%2+!96-%@G6-%AQ APF(>:A%,.(SCORE -} SPEED 2F @@PRF F:,-@,%0 <F @U @P-}XY##**CHANGE SHAPES AND EXPLODE**Z 6.6.6._F-@@P36-P:H:,$A`,%@F6.7<%-}@,d<2@@+A<6-H:,$@iBF:,&$@ B2-}nO!A@@3@E@ O A sm,(>:A%,Š YOUR SC-}ORE M(PRESS START FOR MORE PLAYERSm(PRESS TRIGGER FOR SAME PLAYx:F:B2y,"@$6-@06-: A-}@}FT:,"06-@5&+@ $,<6-F A@P"F:@,"@&$@.6-@:6--}@F6-@P A@ A O A#B"+-A$Au/"59 O A &+@ $,I-} (}6-6-A'6-3EAdAUI ***INCREASE SPEED*****K 0F:@ -},@5F:AV,"@8$KSPEED LIMIT OF 4'-AVAu'(F:,A F:, @ F:-},!A AV&K"2F:,@@& H2K$*+ ***SET SHAPES F-}OR TITLE***,; 0F:B7p,@&6.,6.26.86.;$>?##***RESET PLAYERS TO NORMAL***@ 6.6.-}6.6.$'#(#ӤӠΠś)#*#!!*THESE ARE NECESSARY LINES*+#,#*FIRST DETERMINE P/M MEM*-}-#6-F:A,&@0#1#*PLAYER DATA STRINGS*2#<<;@,;@,;@,;@,;A,5#-}6#**DEFINE PLAYER SHAPES**7#G #A!-@@%"167,.>:,5 GA@@8###0,127,103,103,103,-}103,127,127<#=-@@"'67,.>:,+ =AAH=#0,14,28,28,28,12,12,62A#=-@@-}"'67,.>:,+ =AAB#0,127,115,3,127,79,64,127F#=-@@"'67,.>:,+ =A@p-}G#0,127,79,31,14,103,127,62H#I#""**FOLLOWING LINES OPTIONAL**J#O# *** PAINLES$ REGISTERS ***P#36-A$-}6-A('6-A236-ART#*** SYSTEM REGISTERS ***U#?6-B2H6-B2V'6-B2R36-B2`?6--}B2xX#Y#""**ADDITIONAL PLAYER SHAPES**Z#]];@,;@,;@,;@,;@,;@,;@-},;@,_#K-@@"'67,.>:,+ K129,126,90,255,189,195,126,60d#I-@@"'67,.>-}:,+ I255,255,189,60,60,60,60,126i#K-@@"'67,.>:,+ K24,60,126,231,231,255,231,231n#M-@-}@"'67,.>:,+ M127,255,255,224,239,231,255,127r#**STORE SHAPE DATA**s# 6.6.6.6.'-}נԠРŠ'ĠΠӮқ$'/ #B"!-A$Au%"+/ %'Ϡӛ&'-}90,110,130,150''Ϡӛ('20,58,68,78)'Ϡ˛*' 0,0,0,0+'ϠЯϠԛ-},'16,25,25,25-'Ϡ͠ԛ.'88,79,79,79/'ϠԠԛ0'48,57,57,571'Ϡ-}Ԡԛ2'200,191,191,1913'РŠӛ4' 0,0,0,05'ϠÛ6'1,1,1,0,255,255,25-}5,0,0,07'ϠÛ8'1,255,0,0,1,255,0,0,1,2559'B'!!ŠҠˠԛC'!!ǠĠ-}Ӥt' #B6-u'5 B`6-%@"+67,.>:,5 Bv',,173,28,4,240,3,76,98,228,216,162,-}0,189x'++8,4,201,16,144,3,189,120,2,201,15,240z'++74,56,233,5,48,69,168,185,32,4,24,125|'))0,4,141,78,4,189,12,4,240,13-},173,78~'**4,221,20,4,144,11,221,24,4,176,6,173'&&78,4,157,0,4,185,42,4,24,125,4,4'++141,78,4,189,12,4,240,13,173,78,-}4,221'))12,4,144,11,221,16,4,176,6,173,78,4'---# OF STICKS---*----',,157,4,4,232,224,4,208,163,162,0,142,76'))4-},189,56,4,133,0,189,60,4,133,1,189'''64,4,133,2,189,68,4,133,3,189,0,4'++157,0,208,188,52,4,189,72,4,170,169,0'--141-},77,4,145,0,200,202,208,250,174,76,4'''189,4,4,45,79,4,157,52,4,141,78,4'**189,72,4,170,172,77,4,177,2,172,78,4'--14-}5,0,238,77,4,238,78,4,202,208,237,238'---# OF PLAYERS----*-----'0076,4,174,76,4,224,4,208,164,76,98,228,0,-1''-}ĠΠР'/ #Bb!-A6AF%"+/ '))216,104,201,11,240,3,76,116,228,104'''104,141,-}79,4,133,2,240,10,201,128'%%208,240,169,0,133,3,240,4,169,1'''133,3,104,133,1,104,133,0,208,222'%%170,240,13,165,0,2-}4,101,2,133,0'$$165,1,101,3,133,1,165,0,157,56'##4,165,1,157,60,4,172,79,4,169'&&0,145,0,136,208,251,104,157,68,4'-}))104,157,64,4,104,104,240,174,157,72'&&4,232,224,4,208,203,142,28,4,206'**79,4,104,170,104,168,169,7,76,92,228' -}̠ӤϠΛ' ҠŠŠΛ'jjX=USR(1536,0,(PMBAS*256)+1024,ADR(P0$),8,ADR(P1$),8,ADR(P2$),8-},ADR(P3$),8,ADR(PAINLES$)):POKE 559,62' ҠŠŠΛ'yg6-?:A6<A(<+$AV,%A:AW, ,&/,,2/2F:B7p, !6-P:&,'%%2,%H:,$ 1& ? ,1}?6-%+R:,"@* @8,&+R:,"@*!, ,(T:, R:,"@ "@ -(6-%)6-?1}:<<Ap,<6-?:<<A,@  6-6-Q -(>:AW,7<,%6-%-6-%9!AE6-AQ6-1}A%+ ,6-&?'@+  1& I ,?6-%+R:,"@* @8,&+R:,"1}@*!,CI,% ,/@!(T:,% * @C ,@%N:&,* AXg-A@1}/2A!@?2@W2AU&@cAg bS 22!2-A@1}6-?:<<Ap,S6-?:<<A,l! -( 6-& ! vV-A #-@$)-6(>:AW,:1} D#BJ6-P6-V6-A -(***#-@),- =2AA ?-A@6*21}@?AF:B7p,' "6-%"@#6-' 8 ,6-&?0!-.(>:AW,28,1}2 /,/ #2/A2$  WIN*&-@ &AF:B7p,4I-AU@ 1})2@A2%@@E I >P-@(-@6?P00@2@ H0L 1}P HYA!A @$3A@hEAAHO2Y2R4 -4(&Π1}ġ\D 6-&6-%@%#Bp%3-@H7"@68,-D f36-?:<<Ap,)6-?:<<A1},3 A  LOSE8 -2("̠ӠĠ SCORE: 86-+AU- +(T:,A P1}+AU@-! + A 5 -5('ROBOTS SENSORS ENERGY SCORE: 3 -( $ $ $ *** )61}-@3 A0' AF:A,&@$+6AR@BAO9@H,[6-@g6-@#s61}-A6-@ 6-AP'6-@6-@'6-@236-@3?6-@4K6-@5W6-@6c6-1}@7o6-@8{6-@96-@@6-@D$'%6-F:A`,%F:Aa,$AV<6-F:A,$AVB6-N61}-@Z6-Af6-Ar6-A~6-A 6-@.'f%@@#-@2( ROBOT RAIDD-@01}@Y(by CharleyKormosf;A%,8'(-A#$%F:BsD%,( B'W6-%@-@-( 1} ?-@0@W( L'Q6-%@$6-%A-6-%A36-A-AE"M%1}Q V'Q-%@%@('@+ ?AV'AVQAAHj'C6-A6-A`!"'+1} 76-@)C6-@%t',-@H"68,-" ,#B~'/ -/(!ROBOTS SENSORS ENERGY SCORE:'? -1}( $ $ $ *** #6-'5-@;,? '% 6. 67A%,. %67,.';67@,. * * * *;1}67@H,. *** ***'A67@,. * *A67A,.********* ********'OO67AI,.<********** ****1}***** *******************************'WW67A,.D+++)+)+)+)+)+)+)+)+)+)+)+)+)+)+)+++ ************************1}*******'K'67A,.********************K67A$,.********** *********'=67Ad,. ,, ,,=67A,1}.,,,,,,,,,,,,,,,'9$67A1,.,(((((((((((((((,967Ar,.,,,,,'367A%,. 06-P:H:,$@,%@31}$ZJ0,0,0,255,255,0,0,0[J%%170,170,130,130,130,130,170,170\J 20,85,85,20,20,130,130,130]J27,27,27,27,27,27,27,271}^J%%170,195,195,195,195,195,195,195_J##175,245,95,250,175,245,90,250`J!!85,85,170,175,175,170,85,85aJ!!170,170,85,95,91}5,85,170,170bJ%%255,255,255,255,255,255,255,255cJ%%170,170,170,170,170,170,170,170dJ85,85,85,85,85,85,85,85eJ85,81}5,0,255,255,0,85,85fJ0,0,60,60,60,60,0,0sJdd104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,21}00,192,8,208,247,96tJ__20040,20050,20100,20150,20160,20110,20030,20120,20130,20080,20100,20110,20060,20120,20130~Jkk200701},20140,20090,20010,20020,20040,20170,20180,20190,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Jkk20040,20010,20050,200301},20070,20100,20110,20120,20130,20160,20150,20140,20090,20080,20040,20060,20020Jkk20010,20100,20150,20050,20060,20100,201101},20120,20130,20080,20070,20080,20120,20090,20100,20110,20170J))20180,20190,0,0,0,0,0,0,0,0,0,0,0,0Jee20170,20180,20190,1}20000,20010,20050,20010,20050,20030,20070,20030,20070,20100,20110,20120,20090Jee20100,20150,20140,20130,20080,20070,20060,1}20050,20040,20030,20020,20010,20170,20000,20040,20080Jee20010,20100,20150,20100,20110,20120,20130,20120,20130,20160,20110,1}20040,20170,20180,20190,20190 NGG4,32,5,31,6,30,7,29,8,28,9,27,10,26,11,25,12,24,13,23,14,22,14,22*NFF14,22,14,22,11,24,81},22,5,20,3,18,3,16,3,15,5,16,8,18,11,20,14,224NHH14,22,5,23,6,24,7,25,8,26,9,27,10,28,11,29,12,30,13,31,14,22,14,22>NMM141},22,14,22,13,23,12,24,12,24,14,22,14,22,10,18,11,19,12,20,13,21,14,22HNGG14,22,14,22,8,28,8,28,8,28,8,28,5,31,5,31,11,25,121},24,13,23,14,22RNFF14,22,11,20,8,18,5,16,3,15,3,16,3,18,5,20,8,22,11,24,14,22,14,22\NHH14,22,14,22,13,31,12,30,11,29,10,21}8,9,27,8,26,7,25,6,24,5,23,14,22fNGG14,22,13,21,12,20,11,19,10,18,14,22,14,22,12,24,12,24,13,23,14,22pNGG14,22,13,23,12,21}4,11,25,5,31,5,31,8,28,8,21,8,21,8,21,14,22,14,22zNEE3,12,3,12,4,13,5,14,6,15,7,16,8,17,9,18,10,19,11,20,12,21,13,22NMM11}4,23,15,24,16,25,17,26,18,27,19,28,20,29,21,30,22,31,23,32,24,33,24,33NMM24,33,24,33,23,32,22,31,21,30,20,29,19,28,18,27,11}7,26,16,25,15,24,14,23NEE13,22,12,21,11,20,10,19,9,18,8,17,7,16,6,15,5,14,4,13,3,12,3,12NBB3,12,3,12,3,13,3,14,3,15,3,11}6,3,17,3,18,3,19,3,20,3,21,14,22NBB14,22,3,21,3,20,3,19,3,18,3,17,3,16,3,15,3,14,3,13,3,12,3,12NMM24,33,24,33,22,33,21,1}33,20,33,19,33,18,33,17,33,16,33,15,33,14,33,14,22NMM14,22,14,33,15,33,16,33,17,33,18,33,19,33,20,33,21,33,22,33,24,33,24,1}33NFF14,22,13,23,12,24,11,25,10,26,9,27,8,28,7,29,6,30,5,31,4,32,3,33NAA3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,1}33,3,33,3,33NAA3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,33,3,33 D2:ROBOT.BASMB@BPOHYPESCOR0r#$(,(DZD  B @@P@I@I@ A B5} @@šøǸ 1A@+1B2Q-A5}AH-;@,;Ar,6. PNBRQK (4"@@K4AR@21@5}'-@@1(CHESS<%-@@%( John KrauseFw-@Ai@#"7-@O5}67+%,<+%,,.>:%,S W w67@`<@`,.>:,PY67@<@ ,. ?67A2<A2,.>:A(,5}Y67Ag<Ah,. Z'-AA#A' d'-AA#@' n%-A A6}"!% x!!(Enter skill level (1-5).)@. @I)!@SA0A6&@H))(6}! New game or Set up position?.)@. @I)!@PA`((( Computer vs. you or itself?.6})@. @I)!@PAUA7!6-@P-"@P?A7@K6-@IU A 6}00((You have the white or black pieces?.)@. @I)!@PA"F:BC,@" A6}@&6-?:BC3, A & A!!"@I*"@IA"@P A` A"@P6}AEB2Q@$%@d) A3 A`EA7"q@w$6-?:BC3,36-?:B6}5,[F:A, A)*F:A,!APg6-q A ,U6-F:A,%A36-P:'@&Ab,K6-6}&A &@$U A`6U6-F:A,%A36-P:'@&Ab,K6-&A &@$U A @A+F:A6}, @*F:A,!@'76-@A A J ApT(Please wait ...^%-A8AE"!%6 } h%-BC BCR"!% r)-A")B%(%|9A6-?:A8,5B) %F:6 }A,9 4-A0B3%F:Bv%,4 4-@90B5%F:Bt%,4 (-6 }B5RBC"!% ($4 +AV@1@@4('AY@F'B2w@6 }'B2Q@d'AA'B2Y@'BBy@A#@%%6-F:A`,%AV$F:6 }Aa,%@@h+-%@%@('@+ %@@9@e#%@6}9%@'AVKA@9'A9A@KA@7{"@P!A6}@3AEA#@WA$@iAAP{AAQ<-@@6}(mfwfm<BtF:A6,%A"&"@IA0Q-@p@3-@IA %%6}M Q :( A A$DZ((7@<@2,0(7@3<@d,E(7@e<@,Z(7@6}<A(,N'BT@'BU@X AbW(7A)<A`,-(7Aa<A,B(7A<A$6},W(7A%<AV,l"@I$v*-@@*(7AW<Ad,5-@@5(7Ae<Ar6},>:@),*B A'B A *$""F:Ad,"AU)A@6-)@))76}%@<%@,4>:,A%6-%@% @A A@56-A %%@$'!@566}-Ab& A  A@O Ap!-@5-@G%@@$%K O 6-R6}:,Y/+"@)"@)"@,* @=6-%@YB2Q@$%@dY/+"@)"@ )6}"@,*!=6-&@YB2Q@$%@dV/+"@)"@)"@,* @>6-?:BC3,6}L6-%@V A V/+"@)"@)"@ ,*!>6-?:BC3,L6-&@V A T:,6}"@A` 6-A %%@$*A 4''F:,")F:,!@A`>6-@ A`H6} T:,"@A`R A@\%%2@@@f8#6-B&@$%@$,6-F:,86}p<6-@H0+%,'@&P:+%,'@,<6-@z(%2($6-6}E-@+-@=%@@$%A E ##6-B&@$%@$<6-A 0+%6},'@&P:+%,'@,<6-Ai%"*"AU%6-AQ%"@*"@%6-@1 6}!@#6-AV&16-&A([-@+-@S%@@$%%@$%@$%W 6 }[ $F:A7,6-%@?%@%@+%@&@?%@'@= 6-%-@6!}@ +( difdlnbuf=-@&@ 5'@&P:'@,+( cmbdlPxjot5 A@( xijufPxjot=%2@6"}P@@9-@P= =%2A@@9-@P= $%%26#}./-@ @"/(qsfttPkpztujdlPcvuupo8T:,AB%L1BC&A&@$6$}.6-?:BC ,1$V+-@@+-@@`((( aaaaPPPPaaaaPPPPaaaaPPPPaaaaPPPPj -@@6%}t((( PPPPaaaaPPPPaaaaPPPPaaaaPPPPaaaa~  $229,40,1,64,64,48,89,56,13,44,5,68,21,52,93,605532,81,32,816&},32,81,32,81,36,85,36,85,36,85,36,85EE209,160,209,160,209,160,209,160,213,164,213,164,213,164,213,164EE184,217,176,146'}5,200,129,168,137,188,221,180,149,204,133,172,14172,17,153,192++4,2,3,5,6,3,2,4,7,7,1,1,1,1,1,1,1,1,7--7,0,0,0,6(}0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7--7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7))7,255,255,255,255,255,255,255,255,7''7,6)}252,254,253,251,250,253,254,252!!165,203,9,85,133,204,104,9600160,8,185,25,95,153,0,95,136,16,247,104,9600160,1286*},169,0,153,128,95,136,16,250,104,96 %%255,129,129,129,129,129,129,2550,0,0,0,0,0,0,00,0,0,3,15,15,3,15(0,6+}0,0,192,240,240,192,24020,0,0,0,0,0,0,0<0,0,0,0,0,0,0,0F3,3,15,63,63,0,0,0P192,192,240,252,252,0,0,0Z6,}0,0,0,0,0,0,0,0d0,0,0,0,3,3,3,3n""0,192,240,255,255,63,255,255x0,0,0,0,240,252,252,2550,0,0,0,0,0,0,06-}15,15,3,0,0,0,0,0255,243,3,15,63,255,255,0##255,255,255,255,255,255,255,0!!0,192,192,192,192,192,192,006.},0,0,0,0,0,0,0!!0,60,60,255,255,255,255,255 0,60,60,63,207,243,243,2430,0,0,0,0,0,0,00,0,0,0,15,63,48,06/}63,48,63,48,255,252,0,0252,12,252,12,255,63,0,00,0,0,0,240,252,12,00,3,3,3,0,0,0,0##0,207,207,255,60}192,255,255,255!!0,243,243,255,3,255,255,255"0,192,192,192,0,0,0,0,0,0,0,0,3,15,15,06##255,255,255,192,255,261}55,255,0@!!255,255,255,3,255,255,255,0J0,0,0,0,192,240,240,0T0,0,0,0,48,48,12,12^0,48,48,48,48,252,252,25262}h0,48,48,48,48,252,252,252r0,0,0,0,48,48,192,192|15,3,3,3,3,3,3,0255,0,255,252,255,0,255,0255,3,25563},255,255,3,255,0192,0,0,0,0,0,0,00,0,0,15,63,63,63,15 0,63,51,60,243,255,240,252 0,240,48,243,63,255,6364},2550,0,0,192,240,240,240,19215,3,3,3,3,3,3,0255,0,255,252,255,0,255,0255,3,255,255,255,3,255,065}192,0,0,0,0,0,0,00,0,0,0,0,0,0,04421,12,248,237,235,244,8,19,10,11,1,247,246,24566255,9,11,247,245,9,10,1,246,266}55,46,9,5,3,3,1,0,1443,3,5,9,46,120,169,192,141,55,6,162,0,142,54,666202,142,53,6,76,8,93,189,35,6,24,125,43,6,72,16867}&77185,63,6,188,35,6,153,63,6,104,168,189,3,6,153,630446,24,105,6,168,174,0,6,169,0,157,56,6,174,53,6:44185,24,92,5668},253,56,6,168,169,192,157,56,6,152D77224,0,208,34,221,55,6,48,28,208,11,173,10,210,205N9954,6,144,18,141,54,6,140,55,6,69}173,35,6,141,51,6,173X6643,6,141,52,6,96,221,55,6,48,250,240,248,152,157b5555,6,189,2,6,24,105,6,168,185,24,92,56,253,56:}5,6l55221,54,6,48,59,224,1,240,221,221,54,6,240,50,96v77189,35,6,24,125,43,6,141,2,6,168,185,63,6,172,1,644208,6,206;}1,1,16,192,48,8,201,0,48,186,201,7,24077182,157,3,6,201,6,240,4,201,250,208,12,169,46,1576655,6,104,104,104,104,76,146<}0,93,188,35,6,185,63,666172,2,6,153,63,6,188,35,6,169,0,153,63,6,236,0,688208,3,76,55,92,232,142,53,6,169,20,157,35,66=},169,169956,237,1,6,141,1,6,254,35,6,188,35,6,185,63,6,201,788240,86,172,1,6,240,4,201,0,16,77,192,0,208,4,201,1776>}48,69,201,0,16,9,188,35,6,169,0,56,249,63,6,201,155208,6,32,173,93,76,133,93,201,2,208,6,32,104,945576,133,93,201,3,6?}208,6,32,130,94,76,133,93,201,455208,6,32,142,94,76,133,93,201,5,208,6,32,154,946676,133,93,32,215,94,76,133,93,189,36@}5,6,201,98,4888150,224,0,240,16,169,16,56,237,1,6,141,1,6,202,1428853,6,76,55,92,173,51,6,24,109,52,6,141,52,6,88,1046A} 7796,173,1,6,208,89,189,35,6,24,105,10,168,185,63,666208,36,169,10,157,43,6,32,188,92,189,35,6,201,31 9948,21,201,6B}39,16,17,24,105,20,168,185,63,6,208,8,169*8820,157,43,6,32,188,92,189,35,6,24,105,9,168,185,634886,16,8,169,9,157,43,6,6C}32,188,92,189,35,6,24,105,11>88168,185,63,6,16,8,169,11,157,43,6,32,188,92,96,189H9935,6,56,233,10,168,185,63,6,208,36,6D}169,246,157,43,6R5532,188,92,189,35,6,201,81,48,21,201,89,16,17,56\77233,20,168,185,63,6,208,8,169,236,157,43,6,32,1886E}f6692,189,35,6,56,233,9,168,169,0,217,63,6,16,8,169p77247,157,43,6,32,188,92,189,35,6,56,233,11,168,169z770,217,63,6,6F}16,8,169,245,157,43,6,32,188,92,96,169770,157,11,6,168,185,0,92,157,43,6,32,188,92,254,11996,188,11,6,192,8,48,237,966G},169,4,157,27,6,169,0,1576611,6,240,22,169,8,157,27,6,169,4,157,11,6,208,1088169,8,157,27,6,169,0,157,11,6,168,185,166H},92,157,43776,157,19,6,32,188,92,189,35,6,24,125,43,6,168,1856663,6,208,13,189,43,6,24,125,19,6,157,43,6,76,174776I}94,254,11,6,189,11,6,221,27,6,48,206,96,169,0,1577711,6,168,185,8,92,157,43,6,32,188,92,254,11,6,18811,6,192,8,48,26J}37,96 D2:CHESS.BAS PNBRQK  B @@P@I@I@ A B4*rsE*X*COROSCORSNSNKCXRBTRNCLVMINCRLVLEVEEDCCSSNKSNKNVHGRPGRPOWSCBAS@r@:L}@AA@ A%@5 @` @ AP @ @@@A@ :M}@@2@@@@@ :N}!AU"#B`$AsšøǶ A  = +@AV+AAR=A:O}@8M6-@ 6-@%Ab+,M2A@@2]6-6-A'6-:P}36-@ ?6-A%E6-Q6-]6-AP</%2/ A#FF-@2(:Q}@ Ӻ 0 ̺ F(@ Ժ P&-&(@úc100-190 MAIN LOOPd6-@ :R}Ax-@6@}!@ AP6- A T:,"A'+"@:S} +,@@E-@@"(@06-&@E"6@A "@* :T}AP !@ AP"@AEG6-P:@ $H:@,,?6-P:@"$H:@,,%@G1:U}++"Ab)!A3* A7Ap!!"@5)"ApA5!6-P:+@$,$H:@,,5":V}A@ @5, AMOVE ROBOT6-R:,"$"@A "@A@:W}"@A`"@A6-%@ A ,"@6-@$:X}6-&@ A$ ,"6-@ 6-&@ A$ ,:Y} "@#6-@6-%@ A$ ,"@6-6@"6-%@:Z} A'$+>>CHECK NEW ROBOT POS.,PLOT ROBOT & UP SCORE OR KILL ROBOT,%%2A@@.- 1:[}-20!!"@5)"@AA P2="@6-%A' A1 A0=BLOCK:\}HEAD4;"@6-%@' A1 A0;GREMLIN6]"A4)"A5'6-%A56-%AA6-:]}K AU Ap]SNAKE@D"A66-%A)6-@3 A= A`DGRAPJ Ab,$]:^}SNAKE SUBROUTINE^"@Au`56-P:@$H:@,,)6-@56-@b'"@6-@'6:_}-@d"6-h 1jYA"@)"@)"@5)"Ab)"@A* @$O6-%@:`}Y A`m"@$6-$r&"A4# A&$t&"@A5# A&$w":a}@A|1%@~"AbA55"@)"@)"@5)"@AA  :b}A%6-%@A4% A%"@6-@% A$1&@"AbA:c}55"@)"@)"@5)"@AA  A%6-&@A5% A%":d}6-% A$"@#A1%@"AbA55"@)"@:e})"@5)"@AA   A'6-%@"@'A5"A4 A:f}$"@A1&@"AbA0-"@)"@)"@5)"@A0$ :g} A'6-&@"@'A5"A4 A$440-483 DINIT SUBROUTI:h}NEA6-@Ap,+ @76-A A 6-@ A "A`-&@:i} #6-- A 1&@!!!A3* A7A 6-&@ A-%@:j}!@#6-- A 1%@!!!A3* A7A 6-%@C-"@5)"@A:k})"Ab)"Ap96-C A Ap, A6-%A A ,':l}6-%A6-' Ap+%2A0@@+,(%2($!!GR:m}EMLIN & BLOCKHEAD ROUTINE AE??"@5)"Ap)"Ab)"A4)"A5A5%2A@:n}@/@5,W!6-P:+%@,$H:@,,C2W!A   A:o}E??"@5)"Ap)"Ab)"A4)"A5A y%2A@@/@5,I-:p}@M o2y A !?6-P:@ $H:@,,?6-P:@"$H:@,,%@:q}$ 1$%GRAP SUBROUTINE&V-@"(@.6-:"@ DV,@+:r}!""@#A&!"- 0"@#)"@$31%@%@4"@5)"@A$5 :s} A`8 ,:)6-%@6-%@) AD"@#)"$G1&@%@H:t}"@5)"@A$I A`L ,N)6-%@6-&@) AX"@)":u}$[1&@&@\"@5)"@A$] A`` ,b)6-&@6-&@) A:v}l"@)"@$o1%@&@p"@5)"@A$q A`t ,v):w}6-&@6-%@) AW ,"Ab-6-%A96-@C AM A`W A :x}$56-P:@ $H:@,,)6-@"/6-56- 1"AbAp Ab,#A&];2@:y}P:AP$H:@,,%@%@@]2@ A6,$SCORE & LEVE:z}L ADVANCEf%2@e@@7-@@D(@f2"@:{}) AX!@6-%@+6-&@96-%APK-@@X(@d"-@:|}6'@>2@@RA@$`-d ;%27A:}}; 6 6--@@((@6A $EARN EXTRA ROBOT6-%A%7%2@A:~}C@@7@w)6-&@"@)6-@ Ab,@-@ :} =2@@$6-@@A,46-!-@1(@ :}4$ +A@8+,*I6-%@,!Ab-6-@ 96-@?,I A\-:}@R(@   \ AM%2AU@@7:}AAC!@M APQ-@P =2Q @ A:}-@A@;2@@? a2s-@@(@ :} ##@@K:q-@@q(@NӺ in:}structions begin game a"!-@ W(@( advance level every 5000 ptsa AE:}K-@ K(@( no advance level every 5000 pts7-@"7(@ :} b-@#b(@ choose level >:@,>:@,>:@",>:@&, $_F:Ad, AU:}%)@9!@:0,* @:7,G6-&@H_6-@p&+$@,. F:B2y,@A8%"6:}-@% A@B%"@6-% A0L-F:B2y,"@#@- A!V-F:B2y,"@:}#@- @` A0""STEAL & MODIFY CHARACTER SET"AY";A$,E 6-C:,-6-P:'A:}%@,$@E6-$AV&%@-A< 67%<%,.>:F:%BsD,,$ 06-@<6-@#:} -@ - 9"67%<%,.>:, +6-%@96-%@* 6-@`6-@:}4_ +@AV+AAR=A@8_(@ things in the dark >22(@ LAND THE ROB:}OT >:Ab, ONHa2(@ GREMLINS...>:@, 10 PTSa(@ BLOCKHEADS.>:@, 100 PTSRa2(:}@ SNAKES.....>:A4, 200 PTSa(@ PINK GRAPS.>:A6, 400 PTS\ee(@ AVOID THE NORFS >:}:@5,5 BOTH THE ROBOT AND THE NORF VANISH WHENTHEY TOUCH.fa(@a(@ TOUCHING AN ORANGE GRAP >:@A:}, IS LIKE TOUCHING A NORF.pJ(@(@J(@# press to continuez F:B2y:},@A!pn-n(@ } THE ROBOT >:Ab, GRAP >:A6, AND SNAKE >:A4, :}CANnn(@LAND ON A DINIT >:Ap, BUT A GREMLIN >:@, BLOCKHEAD >:@, ORy,(@:}NORF >:@5, CANNOT.7(@y(@4 number of turns Ժ in which to score per level ̺{(@:} ------------((@;(@̺ ԺF(@{(@'1 60 YOU MUST 2 50 SCORE BEFORE=(@3:} 40 TURN Ժ=(@4 30 REACHS 0.)(@5 20)(@6 10J(@(@J(@# :} press to continue F:B2y,@A"f-f(@} GRAPS REMAIN PINK >:A:}6,!UNTIL THE GRAP COUNTú REACHS 0. c(@c(@ YOU EARN 1 CHANCE AT A SNAKE >:A4, EVERY 10:}00 PTS, AND AT A <<(@GRAP >:A6, EVERY SNAKE >:A4, LA(@ YOU EARN 1 ROBOT >:Ab,:} EVERY 2500 PTS.L(@$ @@(@/ PRESS THE TRIGGER TO STOP OR CONTINUE A GAME.` A VVDATA FOR ROBOT,:}NORF,BLOCKHEAD,GREMLIN,SNAKE(R),SNAKE(L),GRAP(162),GRAP(41),DINIT 24,36,24,126,90,90,24,60 ##126,153,255,195,90,126,3:}6,102 !!126,90,126,255,24,60,36,102 24,36,24,60,126,60,66,195 0,0,12,190,245,67,0,0 0,0,48,121,175,194,0,0:} 66,126,90,60,231,129,195,0 66,126,90,60,231,129,195,0 65,93,42,28,42,73,20,54' DATA FOR GRAP MOVEMENT( ``:}600,620,580,600,620,600,620,580,560,580,600,620,560,620,600,580,600,620,620,600,620,600,99 T:,"A':} T:,"@A' T:,"A@ D2:DARK.BAS OWSCBAS@r@8bJ) !"`3!3