@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 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;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uANTIC -TAKE 16D:LADY1.SETD:LADY2.SETD:LADY3.SETD:LADY4.SETD:LADY5.SETD:LADY6.SET37D:LADY.FRMD:TOPlFG_PCPMCHBTPWPLAFFNDDZZMZMCHOPSPOIBOPP U}@@@  V} !" MEG-A W}NIMATOR, LISTING ONE BLKED.BASBY JACOB DONHAM(c)1987, ANTIC PUBLISHING2wAAR!6-AR-6- X}AV7+IA[AR@i6-$AVw6-$AV<u6-F:@,!6-F:@,3@ Y}G-ARA`S@Y(}] i@u@FG9@,9@,9@,;@,; Z}@,;@,[-@_"h68,-l 1,2,4,8,16,32,64,128P A0Z##@@ [}K:d""( i(n""( Edit Block Setx""( Load Block Set""( \} Save Block Set( Quit)@ A"@:1,A"@:2,A "@: ]}3,A%!"@:4,!%D:MEGMATOR.BAS AP)-@@) 򡠠@)@"-@ ^}@6( @ APq (} A0P56-F:A`,%AV$F:Aa,I%@'@e]%@(@2 _}q%@)AVS%@@q+%@@?%@@S%@A5!AV! `}B2w@BBA;6-F:%@,%AV$F:%@,O-@c-@%+$@ a},%%@$@% N 6-%@&6-P:'AV,66-&AV$B@N@(@ b} --(@ | | Edit Block..(@ | | Clear Block00(@ | c} | Reverse Block$,,(@ | | Scroll Up...(@ | | Scroll Down8//( d}@ | | Scroll RightB..(@ | | Scroll LeftL))(@ | | Retur e}nV(@ `)@j!!!@V) @IA tOO&@HAAAPA f}APAAPA~GG&@HAAAPAAPAAPE6-@d6- g}@'6-36-@EB2w@7B2H%-%@3%7 $-%@  h}%8&,$ J 6-6-R:,."@*!@#<6-&@J6-&@5"@* @3'6-%@ i}56-%@5"@*!@q'6-&@56-&@5"@* Aw'6-%@56-%@ j} T:,"@A%-%@!%% rB2I@h)-@=-@ k}j%@V%+$@,%F:%+$@,%,n r  36-@6-@'6-@36-@ )- l}( ' -(+#-@' B 6-6-6-R:,4"@*!@B6-&@('"@ m}* @ '6-%@2'"@*!@'6-&@<'"@* @'6-%@F.F:Ad,AU n}-$( . A P T:,"@AZn$6-F:%+$@,%+&@,,26-&@< APZ%+$ o}@,%+&@,n-@d7)%@`%++&@,$@,%- 7 An_ +AR@ p}1ACB2HUB2I_ Ar*-@@&68,-* tY 6--@ q}@+6-@&46-8,B!&@Q68,-@Y6-&u v+8,"@!68,-+ AXx r}!8,"!68,-@zH-@@%6-@&.6-8,;6-%8,$? E6-H$?-@ s}1%+$@,%5 ? AR-@D%+$@,%AU&F:%+$@,%,H R A t}r-@D%+$@,%F:%+$@,%%@,H h%+$@,%@r A:s -@ u}6@M%+$@,%F:%+$@,%&@,Q i%+$@,s AlU-@ v}G%+$@,%P:F:%+$@,%,'@,K U AP-@66-F:%+$@,%,$@B!AU w}P6-&AU%%+$@,% % A_ (} (()( DirectoryH( Load Block Set x}_( Return)@""@:1, A `" A "@:2,A!"@:3,(} A y} A  X (})( N@@D:*.SETX A +@!( z} + A p @)@$4%6. 6.D:% A!>o (} (()( File to Loa {}d-I67@6-?:C:hhhLV,<@,*@4 A0 }}> A \V@(5( Disk Error- F:A,B)@L A0V A  _ (} (()( ~} DirectoryH( Save Block Set_( Return )@ ""@:1, A `" A% "@ }:2,A& "@:3,(} A A%( %6. 6.D:% A&2 o (} (()( File } to Save-I67@6-?:C:hhhLV,<@,*@4 }A0> A%P V@(5( Disk Error- F:A,B)@L A0V A%  #A0 }Q-@")A6%- ?AQA@ ,,72,169,224,141,10,212,141,9,212,104,64 }$ BBy!AY@F3B2VEB2W@WB2X@iA@&{A@ }A qA'B2Y@56-%AC6-%A@Q6-%Ah_6-%AqB2w } 2 #A0!-@%".68,-2  %%255,129,129,129,129,129,129,255 $ D1:BLKED.BASw y=>/ C KEESEIZXOLMAXRMAXLMAXRMAXPMLOOZSTARQQNDAD@$A @@FA }A@TA Bhd A A AB @AFBhA(@%@'A} BASIC BOINKBY LARRY NOCELLA(c)1987, ANTIC PUBLISHING @@"C -@6@<2}@@@ C$$C -@E6@<2@@@ C$(B6-F:A,&@&B}By0+BAR@2lA'AY@F9B2w@E6-@$Q6-A ]6-@}l6-F:AY,<'AY'A#@F6-A 6-AP6-@T6-AZB-}@B((BASIC BOINK BY LARRY NOCELLAdCLEAR P/M AREAn#6-$AV#A@x+-%A}%A$'+  PLAYERS -% #A !-@@%"%A%%%Ah%}% % #A0!-@@%"%A@%%%A%%  A@ DLI}7 #Ap!-@A%"3A5%7 %%6-F:A`,%F:Aa,$AVg%@A0+%@ }A0?%@A0S%@A0g%@ A0)%@$A0)Ad COLORS}G #A!-@'"5Ae%CA%G "//8,100,68,214,54,114,166,24,88,194,228,146,X-C}OORDINATE6C-@+Ax%A`?A%@C @DIRECTION (1=L 0=R)JC-@}+Aq%?A%@C T'A'A@^'BBA'A@h}K-@16-P:H:@,$@@,K6-P:H:@,$@@,rIAx%F:Ax%,%9A%F:A}%,%= IAY| BOINK(-@(6-F:Ax%,6-F:A%,'  Aq%' }A0' !Aq%@' @61  A%' @41 AP !A%@}  AML COLORER/MOVERee72,138,72,152,72,174,128,6,189,129,6,141,18,208,24,216,105,6,141,19,208,189,158,6,}141,20,208,24bb216,105,6,141,21,208,189,135,6,240,6,222,142,6,184,80,3,254,142,6,189,142,6,141,0,208,216,24aa105,8,14}1,1,208,189,165,6,240,6,222,172,6,184,80,3,254,172,6,189,172,6,141,2,208,24,216,105HH8,141,3,208,232,224,6,208,2,162,0,14}2,128,6,104,168,104,170,104,64PLAYER DATA (L/R)13,13,13,13,13,29,57,113%%176,176,176,176,176,184,156,142} D1:BOINK.BAS104,170,104,64PLAYER DATA (L/R)13,13,13,13,13,29,57,113%%176,176,176,176,176,184,156,142~{&&BRPJOOPDIRDIRPOPOSADDMIMAYPYPAXPXPAVMOVCHOEVENTSCREECHSETIMAPPTDLTDLTITLMEMJOY}MOVMOPTDC@@@BC7AABAA} B B @ }AAAA`A!AA=B`B@`A6@A}@B  [""!.."BDR#@$B%B"& CURRENT EVENTSBY JAMES HAGUE(c})1987, ANTIC PUBLISHINGd06-@$F:B2y,"@06-n Ax# A A #6-@. 6}-($(F:A,*(F:A,. A06-?:<,(A"88,,)"8,A#6-8,%8,# )!}A# 6-F:,68,-# A 6-8,(A046-8,%8, )!*68,-4 A0* 6}-F:,( 68,-* A0"8(,A!!"AV)"AWAm'2@P%@@}068,-96-8,J68,-8,%8,[68,-8,%8,m6-?:<<<8,,:B2H%8,&B7a:"AX}A 6-?:<, 6-%A  A0EVENT HANDLER6-6-A@'%},6-P:H:,$@,,8,A 668,-@6%@A`AA'6-"@}'6-A&&@@%/&@@%E&@ @%[%@@%q%@@%}%@ @% A0K'6-?:<<8,<,K6-?:<@<8@,<,5o6-8,}*68,-8@,968@,-H6-8,`68,-8@,o68@,-:{B2H8@,?6-?:}<<8,<8@,,TB2I8,{6-?:<@<8@,<8,,Do6-8,*68,-8}@,968@,-H6-8,`68,-8@,o68@,-IU#8,?:c,@,@',@ + 5@G,}@@Q@ c,@@H; @,@@)@;,@@R'B2w@'}AY@b\! A!-@@fs-6-P:H:,$@,$@%@W6-P:H:,$@,$@}%@_1s"AA!PpJ ,&-@6@B2A@F J zY-}@+AA(%?A@%K6-@U AqY 1-@#A - Aq1 }O-@@ @)A5,?AK,@O w-@)(@time 56}-A`? ApPK6-@@U Aqg-@ @w(@G-@@4-@6@}P2@@T q-@6@2@P@ E -@ @)(@} 3@BE,@@V A7,@@1A@`S2V$} END GAME KAAU'A @9B7eKB7g E-@/6-?:<<8},<,3 EB2w %2@F@@G2@@H@@S6-@] Aq}oB7aB7c J-@J(@ PL1: >:AF,>:AT, [ @2}6-6-3-@@C6-%$@ [-%@%@  6-F:,(A0p  @d6-%@} !A6-%@ K  6--@) A2/6-A-@K A2 \,}/@8-@6?`T2@P@X \ 0 o "-@@7(@Š}ŠI-@@e(@ĠΠ tieo A1`: ;-@@!1(@PLAYER 1; A1PD #}#(@ >:AF,N 1-@@1(@ӠX -@6@=-AP}@6@ S2@q2'@@u y  A  & @&(@>:Av,} & A&(@>:Av, E 6.=:,-@B:,>(@>:A:7<,,%Av,B E$X3@}A+B7tA3DEBUGb$TIME PRINTER}6-P:'@`,G(@>:@%,>:@%%,>:@&},U$@`"z(@>:@%,>:@%,}$b6.=:&$@`,_(@>:A:7@<@,,%@%,}>:A:7@,,%@%,b$WAIT ROUTINE (A)@ F:@ , Aq$?TITLE SCREEN@}AY!A`-Aa?A APQAcAu@@}'AVJa-@@!6-+ ApP=AY@4O@waAVA$T30F:B2y,"@})(T:,)(T:@,3$^-@@  h F:B2y,@Ar)6-%@!A )6-}@|-@@ ApP F:B2y,"@Ap A'#INITIALIZATION(# +@2# Ap}<#;A8,9@,9@,9@,9@,;@4,9@,9@,9@,9@,9@},;@,A#N;@F,E6..hhhhhhh`N6-C:,F#5,6."hhhx  }ʆ`56-C:,P#S #A!-@+"468,-=68,-F68,-O68,-S Z#o 6.67A8},.+67@,.46-C:,[6-A H&+&P:'A H,$A H,%a6-o6-%A6d#26-%A"6-P:'AV,}26-&$AVn##A#A'AVx#,,6-?:C:hͨα͑Υ`,,#[[6-?:????>,<%@H<@U,#==6-?:JSR.HERE0430 STA $A9AC0440 LDA #NOP ;NOP0450 STA} $A9AD0460 ;0470 ;Install patch in unused (except0480 ;with NEW) BASIC RAM.0490 LDX #ENDCODE-PATCH-10500 LDY #EN}DCODE-STARTCODE-10510 LOOP0520 LDA ($D4),Y ;Move bytes from0530 STA PUT.PATCH,X ;USR code0540 DEY 0550 D}EX 0560 BPL LOOP ;Done when patch0570 RTS ;installed0580 ;0590 ;Patch to be installed in BASIC0600 ;R}AM. If NEW occurs, BASIC ROM0610 ;is enabled so that patch isn't0620 ;accidently executed.0630 ;(Remember: With FAST-STACK}, ROM0640 ;is always enabled in direct0650 ;mode.)0660 PATCH0670 NOP 0680 LDX #BASIC.ON0690 STX PORTB0700 };0710 LDY #1 ;Is lnno >= curr0720 LDA FORLN+1 ; lnno???0730 CMP (STMCUR),Y0740 BCC NORMAL0750 B}NE FAST0760 ;0770 DEY 0780 LDA FORLN0790 CMP (STMCUR),Y0800 BCC NORMAL0810 ;0820 FAST0830 LDA STM}CUR+1 ;Yes,start from0840 LDY STMCUR ; current line0850 RTS 0860 NORMAL0870 LDA STMTAB+1 ;No,start from0880} LDY STMTAB ; first line0890 RTS 0900 ENDCODE0850 RTS 0860 NORMAL0870 LDA STMTAB+1 ;No,start from088090 X=USR(ADR("hਢӱӑ穋ƶŶv̽ͽ\ԝq`ӥ`")):CLR 1 X=USR(AD!}R("h ꍭ Cԝ`Ӡъъ``"))ԝq`ӥ`")):CLR 1 X=USR(AD K0100 ; FAST STACK0110 ; BY BILL BODENSTEIN0120 ; (c)1987, ANTIC PUBLISHING0130 ;0140 ;EQUATES0150 ;0160 PORTB = $D301 %} ;Toggle ROM0170 BASIC.ON = 2530180 BASIC.OFF = 2550190 ;0200 LDA = 165 ;Decimal opcode0210 STMCUR = $8A ;BASIC%} line ptr0220 FORLN = $A0 ;Line # put here0230 ;0240 PUT.PATCH1 = $A071 ;Patch after0250 ; STOP/END%}0260 PUT.PATCH2 = PUT.PATCH1+50270 ;0280 ; Relocatable, but0290 *= $0600 ;could be called0300 ; % } via USR(1536)0310 STARTCODE0320 PLA ;Remove # args0330 COPY.BASIC0340 LDA #$A0 ;Start of B% }ASIC0350 STA $E10360 LDA #$000370 STA $E00380 TAY 0390 LOOP10400 LDX #BASIC.ON0410 STX PORTB % } ;BASIC ROM on0420 LDA ($E0),Y ;Get a byte0430 LDX #BASIC.OFF0440 STX PORTB ;BASIC RAM on0450 STA ($E0)% },Y ;Copy byte0460 INY 0470 BNE LOOP1 ;And loop0480 ;0490 INC $E10500 LDA $E10510 CMP #192 ;Unt% }il all moved0520 BNE LOOP10530 ;0540 MODIFY.BASIC0550 LDA #STMCUR+1 ;LDA ($8A),Y=>0560 STA $B6C6 ; LDA $%}8B0570 LDA #LDA ; and LDA $8A0580 STA $B6C00590 STA $B6C50600 ;0610 LDA # PUT.PATCH20640 STA $BDCD ;$B816 to patch20650 ;0660 ;Install patch to re-ena%}ble ROM0670 ;at STOP or END, and patch to0680 ;change line pointer.0690 LDX #ENDCODE-PATCH1-10700 LDY #ENDCODE-ST%}ARTCODE-10710 LOOP20720 LDA ($D4),Y ;Move bytes from0730 STA PUT.PATCH1,X ;USR code0740 DEY 0750 DEX 07%}60 BPL LOOP2 ;Done when patch0770 ;0780 RTS ;installed0790 ;0800 ;Patches to be placed in code0810 ;af%}ter STOP/END. Note: once0820 ;BASIC ROM is enabled by patch1,0830 ;patch2 won't be executed.0840 PATCH10850 LDX #BASI%}C.ON0860 STX PORTB0870 ;0880 PATCH20890 LDA FORLN ;Ln addr is here0900 STA STMCUR ;Point to it0910 L%}DA FORLN+10920 STA STMCUR+10930 LDY #2 ;(Rest is the0940 LDA (STMCUR),Y ; same)0950 STA $9F0960 %} CLC 0970 RTS 0980 ENDCODE0930 LDY #2 ;(Rest is the0940 LDA (STMCUR),Y ; same)0950 STA $9F0960 $!EF^ # PCSPMCHPLCTAFFNDDZZMZMSCHOPSTCBPPP)}@@ )} !" MEG-AN)}IMATOR, LISTING TWO FRMED.BASBY JACOB DONHAM(c)1987, ANTIC PUBLISHING2A@!6-@-6-)}@96-@C+UAgAR@u6-$AV6-$AV<u6-F:@,!6-F:@,)}3@G-@A`S@Y(}] i@u@FDD9@,9@<@,;@)},;@,;@,KE-@A`-6-$AV%ADA%@@E P A0Z##@)}@K:d""( i(n( Edit Framesx( Load Frames)}( Save Frames""( Load Block Set( Quit)@"@:1,A) }"@:2,A%"@:3,A("@:4,A !"@:5,!%D:MEGMATOR.BAS AP)-@)!}@)(򡠠@)@"-@@6( @ APq (} A0P56-F:A`,%)"}AV$F:Aa,I%@'@e]%@(@2q%@)AVS%@@q+%@@?)#}%@@S%@A5!AV!B2w@BBA;6-F:%@,%AV$F:%@)$},O-@c-@%+$@ ,%%@$@% N 6-%@&6-P:'AV,6)%}6-&AV$B@N@))(@ Change Frame(((@ Frame Clear Frame""()&}@ Color$%%(@  Copy From.''(@ Parameters3##(@ )'} Return8 A`)@j!!!@T) @IAt??&@HAA0A@A)(}AAE6-@d6-@'6-36-@EB2w@7B2H%-%@3%))}7 $-%@ %8&,$ J 6-6-R:,."@*!@#<6-&@J6-&@)*}5"@* @3'6-%@56-%@5"@*!@q'6-&@56-&@5"@* A)+}w'6-%@56-%@DF:Ad,AU(-%@6%: D A  T:,"@),}A%-%@!%%  k +@ A0P#AV5B2w@GB2IYB2P)-}kB2Q i@#@%E6-F:A`,%AV$F:Aa,Y%@i%@).}%36-@H6-@'6-36-@+ -%@'%+ 0B2H-%)/}@,%8&,0 J 6-6-R:,."@*!@#<6-&@J6-&@ (5"@* @'6)0}-%@56-%@ 25"@*!@U'6-&@56-&@<5"@* A'6-%@56-%)1}@F/F:Ad,AU%)@/ AP T:,"@AZ#+%,$AV%%# AnM )2}+AR@1ACB2HM Ax] +AR@1AA)3}-%@O%S ] AC +AR@1ACB2H] (} (((()4} Which Frame2 A6M!6@* @dS6-] AF +@@-@%< )5}@}F Ap +B2w1AR@CAF(I(b( Which Colorl A)6}p!! @)!@A@%6-+&@,$@d% A@u +AR@1A)7}CB2HF(I(k( Frame to Copy Fromu AEJG!6@* @d(G( Copying F)8}rame  to Frame TJ-A9<+%,$AV%F:+%,$AV%,@ J AC +AR@)9}1ACB2H( (( Sound( Block Set( Delay):}( Return)@"@:1,A "@:2,A"@:3,A"@:4,A);} A` (} ( -@!V*( Tone For Voice %@4 A%8V )!AU)<}A%&-+%,$AV%A@%# - A: (} ( -@?M!( Color %@+ A)=}U/M )!AUAUD-+%,$AV%AD%# - AX (} (]F( Block Set$ )>}A(F @)!@Ab/%+%,$AV%AH&@/ Al (} ({B( Delay )?}A$B )!AUA'+%,$AV%AI' A_ (} (()( Director)@}yH( Load Block Set_( Return)@""@:1, A `" A "@:2,A!)A}"@:3,(} A A  X (})( N@@D:*.SETX)B} A +@!( + A p @)@$4/6. 6.D:% A1/ A!)C}>o (} (()( File to Load-I67@:A%,% A A% _(>:A%,0( )H} U@@D:*.FRM_ A% +@!( + A p @)I})@$( /6. 6.D:% A1/ A&2 v(>:A%,((0( File to Load4P67@)J}:A%,((0( DirectoryL()M} Save Framesc( Return )@ ""@:1, A%`" A( "@:2,A) %)N}"@:3,(>:A%,% A" A(T /6. 6.D:% A1/ A)^ v(>:A%,((0( )O} File to Save4P67@>72,169,224,141,10,212,141,9,212,104,64,0)S},0,0,0,0,0,0,0,0 $ BBy!AY@F3B2VEB2W@WB2X@iA@&)T}{A@ A qA'B2Y@56-%AC6-%A@Q6-%Ah_6-)U}%AqB2w 2 #A0!-@%".68,-2  %%255,129,129,129,129,129,129,255 $ #)V}A1& --@")A6%- + 104,104,104,170,76,86,2280 $ D1:FRMED.BAS255 $ #(n; FROG; BY GREG KNAUSS; (c)1987, ANTIC PUBLISHINGBYTE TIME,SEC,PIC,JMP,SCR,DEL,FLY,FS, PM,DX,DY,EX,EY,OY,S,T,W,U,D,M-X}BYTE ARRAY FY(4)INT DIR,TN,OXINT ARRAY FD(4)CARD DRB,CH,DL,X,Y,I,J,KCARD ARRAY FX(4)PROC PLRVBI()[162 3 189 244 6 2-Y}40 89 56 221 240 6240 83 141 254 6 106 141 255 6 142253 6 24 169 0 109 253 6 24 109 2526 133 204 133 206 189 240 6 133 203-Z}173 254 6 133 205 189 248 6 170 23246 255 6 144 16 168 177 203 145 205169 0 145 203 136 202 208 244 76 876 160 0 177 203 -[}145 205 169 0 145203 200 202 208 244 174 253 6 173254 6 157 240 6 189 236 6 240 48 133203 24 138 141 253 6 109 235 6 1332-\}04 24 173 253 6 109 252 6 133 206189 240 6 133 205 189 248 6 170 1600 177 203 145 205 200 202 208 248 174 253 6 169 0 157 -]}236 6 202 48 376 2 6 76 98 228 0 0]PROC MYVBI()TIME==+1 [76 $E45F]PROC DLI()[72 238 0 5 173 0 5 141 10 212 201 1208 1-^}2 169 99 141 9 212 169 198 141 23208 104 64 201 2 208 7 169 40 141 26208 104 64 201 3 208 15 169 130 14126 208 141 24 208 -_}169 9 141 25 208104 64 169 224 141 9 212 169 15 14123 208 169 0 141 0 5 104 64]PROC DLIST()[112 112 112 66 0 0 5 5 7 6 1-`}30 55 5 132 132 5 5 4 132 2 65]PROC FROG1()[0 0 0 0 0 0 0 00 0 0 0 0 0 0 00 0 0 0 54 108 255 227126 128 252 252 238 11-a}8 54 59108 216 254 130 198 252 0 252220 204 238 102 116 160 208 240240 240 240 224 224 224 224 192128 192 224 192 128 0 0-b} 00 128 192 192 192 224 224 224224 240 240 240 240 240 240 240248 248 248 248 192 54 108 255193 99 190 128 206 198 231 19-c}80 0 0 0 0 0 0 00 0 0 0 0 0 0 0 0 0 0 0 0 240 124 126 255 199 187 127 127 119 250 124 0 0 128 128 128 64 224 224224 96 -d}96 240 240 240 240 240 240 240 120 120 120 56 188 188 140 156 188 156 8 0 0 0 128 196 238 223 158 188 184 18456 120 120 2-e}48 240 240 240 240240 224 224 224 224 224 192 6464 192 128 128 128 0 0 0]PROC FROG2()[0 0 0 0 0 0 0 00 0 0 0 0 0 0 00 -f}0 0 0 0 15 62 126255 227 221 254 254 238 95 620 0 1 1 1 2 7 77 6 6 15 15 15 15 1515 15 30 30 30 28 61 6149 57 61 57 16 0-g} 0 01 35 119 251 121 61 29 2928 30 30 31 15 15 15 1515 7 7 7 7 7 3 22 3 1 1 1 0 0 00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0-q}B%DOS SYSB*)DUP SYSBSANTIC MOVB3TBLKED BASBBOINK BASBNCURRENT BASBDOC BFASTJUMPM65BFASTPROGLSTBFASTSTCKM65B@FRMED BASB@WFROG ACTB?FROG EXEBHELP BASB6KILLER ACT 0 0 108 54 255 199 126 1 63 63 119 110 108 220 54 27 127 65 99 63 0 63 59 51 119 102 46 5 11 1515 15 15 7 7 7 7 3 1 3 7-r} 3 1 0 0 0 0 1 3 3 3 7 7 7 7 15 15 15 15 15 15 15 31 31 31 31 3 108 54 255 131 198 125 1 115 99 231 99]PROC TOUNGE()[0-s} 255 127 63 31 15 7 3 1 0128 192 224 240 248 252 254 255]PROC DRAGON()[66 165 153 126 24 0 0 00 0 0 24 126 153 165 66]-t}PROC CHRS()[0 0 0 0 0 0 0 00 0 10 42 10 0 0 00 0 0 0 0 0 0 00 42 170 170 170 170 0 02 170 85 170 170 170 170 0170 165 9-u}0 170 170 170 170 0170 85 170 170 170 169 170 170170 85 170 169 150 106 170 170165 90 165 90 170 170 170 17085 89 169 169-v} 170 170 170 17085 165 170 170 106 106 106 17090 85 165 170 170 170 170 170170 85 90 165 170 170 170 170170 85 170 90 165-w} 170 170 170170 170 85 170 90 165 170 170170 170 85 170 170 106 170 170170 170 90 165 170 170 170 170170 170 170 85 170 1-x}70 170 170170 170 170 85 170 170 170 170170 170 170 170 85 170 170 170170 170 170 170 85 170 170 170170 170 170 170 90 17-y}0 170 160170 170 170 170 170 170 170 00 170 170 170 170 170 160 00 0 170 170 170 160 0 00 0 0 128 0 0 0 016 156 216 156 -z}216 156 16 1616 16 16 16 0 0 0 016 16 16 16 16 16 0 016 16 16 16 16 16 16 16]PROC FLIES()[3 12 48 192]PROC CLRS()[66-{} 202 202 4 196 15 134 0 134]PROC PAUSE()SNDRST() POSITION(15,0)PRINT("* Paused *") POKE(764,255)WHILE PEEK(764)=255 DO O-|}DPOSITION(15,0) PRINT(" ")POKE(764,255) RETURNPROC SHOOT()T==+TN IF T=10 OR T=95 THEN TN=-TN FIIF T=50 THEN TN-}}=0 FI POKE(53248,X+OX)POKE(1780,Y+OY) POKE(1772,T/5)IF TN<>0 THEN FOR M=0 TO 3 DOIF PEEK(53256+M)=1 THEN FX(M)=3000SOUND(-~}1,50,10,10) SCR==+1POSITION(9,14) PRINTC(SCR)SOUND(1,0,0,0) FI OD IF PEEK(53263)=1THEN SOUND(1,100,10,10) DY=0SEC==+30SCR-}==+5 POKE(53251,0) POSITION(9,14)PRINTC(SCR) SOUND(1,0,0,0) FI FIPOKE(53278,0) RETURNPROC PLACE()SHOOT() OX=-28 IF DIR=1-} THEN OX=11 FIOY=23 IF PIC MOD 3=1 THEN OY=4 FIIF PIC MOD 3=2 THEN OY=25 FI RETURNPROC MOVE()POKE(16,112) POKE(53774,112-})IF PEEK(764)=33 THEN PAUSE() FIPOKE(53250,X) POKE(53249,X+8)POKE(1782,Y) POKE(1781,Y)IF STRIG(0)=0 AND TN=0 AND JMP=2TH-}EN TN=DIR T=50 PLACE() FIIF DY<4 THEN FOR DEL=1 TO 50 DO OD FIIF DX>3 AND DY>3 THEN DX==+1IF DX>EX THEN DX==-2 FI DY==+1I-}F DY>EY THEN DY==-2 FIIF EX=DX OR EY=DY THENEX=RAND(240)+10 EY=RAND(70)+20 FIPOKE(53251,DX) POKE(1783,DY)POKE(1775,(DX MO-}D 2)*8+1) FIIF SEC MOD 20=0 THEN DX=250+RAND(2)*10DY=5 EX=RAND(255) EY=RAND(100)+50 FIIF SEC MOD 20=15 AND DX>3 AND DY>3T-}HEN EX=125+RAND(10) EY=0 FIIF TIME>58 AND SEC>0 THEN TIME=0SEC==-1 POSITION(35,14) PRINTB(SEC)PRINT(" ") FISHOOT() FLY==+-}1 IF FLY=4 THEN FLY=0FI FX(FLY)==+FD(FLY)*FSIF FX(FLY)>2450 OR FD(FLY)=0 THENFOR M=0 TO 1 DO U=PEEK(FLIES+FLY)D=FY(FLY) W-}=PEEK(DRB+768+D+M)-UPOKE(DRB+768+D+M,W) OD FD(FLY)=1IF RAND(10)>5 THEN FD(FLY)=-1 FIFX(FLY)=RAND(400) IF FD(FLY)=-1 THENF-}X(FLY)=2150+RAND(400) FIFY(FLY)=50+RAND(100) FOR M=0 TO 1 DOU=PEEK(FLIES+FLY) D=FY(FLY)W=PEEK(DRB+768+D+M)+UPOKE(DRB+768+-}D+M,W) OD FID=FX(FLY)/10 POKE(53252+FLY,D)RETURNPROC ANIMATE()POKE(1773,PIC*32+1)POKE(1774,PIC*32+1) RETURNPROC SPLAS-}H()T=50 TN=0 FOR I=0 TO 31 DO Y==+1POKE(1785,32-I) POKE(1786,32-I)MOVE() OD X=0 MOVE() POKEC(548,$E462)I=SEC DO SEC==-1 P-}OSITION(35,14)PRINTB(SEC) PRINT(" ")SOUND(0,200,10,10) FOR DEL=1 TO 5 DOMOVE() OD SOUND(0,0,0,0)FOR DEL=1 TO 5 DO MOVE() -}ODIF SEC=I-30 OR SEC=0 THEN EXIT FI ODPOKEC(548,PLRVBI) PIC=1 X=50 DIR=1JMP=2 FOR I=1 TO 32 DO Y==-1POKE(1785,I) POKE(178-}6,I) ANIMATE()MOVE() OD PIC=0 RETURNPROC SETUP()DO GRAPHICS(0) POKE(559,0)POKE(752,1) DL=PEEKC(88)POKE(16,112) POKE(537-}74,112) POKEC(DLIST+4,DL) FOR I=0 TO 1 DOPOKE(82,I*34+1) POSITION(I*34+1,5)PRINTE(": :") PRINTE("= :=")PRINTE("=:==") PR-}INTE("====")PRINTE("====") PRINTE("====")PRINTE("<=;<") OD POSITION(8,11)PRINT("!#$%&'()*+,-./0123456789")POSITION(2,14) -}PRINT("Score: 0")POSITION(29,14) PRINT("Time: 120")CH=(PEEK(106)-8)*256MOVEBLOCK(CH,CHRS,1024)POKE(DLI+15,CH/256)MOVEBLO-}CK(1536,PLRVBI,160)PM=PEEK(106)-24 DRB=PM*256+1POKE(1788,PM+4) POKE(53277,3)POKE(54279,PM) POKE(1771,PM-1)POKE(53256,3) P-}OKE(623,17)MOVEBLOCK(DRB-256,TOUNGE,20)MOVEBLOCK(DRB,FROG1,192)MOVEBLOCK(DRB+256,FROG2,192)MOVEBLOCK(DRB+512,DRAGON,16)Z-}ERO(DRB+768,1280)MOVEBLOCK(704,CLRS,9)T=50 SETBLOCK(1773,3,1)POKE(1784,1) POKE(1785,32)POKE(1786,32) POKE(1787,8)POKE(12-}80,0) POKEC(548,PLRVBI)POKEC(546,MYVBI) POKEC(560,DLIST)POKEC(512,DLI) POKE(54286,192)FOR I=0 TO 3 DO FX(I)=0 FY(I)=0FD(-}I)=0 OD SEC=121 SCR=0 FS=5 FLY=0DY=0 X=120 Y=160 DIR=1 PIC=0 TN=0ANIMATE() MOVE() POSITION(8,3)PRINT("FROG") POSITION(13,4-})PRINT("By Greg Knauss") POSITION(7,0)PRINT("(c)1987 Antic Publishing")POKE(559,62) WHILE PEEK(53279)<>6 ANDSTRIG(0)=1 DO-} OD POSITION(8,3)PRINT(" ") POSITION(13,4)PRINT(" ") POSITION(7,0)PRINT(" ")DO -}IF SEC=0 THEN EXIT FIJMP=0 S=STICK(0)IF S=7 THEN PIC=1 DIR=1 JMP=1 FIIF S=11 THEN PIC=4 DIR=-1 JMP=1 FIIF S=14 THEN JMP=2-} FIIF S=13 THEN DIR=-DIR PIC=3-PIC FIIF X<80 OR X>167 THEN SPLASH() FIIF JMP=1 THEN ANIMATE() PLACE()FOR I=0 TO 9 DO X==+-}DIR Y==-1 MOVE()SOUND(0,Y-90,10,4) OD FOR I=0 TO 9 DOX==+DIR Y==+1 MOVE()SOUND(0,Y-90,10,4) OD PIC==-1 PLACE()SOUND(0,0,0-},0) FIIF JMP=2 THEN PIC==+1 ANIMATE()PLACE() FOR I=0 TO 126 DOSOUND(0,Y,10,6-I/20) IF I MOD 9=0 THENX==+DIR FI Y==-1 MOVE-}() OD PIC==+1ANIMATE() PLACE() SOUND(0,0,0,0)FOR I=0 TO 126 DO IF I MOD 9=0 THENX==+DIR FI Y==+1 MOVE() OD PIC==-2PLACE()-} FI IF S<>15 AND X>79AND X<168 THEN FOR I=1 TO 70 DOANIMATE() MOVE() OD FI IF S=15 THENANIMATE() MOVE() FI FS=SCR/2+5POKE-}(77,0) FOR DEL=1 TO 20 DO OD ODPOSITION(5,3) PRINT("GAME OVER!")POSITION(9,14) PRINTB(SCR)FOR I=1 TO 500 DO MOVE() ODPOS-}ITION(10,0)PRINT("Press the trigger...")WHILE STRIG(0)=1 DO MOVE() OD OD9,14) PRINTB(SCR)FOR I=1 TO 500 DO MOVE() ODPOS,L$PB (c)1983 Action Computer Services  B JKIHiDiELV`L=$1} =$ BLV`YL$$l L$ &` Fj`8冨凪` $EӅӥ1} $`ʆǪƩ Ɛee` $ƦʆǢ &Ɛeǐ % %L$ $'&&&8儨児1}祂*L$&&*ń8&&L$ [%`hihiHHȱȱL$c !#3`1}L$JJJJ`H $h`Hȩh r$L% {$L% %$L% -$L% 3$H81}`HhHh _&L% BHI V䅠L% L& =$L%Ԇ ؠPIPP`1} &P -$L% &L& &L& 'L&H- &8塪墨hL' 'L& &'L& &ȹP`1}텠8堨塪 &芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H 1}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护1}°ڱ%ȱ%E &L`(担CS R&L`(I 'L`(H (L`( &L`( &B V %NLMȑ1}` MLN%B VL%S:)E:)H L& ) ) & L&h)0I))L&[\ZUVT` @)))1}` G)L& :)L& @)L&) ` G)L& &%` 0d $ҥ `2)21}ҩ`p`0)9*`@0)ӈJJJJ)`Ѕ`ȱ`` 5*ȥ`Hh1}ƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡`1}`ťƤe8夰L* Ƥ8`ŦeѠe桊L* 0 0 0 1}0 0 0 J0 0 0 0YB J0 0 0 0 QBL+Y8Sjmm̅ν˭ͽ.ˑͩˈLW1}ˑͩ0mmνͽˑ0LLbL&,J+L_L/,H  c ԩƍh@1}(h@ЍЩ h@ ԩЩh@L{,pppBAL,6l~v6;lft1}6lc|~ǻw|@``xxx8ߞ8xx1}@@LW->~_>==19=9#wy=1}l6~??wnl6Ac??;3wf. l6}sccL.?L/.B~~B1}LB. * *UZUUjZZUYUjjjZUUZUZUZ1}UjZUUUUZ؜؜L5/ 01}L/ 5*Щ %*IL> *IL>L= :)L&> >! R& :)LH> >9 R& :)Lv>1} >[ R&K+L>LAM+ *X+X+IL>L+c+Ȍb+M+X+I L>L+c+b+M+X+IL>1}M+X+I L?8b+b+c+c+8L+L+r+Ps+r+s+L ? =7M+IL? 6 1w+v+ v+w+L?r+mb+r+s+mc1}+s+8t+t+u+u+ 18t+Z )v+аw+L8?w+v+ v+w+L?r+mb+r+s+mc+s+t+u+ 18t+Z 1} )v+йw+L?8L+L+ 1 )M+IL"AL+ 6 1w+v+~v+w+L@w+v+ [%8宅 t+ )1} w+v+ %L@r+mb+r+s+mc+s+8t+t+u+u+ 1v+w+L@L+ 6 1 )w+v+~v+w+LA1} w+v+ %LAr+mb+r+s+mc+s+t+u+ 1v+Юw+L@8L+L+ 1X+ILsAOr+s+LsAr+ɨs+LsA1}w+Ȍv+Fv+w+LsA 6 1v+w+LSAX+ILA 6 1N+ [%iQ+M 5*O+O+LAO+LAL}> :)1}LA GAME OVER!A R& :)N+ &w+Ȍv+v+w+LB 1v+w+LA :)L2BPress the trigger...B R& *I1}LMB 1L9BL8`8R& :)N+ &w+Ȍv+v+w+LB 1v+w+LA :)L2BPress the trigger...B R& *I0|LINEA ;A ,;@,; (}@;@@ D:DOC.TXT5} A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@5}l(}v @@<( @@dj@ B*-@@"R("ΠҠՠҠˠҠ_@5}j%D:MENU D1:HELP.BASdj@ B*-@@"R("ΠҠՠҠˠҠ_@4&; KILLER CHESS; BY GREG KNAUSS ; (c)1987, ANTIC PUBLISHING CARD PM,CHBYTE I,J,K,STK,PLR,LOC,CAP,OKBYTE ARRAY X(2),Y9}(2),OX(2),OY(2), HOLD(2),PAU(2),SND(2),DIS(2)INT X1,Y1,DX,DY,DUM1,DUM2PROC CURSOR(); SHAPE FOR CURSORS [255 129 9}129 129 129 129 129 255]PROC CHRS(); BOARD EDGE [ 0 0 0 0 0 0 0 0 0 0 0 0 15 15 15 15 0 9} 0 0 0 0 0 0 0 0 0 0 0 255 255 255 255 0 0 0 0 240 240 240 240 15 15 15 15 15 15 15 19}5 240 240 240 240 240 240 240 240 15 15 15 15 0 0 0 0 255 255 255 255 0 0 0 0 240 240 240 240 0 09} 0 0; PIECES 0 0 0 56 56 16 124 0 0 84 124 56 56 56 124 0 0 6 60 124 28 28 60 126 0 9}16 24 108 124 56 16 124 0 214 254 124 56 56 124 254 0 16 56 146 254 124 56 124; TITLE 0 247 108 112 112 19}08 246 3 0 62 102 96 96 102 60 0 24 0 56 24 24 24 60 0 224 96 124 102 102 102 247 0 56 24 9} 24 24 24 24 60 0 0 0 60 102 126 96 62 0 0 0 220 102 96 96 240 0 0 0 62 96 60 6 1249} 0; "PRESS START" 0 238 170 238 140 138 0 0 0 238 136 206 130 238 0 0 1 225 129 225 33 225 1 0 259}5 17 123 27 219 27 255 0 255 17 85 17 83 85 255 0 240 16 176 176 176 180 240 0]PROC SETUP()GRAPHICS(18) P9}OKE(559,0)POKE (559,46); COLORSSETBLOCK(706,2,66)POKE(704,14) POKE(705,8)POKE(708,10) POKE(710,4)POKE(709,142) POKE(719}1,15) ;DO 711; P/M GRAPHICS PM=(PEEK(106)-8)*256POKE(54279,PM/256) POKE(53277,3)SETBLOCK(53258,2,3) ZERO(PM,1024)POKE(69}23,2) PM==+512 K=51FOR I=32 TO 95 STEP 8 DO FOR J=0 TO 7 DO POKE(PM+I+J+256,K) POKE(PM+I+J+384,K) OD K=255-K OD; REDEFI9}NED CHARACTERSCH=(PEEK(106)-16)*256MOVEBLOCK(CH,CHRS,512)POKE(756,CH/256); DRAW BOARD POSITION(5,1) PRINTD(6,"9}") FOR I=2 TO 9 DO POSITION(5,I) PRINTD(6," ") ODPOSITION(5,10) PRINTD(6," ")POSITION(6,2) PRINTD(6,9}"+,-./-,+")POSITION(6,3) PRINTD(6,"********")POSITION(7,5) PRINTD(6,"")POSITION(7,6) PRINTD(6,"")POSITION(6,8)9} PRINTD(6,"")POSITION(6,9) PRINTD(6,"")POSITION(7,11) PRINTD(6,"")POKE(53250,96) POKE(53251,128)POK9}E(559,46); WAIT FOR [START]I=0 DO POKE(54282,0) POKE(53273,I) I==+3 UNTIL PEEK(53279)=6 OD; DRAW PIECESPOSITION(6,2) P9}RINTD(6,"+* ")POSITION(6,3) PRINTD(6,",* ")POSITION(6,4) PRINTD(6,"-* ")POSITION(6,5) PRINTD(6,".* ")9}POSITION(6,6) PRINTD(6,"/* ")POSITION(6,7) PRINTD(6,"-* ")POSITION(6,8) PRINTD(6,",* ")POSITION(6,9) PRINTD9}(6,"+* ")POSITION(7,11) PRINTD(6," ")RETURNPROC MAIN(); GAME LOOPDOSETUP()X(0)=6 Y(0)=5 X(1)=13 Y(1)=69}HOLD(0)=0 HOLD(1)=0 PAU(0)=0 PAU(1)=0PLR=1; PLAYER TURN LOOPDO; ALTERNATE PLAYERS PLR=1-PLR; RESET THESE FOR EACH TU9}RNX1=0 Y1=0 POKE(77,0)IF PAU(PLR)=0 THEN SOUND(PLR,0,0,0) FI; MOVE WHICH WAY???STK=STICK(PLR)IF STK=14 OR STK=10 OR ST9}K=6 THEN Y1=-1 FIIF STK=13 OR STK=9 OR STK=5 THEN Y1=1 FIIF STK=11 OR STK=10 OR STK=9 THEN X1=-1 FIIF STK=7 OR STK=6 OR9} STK=5 THEN X1=1 FI; KEEP PLAYER ON BOARDLOC=LOCATE(X(PLR)+X1,Y(PLR)+Y1)IF LOC<10 THEN X1=0 Y1=0 FI; MOVE CURSOR IF Y9}1<>0 THEN ZERO(PM+128*PLR+16+8*Y(PLR),8) FIX(PLR)==+X1 Y(PLR)==+Y1POKE(53248+PLR,8*X(PLR)+48) MOVEBLOCK(PM+128*PLR+16+8*Y9}(PLR), CURSOR,8); WAIT! HE'S PLACING A PIECE! IF HOLD(PLR)>0 AND STRIG(PLR)=0 AND PAU(PLR)=0 THEN CAP=0 OK=0 DX=0 DY9}=0; SOMETHING TO CAPTURE! IF LOC<>32 THEN CAP=1 FI; FIND DELTA VALUES DUM1=X(PLR) DUM2=OX(PLR) DX=DUM1-DUM2 DUM:}1=Y(PLR) DUM2=OY(PLR) DY=DUM1-DUM2; FLIP FOR PLAYER 2 IF PLR=1 THEN DX=-DX DY=-DY FI; IS IT LEGAL???; PAWN IF H:}OLD(PLR)=1 THEN IF DX=1 AND DY=0 AND CAP=0 THEN OK=1 FI IF DX=2 AND DY=0 AND CAP=0 AND OX(PLR)=7+PLR*5 THEN OK=1 FI:} IF DX=1 AND (DY=1 OR DY=-1) AND CAP=1 THEN OK=1 FI FI; ROOK IF HOLD(PLR)=2 THEN IF (DX<>0 AND DY=0) OR (DX=0 AND:} DY<>0) THEN OK=1 FI FI; KNIGHT IF HOLD(PLR)=3 THEN IF (DX=2 AND DY=1) OR (DX=-2 AND DY=1) THEN OK=1 FI IF (DX=:}2 AND DY=-1) OR (DX=-2 AND DY=-1) THEN OK=1 FI IF (DX=1 AND DY=2) OR (DX=-1 AND DY=2) THEN OK=1 FI IF (DX=1 AND DY=:}-2) OR (DX=-1 OR DY=-2) THEN OK=1 FI FI; BISHOP IF HOLD(PLR)=4 AND (DX=DY OR DX=-DY) THEN OK=1 FI; QUEEN IF HO:}LD(PLR)=5 THEN IF DX=DY OR DX=-DY THEN OK=1 FI IF (DX<>0 AND DY=0) OR (DX=0 AND DY<>0) THEN OK=1 FI FI; KING IF H:}OLD(PLR)=6 THEN IF (DX=1 AND DY=1) OR (DX=0 AND DY=1) OR (DX=-1 AND DY=1) THEN OK=1 FI IF (DX=1 AND DY=0) OR (DX=-:}1 AND DY=0) THEN OK=1 FI IF (DX=1 AND DY=-1) OR (DX=0 AND DY=-1) OR (DX=-1 AND DY=-1) THEN OK=1 FI FI; CAN'T CAP: }TURE OWN PIECES OR ; BORDER IF LOC>128*PLR+41 AND LOC<128*PLR+127 OR LOC<10 THEN OK=0 FI; DIDN'T MOVE IF DX=0 AN: }D DY=0 THEN OK=1 FI; MAKE SURE JUMPS WEREN'T MADE, ; EXCEPT BY KNIGHT IF HOLD(PLR)<>3 THEN I=OX(PLR) J=OY(PLR) X1=0 : }Y1=0 IF DX<0 THEN X1=-1 FI IF DX>0 THEN X1=1 FI IF DY<0 THEN Y1=-1 FI IF DY>0 THEN Y1=1 FI IF PLR=1 THEN X1=-X1 Y1=: }-Y1 FI IF (DX<-1 OR DX>1) OR (DY<-1 OR DY>1) THEN DO I==+X1 J==+Y1 K=LOCATE(I,J) IF K<>32 THEN OK=0 F: }I UNTIL (I=X(PLR)-X1 AND J=Y(PLR)-Y1) OR K<10 OD FI FI; LEGAL MOVE! IF OK=1 THEN COLOR=32 PLOT(OX(PLR),OY(PL:}R)) COLOR=HOLD(PLR)+128*PLR+41; QUEEN ME! IF HOLD(PLR)=1 AND X(PLR)=7*(1-PLR)+6 THEN COLOR=128*PLR+46 FI; K:}ILL OTHER PLAYERS HOLD IF THAT'S ; WHAT WAS CAPTURED IF X(PLR)=OX(1-PLR) AND Y(PLR)=OY(1-PLR) THEN HOLD(1-PLR)=0:} POSITION(11*(1-PLR)+4,2) PRINTD(6," ") FI; WHO'D HE LAND ON?? K=LOCATE(X(PLR),Y(PLR)); WHOEVER IT WAS, KILL HI:}M PLOT(X(PLR),Y(PLR)) COLOR=32 PLOT(11*PLR+4,2); A KING DIED! IF K-128*(1-PLR)-41=6 THEN EXIT FI HOLD(PLR)=0 S:}ND(PLR)=100*PLR+100 DIS(PLR)=14 FI; ILLEGAL MOVE... IF OK=0 THEN SND(PLR)=255 DIS(PLR)=2 FIPAU(PLR)=5 FI; PICK U:}P PIECE IF HOLD(PLR)=0 AND STRIG(PLR)=0 AND PAU(PLR)=0 AND LOC<>32 AND LOC>128*PLR+41 AND LOC<128*PLR+127 THEN; Grab H:}OLD HOLD(PLR)=LOC-128*PLR-41 OX(PLR)=X(PLR) OY(PLR)=Y(PLR) COLOR=LOC PLOT(11*PLR+4,2) SND(PLR)=100*PLR+100 DIS(PLR)=10:} PAU(PLR)=5 FI; DELAY FOR CH=1 TO 2000 DO OD; PAUSE FOR HUMANS IF PAU(PLR)>0 THEN PAU(PLR)==-1 SOUND(:}PLR,SND(PLR),DIS(PLR), PAU(PLR)*2) FI; NEXT PLAYER OD; VICTORY ROUTINE SNDRST() ZERO(PM,256) COLOR=32FOR I=2 TO 9 :}DO FOR J=6 TO 13 DO LOC=LOCATE(J,I) IF LOC>128*(1-PLR) AND LOC<128*(1-PLR)+127 THEN PLOT(J,I) FI OD OD PLOT(4,2) PLOT(15,:}2); PAUSE CH=0 DO CH==+1 FOR I=1 TO 100 DO OD UNTIL CH=7500 OR PEEK(53279)=6 OD; START NEW GAME OD(4,2) PLOT(15,8n