@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` 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}}} HE |||DDOS DOSDOS SYS }}}}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)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK 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 NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u"#TFILEFILE1SELDPAGFLG@@Q"%@@@ V} d..** ATARI DISK MENU SYSTEM ** VERSION 2.1i''** PROGRAM BY: DAVID STELLMACK **k##W}** MODIFIED BY JOSEPH BLUE **l##** TO LOAD M.L. PROGRAMS **m##** FROM 2ND BOOK OF ATARI **n Axp-X}@"D ٠ΠŠ V-@ @ p(NEW DRIVE # |-@$@  (Y} * A0<-@$@ NAdAURh @)!@r A| A0 B$e +@Z}-@@< @DISK # NOTN-@@e(@ ON SYSTEM8 A A`#6-@[}- Ap8@ B Ab-@"C((͠ӠˠM BX\}@b A`m A-@@P:?-@"m (ҠΠŠ]}6@ Ap" A`, B6 A l-@"C (ҠԠΠŠM^} AW A`b@l Bn A@.@@R1:@-@"n((ӭ_}̠ӠΠŠ,@ Ap" A`, APW-@"C((ӭ̠ӠԠΠ`}ŠM AW A`" B@" A-@A $b%2@@a}@9-@@P= _2b$b%2@U@@9-@@Pb}= _2b$"z1;@,;@,;@,;@,C@U@ec}a6-@m6-@z6.D :*.*, +AR@90@S0@] Bd}w67@<@,.=:, AP@@6]1()}ŠŠƠӠŠC-@e}G(Y-@8](@A@!6-5-@@4? A`L@V Bf}b @v-@%(0J7 @*!@ --@%7(T1!@+-@ g}@%&@1(^ h F:A,A6ArM @-"( .-@A( FREE SECTOh}RS M6-@|m!@+-@ @%&@2( N-@%@%&@a( FREE SECTORS m6-@i}M B-@"M((ίЩŠĩŠөӠ>-@@ $( SELECTION >0@@j} @] Ap-@$@ +( =-@$@ OAdAUY A]S27@<@k},4P*+"@)"@,=@I6-@S AL7@<@,4P(6-@B0@l}L AG7@<@,4D(6-@2 A =@G A$$7@<@,4SAm}: 6-A:,& @)!&@&0 A: A_ B(}@;@@G6-n}S"@_6-@4$-@% @$ +67@<@,.7@<@,S67@<@,o}.7@<@,l67@<@,..67@<@,.7@<@,Y 6.-@@,6-@:7<p},,B"@F)"@XY67B:,%@,.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,Gq} @@+@e@=ARG Apr +@-@@4(@LOADINGF-@r}@d(@7@<@,n A5r%??7@<@,4BIN)7@<@,4OBJAPA s}A(@4(@FILE NOT FOUND> A`A%&%-A6A"!% 0WW162,16,32,173,6,134,207,t}104,104,157,69,3,104,157,68,3,169,4,157,74,3,169,3,157,66:RR3,32,86,228,16,3,76,166,6,169,203,157,68,3,169,0,157,69,3,169,u}2,157,72,3,169DXX0,157,73,3,169,7,157,66,3,32,86,228,16,6,192,136,240,92,208,96,169,255,197,203,208NXX4,197,204,240,210v},169,205,157,68,3,169,0,157,69,3,32,86,228,16,2,48,69,165,207,240X\\14,165,203,141,224,2,165,204,141,225,2,169,0,133,207,1w}65,203,157,68,3,165,204,157,69,3bXX165,205,56,229,203,157,72,3,165,206,229,204,157,73,3,254,72,3,208,3,254,73,3,32,86l[[x}228,16,137,192,3,240,133,76,166,6,32,173,6,108,224,2,152,133,212,169,0,133,213,169,12v157,66,3,32,86,228,966-?:Ay}6:MLb!"]"]"]Lb"] ͩЭ)IJ }JЩ8JJө8Ӆ ^Э)LVb cLa̽])]`Sc01"/ vd vd vd`pppGrcpppp }ppppppppppp@ASchollywood medievalby$ouglas#rockford-u }sic# $ouglas#rockford0rogram# !tari )nc!llrightsreserved }0rice&2%%``Le) eFFFLdeҠ eF6 )% e }ҥѠ eLdҠ eF eF eF eF e)JJ))u } 0LqeLqe0)LqeJJJJ LeeLe`()PQxy`[ҵբ }֦Leն ֶҵ&ծ֮ ֲLf ҩК`: ҍ2Qf }` d"}fLifff g`  !"#$%'()*+-.. &     } "!! (*',.X91vd,k_r'r+_kT*rݜr\X{ghhinnospsqsqsrtwwxxxwwxxxyxsrtttuuvvijklmgy{{} AAA }F  I@I P} { A AA+  F+V X + +XI@++ @ +I +V + @ P +V X +  }A AA+  F+V X + +V XM@+z[S *`@ l[*[XI y*`S0*l@ P `*yX}@{[@zlRIz H   } z IIP@ Q yIz /    z II@ 5 Iz Q    z I In@ 5  I0 < IP ` }}0{[@zlA@ HaeX  iP` E 5 I@ QI   5 I  I < A P `}{[ }@zlI H F  F  FI  Q yI FI / n  Iy 5 AA IFKQ    yIK5 }@ A II yI@ /  `}  {S I [/) S ) X) [) X i  S i) X[)  V } S0IV [S I [/) S ) X) [) X i  S i) X[)  V S0IV } {zHS *Q }@I [ n[ `)S l)FX y)[ )FX *Xi *S *l@in [)[ F y y S0 `I Q*yX [*HS *Q@I } [ [ `) S l) X y) [ ) X *yXi  *[S *`@i l) X[ [)  y ` S0 lIV `*yX}y {I } y   yI I F  F  Iy I  y   yI V I F  FI }5 xl:{z#HHS (QI# }[ -` (l[ /`)-H[S *5)/XHQ*<[)5`[*Dl)/XHy *HXi- l *DHHS *5@Qi([ -`)-Xl[*DX`)/H[ y*< }5HQS0*/@[I< ` (lHy*?@ABCDEFG}HIJKLMNOPQRSTUVW}XYZ[\]^_`abcdef}ghijklm$$*** BY M. L. Clayton ***$$*** Copyright 1982 ***}h;A,;@,;@,;@,;A,;@T,9Ab,;@X,9@,zAY} A AP @u"A66-F:,G 6-F:,/"AD*F:, @*!G6-&@"$N:&F}:,,I6-+&A,'@0)6-+&,$&96-%$@P=E6-&I   6- !A 6-A  ;}A8@P,+ @w3,%;/% ; "A8,% -,%;6-'@  i6-P:$}'A,*2@P$%>2%$@PV2@`$@P`6-%'i6-P:,R 68,-68,-&6-P:+&,}$,%,!R2@v&P:+&,',$P:+&,',I 68,-6-&P:',$*6-&P:',$@!* @I68,-} "6-6-6-'6-@36-@?6-@K6-@W6-@ c6-@!o6-@&{6-@P6-}@`6-@v "6-6-@B'6-@636-@D96-E6-@HQ6-@%]6-@Ui6-@}u6-@d6-@6-@0  "6-6-!6-@-6-@96-@E6-@Q6-@]6-}@!i6-@!u6-@'6-@R6-@b6-@x "6-6-@B'6-@636-@D?6-@}2K6-@HW6-@$c6-@Vo6-@{6-@e6-@6-@5  "6-6-!6-@}-6-@96-@E6-@Q6-@]6-@"i6-@"u6-@'6-@S6-@d6-@} "6-6-@B'6-@536-@E?6-@1K6-@IW6-@#c6-@Wo6-@{6-@g6-}@6-@@  "6-6-!6-@-6-@96-@E6-@Q6-@]6-@"i6-@#}u6-@'6-@T6-@f6-@ "6-6-@B'6-@536-@E?6-@0K6-@P}W6-@"c6-@Xo6-@{6-@h6-@6-@E  "6-6-!6-@-6-@96}-@E6-@Q6-@]6-@#i6-@$u6-@'6-@V6-@h6-@ "6-@7}!6-@C-6-@496-@FE6-@)Q6-@Q]6-@!i6-@Yu6-@6-@p6-@6-}@P  "6-6-!6-@-6-@96-@E6-@Q6-@]6-@#i6-@%u6-@'}6-@W6-@r6-@ "6-@7!6-@C-6-@496-@FE6-@(Q6-@R]6-}@ i6-@`u6-@ 6-@q6-@6-@`  "6-6-!6-@-6-@96-@}E6-@Q6-@ ]6-@$i6-@&u6-@'6-@X6-@r "6-@7!6-@C-6-}@396-@GE6-@'Q6-@S]6-@i6-@au6-@6-@s6-@6-@ 6-@p}  6-6-6-@'6-@36-@?6-@K6-@ W6-@%c6-@'o6-@'{6-@}Y6-@t6-@6-@%{6-@76-@C!6--6-@H96-@&E6-@TQ6-@]6}-@bc6-o6-@v{6-@ ? 6-6-6-6-!6-'6--6-36-96-?6-!X6-%%8%,$%6}-%%8%,$66-%%8%,$G6-%%8%,$X6-%%8%,$"T6-%%8%,$%6-%%8%,$66-%%8%,$E6-%}%8,$T6-%%8,$#06-P:',6-P:+&$,',06-P:&$&$,$<6.7$%<$%,)6.7$%<$%,<6.7$%<}$%,/,  )!6-6-,6-@9%$N:,0,  )!6-6-,6-@9%$N:,1,  )!6-6-,6-}@9%$N:,2,  )!6-6-,6-@9%$N:,3,  )!6-6-,6-@9%$N:,5, !) 6-6-},6-@9%$N:,6, !) 6-6-,6-@9%$N:,7, !) 6-6-,6-@9%$N:,8, !) 6}-6-,6-@9%$N:,9, !) 6-6-,6-@9%$N:,:'@'6-?:C:,<<<,<* 8,!}*!* AR$,*/=#!*!* AR,#/>* 8,!*!* AS$,*/?#!*!* AS},#/@* 8,!*!* AT$,*/A#!*!* AT,#/B7 ,/,/+} AR1,7,C' AS,/!,'/D!  ,/,!/E' AT,/!,}'/F/ 2,#/),//GA A%%%-%7-%=A HE }-$ !2)6-$16-%76-; E A0I% 6-%! @5*!@F% JCA%}%'%-5%=%C 'K] #$$-"%A6%3Aa%AA%OA%]}A6%LU AcA%Au7A@IA@uUA%M}AP!Ar@"}3A@$EA"@#WAG@$e-AkyB%D%} N7 +$%%!%A$}/%AH7%O6-F:A`,%$F:Aa,Pa%A8%%@AA89%@BA4M%@D}A8a%@EA8Q$ - %%%F:%%%,$ S-AA-BBATS6-F:%,%}$F:%,#6-%$$16-%AY?6-%A'G6-%M6-S6-UM6-%A@$'%@1%$A%%}@"M%%$Vg%@@%+%@@?%@@S%@@g%@@W}W,@)/@3%/+-7AeO$@S:W,$XO,@s/@w'/@E3}-@IO@@S:Y[ ,//@1+/@07,@@C/@GO/@H[/@0}Z,@5/@21/@3@)C/@F@)U/@t@2g/@y@5s/@5/}@6[,@9@(',@@@(9,@y@6E,@4W/@v@4i,@t@3{/@@3},@2/@i\E,@@1'/@Y@19,@)@0E/@0]g,@9@)+/}@9@4=/@@@4O/@@@)[AgA8^U,@F/@B1/@@@A}C/@A@BU/@A@F_7,@C,@D+,@C7,@D`K,@@D',@@E}9,@@DK,@@EaK,@@C',@@D9,@@CK,@@DbK,@`}@C',@`@D9,@a@CK,@a@DcK,@d@D',@d@E9,@e@DK,}@e@EdK,@h@C',@h@D9,@i@CK,@i@D> "6-F:,( @v)!A}S4A> A(AAF:,( A"A"6-%%%8,$$ 6-$6-%6-} 1AY@F!-%%-A01 +@%A+%A6#-%% #}%% `6-$%P:H:,$@,76-@0%P:H:,$@ ,;P-$$@E6`2$$'E%H:,$}%H:,$12$$%'%E2%$$%'52%'%$A8H:,$5AcH:,$96-P:H:,$,}-6-@ %P:H:,$@,3,9/5AH:,$%A8H:,$) 5AY 6-$6-%6- 4}-6 2@X'02&$'4 E +$-/(@WE HAVE CONTACT !!7-A2E @ -}@(@ Ԡ P:, ͮЮȮ) -)(@ PYLON P:,9-6-P:'$$%+A%$+}',&,$$%P:,,3 96- 6- A0X[[205,181,165,181,205,1,0,14,10,14,2,2,2,0,28,20,28,20,20,28,0,112,16,16, }112,64,120,0,0YQQ255,219,219,219,195,195,195,231,0,224,192,192,192,192,192,193,255,0,255,193ZQQ192,192,192,192,193,255, }0,16,16,16,16,16,16,0,120,72,8,120,72,120,8,0,68,68[\\124,8,8,8,56,0,16,120,16,16,16,16,24,0,124,68,68,68,68,68,124,0,64,6 }8,100,84,76,68,68,&&0,0,0,0,0,1,2,3,4,5,6,7,9,10,8,7--5,4,3,2,1,0,-1,-2,-3,-4,-3,-2,-1,-1,0,1,,0,1,2,3,4,5,7,8,9, }11,13,14,15,15,13,12,,10,9,8,6,5,3,1,-1,-2,-3,-3,-2,-1,0,0,1,,1,2,2,1,0,2,4,3,1,0,-2,-4,-6,-7,-8,-10@@-11,-12,-14 },-15,-15,-14,-13,-15,-14,-12,-10,-8,-6,-4,-2,-1,,0,2,3,5,6,7,8,9,10,9,10,11,12,14,14,15--14,15,16,16,15,13,12,10,9,7,}6,5,4,3,2,155-1,-2,-4,-5,-7,-8,-9,-9,-8,-8,-8,-9,-9,-8,-7,-644-5,-4,-2,-0,-1,-2,-3,-3,-2,-1,-1,0,-1,-2,-2,-1%%0,1},2,3,4,4,5,6,7,8,9,8,6,5,3,3&&3,3,5,6,7,8,9,8,9,10,9,7,6,5,3,1551,2,1,0,-1,-2,-3,-4,-6,-7,-8,-9,-10,-12,-11,-1166}-10,-10,-9,-8,-7,-6,-6,-7,-6,-5,-4,-4,-3,-2,-1,0))-1,-3,-2,-1,1,0,2,3,4,5,4,4,5,5,4,4//4,2,1,0,-1,-3,-4,-5,-5,-5,-4,-}3,-2,-1,1,0TT72,169,2,69,79,37,78,141,10,212,141,23,208,169,25,141,0,2,169,6,141,1,2,104,64 +$@6-F:A,&&}(AY@F4BBy@A# + %%AH#%$+%!3B2VB2W'B2X}3B2Y$6-F:A4,%F:A5,$)6-F:A@,%F:AA,$.36-$%A$&"%P:',3%&F:%,$}3-6-%A6-%A(-6-%A(8%%%&P:',$%%%P:',9-%@&P:',$-%@P:'},:-%@&&P:',$-%@'P:',=5&A@'%%5%AEV%@f%}A+@w1-P(@V-F^%A49(@ MIDNIGHT STRIP ?-}^(@GE -E(@! random  H# 6-$6-%A#}6-# IL6.7$<A,6-$,6-%AX2:%B%L%%JE6-%Ah6-%$'6-Ap}+ 96-%@GA6-%E K36-%@36-% %6-%/6-%%3 L36-$%A6-$%#6-' 3B}2wMA 6-6-A+F:,%F:%,"AV16-=6-AA N>F:,!A %@v.%A46->} AO/ 6-%A%%@f/ AP:F:,"%%@v*%A06-: AQ! 6-}%%!%@fR6F:@w, ,2A!&$@a6 A S 2 A UH:,$AUF:,} VF -%0(@ YOUR  :2B-F WO !*<6-8,%8@V,%8@w,%8AV},%8$,E"6$O AX "6-6 AYC #A -""68,-52O:$+%,,9 C AZc} -%+#P:H:,$@',$%A 9-@1A6-%E"N68,-c2O:$@,[   \4 6--& }6-&02+$,&P:',4 ]2 226-#6-/@w2$6-6-@'6-@36!}-@?6-@PK6-AS6-$_6-Ak6-AUw6-A02AC Au-@ "}!6-@y-6-A96-A2E6-A6Q6-AD]6-A$i6-AVu6-B2I)2A6- #}) A6-@6-@'6-@36-@?6-@K6-@W6-@c6-@ o6-@${6$}-@26-@86-@96-@`6-A#6-6-)2A!- ) A@@6.6TRY A%}GAINPATHETIC!FINISHED!GOOD JOB!EXCELLENTAMAZING!!BB6.8hhhhhhh8`eЅЩeхѩ?2A&}b- ) A52%? A%H:,$$=6-F:AV,$"-@=67<,.>:F:%A'}'%,,)"@02@) A;"@p-@)-327 ; ! 2A6(}! AW -%"/67%@<%@,.>:,;"@0M2A6$W A)"@E2@)}) A+"@`!2AC$+ A)"@w2@E) A "2 *}AG 2A!-# 32AC;-? G%?-AC@`6$2( 22+}<2?$ M 2-P:',6%%-%5%AAcMA MAA8'A,}812;2E-$I M  > - 26-$&&$%+A%&,$$%P:,8 >6- 76-P:O:%,'-}A ,/!Ay* A76-& Q 6-!A6-'!A-6-9!A?6-K!AQ6- Q +.}$-2 %!+-Q(@7$@ %<$%@ , ? -?(@Ҡ̠ٺ P:/}, ͮЮȮ ? -1(@ Ҡź 7!? &$ 1 "-'(@ (JOYSTICK)1 A00}  -(@(PADDLE) J - -B(@ӠϠ J-$ <$(@1}*6-0 66-<6- # -#F:,")F:,"@   O 6-&"*!!-O(@2} Ƞź   / "*"-+(@ (JOYSTICK)/  5"*!-1(@ (PA3}DDLE) 5  8 -8(@ Ҡź   + "-'(@ (JOYSTICK)+  % -!(@4} (PADDLE) % 9-$+%,6"-%&/%H:,$92   %2 $6-?:C:,<5}<<,$D:ROADRACE.BAS%2 $6-?:C:,<\rTaTriiii ޥɉ eo, D @Т$/@D ԍF 7}Ѝ/ԍҢ G $čv401 \ԩ./Щ@LM8}` ˩&˥˅&̥̅&&̥eυ˥eЅ̩e˅˩0e̥̅)JJe˅˥i`͢ Ω'ˈV& & 9} ͽ ν '  ( " ) ˑ˥m' ͥm( ) & PթT֭i z 7y 8\:}l| , !P O ҩҩҩҍҍҩM"Յͥօ  1LqL:L;}ҭxH Q }Q ׽a }a ܥe׍- ɟЅ8Q * e؍. U8a +  1ˍM N * ͭ+  1HhLh<}M N  - խ. LO 'P H O Ս/ 1 3 ֍0 2 4 M N  LqP H ݉ P 蝉 !!) Յͥօ=} =  ) P Q eͅͽa e΅Leͅ3 3 L1 1 ΅4 4 L2 2 N M LO >} I P8\lL. y } 0 8 LC @D , ?}@D LMҍҍҩF G ӭG ҭ )ҭ ) G G ά Gɐ%H)) @}L9, )ɟͭ )~U  1 ͅե΅֩I  P/ ͭ0  1˩$F ЅL/ 5 0A} 6 7 7 J !K 8 L 5 ͭ6 I  1ˑLO ` 1L J 5 }Q 5 6 }a 6 Lz8 8 K LB}u7 7 P Lay  ݄ L&8  y L0 y Й `Lѭ8 C}8,  )Lj}ͭ}  1A ̥i,i LD @ 8,9 8 : @ 9 D}}q 9 ͭ: }u : =   ѩ? L'@ ?   L  Lm LC    L'C iC  E}L/@ ?   L LY C  LmC iC  Lu  RD `  L? 9 }q ; ͭ: }u < F}ΥɟU = ``? @ ; 9 < : `? i)? `? 8)? `9 3 3 L*1 1 : 4 4 LB2 2 G} 1 `ҍҭ4 82 B 1 81 = 2 > 82 3 i3 4 i4 E E )E  ڭ= ͭ> H}   )жE  )ЦE LE L  L= i= 3 Pmi1 = E ҭB I}B > i> 4 = 1 hhLhh`= ͭ>  1 ˑ````= ͭ> 82  1`J}`! IL_A 0 ҩA ӭD L_ԭ )ԭ)ԍХҥѭL>iK}Э, 1i/Хi}~@F L}L_pppM0 F F4A4'4#52M},63#/2%'!-%/6%2@(Dp'.#*0')*.0.//00@ N}BC $$$88$$$B C @@ 0 0 ?TTUUO}' d0P}rT' d000`ų ɠ8峅 & & &Ii(巅 & &8Ie巅ɠ)1JJ18R}L/1`崐L0Ii00JI8ejEEFffȥ$8ji( L0ij`1%1JI8ejS}EE01i(涥$8jFffL+1ij`Ii崐L1Iir11JI8ejEEFffȥ$T}8j8( ƶL1ij`11JI8ejEE8(ƶ$8jFffL1ij`0 U}U++ 021 80,ō+ũŅĝ,G--G.P + +8a+ +ЉV} ) , ,¥ ,å ,дLQ+,H--H. 0`LH,8),eɠ88,H-eW}ɠ8+,…8…H--e8Å8Å-H.e8ą8ąH.` )i- )i, )i},H- )X}i}-H. )iÅĭ )i`Ii ),e` )08`i`? 22pppNPY}NZ}A 2+N549LG4ppppG:ppF4A4gameoverpressstart eӍ#49Ѝ+4,4-4.4<9 8 8\}041o(9č9<9Щ9Щz979./Щ0ԩH4č95̩ \䩉&5'(]}5)Ѝ9999Ң9999:123)9J ( ԭ )Р Ѝ ԭ )Ј^}Э99Lc4)бLG499`999999999)9ҩ9`9<97 8ҎҎҎҎ_}/40\:L5:40:L5L8 Ѝ9Ѝ990 9J ҭ909 ҭ909 ҭ9999ҭ99 ҩ`}L89 9999 999999'99999M99x) ҩ9x8 a}jjjj9999Nx99999 #499)999)999iJ9 #4999i 9 b}#4999m999m99299?9 992@999)9 99 :9i99i9c}19:9}:9 i9 8m99L8 9 8m991"911"91РjL89}999 8m99Lo8d}9 8m990L79:ҠN9( 99H 8h+4+4Н+4L8΍LbH 9 8hLo89:`e}ȩ:` Ȱ: ) 99:9`9: ) ҩ9` 0 ?~ >HP<.<8x|~P<.<8x||Bf}$<<<~~B$<(<<~~D$<<<~"$<(<<~D$<<<9>9>9&9&9&9n99V9J9J9J9292929z99b9P&)g}4<<~~D$<<<~"$<(<<~D$<<<9>9>9&9&9&9n99V9J9J9J9292929z99b9P&) ?b'DOS SYSb*+DUP SYSb%UMENU b?HOLLYMEDOBJbuROADRACELSTb6FILLERUPOBJb QQIXDEMO OBJb [HARVEY OBJb qPONG OBJbJ|KNIGHTS LSTbXCRICKETSLSTb BURP LSTb5*TBIRD LSTb8_PHANTOM LSTb3CLOSEOUTLSTbzAUTORUN SYS@D/?? 0@ @L@ %@`L@ 0@`} $ة????(? B?(? B!r}?? B??' B?T B ?? C C?`Mҍҍҍҍҍ 7B???!s}? !B YB ,B???? !B BB 7B ,B?? !B BB YB 7B ,B?? BT???? Bp pB?? B B?? !t} B Bq pB?#? B B??Y B B B BL@ ~B BL@L@L@??XAYA?( A? A?!u}???(`mAAmAA`?ALA?ALA?͍ALA?m??`?m??``ҩҭ?I??`ҩҭ?I!v}??`JJJ i`(Ȉ`<` B B` B B`?LB ChhL@???? &?`!w}BҩҠLB Bi   BLB B``?HHH]CD^C? \C]C^CL.C \C `C]C^CL@Chhh`D`?)`!x} @? @L B?I )L B!y}TIME :SCOREYOU WINYOU LOOSE!z}c6@!{}6@ 1 REM ****************************2 REM ** KNIGHTS by Sydney Brown *3 REM ** FEB 83 *4 REM ** ACE NE%}}WSLETTER *5 REM ** 3662 VINE MAPLE *6 REM ** EUGENE, OR 97405 **7 REM ** $ 10 YR **8 REM%~} ****************************10 ? "}":POKE 710,194:? ,:? "ԠҠ٠":? :? "YOU ARE SIR CYRIL THE BRAVE AND YOU"12 %}? "HAVE SET OUT TO RESCUE THE BEAUTIFUL":? "PRINCESS WHO WAS CAPTURED AND LOCKED"14 ? "IN THE TOWER OF THE EVIL KINGS CASTLE%}":? :? "YOU BEGIN IN THE ENTRANCE CHAMBER OF":? "THE CASTLE."16 ? :? "YOU MUST SEARCH ALL THROUGH THE VERY";:? "CONFUSING MA%}ZE OF ROOMS AND FIND THE"18 ? "THREE STAIRCASES,ONE LEADS TO ANOTHER":? "TOWER & YOU ARE SENT BACK TO THE":? "ENTRANCE CHAMB%}ER TO BEGIN AGAIN."20 ? "ANOTHER LEADS TO THE DUNGEON WHICH":? "ALSO LEADS BACK TO THE ENTRANCE HALL."22 ? "THE THIRD LEADS%} TO THE TRAPDOOR ROOM,":? "IF YOU MAKE IT PAST THIS ROOM THEN YOU";:? "HAVE MADE IT."24 ? :? "THE TIME YOU TAKE IS SHOWN AT %}THE END":? :? "ӠŠԠΠĠĭ";80 IF PEEK(53279)<>6 THEN 8090 POKE 106,PEEK(106)-295 GRAPHICS 18:POK%}E 708,30:POKE 709,140:POKE 710,188:A=PEEK(106)*256100 FOR B=0 TO 511101 IF (B>423 AND B<456) OR B>463 THEN READ D:POKE A+B,%}D:NEXT B:GOTO 110106 POKE A+B,PEEK(57344+B):NEXT B110 TM=0:POSITION 0,0:? #6;"}":POKE 710,10:POKE 712,0:POKE 708,44:POKE 70%}9,222:POKE 711,140:POKE 756,PEEK(106)190 GOSUB 2000191 H=10:V=11:POSITION 0,11:? #6;"":GOSUB 900:FOR W=0 TO 10:COLOR 245:P%}LOT W,11:FOR WW=1 TO 100:NEXT WW192 COLOR 32:PLOT W,11:NEXT W:COLOR 245:PLOT 10,10:FOR W=1 TO 100:NEXT W:COLOR 32:PLOT 10,10%}:COLOR 245:PLOT 10,9193 FOR WW=1 TO 100:NEXT WW:COLOR 32:PLOT 10,9:COLOR 245:PLOT 10,8:FOR WW=1 TO 100:NEXT WW:COLOR 32:PLOT%} 10,8198 GOSUB 920:COLOR 245:PLOT H,V:X=8:QQ=0200 TM=TM+1:ST=STICK(0):IF ST=11 THEN LOCATE H-1,V,Z:IF Z=32 THEN COLOR 32:PL%}OT H,V:COLOR 245:H=H-1:PLOT H,V202 POKE 77,0:IF ST=7 THEN LOCATE H+1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT%} H,V204 IF ST=14 AND V>0 THEN LOCATE H,V-1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V-1:PLOT H,V206 IF ST=13 AND V<10 T%}HEN LOCATE H,V+1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V+1:PLOT H,V270 IF V<1 THEN X=H:H=10:V=11:GOTO 290279 FOR W=1%} TO 77:NEXT W:GOTO 200290 IF X<8 THEN XX=A:ON A GOSUB 925,930,935291 IF X>11 THEN XX=B:ON B GOSUB 925,930,935292 IF X<12 A%}ND X>7 THEN XX=C:ON C GOSUB 925,930,935295 COLOR 245:PLOT H,V300 QQ=0:ST=STICK(0):IF ST=11 AND H>0 THEN LOCATE H-1,V,Z:IF Z%}=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H,V301 POKE 77,0302 TM=TM+1:IF ST=7 AND H<19 THEN LOCATE H+1,V,Z:IF Z=32 TH%}EN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H,V304 IF ST=14 AND V>0 THEN LOCATE H,V-1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 2%}45:V=V-1:PLOT H,V306 IF ST=13 AND V<10 THEN LOCATE H,V+1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V+1:PLOT H,V340 IF H<%}1 OR H>18 OR V<1 THEN 355350 FOR W=1 TO 77:NEXT W:GOTO 300355 IF XX<>Q THEN 360356 IF H<1 AND A=3 THEN GOSUB 940:GOTO 400%}357 IF H>18 AND C=3 THEN GOSUB 940:GOTO 400358 IF V<1 AND B=3 THEN GOSUB 940:GOTO 400360 IF H<1 AND XX=1 THEN ON A1 GOSUB 9%}20,930,935361 IF H<1 AND XX=2 THEN ON A2 GOSUB 925,920,935362 IF H<1 AND XX=3 THEN ON A3 GOSUB 925,930,920365 IF H>18 AND %}XX=1 THEN ON C1 GOSUB 920,930,935366 IF H>18 AND XX=2 THEN ON C2 GOSUB 925,920,935367 IF H>18 AND XX=3 THEN ON C3 GOSUB 925%},930,920370 IF V<1 AND XX=1 THEN ON B1 GOSUB 920,930,935371 IF V<1 AND XX=2 THEN ON B2 GOSUB 925,920,935372 IF V<1 AND XX=%}3 THEN ON B3 GOSUB 925,930,920380 H=10:V=11:COLOR 245:PLOT H,V:IF QQ=1 THEN QQ=0:GOTO 200399 XX=X:GOTO 300400 ST=STICK(0):%}TM=TM+1:POKE 77,0401 IF ST=11 AND H>2 AND V=10 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H,V402 IF ST=7 AND H<13 AND V=10%} THEN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H,V404 IF ST=6 THEN LOCATE H+1,V-1,Z:IF Z=122 OR Z=32 THEN COLOR 32:PLOT H,V:H=%}H+1:V=V-1:COLOR 245:PLOT H,V405 IF Z=122 THEN 450406 IF ST=9 THEN LOCATE H-1,V+1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245%}:H=H-1:V=V+1:PLOT H,V449 FOR W=1 TO 77:NEXT W:GOTO 400450 IF V=2 THEN ON AS GOTO 480,490,550452 IF V=5 THEN ON BS GOTO 480%},490,550454 ON CS GOTO 480,490,550480 GOSUB 950:H=18:V=11:COLOR 245:PLOT H,V:GOTO 600490 SOUND 0,0,0,0:POKE 53768,5:POKE 5%}3761,168:POKE 53765,168:POKE 53760,254:POKE 53764,127:GOSUB 960495 COLOR 245:H=1:V=10:PLOT H,V500 POKE 77,0:TM=TM+1:ST=STIC%}K(0):IF ST=6 AND V>3 THEN COLOR 32:PLOT H,V:H=H+1:V=V-1:COLOR 245:PLOT H,V502 IF ST=11 AND H>8 AND V=3 THEN COLOR 32:PLOT H,%}V:H=H-1:COLOR 245:PLOT H,V504 IF ST=7 AND H<19 AND V=3 THEN COLOR 32:PLOT H,V:H=H+1:COLOR 245:PLOT H,V530 IF H=19 THEN SOUN%}D 0,0,0,0:SOUND 2,0,0,0:GOTO 540539 FOR W=1 TO 35:NEXT W:GOTO 500540 POKE 712,0:GOSUB 920:H=10:V=11:COLOR 245:PLOT H,V:GOTO%} 200550 GOSUB 910:COLOR 245:PLOT 4,3:FOR W=1 TO 7:R=RND(0)*220+5:SOUND 0,R,10,10:SOUND 1,R+1,10,10:FOR WW=1 TO 77589 NEXT W%}W:NEXT W:SOUND 1,0,0,0:SOUND 0,0,0,0:GOSUB 920:H=10:V=11:COLOR 245:PLOT H,V:GOTO 200600 TM=TM+1:ST=STICK(0):IF ST=11 THEN LO%}CATE H-1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H,V601 IF Z=123 THEN 490602 IF ST=7 THEN LOCATE H+1,V,Z:IF%} Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H,V603 IF Z=123 THEN 490604 IF ST=14 THEN LOCATE H,V-1,Z:IF Z=32 THEN COL%}OR 32:PLOT H,V:COLOR 245:V=V-1:PLOT H,V605 IF Z=123 THEN 490606 IF ST=13 AND V<10 THEN LOCATE H,V+1,Z:IF Z=32 THEN COLOR 32%}:PLOT H,V:COLOR 245:V=V+1:PLOT H,V607 IF Z=123 THEN 490610 IF V<1 THEN 650649 FOR W=1 TO 35:NEXT W:GOTO 600650 GOSUB 910:%}COLOR 32:PLOT 16,3:POSITION 10,10:? #6;"x"660 RESTORE 1900:FOR W=1 TO 14:READ F:READ D:SOUND 0,F,10,10:SOUND 1,F+1,10,10:FO%}R WW=1 TO D:NEXT WW:NEXT W:SOUND 0,0,0,0:SOUND 1,0,0,0670 POSITION 6,0:? #6;"";TM690 POSITION 4,11:? #6;"press start"%}695 IF PEEK(53279)<>6 THEN 695699 GOTO 110900 GOSUB 910:POSITION 0,0:? #6;" ԠҠ":SOUND 0,0,0,0:POKE 53768,4:%}POKE 53761,168:POKE 53765,168902 POKE 53760,254:POKE 53764,127:FOR WX=1 TO 7:FOR W=12 TO 252 STEP 16:POKE 710,W905 FOR WW=1%} TO 10:NEXT WW:NEXT W:NEXT WX:POSITION 0,0:? #6;" "909 SOUND 0,0,0,0:SOUND 2,0,0,0:RETURN 910 POSITION 0,0%}:? #6;"}":POKE 712,0:POKE 709,222:POKE 708,44:POKE 711,140:POKE 710,10911 POSITION 2,2:? #6;"^^^^^ ^^^^^":POSITION 3,3%}:? #6;"^ ^ ^x^":POSITION 3,4:? #6;"^^^ ^^^"912 POSITION 2,1:? #6;"^ ^ ^ ^ ^ ^"913 POSITION 3,5:? #6;"%}^^^ ^ ^ ^ ^ ^^^":FOR W=6 TO 10:POSITION 3,W:? #6;"^^^^^^^^^^^^^^^":NEXT W914 COLOR 32:PLOT 4,8:PLOT 6,8:PLOT 10,8:PLOT 14,8:%}PLOT 16,8:FOR W=9 TO 11:PLOT W,9:PLOT W,10:PLOT W,8:NEXT W919 RETURN 920 POSITION 0,0:? #6;"}":QQ=1921 POKE 708,44:GOSUB 9%}90:COLOR 32:PLOT 4,0:PLOT 5,0:PLOT 9,0:PLOT 10,0:PLOT 14,0:PLOT 15,0:PLOT 9,11:PLOT 10,11924 RETURN 925 POSITION 0,0:? #6;"%}}":X=1926 POKE 708,90:GOSUB 990:COLOR 32:PLOT 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLOT 19,5:PLOT 19,6:PLOT 9,11:PLOT 10,11929 R%}ETURN 930 POSITION 0,0:? #6;"}":X=2931 POKE 708,202:GOSUB 990:COLOR 32:PLOT 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLOT 19,5:PLOT %}19,6:PLOT 9,11:PLOT 10,11934 RETURN 935 POSITION 0,0:? #6;"}":X=3936 POKE 708,138:GOSUB 990:COLOR 32:PLOT 0,5:PLOT 0,6:PLO%}T 9,0:PLOT 10,0:PLOT 19,5:PLOT 19,6:PLOT 9,11:PLOT 10,11939 RETURN 940 POSITION 0,0:? #6;"}":POKE 708,44:POKE 709,6:POSITIO%}N 0,0941 ? #6;" ^ ^ ^ ^ ^ ^ ^ ^ ^ ^";:FOR W=1 TO 11:? #6;" ^^^^^^^^^^^^^^^^^^^";:NEXT W:COLOR 32:PLOT 10,8:DRAWTO 8,10942 P%}LOT 9,3:DRAWTO 2,10:DRAWTO 13,10:DRAWTO 17,6:COLOR 122:PLOT 10,2:PLOT 11,7:PLOT 18,5949 H=10:V=10:COLOR 245:PLOT H,V:RETURN %}950 POSITION 0,0:? #6;"}":POKE 708,14:POKE 709,38:GOSUB 990:PLOT 6,1:DRAWTO 6,6:PLOT 13,10:DRAWTO 13,5951 COLOR 32:PLOT 1,0%}:PLOT 2,0:PLOT 17,11:PLOT 18,11952 COLOR 123:PLOT 9,1:PLOT 10,10:PLOT 1,5:PLOT 18,6:FOR W=1 TO 14953 Y=INT(RND(0)*8)+2:X=IN%}T(RND(0)*16)+2:LOCATE X,Y,Z:IF Z<>32 THEN 953954 PLOT X,Y:NEXT W959 RETURN 960 POSITION 0,0:? #6;"}":POKE 712,4:POKE 710,0%}:POKE 708,10961 W=8:COLOR 94:FOR Y=4 TO 10:FOR X=W TO 19:PLOT X,Y:NEXT X:W=W-1:NEXT Y:COLOR 219:FOR W=4 TO 16 STEP 4:FOR X=W%} TO W+2962 PLOT X,9:PLOT X,10:NEXT X:NEXT W:PLOT 11,6:PLOT 15,6:COLOR 218:PLOT 19,3969 RETURN 990 COLOR 94:PLOT 0,0:DRAWTO%} 19,0:DRAWTO 19,11:DRAWTO 0,11:DRAWTO 0,0:RETURN 999 RETURN 1000 DATA 28,8,62,93,93,20,20,54,1,3,7,15,31,63,127,255,255,127%},63,31,15,7,3,11005 DATA 0,8,120,8,28,62,8,24,126,126,126,126,94,126,126,126,170,255,170,170,170,170,255,1701010 DATA 0,0,0%},0,0,0,0,0,0,0,0,0,0,0,0,0,01050 DATA 253,253,253,0,223,223,223,0,0,0,0,0,0,0,0,01900 DATA 49,75,53,60,75,25,59,50,65,50,75%},50,90,50,100,50,110,25,100,25,90,50,100,25,90,25,80,1502000 A=INT(RND(0)*3)+12001 B=INT(RND(0)*3)+1:IF B=A THEN 20012002 %}C=INT(RND(0)*3)+1:IF C=A OR C=B THEN 20022010 A1=INT(RND(0)*3)+12011 B1=INT(RND(0)*3)+1:IF B1=A1 THEN 20112012 C1=INT(RND(%}0)*3)+1:IF C1=A1 OR C1=B1 THEN 20122020 A2=INT(RND(0)*3)+12021 B2=INT(RND(0)*3)+1:IF B2=A2 THEN 20212022 C2=INT(RND(0)*3)+%}1:IF C2=A2 OR C2=B2 THEN 20222030 A3=INT(RND(0)*3)+12031 B3=INT(RND(0)*3)+1:IF B3=A3 THEN 20312032 C3=INT(RND(0)*3)+1:IF C%}3=A3 OR C3=B3 THEN 20322040 AS=INT(RND(0)*3)+12041 BS=INT(RND(0)*3)+1:IF BS=AS THEN 20412042 CS=INT(RND(0)*3)+1:IF CS=AS O%}R CS=BS THEN 20422050 Q=INT(RND(0)*3)+12099 RETURN 2042 CS=INT(RND(0)*3)+1:IF CS=AS O$[100 REM ***********************110 REM ** COURTING CRICKETS **120 REM ** S.O. 12-82 **130 REM *********************)}**140 ? "INITIALIZING ....."150 DIM D$(1),F$((INT(ADR(D$)/2048)+1)*2048-ADR(D$)-1),DD$(1024),P0$(256),P1$(256),P2$(256),P3$)}(256)160 DIM BL$(13),CR$(12),CRJ$(12),CRF1$(12),CRF2$(12),CRM$(12),STK$(32),HT1$(12),HT2$(12),SND$(173):HI=ADR(DD$)/256170 )}DIM GF1$(15),GF2$(15),DRP$(13),CUR$(12),COLDR$(4):GF1$="HIXLMXPQXTUXXXX":GF2$="JKXNOXRSXVWXZ[X"180 REM ** Joystick Routine *)}*190 RESTORE 200:FOR J=1 TO 32:READ A:STK$(J,J)=CHR$(A):NEXT J:STK=ADR(STK$)200 DATA 104,173,132,2,240,12,173,207,6,240,20,)}169,0,141,207,6,240,13,173,207,6,208,8,173,120,2,41,3,141,207,6,96210 REM ** Sound Data **220 RESTORE 230:FOR J=1 TO 173:RE)}AD A:SND$(J,J)=CHR$(A):NEXT J230 DATA 0,60,3,70,3,80,3,90,3,100,3,100,3,0,0,108,10,108,10,108,10,81,20,64,10,108,10,108,10,1)}08,10,81,20240 DATA 64,10,0,30,53,10,85,10,53,10,96,10,53,10,96,10,53,10,91,20,102,10,108,10,108,10,85,20,72,10,108,10250 D)}ATA 108,10,108,10,85,20,72,10,0,50,53,15,47,5,53,10,60,10,64,10,72,10,81,20,40,20,0,0260 DATA 121,40,91,30,91,10,91,80,121,4)}0,81,30,96,10,91,80,121,40,91,30,72,10,60,40,72,30,91,10,91,40,96,30270 DATA 91,10,81,80,0,0,243,40,243,40,243,10,243,40,204)},40,217,10,217,40280 DATA 243,10,243,40,255,10,243,60,0,0,47,10,72,10,60,10,64,10,72,10,64,10,60,10,72,10,0,0290 HS=INT(ADR)}(SND$)/256):POKE 209,HS:LS=ADR(SND$)-HS*256:POKE 208,LS:SOUND 3,0,0,0300 DIF=1310 REM ** DD$ is Screen Data **320 DD$(1)=")}@":DD$(448)="@":DD$(2)=DD$:DD$(449)=CHR$(0):DD$(828)=CHR$(0):DD$(450)=DD$(449)330 LINE1=ADR(DD$)+513:HL=INT(LINE1/256):LL=LI)}NE1-HL*256:POKE 88,LL:POKE 89,HL340 POKE 559,0:GOSUB 1140:GOSUB 1330:GOSUB 1530350 GRAPHICS 0:POKE 756,START/256:GOSUB 1380)}:POKE 559,0:POKE 560,0:POKE 561,6:POKE 559,34:GOSUB 1710360 A=USR(1670):VERT=8:GOSUB 1780:POKE 88,LL:POKE 89,HL:POSITION 12,)}0:? DIF:BRO=0370 POKE 708,68:POKE 709,254:POKE 710,86:POKE 711,44:POKE 712,72:POSITION 16,7:? " courting crickets "380 POSI)}TION 2,0:? "dif level":RESTORE 382:FOR J=1 TO 4:READ A:COLDR$(J,J)=CHR$(A):NEXT J382 DATA 228,36,4,230390 DD$(613,652)="YYY)}YYYXXXXXYYYYYYXXXXXYYYYYYXXXXXYYYYYY"400 DD$(653,692)="YYYYYYXXXXXYYYYYYXXXXXYYYYYYXXXXXYYYYYY"410 DD$(693)="_`XX_`XX_`":DD)}$(769)="abXXabXXabX"420 GN=0:WFLG=0:GIFT=0:DROP=0:DD$(552)="XXXXXXXXXXXXXX":DD$(592)="XXXXXXXXXXXXXX"430 POKE 1622,15:DD$(7)}12)=GF1$:DD$(788)=GF2$440 POSITION 16,7:? "SELECT dif or FIRE":POKE 77,0450 IF STRIG(0)=0 THEN 450460 KEY=PEEK(53279):IF S)}TRIG(0)=0 THEN 500470 IF KEY<>5 THEN 460480 DIF=DIF+1:IF DIF>7 THEN DIF=1490 POSITION 12,0:? DIF:GOSUB 1780:GOTO 460500 P)}OSITION 16,7:? " COURTING CRICKETS ":GOSUB 1000:DD$(712)="XX":DD$(788)="XX"510 A=USR(ADR(STK$))520 IF GIFT=1 AND YPOS=187 A)}ND P>100 AND P<134 THEN GOSUB 820:GOSUB 790530 IF PEEK(1743)=0 THEN FLAG=0540 IF FLAG=1 THEN 580550 S=PEEK(1743):IF S=2 OR)} S=1 THEN FLAG=1:P0$(YPOS)=CRJ$:POKE 53767,170:POKE 1591,1:FOR J=1 TO 20:NEXT J560 IF S=2 AND VERT>0 THEN POKE 1767+VERT,0:P)}0$(YPOS)=BL$:YPOS=YPOS-16:P0$(YPOS)=CR$:VERT=VERT-1:POKE 1767+VERT,1570 IF S=1 AND VERT<8 THEN POKE 1767+VERT,0:P0$(YPOS)=BL)}$:YPOS=YPOS+16:P0$(YPOS)=CR$:VERT=VERT+1:POKE 1767+VERT,1580 P=PEEK(1791):IF P>190 OR P<60 THEN POKE 1767+VERT,0:GOTO 71059)}0 POKE 53278,0600 FOR J=1 TO 10:NEXT J610 IF PEEK(53252)>0 THEN POKE 1767+VERT,0:GOTO 710620 IF YPOS=59 AND P>100 AND P<13)}4 THEN POKE 1767+VERT,0:GOTO 840630 JPOS=JPOS+DELJ:IF JPOS>RTLJ OR JPOS240 THEN GOSUB 820:DPOS=50680 IF PEE)}K(53260)=8 THEN POKE 1767+VERT,0:GOTO 710690 GOTO 510700 REM ** Falling Cricket **710 GOSUB 820720 P0$(YPOS)=BL$:YPOS=YPO)}S+6:P0$(YPOS)=CRF1$:SOUND 0,YPOS,10,10:FOR J=1 TO 30:NEXT J730 P0$(YPOS)=BL$:YPOS=YPOS+6:P0$(YPOS)=CRF2$:SOUND 0,YPOS,10,10:)}FOR J=1 TO 30:NEXT J:IF YPOS<240 THEN 720740 SOUND 0,0,0,0750 BRO=BRO+1:IF BRO=4 THEN 1030760 J=4*(BRO-1):DD$(693+J,696+J))}="XXXX":DD$(769+J,772+J)="\]^X"770 VERT=8:GOSUB 1710:POKE 1791,120:POKE 1622,15:GOTO 510780 REM ** Erase Next Gift **790 G)}IFT=0:GN=GN+1:GOSUB 1000:DD$(712+GN*3)="XX":DD$(788+GN*3)="XX"800 RETURN 810 REM ** Eliminate Drop **820 SOUND 1,0,0,0:P3$)}(DPOS)=BL$:POKE 53251,0:DROP=0:RETURN 830 REM ** Reached Female **840 GOSUB 820:POKE 1791,118850 IF GIFT=0 THEN GOSUB 920)}860 IF WFLG=1 THEN 1090870 FOR K=1 TO 10:P1$(YPOS-14)=HT1$880 FOR J=15 TO 0 STEP -1:SOUND 0,20,10,J:NEXT J:P1$(YPOS-14)=HT2)}$:FOR J=1 TO 15:NEXT J:NEXT K890 IF STRIG(0)=1 THEN 890900 P0$(YPOS)=BL$:P1$(YPOS-14)=BL$:S=1:GOTO 560910 REM ** Print Gif)}t **920 GIFT=1:DD$(552)=GF1$(1,(GN+1)*3):DD$(592)=GF2$(1,(GN+1)*3):IF GN=4 THEN WFLG=1930 RETURN 940 REM ** Pick a Weapon )}**950 R=INT(RND(0)*4):RESTORE 960+10*R:FOR J=1 TO 13:READ A:DRP$(J,J)=CHR$(A):NEXT J:POKE 707,ASC(COLDR$(R+1))952 RETURN 9)}60 DATA 20,72,34,20,74,40,8,127,127,62,62,28,28970 DATA 0,0,80,112,112,112,112,112,120,126,94,0,0980 DATA 0,0,48,96,64,127,)}127,64,224,224,0,0,0990 DATA 60,24,24,24,60,126,223,215,247,255,127,126,60995 REM ** Pick Another Gift **1000 POKE 1622,15)}5:POKE 707,92:POKE 53251,124+12*GN:FOR J=1 TO 5:P3$(205)=CUR$:FOR K=1 TO 30:NEXT K1010 P3$(205)=BL$:FOR K=1 TO 30:NEXT K:NEX)}T J:RETURN 1020 REM ** No More Brothers **1030 POKE 1622,131:POKE 53277,0:FOR J=53261 TO 53264:POKE J,0:NEXT J:GRAPHICS 18:)}POSITION 4,3:? #6;"All Brothers"1040 POSITION 6,4:? #6;"are Gone"1050 POSITION 3,7:? #6;"PRESS start TO":POSITION 5,8:? #6;)}"try again"1060 IF PEEK(53279)<>6 THEN 10601070 GOTO 3501080 REM ** Marriage Takes Place **1090 POKE 1622,93:FOR L=0 TO 6)}:FOR K=0 TO 3:POS=64*L+16*K:DD$(POS+1)="XXXXcdXXXXcdXXXX":NEXT K:NEXT L1100 FOR J=1 TO 1000:NEXT J1110 POKE 53277,0:FOR J=5)}3261 TO 53264:POKE J,0:NEXT J:GRAPHICS 18:POSITION 3,3:? #6;"And They Lived"1120 POSITION 1,4:? #6;"Happily Ever After":GOTO)} 10501130 REM * Change character set *1140 DIM ZZ$(32):RESTORE 1150:FOR I=1 TO 32:READ A:ZZ$(I)=CHR$(A):NEXT I1150 DATA 10)}4,104,133,204,104,133,203,104,133,206,104,133,205,162,4,160,01160 DATA 177,203,145,205,136,208,249,230,204,230,206,202,208,2)}40,961170 POKE 106,PEEK(106)-5:START=(PEEK(106)+1)*2561180 A=USR(ADR(ZZ$),57344,START):RESTORE 1200:FOR I=START+512 TO STAR)}T+807:READ A:POKE I,A:NEXT I1190 RETURN 1200 DATA 0,0,0,0,0,0,0,170,0,63,58,57,58,63,63,170,0,252,172,108,172,252,252,1701)}210 DATA 0,255,170,85,170,255,255,170,0,51,33,18,33,255,85,170,0,191,239,251,254,255,255,1701220 DATA 0,255,215,215,215,190,)}235,170,0,254,251,239,191,255,255,170,0,1,32,184,32,12,3,161230 DATA 64,208,64,224,184,224,192,192,116,28,3,0,0,0,0,0,200,23)}8,248,192,192,192,192,1921240 DATA 0,0,0,0,2,2,3,3,0,0,0,0,128,128,192,192,13,55,219,222,223,55,13,31250 DATA 112,220,247,2)}47,247,220,112,192,0,0,0,58,234,234,233,229,0,0,0,40,234,170,154,861260 DATA 233,233,57,58,58,14,14,13,86,90,90,104,104,160,)}160,128,0,3,12,48,192,192,48,121270 DATA 48,204,3,3,3,12,48,12,12,3,12,48,14,2,2,0,3,3,3,12,32,160,160,1281280 DATA 0,0,0,0)},0,0,0,0,233,181,173,183,222,122,94,107,2,10,2,4,16,16,4,1,128,160,128,16,4,4,16,641290 DATA 0,0,3,15,15,204,63,15,0,0,0,207*},204,255,255,195,0,0,240,48,48,48,240,2401300 DATA 0,0,84,5,17,5,1,5,0,0,21,80,68,80,64,80,17,65,1,4,4,20,0,01310 DATA 68,6*}5,64,16,16,20,0,0,40,190,179,176,176,44,11,2,80,244,52,52,52,208,64,01320 REM ** VBI Routine **1330 DIM VBI$(75):RESTORE 13*}40:FOR J=1 TO 75:READ A:VBI$(J,J)=CHR$(A):NEXT J:VBI=ADR(VBI$):RETURN 1340 DATA 216,162,0,160,0,222,240,6,16,42,189,224,6,15*}7,240,6,189,232,6,240,10,241350 DATA 173,255,6,125,248,6,141,255,6,24,185,16,6,125,216,6,153,16,6,221,208,6,208,61360 DATA *}189,200,6,153,16,6,200,200,200,232,224,7,144,201,173,255,6,141,0,208,32,57,6,32,88,6,76,98,2281370 REM ** Display List in Pa*}ge 6 **1380 RESTORE 1390:FOR J=1536 TO 1679:READ A:POKE J,A:NEXT J1390 DATA 112,112,112,70,0,0,68,20,0,68,60,0,69,100,0,69,*}0,0,69,80,0,69,128,0,69,208,0,69,0,0,69,80,01400 DATA 69,128,0,69,140,0,68,180,01410 DATA 68,0,0,70,40,0,65,0,61420 DATA 0*},0,0,0,0,0,172,55,6,240,23,206,56,6,16,18,177,208,141,6,210,2001430 DATA 177,208,240,5,141,56,6,200,152,141,55,6,961440 DAT*}A 0,0,172,86,6,240,40,206,87,6,48,17,169,13,205,87,6,144,3,173,87,6,9,160,141,5,210,208,18,177,2081450 DATA 141,4,210,200,17* }7,208,240,5,141,87,6,200,152,141,86,6,96,104,160,0,162,0,169,7,76,92,2281460 RESTORE 1470:FOR J=1541 TO 1583 STEP 3:READ A:P* }OKE J,HI+A:NEXT J1470 DATA 2,2,2,2,0,0,0,0,1,1,1,2,2,3,31480 RESTORE 1490:FOR J=1736 TO 1791:READ A:POKE J,A:NEXT J1490 DA* }TA 0,80,128,208,0,80,128,0,16,64,144,192,16,64,144,0,1,255,1,255,1,255,1,01500 DATA 20,12,9,12,15,18,21,0,0,0,0,0,0,0,0,0,20* },12,9,12,15,18,21,0,252,4,252,4,252,4,252,1201510 HV=INT(VBI/256):POKE 1674,HV:POKE 1672,VBI-256*HV1520 RETURN 1525 REM *** } PM Images **1530 RESTORE 1540:FOR J=1 TO 12:READ A:CR$(J,J)=CHR$(A):NEXT J1540 DATA 231,60,90,60,24,60,90,153,24,36,36,102*}1550 RESTORE 1560:FOR J=1 TO 12:READ A:CRJ$(J,J)=CHR$(A):NEXT J1560 DATA 66,36,60,90,60,153,126,24,24,60,66,1951570 BL$(1)*}=CHR$(0):BL$(13)=CHR$(0):BL$(2)=BL$1580 RESTORE 1590:FOR J=1 TO 12:READ A:CRF1$(J,J)=CHR$(A):NEXT J1590 DATA 195,36,60,90,6*}0,25,62,88,156,36,38,961600 RESTORE 1610:FOR J=1 TO 12:READ A:CRF2$(J,J)=CHR$(A):NEXT J1610 DATA 195,36,60,90,60,152,124,26*},57,36,100,61620 RESTORE 1630:FOR J=1 TO 12:READ A:CRM$(J,J)=CHR$(A):NEXT J1630 DATA 66,165,60,90,36,24,126,153,60,126,36,1*}021640 RESTORE 1650:FOR J=1 TO 12:READ A:HT1$(J,J)=CHR$(A):NEXT J1650 DATA 0,216,248,248,112,32,0,27,31,31,14,41660 RESTOR*}E 1670:FOR J=1 TO 12:READ A:HT2$(J,J)=CHR$(A):NEXT J1670 DATA 0,27,31,31,14,4,0,216,248,248,112,321680 RESTORE 1690:FOR J=1*} TO 12:READ A:CUR$(J,J)=CHR$(A):NEXT J1690 DATA 68,238,254,254,254,254,254,124,124,56,56,161700 REM ** PM Init. **1710 P0$*}(1)=CHR$(0):P0$(256)=CHR$(0):P0$(2)=P0$:YPOS=187:P0$(YPOS)=CR$1720 P1$(1)=CHR$(0):P1$(256)=CHR$(0):P1$(2)=P1$:P2$(1)=CHR$(0)*}:P2$(256)=CHR$(0):P2$(2)=P2$1730 P3$(1)=CHR$(0):P3$(256)=CHR$(0):P3$(2)=P3$:P1$(60)=CRM$:P2$(44)=CR$:JPOS=100:DELJ=3:RTLJ=20*}0:LLJ=50:DELTA=61740 POKE 54279,HI:POKE 559,62:POKE 53277,3:POKE 53248,120:POKE 704,116:POKE 53249,126:POKE 705,921750 POKE*} 53250,100:POKE 706,20:POKE 707,0:POKE 623,11760 RETURN 1770 REM ** Packages on Belts **1780 DD$(1)="@":DD$(448)="@":DD$(2*})=DD$1790 FOR J=1760 TO 1766:SPEED=RND(0)*(9-DIF)*4+(7-DIF):IF DIF>3 THEN SPEED=SPEED*1.81792 POKE J,SPEED:NEXT J1800 FOR *}L=0 TO 6:RESTORE 1850+10*L:READ F$:FOR K=0 TO 31810 POS=64*L+16*K:DD$(POS+1)=F$1820 IF DIF>3 THEN DD$(POS+9)=F$1840 NEXT K*}:NEXT L:RETURN 1845 REM ** CHAR. IN 1860,1880 & 1900 ARE INVERSE **1850 DATA ACB1860 DATA ›1870 DATA DDD1880 DATA Ǜ*}1890 DATA EFG1900 DATA ě1910 DATA EFG*}DATA EFG1900 DATA ě1910 DATA EFG(100 REM +++ BURP +++110 REM BASIC UNUSEABLE-DISK120 REM RECLAIMER PROGRAM130 REM 131 REM PROGRAM WILL FORMAT A DISK WITH .}BAD SECTORS UNLESS ONE OF THE BAD ONES IS A DIRECTORY SECTOR.132 REM PROGRAM IS TRANSPARENT EXCEPT WHEN USING DOS FUNCTION I. }133 REM ӠĠӺ DON'TWRITE DOS TO ANY DISK FORMATTED WITH THE DISK ON WHICH THIS PROGRAM134 REM RESIDES U.!}NLESS YOU ALSO WRITE THE AUTORUN.SYS FILE TO THE NEW DISK.140 OPEN #1,8,0,"D:AUTORUN.SYS"150 TRAP 150160 READ A:PUT #1,A:G."}OTO 140170 CLOSE #1:END 200 DATA 255,255,140,7,141,7,169,0210 DATA 76,13,78,13,76,82,13,142220 DATA 13,144,13,32,0,6,165,.#}13230 DATA 169,13,208,248,32,101,6,0240 DATA 6,144,6,169,0,141,148,6250 DATA 141,147,6,172,147,6,177,71260 DATA 141,145,6.$},200,177,71,141,146270 DATA 6,200,201,255,208,8,205,145280 DATA 6,208,3,76,149,16,140,147290 DATA 6,169,0,160,3,78,146,63.%}00 DATA 110,145,6,106,136,208,246,42310 DATA 42,42,42,168,169,0,56,106320 DATA 136,16,252,170,173,145,6,105330 DATA 10,168.&},138,49,69,208,5,104340 DATA 104,76,181,18,138,81,69,145350 DATA 69,160,3,177,69,56,233,1360 DATA 145,69,238,148,6,76,8,6.'}370 DATA 172,148,6,240,21,162,10,189380 DATA 134,6,9,128,157,6,20,202390 DATA 16,245,169,96,141,1,20,140400 DATA 2,20,32,1.(}13,16,76,25,18410 DATA 96,66,97,100,32,83,101,99420 DATA 116,111,114,115,224,2,225,2430 DATA 133,6.)}100,32,83,101,99420 DATA 116,111,114,115,224,2,225,2430 DATA 133,6,!100 REM THUNDERBIRD by Dave Sanders110 REM FROM JAN '83 COMPUTE! 115 REM converted for ASCII transfer by Greg Leslie 22+}/83120 GRAPHICS 0:BASE=(PEEK(106)-16)*256:GOSUB 1570130 DIM A$(40),BALL$(4):POKE 82,0:BALL$="****":BALL$(2,2)=CHR$(170):BAL2,}L$(3,3)=CHR$(10):BALL$(4,4)=CHR$(138)135 BALLS=4140 CHSET=BASE:IF PEEK(CHSET+9)<>252 THEN GOSUB 1210150 GRAPHICS 0:POKE 752-}2,1:POKE 559,0160 DLIST=PEEK(560)+256*PEEK(561)+4170 FOR I=3 TO 24:POKE DLIST+I,4:NEXT I180 POKE DLIST-1,6+64:POKE DLIST+22.},6190 POKE 756,CHSET/256200 SETCOLOR 0,0,12:SETCOLOR 1,3,6210 RESTORE 240220 POSITION 0,0:? BALL$(1,BALLS)240 DATA 1,1,22/},3,14,129,130,131250 SCR=PEEK(88)+256*PEEK(89)270 FOR I=SCR+520 TO SCR+800 STEP 40:READ A:FOR J=I TO I+39:POKE J,A:NEXT J:N20}EXT I280 POSITION 5,0:? #6;CHR$(212);CHR$(200);CHR$(213);CHR$(206);CHR$(196);CHR$(197);CHR$(210);CHR$(194);285 ? #6;CHR$(2021}1);CHR$(210);CHR$(196)290 P0=BASE+1024:PADR=P0+48300 POKE 704,28+176*(DIFF=1)+80*(DIFF=2)310 POKE 54279,BASE/256320 POKE 22}53277,3:POKE 53256,3-2*(DIFF=1)-3*(DIFF=2)330 RESTORE 370340 FOR I=0 TO 21:POKE PADR+I,0:NEXT I350 FOR I=0 TO 7*(3-DIFF) S23}TEP 3-DIFF:READ A:FOR J=0 TO 3-DIFF:POKE PADR+I+J,A:NEXT J:NEXT I370 DATA 0,24,8,107,28,8,0,0380 IF PEEK(547)<>6 THEN A=USR24}(1536)390 POKE 559,62:GOSUB 750400 DY=1:DX=0.5:IF RND(1)>0.5 THEN DX=-0.5410 BX=INT(40*RND(0)):BY=INT(7*RND(0)+3)430 IF S25}TRIG(0)=0 THEN GOSUB 800440 IF STICK(0)<>15 THEN POKE 77,0450 TX=BX+DX:TY=BY+DY460 IF TY<1 THEN GOSUB 610:GOTO 430470 IF 26}TY>20 THEN DY=-DY:GOSUB 920:GOTO 430480 IF TX<0 OR TX>39 THEN DX=-DX490 TPOS=SCR+TX+40*TY500 IF PEEK(TPOS)=0 THEN POKE TPO27}S,5:POKE SCR+BX+40*BY,0:BX=TX:BY=TY:GOTO 430520 IF PEEK(TPOS)=4 THEN GOSUB 890:SCORE=SCORE-50:DY=ABS(DY):GOTO 560530 DY=-AB28}S(DY):IF RND(0)>0.5 THEN DX=-DX540 FOR W=14 TO 0 STEP -2:SOUND 0,W*5,10,W:NEXT W550 SCORE=SCORE+(BY-11)*5:BLOCKS=BLOCKS+1529}60 POKE TPOS,0:POSITION 29-LEN(STR$(SCORE))/2,0:? " ";SCORE;" ";570 IF BLOCKS=320 THEN 1010580 IF SCORE<0 THEN 730590 GOTO2:} 500610 IF PEEK(53252) THEN DY=-DY:Z=1:GOTO 630620 GOTO 670630 FOR W=14 TO 0 STEP -2:SOUND 0,W+10,10,W:NEXT W640 POKE SCR2;}+BX+40*BY,0:BX=BX+DX:BY=BY+DY650 POKE 53278,255:RETURN 670 POKE SCR+BX+40*BY,0680 FOR W=100 TO 0 STEP -5:SOUND 0,W,12,8:NE2<}XT W:FOR W=W=0 TO 100 STEP 5:SOUND 0,W,12,8:NEXT W:SOUND 0,0,0,0690 POKE 53278,255700 BALLS=BALLS-1:POSITION BALLS,0:? " ";2=}710 IF BALLS>0 THEN 400730 POSITION 5,0:? " G";CHR$(193);"m";CHR$(229);" O";CHR$(246);"e";CHR$(210);" "740 GOSUB 750:RUN 2>}750 IF PEEK(53279)=6 THEN POSITION 20,0:? " ":RETURN 760 IF PEEK(20)>20 THEN POSITION 20,0:? "PRESS"770 IF PEEK(20)>40 2?}THEN POSITION 20,0:? CHR$(243);CHR$(244);CHR$(225);CHR$(242);CHR$(244):POKE 20,0780 GOTO 750800 XPOS=(PEEK(1664)-48)/4+4:FL2@}IP=0810 FOR I=3 TO 12:WHERE=SCR+XPOS+40*I820 P=PEEK(WHERE):POKE WHERE,6+FLIP:FLIP=1-FLIP830 SOUND 0,I*10,0,15-I:POKE 710,P2A}EEK(53770)840 NEXT I850 FOR I=3 TO 12:POKE SCR+XPOS+40*I,0:NEXT I860 WHERE=SCR+12*40+XPOS:SOUND 0,0,0,0:POKE WHERE-1,4:POK2B}E WHERE+1,4:POKE WHERE,4870 SETCOLOR 2,9,4:RETURN 890 FOR W=0 TO 240 STEP 30:SOUND 0,W,12,15-W/17:SOUND 1,W+10,10,15-W/17:N2C}EXT W:SOUND 0,0,0,0:SOUND 1,0,0,0900 RETURN 920 IF DONE THEN RETURN 930 FOR I=1 TO 100:POKE 53274,PEEK(53770):SOUND 0,I,0,2D}15-I/10:NEXT I940 SOUND 0,0,0,0:POSITION 4,0:? CHR$(226);CHR$(242);CHR$(229);CHR$(225);CHR$(235);CHR$(244);CHR$(232);CHR$(242E}2);945 ? CHR$(239);CHR$(245);CHR$(231);CHR$(232):POSITION 22,0946 ? "1000 point ";CHR$(194);CHR$(207);CHR$(206);CHR$(213);C2F}HR$(211)950 FOR I=1 TO 10:POSITION 22,0:? "1000":FOR W=1 TO 20:NEXT W:POSITION 22,0:? " ":FOR W=1 TO 20:NEXT W:NEXT I9602G} POSITION 4,0:? " ";CHR$(212);CHR$(200);CHR$(213);CHR$(206);CHR$(196);CHR$(197);CHR$(210);CHR$(194);965 ? #6;CHR$(201);CHR$(2H}210);CHR$(196);" ":POSITION 22,0:? " "970 FOR I=1 TO 10:FOR J=0 TO 15 STEP 5:SOUND 0,50+10-I,0,15-J:NEXT J:S2I}CORE=SCORE+100980 POSITION 29-LEN(STR$(SCORE))/2,0:? " ";SCORE;" ";990 NEXT I:DONE=1:RETURN 1010 GOSUB 11001020 FOR I=1 T2J}O 50:FOR J=0 TO 3:POKE 708+J,PEEK(53770):NEXT J:Z=Z*(Z<5)+11030 SOUND 0,I+Z,10,I/10:SOUND 1,I+Z+10,10,I/10:NEXT I1040 SOUND2K} 0,0,0,0:SOUND 1,0,0,0:GOSUB 15701050 GRAPHICS 18:POSITION 0,6:? #6;CHR$(17);CHR$(16);CHR$(12);CHR$(16);CHR$(16);CHR$(16);" 2L}point ";1055 ? #6;CHR$(226);CHR$(239);CHR$(238);CHR$(245);CHR$(243);CHR$(129)1060 FOR W=1 TO 100:SOUND 0,PEEK(53770),0,15-W2M}/10:POKE 712,(3-FLIP*2)*16+FLIP*4+4:FLIP=1-FLIP:NEXT W1070 SCORE=SCORE+10000:SOUND 0,0,0,01080 DIFF=DIFF+1:IF DIFF>2 THEN D2N}IFF=21090 GOTO 1501100 POKE 82,5:POSITION 5,101110 ? "!!!! # ";CHR$(162);" ... ";:FOR Z=1 TO 4:? CHR$(161);:NEXT2O} Z:? CHR$(161)1120 ? "! ! # ";CHR$(162);" ";CHR$(162);" . . ";CHR$(161)1130 ? "! ! # ";CHR$(162);" ";CHR$2P}(162);" . ";CHR$(161)1140 ? "!!!! # ";CHR$(162);" ";CHR$(162);" .... ";CHR$(161)1150 ? "! ! # ";:FOR Z=2Q}1 TO 5:? CHR$(162);:NEXT Z:? " . ";CHR$(161)1160 ? "! ! # ";CHR$(162);" ";CHR$(162);" . . ";CHR$(161)1170 2R}? "!!!! #### ";CHR$(162);" ";CHR$(162);" ... ";CHR$(161)1180 POKE 82,0:RETURN 1190 END 1210 POKE 88,0:POKE 89,BASE/2S}256:? CHR$(125):GRAPHICS 2+161220 POSITION 5,0:? #6;CHR$(244);CHR$(232);CHR$(245);CHR$(238);CHR$(228);CHR$(229);CHR$(242);CH2T}R$(226);CHR$(233);1225 ? #6;CHR$(242);CHR$(228):POSITION 6,4:? #6;"patience":POSITION 5,8:? #6;"READING ML"1230 RESTORE 1262U}01240 FOR I=1536 TO 1611:READ A:SOUND 0,A,10,8:POKE 712,A:POKE I,A:NEXT I1250 A=USR(1536):GOTO 14001260 DATA 104,173,34,2,2V}141,741270 DATA 6,173,35,2,141,751280 DATA 6,169,6,162,6,1601290 DATA 23,32,92,228,96,241300 DATA 173,128,6,141,0,2081312W}0 DATA 173,124,2,208,6,2061320 DATA 128,6,206,128,6,1731330 DATA 125,2,208,6,238,1281340 DATA 6,238,128,6,173,1281350 DAT2X}A 6,201,1,176,5,1691360 DATA 200,141,128,6,201,2501370 DATA 144,5,169,32,141,1281380 DATA 6,76,73,61400 POSITION 3,8:? #62Y};"LOADING CHSET"1410 FOR I=128 TO 510:POKE CHSET+I,PEEK(57344+I):SOUND 0,I/2,12,8:POKE 712,I/2:NEXT I1420 RESTORE 146014302Z} READ A:IF A=-1 THEN SOUND 0,0,0,0:SOUND 1,0,0,0:RETURN 1440 FOR J=0 TO 7:READ B:SOUND 0,B,10,8:SOUND 1,B+10,10,8:POKE 712,B2[}:POKE CHSET+A*8+J,B:NEXT J1450 GOTO 14301460 DATA 1,0,252,168,84,252,168,252,01470 DATA 2,0,168,168,252,252,168,168,014802\} DATA 3,0,216,120,184,228,180,212,01490 DATA 4,0,0,0,219,150,0,0,01500 DATA 5,0,0,0,16,32,0,0,01510 DATA 6,192,192,48,48,12]}2,12,3,31520 DATA 7,3,3,12,12,48,48,192,1921530 DATA 10,24,40,24,153,126,255,20,341540 DATA 14,0,126,126,126,126,126,126,02^}1550 DATA -11570 POKE 53277,0:FOR I=0 TO 3:POKE 53261+I,0:NEXT I1580 RETURN 0,341540 DATA 14,0,126,126,126,126,126,126,00P0DI.QQ$(1):GOS.3000001DI.A$(100),BOARD(3)02 GOS.2100003 A$="hQhhhhhh稱eeee6`}eeΥ`"36C.137GR.6:POK.756,BASE:SE.2,0,0:SE.4,0,0:SE.0,8,5:POK.752,1:POK.559,039R.POKE (PEEK(560)+PEEK(6a}561)*256+4)+85,40POK.(PEEK(560)+PEEK(561)*256+3)+85,741PL.25,65:DR.10,30:DR.0,30:POS.0,65:POK.765,5:X.18,#6,0,0,"S:"42PL.16b}59,65:DR.159,30:DR.158,30:POS.80,65:POK.765,5:X.18,#6,0,0,"S:"43PL.75,20:DR.150,0:DR.20,0:POS.75,20:POK.765,5:X.18,#6,0,0,"S6c}:":PL.0,79:DR.159,7944C.0:PL.0,70:DR.80,7045 GOS.3000:SHAPE=PMB:SHAPE1=PMB+20:PIV=SHAPE:SHAPE2=PMB+40:MEN=5:BONUS=200:CO=06d}46?" 0 ";MEN50T.40000:T.200060 DL=PEEK(560)+256*PEEK(561)70 DL4=DL+4:DL5=DL+580 PDL4=PEEK(DL+4):PD=PDL485PO6e}K.53279,890 ST=STICK(0)91IF ST=11 THEN PIV=SHAPE1:DIR=-192IF ST=7 THEN PIV=SHAPE:DIR=193IF STRIG(0)=0 THEN GOS.450094 FO6f}R C=1 TO 3:SO.0,255,10,15:N.C95 FOR C=1 TO 3:SO.0,225,12,15:N.C0100 Z=Z+(ST=13)*4-(ST=14)*40111 D=USR(ADR(A$),PIV,PMB+512+6g}Z,19)0112IF PEEK(53252)<>0 THEN PIV=SHAPE2:GOS.40000116IF PDL4<=224 THEN PDL4=243:GOS.100000117IF PDL4>=244 THEN PDL4=225:6h}GOS.100000119 PDL4=PDL4+DIR*LV0120POK.DL4,PDL40121IF MEN=1 THEN GOS.210240140 G.903000 A=PEEK(106)-31:POK.54279,A:PMB=A*6i}2563001POK.53277,3:Z=40:X=1003002POK.53248,X:POK.704,88:POK.53256,1:POK.705,1033003 FOR I=PMB TO PMB+1024:POK.I,0:N.I30046j} FOR I=PMB TO PMB+12:REA.R:POK.I,R:N.I3005D.0,0,0,0,224,120,60,120,224,0,0,0,0,0,0,0,0,28,120,240,120,28,0,0,0,03006 FOR I=6k}PMB+20 TO PMB+32:REA.R:POK.I,R:N.I3007 FOR I=PMB+40 TO PMB+50:REA.R:POK.I,R:N.I3008 FOR I=PMB+60 TO PMB+70:REA.R:POK.I,R:N.6l}I3010POK.559,46:POK.53278,1:RET.3011D.0,0,136,80,32,80,136,0,0,0,03012D.0,0,0,28,62,42,62,107,73,0,04000 D=USR(ADR(A$),PI6m}V,PMB+512+Z,10)4001 FOR SO=14 TO 255 STEP 20:SO.0,SO,10,15:N.SO:POK.712,RND(0)*2554002 D=USR(ADR(A$),PMB+200,PMB+512+Z,10)6n}4003SO.0,0,0,0:F.C=1 TO 100:N.C:POK.712,CO4004 PIV=SHAPE:Z=40:PDL4=PD:POK.DL4,PDL4:DIR=0:MEN=MEN-1:?"";MEN:I6o}F MEN=0 THEN G.210264005 D=USR(ADR(A$),PIV,PMB+512+Z,10)4006POK.53278,1:RET.4500IF DIR=1 THEN GOS.5000:RET.4501IF DIR=-1 6p}THEN GOS.5500:RET.5000POK.PMB+384+(Z+5),0:POK.PMB+383+(Z+5),35003 FOR C=100 TO 200 STEP 5:POK.53252,C:IF PEEK(53248)=1 THEN6q} G.60005004IF PEEK(53256)>1 THEN GOS.9000:POK.53278,15005SO.0,C,12,15:N.C:SO.0,0,0,0:POK.53252,0:POK.PMB+383+(Z+5),0:RET.56r}500POK.PMB+384+(Z+5),0:POK.PMB+383+(Z+5),35503 FOR C=100 TO 40 STEP -5:POK.53252,C:IF PEEK(53248)=1 THEN G.60005504IF PEEK(6s}53256)>1 THEN GOS.9000:POK.53278,15505SO.0,C,12,15:N.C:SO.0,0,0,0:POK.53252,0:POK.PMB+383+(Z+5),0:RET.6000IF PEEK(53248)=1 6t}THENSO.0,46,10,15:POK.53252,0:POK.PMB+383+(Z+5),O:POK.53278,1:SO.0,0,0,0:RET.9000 SCORE=SCORE+10:?"";SCORE:IF SCORE=6u}BONUS THEN GOS.200009001 D=USR(ADR(A$),SHAPE2,PMB+768+RN1,10):POK.53249,ND1:POK.53278,1:POK.PMB+383+(Z+5),09002 D=USR(ADR(A6v}$),SHAPE2,PMB+640+RN,10):POK.53249,ND:POK.53278,1:POK.PMB+383+(Z+5),09003 FOR C=100 TO 1 STEP -1:SO.0,C,10,15:N.C010000 PE=6w}PIV:PIV=PMB+60:D=USR(ADR(A$),PMB+200,PMB+640+RN,10):POK.53249,ND010001 RN=RND(0)*60:ND=RND(0)*230:D=USR(ADR(A$),PIV,PMB+640+6x}RN,10):POK.53249,ND:POK.705,RND(0)*255:PIV=PE010002 PE=PIV:PIV=PMB+60:D=USR(ADR(A$),PMB+200,PMB+768+RN1,10):POK.53250,ND1016y}0003 RN1=RND(0)*60:ND1=RND(0)*230:D=USR(ADR(A$),PIV,PMB+768+RN1,10):POK.53250,ND1:POK.706,RND(0)*255:PIV=PE010004RET.0200006z}IF BB=1 THEN G.20500020001 BONUS=BONUS+200:F.C=100 TO 1 STEP -0.5:SO.0,C,10,15:SO.1,C,12,10:N.C020002 FOR C=0 TO 3:SO.C,0,06{},0:N.C020003SE.0,6,8:POK.712,132:CO=132:C.0:F.C=40 TO 55:PL.0,C:DR.159,C:N.C:C.1020004PL.10,30:DR.95,55:C.0:F.C=57 TO 77:PL6|}.70,C:DR.120,C:N.C:BB=1:RET.020500 BONUS=BONUS+1020:F.C=100 TO 1 STEP -0.5:SO.0,C,10,15:SO.1,C,12,10:N.C:BB=2020502 FOR C=06}} TO 3:SO.C,0,0,0:N.C020503SE.0,4,15:POK.712,15:CO=15020504C.0:F.C=2 TO 77:PL.0,C:DR.159,C:N.C020505C.1020506R.PLOT 159,806~}:DR.159,55:DR.159,55:POS.106,80:POK.765,5:X.18,#6,0,0,"S:"020507R.PLOT 53,80:DR.0,55:DR.0,55:POS.0,80:POK.765,5:X.18,#6,0,0,6}"S:"020508PL.0,25:DR.53,0:DR.0,0:POS.0,25:POK.765,5:X.18,#6,0,0,"S:"020509PL.159,25:DR.159,0:DR.106,0:POS.158,25:POK.765,5:6}X.18,#6,0,0,"S:"020510R.PLOT 106,55:DR.80,25:DR.80,25:POS.53,55:POK.765,5:X.18,#6,0,0,"S:":RETURN020511PL.0,55:DR.50,35:PL.6}159,25:DR.95,25:PL.159,55:DR.50,65:POK.704,0020520RET.021000GR.2:SE.0,6,8:SE.2,0,0:POK.752,1:POK.756,BASE021001?#6;" ****6}*************"021002POS.2,4:?#6;" PHAMTOM FIGHTER ":?" by WALTER NEUSCHAEFER"021003?#6;" _______________ "021004?#6}6:?#6:?#6;" ***************** "021010 FOR C=1 TO 3:F.TI=1 TO 255:POK.708,TI:N.TI:N.C021020GR.2+16:?#6:?#6;" SKILL LEVEL ?6}":?#6;" (1,2,3)":GOS.21050:O.#1,4,0,"K:":GET#1,LV:CL.#1021021IF LV<>49 AND LV<>50 AND LV<>51 THEN 21020021022 LV=VAL(CHR$(6}LV))/2021023 FOR C=0 TO 3:SE.C,0,0:N.C:SE.LV*2,4,8:F.C=1 TO 1000:N.C:RET.021024SE.0,RND(0)*15,(RND(0)*7)*2:POK.712,RND(0)*26}55:RET.021025?#6;" ":?#6;" LEVEL 1=slow":?#6;" LEVEL 2=":?#6;" LEVEL 3=":RET.021026POK.532776},0:GR.2+16:SE.4,4,3:POK.756,BASE021027?#6:?#6;" YOUR WAS ";SCORE021028?#6021029?#6;" DO YOU TO PLAY":?#6;" AGAIN?(6}/)"021030O.#1,4,0,"K:":GET#1,DUMP:CL.#1021031IF DUMP=ASC("Y") THEN RUN 021032IF DUMP=ASC("N") THENEND021033 G.210300216}050POK.756,BASE:GOS.21025:RET.030000 VT=PEEK(134)+256*PEEK(135):AT=PEEK(140)+256*PEEK(141):B=PEEK(106):IF B/2=INT(B/2) THENP6}OK.106,B-5030010 BASE=PEEK(106)+1:OFFSET=256*BASE-AT:V3=INT(OFFSET/256):V2=OFFSET-256*V3030020POK.VT+2,V2:POK.VT+3,V3:POK.V6}T+4,0:POK.VT+5,4:POK.VT+6,0:POK.VT+7,4030100 QQ$="88DDffff>"030200 QQ$(LEN(QQ$)+1)="`<|fl0fF6}68of;888>x|<~ZZ~ۙ~0~ "030300 QQ$(LEN(QQ$)+1)="0`@ccccc8>>>6}``~ppppw``|l`cc>66wwcc<<<<<"030400 QQ$(LEN(QQ$)+1)="<<<<<<0 0 ~~`0 06}`ccooo`?33sss~ffgggg`cc~ffwww``pp"030500 QQ$(LEN(QQ$)+1)="``pppc`oggssssss n~f6}flggg000ppp~gwggggwogggccgggccpppc"030600 QQ$(LEN(QQ$)+1)="cggg~ffwww`ssggggggggggo>gggo6}gsss>ggggggfl7g@`0"030700 QQ$(LEN(QQ$)+1)=" xx6c6>6}8pp8"030800 QQ$(LEN(QQ$)+1)="?6}ww"030900 QQ$(LEN(QQ$)+1)="<~~~<x`x`~<~6}~<"031000 QQ$(LEN(QQ$)+1)="0~0 ~ <~~<>~v~```~fn~>20:>~fv~~f~p~>~fv~~```~fvv6}"031100 QQ$(LEN(QQ$)+1)=" ~006|vwfkc|fvvv~fvv~~fv~``~fn~>0888> >~~"0316}200 QQ$(LEN(QQ$)+1)="ffnn~fnn>ck>6f>>nfff~~~6~<~~<~x|nf8x8"031300GR.0:P6}OK.756,BASE:RET.1)="ffnn~fnn>ck>6f>>nfff~~~6~<~~<~x|nf8x8"031300GR.0:P410 GRAPHICS 7:SETCOLOR 2,0,0:POKE 752,1:? "CLOSEOUT!":GOSUB 209:GOSUB 112:Y1=181:GOTO C20 IF X1=J THEN IF Y1>A AND Y1<=B OR :}Y1>C AND Y1<=D OR Y1>E AND Y1<=I THEN Y1=Y1-3:RETURN 21 IF X1=L THEN IF Y1>A AND Y1<=E OR Y1>F AND Y1<=I THEN Y1=Y1-3:RETURN:} 22 IF X1=K THEN IF Y1>A AND Y1<=G THEN Y1=Y1-3:RETURN 23 RETURN 30 IF X1=J THEN IF Y1>=A AND Y1=C AND Y1=E AND Y1=A AND Y1=A AND Y1=F AND Y1Y1 THEN IF Y5=B OR Y5=C OR Y5=D O:}R Y5=E OR Y5=G OR Y5=H OR Y5=I THEN X9=0:Y9=-3:RETURN 58 IF Y5J THEN IF Y1=A OR Y1=B OR Y1=C O:}R Y1=D OR Y1=E OR Y1=F OR Y1=G OR Y1=H OR Y1=I THEN X1=X1-478 Q=X1-42:R=(Y1-25)/2:LOCATE Q,R,Z:IF Z=1 THEN COLOR 4:PLOT Q,R::}T=T+1:T1=T1+1:? "SALE ITEMS=";:? T79 IF T1>T2 THEN GOSUB 10080 POKE 77,0:POKE M,X1:POKE N,Y1:SOUND 0,Y1,10,7:IF X2=J THEN Y:}5=Y2:X9=X7:Y9=Y7:GOSUB A:X7=X9:Y7=Y981 IF X2=K THEN Y5=Y2:X9=X7:Y9=Y7:GOSUB 60:X7=X9:Y7=Y982 IF X2=L THEN Y5=Y2:X9=X7:Y9=Y7:}:GOSUB B:X7=X9:Y7=Y984 X2=X2+X7:Y2=Y2+Y7:POKE M+1,X2:POKE N+1,Y2:IF X3=J THEN Y5=Y3:X9=X8:Y9=Y8:GOSUB A:X8=X9:Y8=Y985 IF X3:}=K THEN Y5=Y3:X9=X8:Y9=Y8:GOSUB 60:X8=X9:Y8=Y986 IF X3=L THEN Y5=Y3:X9=X8:Y9=Y8:GOSUB B:X8=X9:Y8=Y987 X3=X3+X8:Y3=Y3+Y8:POK:}E M+2,X3:POKE N+2,Y3:IF X4=J THEN Y5=Y4:X9=X6:Y9=Y6:GOSUB A:X6=X9:Y6=Y988 SOUND 0,0,0,0:IF X4=K THEN Y5=Y4:X9=X6:Y9=Y6:GOSUB:} 60:X6=X9:Y6=Y989 IF X4=L THEN Y5=Y4:X9=X6:Y9=Y6:GOSUB B:X6=X9:Y6=Y990 X4=X4+X6:Y4=Y4+Y6:POKE M+3,X4:POKE N+3,Y4:IF STRIG(0:})=0 AND T>25 THEN IF Y1=Y2 OR Y1=Y3 OR Y1=Y4 THEN GOSUB H93 IF Y1=Y2 AND 70>ABS(X1-X2) THEN U=X2-44:V=(Y2-31)/2:GOSUB E94 I:}F Y1=Y3 AND 60>ABS(X1-X3) THEN U=X3-44:V=(Y3-31)/2:GOSUB E95 IF Y1=Y4 AND 55>ABS(X1-X4) THEN U=X4-44:V=(Y4-31)/2:GOSUB E96 :}IF PEEK(19)>A1 THEN GOSUB 10597 GOTO C100 SOUND 0,0,0,0:COLOR 1:SETCOLOR 0,C1,9101 FOR Y=6 TO 79 STEP 9:FOR W=16 TO 148 ST:}EP 4:PLOT W,Y:NEXT W:NEXT Y:T1=0:RETURN 105 C1=INT(RND(0)*15):SETCOLOR 1,C1,8:COLOR 4:PLOT 0,V1:DRAWTO 3,V1:A1=A1+1:V1=V1+2::}IF A1<>41 THEN RETURN 106 IF T0 THEN 113114 ? "Extra TIME at 200":GOSUB 108:T=0:T3=200:T4=300::}RETURN 163 W=0:T=T-25:? "SALE ITEMS=";:? T:IF Y1=Y2 THEN U=X2-44:V=(Y2-31)/2:I1=M+1:J1=N+1:GOSUB I:Y2=Z:X2=L:RETURN 164 IF :}Y1=Y3 THEN U=X3-44:V=(Y3-31)/2:I1=M+2:J1=N+2:GOSUB I:Y3=Z:X3=L:RETURN 165 IF Y1=Y4 THEN U=X4-44:V=(Y4-31)/2:I1=M+3:J1=N+3:GO:}SUB I:Y4=Z:X4=L:RETURN 181 SOUND 0,1,6,15:COLOR 1:PLOT Q,R:DRAWTO U,V:COLOR 4:PLOT Q,R:DRAWTO U,V:SOUND 0,0,0,0:POKE I1,1:PO:}KE J1,247189 Z=V*2+67:IF Z=A OR Z=B OR Z=C OR Z=D OR Z=E OR Z=F OR Z=I OR Z=G THEN GOSUB T2:RETURN 190 V=3:GOTO 189209 A=3:}7:B=55:C=73:D=91:E=109:F=127:G=145:H=163:I=181:J=54:K=126:L=198:M=53248:N=1780:O=1784:P=704:T2=220210 ? "Please wait":FOR Y=:}1536 TO 1706:READ Z:POKE Y,Z:NEXT Y:FOR Y=1774 TO 1787:POKE Y,0:NEXT Y:PM=PEEK(106)-32211 PMBASE=256*PM:FOR Y=PMBASE+1023 TO:} PMBASE+2047:POKE Y,0:NEXT Y:FOR Y=PMBASE+1025 TO PMBASE+1032:READ Z212 POKE Y,Z:NEXT Y:FOR Y=PMBASE+1281 TO PMBASE+1288:REA:}D Z:POKE Y,Z:NEXT Y:FOR Y=PMBASE+1537 TO PMBASE+1544213 READ Z:POKE Y,Z:NEXT Y:FOR Y=PMBASE+1793 TO PMBASE+1800:READ Z:POKE :}Y,Z:NEXT Y:POKE P+2,76:POKE P+3,204214 POKE P,252:POKE P+1,140:POKE 559,62:POKE 623,1:POKE 1788,PM+4:POKE 53277,3:POKE 54279:},PM:X=USR(1696)215 POKE O,8:POKE O+1,8:POKE O+2,8:POKE O+3,8:RETURN 216 X1=J:Y1=I:Y2=B:X2=62:Y3=E:X3=154:Y4=G:X4=122:X6=4:Y:}6=0:X7=-4:Y7=0:X8=-4:Y8=0220 COLOR 3:SETCOLOR 2,15-C1,5:FOR Y=7 TO 79 STEP 9:PLOT 4,Y:DRAWTO 159,Y:NEXT Y221 PLOT 4,0:DRAWT:}O 4,79:PLOT 159,0:DRAWTO 159,79:PLOT 149,79:DRAWTO 149,52:FOR Y=52 TO 79 STEP 3:PLOT 149,Y222 DRAWTO 159,Y:NEXT Y:PLOT 14,79:}:DRAWTO 14,43:FOR Y=43 TO 79 STEP 3:PLOT 4,Y:DRAWTO 14,Y:NEXT Y:PLOT 149,43223 DRAWTO 149,7:FOR Y=7 TO 43 STEP 3:PLOT 149,Y::}DRAWTO 159,Y:NEXT Y:PLOT 14,7:DRAWTO 14,16:FOR Y=7 TO 16 STEP 3224 PLOT 4,Y:DRAWTO 14,Y:NEXT Y:PLOT 77,7:DRAWTO 77,61:PLOT 8:}7,7:DRAWTO 87,61:FOR Y=7 TO 61 STEP 3225 PLOT 77,Y:DRAWTO 87,Y:NEXT Y:PLOT 14,25:DRAWTO 14,34:FOR Y=25 TO 34 STEP 3:PLOT 4,Y:}:DRAWTO 14,Y:NEXT Y:RETURN 230 DATA 162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106,141,255,6,142,253,6,24,169,0,10:}9,253,6,24,109231 DATA 252,6,133,204,133,206,189,240,6,133,203,173,254,6,133,205,189,248,6,170,232,46,255,6,144,16,168,177,2:}03232 DATA 145,205,169,0,145,203,136,202,208,244,76,87,6,160,0,177,203,145,205,169,0,145,203,200,202,208,244,174234 DATA 25:}3,6,173,254,6,157,240,6,189,236,6,240,48,133,203,24,138,141,253,6,109,235,6,133,204,24,173,253,6,109235 DATA 252,6,133,206,1:}89,240,6,133,205,189,248,6,170,160,0,177,203,145,205,200,202,208,248,174,253,6,169,0,157236 DATA 236,6,202,48,3,76,2,6,76,98:},228,0,0,104,169,7,162,6,160,0,32,92,228,96,60,126,219,255,195,126,60,231237 DATA 126,219,255,129,126,102,195,129,195,126,90:},255,129,255,60,102,126,90,126,195,255,60,102,195,219,255,195,126,60,231237 DATA 126,219,255,129,126,102,195,129,195,126,9082