@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 D8u a;t;PAGCHPOBSXCTDSCSXYBIZZZWRURSSZSSPEWSCHMMMTIMMMHBEMXZZRZLYMPT}ADSZAWWWFTI U} @V} !@"#@$%&'()*+W},-./0123456789:;X}<=0&9@,9@,9@,0 A (6-F:A,&@$(6-$AV(6-@6-Y}@'6-@36-@?6-@K6-A)W6-]6-c6-i6-u6-@6-6-6Z}-6-@6-6-@26-6-2H-@@&68,-568,-D68,-[}H <g +@AV6-1ACA@VUAAgA @F! A\} Ap!,Pc-@"1(@>:@, C-@@"c(@>:A),  ZI]}AV6-%@)6-@56-@C!%@I6-_'6-@"@'6-?Pdu6-F:A2,^}!6-F:AD,3@wW2@&A6@_6-&k u An?"6-&@_}) @5!? Ax/ *"# A/6-@"@ A@!`} A="@"'6-AB36-= Ap1"@6-@'6-A)1 Ap2a}"@6-6@(6-AA2 Ap%"@6-AB% A`%"@6-AB% A)1b}&@"Ab) A@?1%@@95 @f)!@x? A0="@")c}6-&@=!@A="@"@)6-&@=!@A @EE6-+H:,d} ?E* @,&+H:,!?`*!@,U%2@@E@@)/,76-%?1IAdOe},U6-; ""12@; A)1%@"@2) Ap46-f}12@4$"M1&@"@9+6-@976-@C6-@2M A ,51%g}@"@9+6-@25 A 6="@2*"@5#Ab1,&@=6-@5@'J[ "*"6h}-@5%6-+6-76-@2C6-MAb[,&@T A^ @hśrIi}%!@* @)6-%@56-? AI @|I% *!@)6-&@56-@? Aj}I @6- A e 1%e"A*"@*8@,")"A*"@*8@,k}"@#" Ap# @ AP=1%@3@9* @f)!@x= A0l}" A@ @1@9#-@(' 1 @D6-6-6@& A m}0 APD"AdA" A@ @C6-6-@% A / APC"Adn}A" A@ @ ś55"@5)"A)"Ad)"AcA&!!!@o}* @A 0"AA:"AG68,-@:-@@N-ABAUd2p}@@h l x6-@268,-@?@"AG*"@--@@<68,-@ D%%2q}@N"AdAX++"Ab*!A6* AFAb"AAApl$r}v"@2Ap"AA55"A*"A8)"A*"ADA$j ,6-%s}@%AB+,;1%@j2@O:$@0'@,@@"@2Ap3%2@t}36-&@| A4,0-@6?PV2A%$@@Z u}|2% 6-6-6-% Ac ,6-6-6-+6-@276-v}C6-@O6-@Y Ap]c,6-@@""(@6 A+1&@"Aw}b+6-@5$ ˛1 A3,@@#1/@@#  @,-@@6@x}P2@%AP@@t2@%AQ@@x 2@O6-&@y}/,%@@#;6-@O"A$ )-A%@$@U2@'z}@$@@@Y {2@6-@6-@ Ap6-@2 @{}* ś4%%6-P:H:,$@ ,%@>-@6@>2@$@@@L6-%A|}^-@@"k(@o 2@H1#"@)"@)"@ 16-%@R:6-}}@26-6-!6-068,-@: @\ Ǜf!!!1%&@p!@f* @x$z~}% @*!%6-1"6-%@1A 0A `3!@6-'6-3}6-@$; ,6-%#6-&@+1/5,;6-@2 A@ @% @})!@%6-A1%%@5!@f* @x)"AA6-; ,6-%#6-%@}+1/5,;6-@2 A@=1%@3@9* @f)!@x= A0 @}1%%%!@f* @x9-@[2@P@@_ 2} @$-@ $5 ,6-%6-%%1)/,56-$#@2*@9}# A@.$8 қB @Ac,G!@@5,I)6-%@!@)6}-J$L7 6--@@)AV76-%@V?'2@$@P@@;-@%}? `9 Au, 92@j1&@t1"@2)"Ab#@21,&}@~"%@6-@26-@2$O ,6-%@%Ad+,;1%@O"@2}Ap$ ̛c +@AVA$A2@c2@}E-@@-(@ GAME OVERA-AE  +@AVA$[-@@/(}@ A-@@[(@ dark cavernsX-@@/(@ A-@@}X(@SCORE:  F:B2y,@AP16-6-@'6-@1 @0 A@,}6-@2w%2@A@@9-@= _2@s-@}Pw  S%2@A@@1AV?6-%@M!%@S6-G ,6-%@)6-}%@11;A@A,G6-Q%2@9-@%= Q @A(S%2}@A@@1AV?6-%@M!%@S6-29 ,6-%@#1-A@3,}96-<Q%2@9-@%= Q @A F%2@}B-A6@f2'@ @@j 2P-@}4-APA06@Z2$'@@@^ b 2Zg +@}AVA$1-@@M(@CoRaLaOnY!@ g6-&@ d%-AP % @0}nMA'AY9-M $AP%A xH ,,8@,"@* @6}@H,@@]3P:H:,$@,%@APA`?6-@K6-Q6-]6-/#}"@)"@)"@/6-@ @r,@ 1/@@ CAAHUAY@4}w2@"@2@@@$ 6- $ 6- $}Λ&&(@IKKKKKECKKKKKKKKKKKK&&(@I G G &&(@I 'JECDDDDE'L&&(}@I # 'L FFFF 'L&&(@IKK KKKKE'L GGG 'L&&(@I G G G 'L GGG 'L&&(@}I 'L G 'L&&(@I'JHKKKKHHE 'L&&(@I'JI G JHKECDEC KEL"&&(@I'JI JIG} F G L,&&(@I'JI JI G L6&&(@I'CE'JHMME # L@&&(@I' 'JI 'JHECDECKL}J&&(@HI'JHHI # 'JI F LT&&(@I 'JHHHHHI'JI G L^&&(@I 'JMMMMME'JI Lh&&(@}I 'J 'JHHHI'L Lr&&(@I 'JHHI' 'JHHHE'L L|&&(@I 'CMMMMME'CMME 'L L&&(@I ' } ' ' LC A,@@1,@@C,@@8,"@$ @,@}@1,@@;@ M,@@W@i,@@s@,@@@,}@@,@@$&&(@ CH&&(@ # J&&(@}HECDECKKECDKKECDE' J&&(@I ' J&&(@I'JHHHECHECHHHHHHI J&&(@I'JHH}E L CDHHHHI J&&(@I'CKE L CECE J&&(@I' # L # J&&(@I'JHHHDDHDDHHHI}L' J&&(@I'JHHDFFLFFDHHHHI' J&&(@I'JHDFGGLGGFDHHHI' J&&&(@I'JDFGGGLGGGFDHHI' J0&&(}@I'CFGGGGLGGGGFDDE' J:&&(@I' GGGGGLGGGGGGF ' JD&&(@I' GGG GFGGGGGGG ' JN&&(@}I' G G GG G GGG ' JX&&(@I' G G G G ' Jb&&(@I' G ' Jl&&(@I' G } ' Cv&&(@I' # # ' I6-@ 6-@ %A7,@@I,@@4}8@,""A4,@@48@,""AG4,@ @8,"@$P} @,@@)@;,@@M,@@P$&&(@HE CE&&(@}I # # &&(@I'CDDECECDE CDECHHHH&&(@I' F G G CKKH&&(@I' } J&&(@HKDKDKDKDKDDHI'JHHHH&&(@IGFGFGFGFGFFJI'JHHHH&&(@I G G G G GGJI'J}HHHH&&(@I JI'JHECH &&(@HKECDE'CECECHI'JEC&&(@I F ' JI'JHHHH &&(}@I G ' # #JI'JHHHH*&&(@HE' G 'JHHHHHI'JHHHH4&&(@I ' G 'CMMMMME'CKECJ>&&(@}I ' ' ' G JH&&(@I ' ' ' JR&&(@HE'C JDDDE' CKDDE'J\&&(@I ' LFFF '} GFF 'Jf&&(@E ' LG ' G 'Jp&&(@ ' L # ' 'Jz6-@6-@C A},@@1,@@C,@@8,"@$ @,@@1,@@};@ M,@@_,@@i@{,@@,@@ @,@@1},@@C,@@M@_,@@q,@@,@@$&&(@ } CHHE &&(@ # JI # &&(@ICECDDE' JI 'DDDDDDH&&(@I GF ' JI 'FFGFF}FJ&&(@I G ' JI 'GG GGGJ&&(@I'DD' ' DD ' G J&&(@I'FF' ' FF ' J&&(}@I'GG' ' GG ' # J&&(@I'GGJHHI GG 'CKDE' J &&(@I' GJHHI GG ' GF ' J &&(@I'} GJECI GG ' G ' J &&(@I' GJI G ' ' J$ &&(@I' CHHE G ' ' J. &&(@I' JI '} ' J8 &&(@ICE'CDE # ' CDDEJB &&(@I ' F CDDE' FG JL &&(@I ' FF ' JV }&&(@I'CDDE G CKECDE'J` &&(@I' G G F 'Jj &&(@I' # 'Jt 6-@}6-@~ 1 A,@@1,@@ 8,"@$ @,@@1,@}@;@ M,@@_,@@i@{,@@@,@@@ ,}@@$ &&(@ CH &&(@ # J &&(@HHHHHI'JHHHHHH}HHHI'J &&(@IDDDDI' JDDDDDDDDE'J &&(@IFFFFCDDEFFFFFFFF 'J &&(@IGG G GG GGGG GGG 'J &}&(@IG G G G G GG 'J &&(@I 'J &&(@I 'J &&(@}I'JI JHH &&(@I'JI JHH &&(@I'JIJHH &&(@I'JH}HHH( &&(@I'JHHHHHHHHHHHHHHHHH2 &&(@I'CDDDDDDDDDDDDDDKKH< &&(@I' FFFFFFFFFFFFFFGGJ}F &&(@I' G GGGGGG GGGGG GJP &&(@I' G G GG G G G GJZ &&(@I' Cd &&(@}I' # # # # n C A,@@1,@@C,@@x F8@,""A}4,@F,@@ 48@,""AG4,@@ 8,"@$ v @},@@)@ ;,@@E@W,@@a@s,@@v$ &&(@HD}DDDDDDDDDDDDDDDDDH &&(@IFFFFFFFFFFFFFFFFFFJ &&(@IG GG G G G G GGGG J &&(@I } J &&(@I # # # J &&(@I'JHHHHHHHHI'J &&(@I'JHHHHHHHHI'J }&&(@I'JMMMMMMMMMMMMMME'J &&(@I'L 'J &&(@I'L # 'J &&(@}I'D 'CDDDDDDDDDDKKKH &&(@I'F ' FFFFFFFFFFGGGD &&(@I'G ' GGGGGGGG G F" &&(@I'G JH } G G G G, &&(@I' JH G G G6 &&(@I' JH G G @ &&(@I' JH G } J &&(@I' JH T &&(@E' JH^ &&(@ ' JHh _ A},@@1,@@C,@@MAA_,@@r Z @,@@)@};,@ @ E@W,@@Z$ D:CAVE3.BASqAME@@)@g a;q;PAGCHPOBSXCTDSCSXYBIZZZWRURSSZSSPEWSCHMMMTIMMMHBEMXZZRZLYMP }ADSZAWWWFTIA2B7A@@@@@@@ @r @2 } A)@@@@@@@A } !A"0#A$`%&'(@)*@+ },-./0@123456789:@;?P }<=@0&9@,9@,9@,0 A (6-F:A,&@$(6-$AV(6-@6- }@'6-@36-@?6-@K6-A)W6-]6-c6-i6-u6-@6-6-6 }-6-@6-6-@26-6-2H-@@&68,-568,-D68,- }H <g +@AV6-1ACA@VUAAgA @F! A } Ap!,Pc-@"1(@>:@, C-@@"c(@>:A),  ZI }AV6-%@)6-@56-@C!%@I6-_'6-@"@'6-?Pdu6-F:A2, }!6-F:AD,3@wW2@&A0@_6-&k u An?"6-&@ }) @5!? Ax/ *"# A/6-@"@ A@! } A="@"'6-AB36-= Ap1"@6-@'6-A)1 Ap2 }"@6-6@(6-AA2 Ap%"@6-AB% A`%"@6-AB% A)1 }&@"Ab) A@?1%@@95 @f)!@x? A0="@") }6-&@=!@A="@"@)6-&@=!@A @EE6-+H:, } ?E* @,&+H:,!?`*!@,U%2@@E@@)/,76-%?1IAdO },U6-; ""12@; A)1%@"@2) Ap46- }12@4$"M1&@"@9+6-@976-@C6-@2M A ,51% }@"@9+6-@25 A 6="@2*"@5#Ab1,&@=6-@5@'J[ "*"6 }-@5%6-+6-76-@2C6-MAb[,&@T A^ @hśrI }%!@* @)6-%@56-? AI @|I% *!@)6-&@56-@? A }I @6- A e 1%e"A*"@*8@,")"A*"@*8@, }"@#" Ap# @ AP=1%@3@9* @f)!@x= A0 }" A@ @1@9#-@(' 1 @D6-6-6@& A }0 APD"AdA" A@ @C6-6-@% A / APC"Ad }A" A@ @ ś55"@5)"A)"Ad)"AcA&!!!@ }* @A 0"AA:"AG68,-@:-@@N-ABAUd2 }@@h l x6-@268,-@?@"AG*"@--@@<68,-@ D%%2 }@N"AdAX++"Ab*!A6* AFAb"AAApl$ }v"@2Ap"AA55"A*"A8)"A*"ADA$j ,6-% }@%AB+,;1%@j2@O:$@0'@,@@"@2Ap3%2@ }36-&@| A4,0-@6?PV2A%$@@Z }|2% 6-6-6-% Ac ,6-6-6-+6-@276- }C6-@O6-@Y Ap]c,6-@@""(@6 A+1&@"A }b+6-@5$ ˛1 A3,@@#1/@@#  @,-@@6@ }P2@%AP@@t2@%AQ@@x 2@O6-&@ }/,%@@#;6-@O"A$ )-A%@$@U2@' }@$@@@Y {2@6-@6-@ Ap6-@2 @ }* ś4%%6-P:H:,$@ ,%@>-@6@>2@$@@@L6-%A }^-@@"k(@o 2@H1#"@)"@)"@ 16-%@R:6- }@26-6-!6-068,-@: @\ Ǜf!!!1%&@p!@f* @x$z }% @*!%6-1"6-%@1A 0A `3!@6-'6-3 }6-@$; ,6-%#6-&@+1/5,;6-@2 A@ @% @ })!@%6-A1%%@5!@f* @x)"AA6-; ,6-%#6-%@ }+1/5,;6-@2 A@=1%@3@9* @f)!@x= A0 @ }1%%%!@f* @x9-@[2@P@@_ 2 } @$-@ $5 ,6-%6-%%1)/,56-$#@2*@9 }# A@.$8 қB @Ac,G!@@5,I)6-%@!@)6 }-J$L7 6--@@)AV76-%@V?'2@$@P@@;-@% }? `9 Au, 92@j1&@t1"@2)"Ab#@21,& }@~"%@6-@26-@2$O ,6-%@%Ad+,;1%@O"@2 }Ap$ ̛c +@AVA$A2@c2@ }E-@@-(@ GAME OVERA-AE  +@AVA$[-@@/( }@ A-@@[(@ dark cavernsX-@@/(@ A-@@ }X(@SCORE:  F:B2y,@AP16-6-@'6-@1 @0 A@, }6-@2w%2@A@@9-@= _2@s-@ }Pw  S%2@A@@1AV?6-%@M!%@S6-G ,6-%@)6- }%@11;A@A,G6-Q%2@9-@%= Q @A(S%2 }@A@@1AV?6-%@M!%@S6-29 ,6-%@#1-A@3, }96-<Q%2@9-@%= Q @A F%2@ }B-A6@f2'@ @@j 2P-@ }4-APA06@Z2$'@@@^ b 2Zg +@ }AVA$1-@@M(@CoRaLaOnY!@ g6-&@ d%-AP % @0 }nMA'AY9-M $AP%A xH ,,8@,"@* @6 }@H,@@]3P:H:,$@,%@APA`?6-@K6-Q6-]6-/# }"@)"@)"@/6-@ @r,@ 1/@@ CAAHUAY@4 }w2@"@2@@@$ 6- $ 6- $ }Λ&&(@IKKKKKECKKKKKKKKKKKK&&(@I G G &&(@I 'JECDDDDE'L&&( }@I # 'L FFFF 'L&&(@IKK KKKKE'L GGG 'L&&(@I G G G 'L GGG 'L&&(@ }I 'L G 'L&&(@I'JHKKKKHHE 'L&&(@I'JI G JHKECDEC KEL"&&(@I'JI JIG } F G L,&&(@I'JI JI G L6&&(@I'CE'JHMME # L@&&(@I' 'JI 'JHECDECKL }J&&(@HI'JHHI # 'JI F LT&&(@I 'JHHHHHI'JI G L^&&(@I 'JMMMMME'JI Lh&&(@ }I 'J 'JHHHI'L Lr&&(@I 'JHHI' 'JHHHE'L L|&&(@I 'CMMMMME'CMME 'L L&&(@I ' } ' ' LC A,@@1,@@C,@@8,"@$ @,@ }@1,@@;@ M,@@W@i,@@s@,@@@, }@@,@@$&&(@ CH&&(@ # J&&(@ }HECDECKKECDKKECDE' J&&(@I ' J&&(@I'JHHHECHECHHHHHHI J&&(@I'JHH }E L CDHHHHI J&&(@I'CKE L CECE J&&(@I' # L # J&&(@I'JHHHDDHDDHHHI }L' J&&(@I'JHHDFFLFFDHHHHI' J&&(@I'JHDFGGLGGFDHHHI' J&&&(@I'JDFGGGLGGGFDHHI' J0&&( }@I'CFGGGGLGGGGFDDE' J:&&(@I' GGGGGLGGGGGGF ' JD&&(@I' GGG GFGGGGGGG ' JN&&(@ }I' G G GG G GGG ' JX&&(@I' G G G G ' Jb&&(@I' G ' Jl&&(@I' G } ' Cv&&(@I' # # ' I6-@ 6-@ %A7,@@I,@@4 }8@,""A4,@@48@,""AG4,@ @8,"@$P } @,@@)@;,@@M,@@P$&&(@HE CE&&(@ !}I # # &&(@I'CDDECECDE CDECHHHH&&(@I' F G G CKKH&&(@I' "} J&&(@HKDKDKDKDKDDHI'JHHHH&&(@IGFGFGFGFGFFJI'JHHHH&&(@I G G G G GGJI'J #}HHHH&&(@I JI'JHECH &&(@HKECDE'CECECHI'JEC&&(@I F ' JI'JHHHH &&( $}@I G ' # #JI'JHHHH*&&(@HE' G 'JHHHHHI'JHHHH4&&(@I ' G 'CMMMMME'CKECJ>&&(@ %}I ' ' ' G JH&&(@I ' ' ' JR&&(@HE'C JDDDE' CKDDE'J\&&(@I ' LFFF ' &} GFF 'Jf&&(@E ' LG ' G 'Jp&&(@ ' L # ' 'Jz6-@6-@C A '},@@1,@@C,@@8,"@$ @,@@1,@@ (};@ M,@@_,@@i@{,@@,@@ @,@@1 )},@@C,@@M@_,@@q,@@,@@$&&(@ *} CHHE &&(@ # JI # &&(@ICECDDE' JI 'DDDDDDH&&(@I GF ' JI 'FFGFF +}FJ&&(@I G ' JI 'GG GGGJ&&(@I'DD' ' DD ' G J&&(@I'FF' ' FF ' J&&( ,}@I'GG' ' GG ' # J&&(@I'GGJHHI GG 'CKDE' J &&(@I' GJHHI GG ' GF ' J &&(@I' -} GJECI GG ' G ' J &&(@I' GJI G ' ' J$ &&(@I' CHHE G ' ' J. &&(@I' JI ' .} ' J8 &&(@ICE'CDE # ' CDDEJB &&(@I ' F CDDE' FG JL &&(@I ' FF ' JV /}&&(@I'CDDE G CKECDE'J` &&(@I' G G F 'Jj &&(@I' # 'Jt 6-@ 0}6-@~ 1 A,@@1,@@ 8,"@$ @,@@1,@ 1}@;@ M,@@_,@@i@{,@@@,@@@ , 2}@@$ &&(@ CH &&(@ # J &&(@HHHHHI'JHHHHHH 3}HHHI'J &&(@IDDDDI' JDDDDDDDDE'J &&(@IFFFFCDDEFFFFFFFF 'J &&(@IGG G GG GGGG GGG 'J & 4}&(@IG G G G G GG 'J &&(@I 'J &&(@I 'J &&(@ 5}I'JI JHH &&(@I'JI JHH &&(@I'JIJHH &&(@I'JH 6}HHH( &&(@I'JHHHHHHHHHHHHHHHHH2 &&(@I'CDDDDDDDDDDDDDDKKH< &&(@I' FFFFFFFFFFFFFFGGJ 7}F &&(@I' G GGGGGG GGGGG GJP &&(@I' G G GG G G G GJZ &&(@I' Cd &&(@ 8}I' # # # # n C A,@@1,@@C,@@x F8@,""A 9}4,@F,@@ 48@,""AG4,@@ 8,"@$ v @ :},@@)@ ;,@@E@W,@@a@s,@@v$ &&(@HD ;}DDDDDDDDDDDDDDDDDH &&(@IFFFFFFFFFFFFFFFFFFJ &&(@IG GG G G G G GGGG J &&(@I <} J &&(@I # # # J &&(@I'JHHHHHHHHI'J &&(@I'JHHHHHHHHI'J =}&&(@I'JMMMMMMMMMMMMMME'J &&(@I'L 'J &&(@I'L # 'J &&(@ >}I'D 'CDDDDDDDDDDKKKH &&(@I'F ' FFFFFFFFFFGGGD &&(@I'G ' GGGGGGGG G F" &&(@I'G JH ?} G G G G, &&(@I' JH G G G6 &&(@I' JH G G @ &&(@I' JH G @} J &&(@I' JH T &&(@E' JH^ &&(@ ' JHh _ A A},@@1,@@C,@@MAA_,@@r Z @,@@)@ B};,@ @ E@W,@@Z$D:CAVE4.AV,@@)@ d.PAGCHPOPAFMPADSZA D} v;@,:(%Schirm wird fuer einige Zeit dunkel !Y( Bitte 'RETURN' drueckenv( dann wartE}en..... AY(6-F:A,&@$(6-$AV`-A(Aq*%F:BsD%,E%AF}%F:BsD%,`%A$%F:BsD%,(X%A6%F:BsD%,9%A H%F:BsD%,T%A%`%F:BsD%G},X 2""6@@<{-@"-%$@%G%$@%A%a%$@%A$H}%{%$@%A6%F;%$@%A H%7%$@%A%`%; P @PZT"6@I}(-@,"F%$@%A%J T @dT"6@(-@,"F%$@%AJ}$%J T AnT"6@(-@,"F%$@%A6%J T AxT"6@K}(-@,"F%$@%A H%J T A T"6@(-@,"F%$@%L}A%`%J T A0%D:CAVE3kk1,126,251,60,24,60,90,24,102,2,0,0,0,0,0,0,28,24,3,0,0,0,8,24,60,106,255,4,8,24,M}60,106,255,231,126,60ii5,0,0,34,119,255,119,34,0,6,0,0,0,0,0,72,38,217,7,36,36,36,126,126,36,36,36,8,0,0,60,24,60,52,60,2N}4ll9,0,0,90,60,24,60,44,52,10,0,0,0,60,24,60,60,24,11,0,0,126,110,60,24,24,60,12,56,16,16,56,16,16,56,124[[13,126,223O},60,24,60,90,24,102,14,126,255,60,24,126,24,24,102,15,0,0,0,8,24,60,106,255]]35,255,127,59,1,0,0,0,0,36,255,255,255,255,2P}55,126,210,123,37,255,254,248,208,128,0,0,0__38,242,27,54,55,18,58,54,16,39,16,56,16,24,16,16,48,16,40,255,255,255,255,25Q}5,255,255,255ff41,255,250,252,252,251,252,254,253,42,255,95,63,63,223,63,127,191,43,223,183,239,173,24,16,16,16__44,1R}89,126,62,93,190,60,126,221,45,255,255,255,255,255,255,214,141,46,0,0,0,0,0,0,170,255bb47,170,255,255,255,255,255,255,255S},48,56,84,124,254,254,254,124,0,49,0,0,0,0,254,254,254,124ff51,65,0,0,0,0,0,65,0,52,84,40,84,40,84,40,84,40,53,0,0,0,0,0,T}0,8,28,55,60,126,60,24,24,60,126,60bb56,162,80,177,80,168,84,170,85,57,170,85,170,85,170,85,170,85,58,129,68,129,80,160,8U}4,170,85::59,40,0,37,64,37,0,102,153,60,0,0,0,0,0,0,102,153,-1VV1,126,251,60,24,126,24,30,96,2,0,0,24,60,60,16,0,0,13V},126,223,60,24,126,24,120,6ZZ14,126,255,60,24,126,24,24,102,15,0,0,16,24,60,86,255,255,46,0,0,0,0,170,255,255,255"YY47W},0,0,170,255,255,255,255,255,48,56,84,124,68,254,254,254,124,51,2,64,0,0,0,1,32,0,RR52,40,84,40,84,40,84,40,84,53,0,0,0,0,X}0,20,8,28,55,28,62,124,56,28,62,124,566]]56,160,80,162,80,169,84,170,85,58,129,64,132,81,160,84,170,85,59,64,16,132,80,8,0Y},34,85@OO60,0,0,0,0,0,0,34,85,-1,1,126,251,60,24,60,90,24,102,2,8,60,60,24,0,0,0,0J]]13,126,223,60,24,60,90,24,102,14,1Z}26,255,60,24,60,90,30,96,15,0,8,24,60,106,255,231,126TTT46,0,0,170,255,255,255,255,255,47,0,0,0,0,170,255,255,255,51,4,0,6[}4,0,1,0,16,0^VV53,0,0,0,0,34,0,8,28,55,62,28,56,124,62,28,56,124,56,160,80,164,80,169,84,170,85hYY58,136,64,129,80,160,\}84,170,85,59,144,0,32,132,32,0,51,204,60,0,0,0,0,0,0,51,204,-1rjj1,126,251,60,24,126,24,120,6,2,56,16,0,0,0,0,0,0,3,0,0,0,]}8,24,60,86,255,4,16,24,60,86,255,255,126,60|^^13,126,223,60,24,126,24,30,96,14,126,255,60,24,60,90,30,96,15,16,24,60,86,25^}5,255,126,60__46,170,255,255,255,255,255,255,255,47,0,0,0,0,0,0,170,255,48,56,84,124,68,254,254,254,124ff51,8,0,0,65,_}0,0,8,0,52,40,84,40,84,40,84,40,84,53,0,0,0,0,65,0,8,28,55,124,56,28,62,124,56,28,62]]56,164,81,160,82,168,84,170,85,58,1`}30,72,128,82,161,84,170,85,59,32,136,0,32,0,0,17,170bb60,0,0,0,0,0,0,17,170,-1,1,126,251,60,24,60,90,24,6,2,0,0,0,0,0,0,0a},0,3,0,0,0,8,24,60,86,255]]4,16,24,60,86,255,255,126,60,13,126,223,60,24,60,90,24,96,14,126,255,60,24,126,24,126,0TT4b}6,0,0,170,255,255,255,255,255,47,0,0,0,0,170,255,255,255,51,16,0,1,0,64,0,4,0VV53,0,0,0,0,0,65,8,28,55,60,126,60,24,24,60c},126,60,56,164,80,165,80,169,84,170,85ZZ58,132,64,130,84,160,84,170,85,59,8,32,72,128,16,0,153,102,60,0,0,0,0,0,0,153,102d},-1hh1,126,251,60,24,126,24,120,6,2,0,0,0,0,0,0,0,0,3,0,0,0,8,24,60,86,255,4,16,24,60,86,255,255,126,60\\13,126,223,6e}0,24,126,24,30,96,14,126,255,60,24,126,24,126,0,46,0,0,0,0,170,255,255,255YY47,0,0,170,255,255,255,255,255,48,56,84,124,6f}8,254,254,254,124,51,32,1,0,0,0,64,2,0hh52,40,84,40,84,40,84,40,84,53,0,0,0,0,0,0,73,28,55,60,126,60,24,24,60,126,60,60,0g},0,0,0,0,0,68,170__56,160,80,162,80,170,84,170,85,58,144,66,136,82,160,84,170,85,59,0,66,16,4,64,0,68,170,-1D8:RUq}B%DOS SYSB*)DUP SYSBxSCAVE3 BxCAVE4 B'CRUNCAVE BASB-sCOMPDECKLSTB DECK DOCB%DECKLOADLSTBKAARTEN DCKBSHUFFLE LSTBTITLE PICTPOKERSOLBAS? REKENEN BASAHREVERSE BASmSCHAAK2 BAS SCHAKEN BASNCAVE.BASBASVE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1r} L!0 0 1L~0`PLEASE TYPE 1 滠滱 S0 1`BDEPHI V` S0H 1=1 REM COMPDECK.BAS2 REM BY CHET WALTERS3 REM (c) 1986, ANTIC PUBLISHING10 GOSUB 20000:DIM CRD$(1921),SHOW$(40),A$(20),B$(2t}0),FO$(20),C1(5):FO$=" DECK FILE":GOSUB 500:GOSUB 51020 SHOW$="hhh̢_Ïi(̥i`":B$=FO$(3):DNUM=1:? :Gu}OSUB 520:FO$="D:":FO$(3)=A$30 FO$(LEN(FO$)+1)=".DCK":B$="INPUT PIC":GOSUB 580:? :? "DECK FILE IS->";FO$;" ";:GOSUB 80035 IFv} K$="N" THEN RUN 40 GOSUB 500:GOSUB 510:? :? "ENTER DRIVE #(1 OR 2) FOR PICDISK->";:INPUT DNUM45 IF DNUM<1 OR DNUM>2 THEN 4w}050 GOSUB 500:CARD=1:? "ӠĠȠӠŠ":? "ŠĠԠ":GOTO 7060 ? "SAVE COMPLETE":?x} "USE ";FI$(4,LEN(FI$)-2);" AGAIN FOR CARD #";CARD;65 GOSUB 800:IF K$<>"N" THEN 9070 ? :? "INSERT PICDISK INTO DRIVE # ";DNy}UM:? :GOSUB 52072 IF A$="/EXIT" THEN CLOSE #1:CLOSE #2:GRAPHICS 0:? "ABORTED AT YOUR REQUEST!":END 75 FI$="D1:":FI$(2,2)=Sz}TR$(DNUM):FI$(4)=A$:GOSUB 58080 FI$(LEN(FI$)+1)=".*":? :? "ǭ ";FI$;:LN=70:GOSUB 2100085 IF CARD=1 THEN FOR I=0 TO 4{}:C1(I)=C(I):NEXT I90 FOR I=0 TO 4:C(I)=C1(I):NEXT I:GOSUB 22000:GOSUB 501:POKE 559,0:GOSUB 23000:POKE 195,0100 I=USR(ADR("h|}X̥Y͢Ï`")):POKE 559,34:ADDR=SCR:MV=0:I=USR(ADR(SHOW$),ADDR)110 MV=0:GOSUB 620:IF K=15 OR K=143 THEN MV=40}}+280*(K=143):GOTO 180120 IF K=14 OR K=142 THEN MV=-40-280*(K=142):GOTO 180130 IF K=7 OR K=135 THEN MV=1+(K=135):GOTO 18014~}0 IF K=6 OR K=134 THEN MV=-1-(K=134):GOTO 180150 IF K=12 THEN 200160 IF K=28 THEN GOSUB 500:GOTO 70170 GOTO 110180 IF NO}T (ADDR+MV>SCR+3860 OR ADDR+MV0 THEN ? :? "INSERT DISK FOR ";FO$(3):}? "INTO DRIVE # 1":GOSUB 600:? 230 ? "SAVING CARD #";CARD;" IN ";FO$(3);240 POKE 195,0:IF CARD=1 THEN CLOSE #2:OPEN #2,8,0,}FO$:FOR I=0 TO 4:PUT #2,C1(I):NEXT I250 I=USR(ADR(CIO$),32,11,ADR(CRD$),1920):CARD=CARD+1:IF CARD<>13 THEN ? "";:GOTO 6026}0 CLOSE #2:GOSUB 500270 LN=270:? :? FO$(3,LEN(FO$)-4);" DECK COMPLETED!":? :? "DO YOU WANT TO:"280 ? " COMPILE ANOTHER D}ECK":? " SHUFFLE ";FO$(3):? " QUIT TO BASIC":? " GO TO DOS"290 TRAP 270:INPUT A:GRAPHICS 0:ON A GOTO 310,320,330,34}0300 GOSUB 500:GOTO LN310 RUN 320 ? :? "INSERT DISK WITH DECKLOAD.BAS ":GOSUB 600:? :? "LOADING":RUN "D:DECKLOAD.BAS"330 }GRAPHICS 0:END 340 DOS 500 GRAPHICS 0:? " çӠˠҠ":? :TRAP 630501 POKE 16,64:POKE 53774,64:RETURN 510 ?} FO$(3);" REQUIRES 185 FREE SECT.":? "AND IS WRITTEN TO DRIVE#1":GOTO 590520 ? "ENTER NAMES WITH NO PREFIX OR EXT.":? "PRESS} FOR DIRECTORY":LN=520525 IF CARD>0 THEN ? "TYPE: /EXIT TO ABORT"530 IF CARD THEN ? :? "WORKING ON CARD # ";CARD;}" FOR ";FO$(3):? 540 ? B$;" FILENAME->";:INPUT A$:IF A$<>"" THEN RETURN 550 GOSUB 500:CLOSE #1:A$="D1:*.*":A$(2,2)=STR$(DNU}M):OPEN #1,6,0,A$560 INPUT #1,A$:IF A$(2,2)<>" " THEN ? :? ,A$:? :CLOSE #1:GOTO 520570 POKE 83,37:? A$(2,10);:POKE 83,39:GO}TO 560580 ? :? "DURING EDIT USE:":? "נ OR TO MOVE WINDOW"581 ? "̯ OR TO MOVE FAST"582} ? " OR TO SAVE WINDOW":? " TO LOAD NEW PIC":RETURN 590 ? "OUTPUT FILE REMAINS OPEN!":? " ΧԠŠ}ӡ":RETURN 600 ? "Ӡ٠";:GOTO 700610 ? "(Y/N)Y";620 POKE 764,255621 IF (PEEK(764)=255 AND PEEK(632)=15 AND }PEEK(644)=1) THEN POKE 19,0:POKE 18,0:POKE 20,128:K=0:GOTO 621622 TIM=PEEK(19)+PEEK(18)*256:IF PEEK(644)=0 THEN K=12:GOTO 62}9623 K=(15*(PEEK(632)=13)):IF K<>0 THEN 628:REM DOWN624 K=(14*(PEEK(632)=14)):IF K<>0 THEN 628:REM UP625 K=(7*(PEEK(632)=7})):IF K<>0 THEN 628:REM RIGHT626 K=(6*(PEEK(632)=11)):IF K<>0 THEN 628:REM LEFT627 IF K=0 THEN K=PEEK(764):GOTO 629628 K=K}+(K<>0)*(128*(TIM>0))629 POKE 764,255:RETURN 630 GOSUB 500:? "ҭ";PEEK(195):GOTO LN700 POKE 764,255710 IF PEEK(764})=255 THEN 710720 POKE 764,255:RETURN 800 ? "(Y/N) Y";:INPUT K$:RETURN 19999 REM MICROSCREENLOADER20000 DIM C(5),FI$(20}),CIO$(30),MV$(64),BF$(7680),K$(1)20010 RESTORE 20030:FOR I=1 TO 3:READ MV$:BF$(LEN(BF$)+1)=MV$:NEXT I:CIO$="hhhhhBhEh}DhIhHLV"20020 MV$="hhhhhhhϠˑ͈ ˑ͈ˑ`":I=USR(ADR(MV$),ADR(BF$),1536,250):RETURN }20030 DATA hhhhׅՅhPhh٩  ɀ) ѩқ20040 DATA   LQ եؑ`}&צ` ("20050 DATA  ׆ eԅ˥iЯL%م`ͅ˥΅`20998 REM 20999 REM load }pic into buffer string21000 CLOSE #1:BYTES=7680:TYPE=0:RESTORE 21000:OPEN #1,4,0,FI$:DATA 255,128,201,199,26,0,1,1421010 FO}R I=1 TO 7:GET #1,A:POKE ADR(BF$)+I-1,A:READ H:IF A<>H THEN POP :GOTO 2104021020 NEXT I:GET #1,TYPE:FOR I=1 TO 5:GET #1,A:NE}XT I:FOR I=0 TO 5:GET #1,A:C(I)=A:NEXT I:GET #1,H21030 FOR I=1 TO 7:GET #1,A:NEXT I:I=0:IF TYPE THEN BYTES=H*256+25521040 A}=USR(ADR(CIO$),16,7,ADR(BF$)+I,BYTES-I):IF I=0 THEN 2106021050 C(3)=0:C(4)=0:C(0)=135:C(1)=53:C(2)=15:TRAP 2106021055 GET #}1,A:C(4)=A:FOR I=0 TO 2:GET #1,A:C(I)=A:NEXT I21060 TRAP 630:CLOSE #1:RETURN 21998 REM 21999 REM SETUP DLI22000 IF PEEK(8}7)=8 THEN 2202022010 GRAPHICS 24:I=USR(ADR("h0˭1ȱA`8N"))22020 SCR=PEEK(88)+256*PEEK(89):RET}URN 22998 REM 22999 REM DUMP PICTURE TO SCREEN23000 FOR I=0 TO 4:POKE 708+I,C(I):NEXT I23010 IF TYPE THEN I=USR(1536,SCR,}TYPE-1,ADR(BF$)):RETURN 23020 I=USR(ADR(MV$),ADR(BF$),SCR,7680):RETURN 708+I,C(I):NEXT I23010 IF TYPE THEN I=USR(1536,SCR,I handleiding card shuffler ANTIC july 1986 voor dit programma heb je 4 files nodig: } COMPDECK.BAS ('DECK' MAKEN) DECKLOAD.BAS ('DECK' KIEZEN EN SHUFFLE .BAS VERTONEN.) TITLE .PIC (TITEL SCHERM) KAAR}TEN .DCK (VOORBEELD 'DECK') ENTER DE FILES UIT 'BULLET' EN 'SAVE' DE FILES TERUG NAAR DISK MET DE EXTENDER '.BAS' WIL }JE EEN 'DECK' MAKEN LAAD DAN 'COMPDECK.BAS' EN RUN HET. HET PROGRAMMA VRAAGT DAN OM EEN NAAM VOOR EEN 'DECK'. GEEF DE NAAM }ZONDER EXTENDER EN ZONDER DEVICE (D:) DAN VRAAGT HIJ WELKE DISKDRIVE JE WILT GEBRUIKEN. HIERNA KAN JE JE TEKENING, GEMAAKT }MET TOUCH-TABLET O.I.D., LADEN. OP HET SCHERM ZIE JE DE TEKENING INVERSEN EN EEN KWART HEEFT DE GEWONE KLEUR. DIT KWART KAN }JE BEWEGEN MET DE JOYSTICK OF PIJLTOETSEN. HEB JE EEN GEDEELTE GEVONDEN DAT JE WILT GEBRUIKEN, DRUK DAN RETURN OF DE FIREBUT}TON IN. MET KOM JE IN HET LOAD-MENU. HERHAAL DE LOAD EN SAVE STAPPEN TOT JE EEN SERIE VAN 12 KAARTEN BEREIKT HEBT. I}S HET 'DECK' KLAAR LAAD EN RUN DAN DECKLOAD.BAS SHUFFLE.BAS EN TITLE.PIC EN EEN .DCK FILE MOETEN OP DEZELFDE DISK STAAN. HE}T PROGRAMMA VRAAGT WELKE .DCK FILE GELADEN MOET WORDEN GEEF DE NAAM, ZONDER DEVICE EN EXT., EN KIJK HOE HET PROGRAMMA HET 'D}ECK' LAAT 'SCHUDDEN'. KIEST DE LANGZAAMSTE SNELHEID LAAT DE 'DECK' SNELLER LOPEN KEERT TERUG NAAR HE}T MENU MOG JE ER NIET UITKOMEN LAAT DAN EEN BERICHT ACHTER AAN : JVD POL TEL:03408-85584 }LAAT DAN EEN BERICHT ACHTER AAN : JVD POL TEL:03408-85584 $1 REM DECKLOAD.BAS2 REM BY CHET WALTERS3 REM (c) 1986, ANTIC PUBLISHING10 POKE 0,77:GOSUB 200:GOSUB 20000:DIM A$(100),B$(2}50)20 FI$="D:TITLE.PIC":TRAP 30:? :? ,"LOADING ";FI$(3):GOSUB 21000:TITLE=130 GOSUB 200:? :? "DURING SHUFFLE, PRESS:":? :? }"٠ TO PAUSE DISPLAY":? " FOR MAX DELAY ON/OFF"40 ? " FOR VARIABLE DELAY ON/OFF":? " TO RETURN HER}E":IF TITLE=0 THEN ? ,"ŮàԠ"50 DRIVE=1:DECK=0:FI$="DECK FILES:":? :? FI$:? :N$="D?:*.*"55 TRAP 80:CLOSE #1}:N$(2,2)=STR$(DRIVE):OPEN #1,6,0,N$60 INPUT #1,A$:IF A$(11,13)="DCK" THEN POKE 83,37:? " ";A$(2,9);:POKE 83,39:DECK=170 GOT}O 6080 TRAP 85:CLOSE #1:IF DECK=0 THEN DRIVE=DRIVE+1:GOTO 5585 CLOSE #1:IF DECK=0 THEN ? :? FI$;" NOT ON THIS DISK":? "INSE}RT PROPER DISK-HIT ":INPUT A$:GOTO 3090 ? :? :? "PRESS FOR ANOTHER DISK OR":? "ENTER CHOISE OF DECK AS":? "IT A}PPEARS ABOVE-";:INPUT A$95 IF LEN(A$)<1 THEN 50100 TRAP 85:FI$(1,3)=N$(1,3):FI$(4)=A$:FI$(LEN(FI$)+1)=".DCK":DECK=0:OPEN #1},4,0,FI$:CLOSE #1:GOSUB 22000110 POKE 559,0:IF TITLE THEN GOSUB 23000120 POKE 559,34:RESTORE 150:B$="":FOR I=1 TO 2:READ A$}:B$(LEN(B$)+1)=A$:NEXT I130 B$(LEN(B$)+1)=CIO$:B$(LEN(B$)+1)=FI$:FI$="D:SHUFFLE.BAS":OPEN #1,4,0,FI$:CLOSE #1140 I=USR(ADR(}MV$),ADR(B$),1536,250):RUN FI$150 DATA hMhhhhТ`ˑΈi(Υiϥi˥i 160 DATA ˥̩ } `200 GRAPHICS 0:POKE 710,50:POKE 712,50:? " çӠǠĠҠ":? :? :RE}TURN 19999 REM MICROSCREENLOADER20000 DIM C(5),FI$(20),CIO$(30),MV$(64),BF$(7680),N$(10)20010 RESTORE 20030:FOR I=1 TO 3:R}EAD MV$:BF$(LEN(BF$)+1)=MV$:NEXT I:CIO$="hhhhhBhEhDhIhHLV"20020 MV$="hhhhhhhϠˑ͈ }ˑ͈ˑ`":I=USR(ADR(MV$),ADR(BF$),1536,250):RETURN 20030 DATA hhhhׅՅhPhh٩  ɀ) }ѩқ20040 DATA   LQ եؑ`&צ` ("20050 DATA  ׆ eԅ˥iЯ}L%م`ͅ˥΅`20998 REM 20999 REM load pic into buffer string21000 CLOSE #1:BYTES=7680:TYPE=0:RESTORE 21000}:OPEN #1,4,0,FI$:DATA 255,128,201,199,26,0,1,1421010 FOR I=1 TO 7:GET #1,A:POKE ADR(BF$)+I-1,A:READ H:IF A<>H THEN POP :GOTO} 2104021020 NEXT I:GET #1,TYPE:FOR I=1 TO 5:GET #1,A:NEXT I:FOR I=0 TO 5:GET #1,A:C(I)=A:NEXT I:GET #1,H21030 FOR I=1 TO 7:}GET #1,A:NEXT I:I=0:IF TYPE THEN BYTES=H*256+25521040 A=USR(ADR(CIO$),16,7,ADR(BF$)+I,BYTES-I):IF I=0 THEN 2106021050 C(3)=}0:GET #1,A:C(4)=A:FOR I=0 TO 2:GET #1,A:C(I)=A:NEXT I21060 CLOSE #1:RETURN 21998 REM 21999 REM SETUP DLI22000 IF PEEK(87)}=8 THEN 2202022010 GRAPHICS 24:I=USR(ADR("h0˭1ȱA`8N"))22020 SCR=PEEK(88)+256*PEEK(89):RETUR}N 22998 REM 22999 REM DUMP PICTURE TO SCREEN23000 FOR I=0 TO 4:POKE 708+I,C(I):NEXT I23010 IF TYPE THEN I=USR(1536,SCR,TY}PE-1,ADR(BF$)):RETURN 23020 I=USR(ADR(MV$),ADR(BF$),SCR,7680):RETURN 32000 REM TYPO II BY ANDY BARTON32010 REM VER. 1.0 FO}R ANTIC MAGAZINE32020 CLR :DIM LINE$(120),B$(75):CLOSE #2:CLOSE #332025 B$="hhhhhϩ˅б̅m }`"32030 OPEN #2,4,0,"E":OPEN #3,5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSIT}ION 2,3:? "TYP EEN PROGRAMMAREGEL IN"32060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 32060}32065 IF LINE$="ERASE" THEN 3225032070 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 32060320}75 IF LINE$(1,1)="+" THEN POSITION 2,5:? " ":GOTO 3223032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";3}2100 POKE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 P}OSITION 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "REGEL ";B;" VERWIJDERD":GOTO 3205032150 ANS=USR(ADR(B$),ADR(LINE$),LEN(LINE$})):ANS=PEEK(1789)+256*PEEK(1790)+65536*PEEK(1791)32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)}32190 LCODE=CODE-(HCODE*26)+6532200 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE+128);CHR$(LCODE+128)32220 POSITION 2,13}:? "als de CODE niet klopt druk en verander de regel hier boven.":GOTO 3205032230 B=B+1:POSITION 2,4:LIST B:POSITION }2,5:INPUT #3,LINE$:IF LINE$="" THEN 3223032240 GOTO 3208032250 ? "}":? :FOR ZZ=32000 TO 32140 STEP 10:? ZZ:NEXT ZZ:? 32015:}? 3202532260 ? "CLR:POKE 842,12:CONT";:POSITION 2,0:POKE 842,13:STOP 32270 ? "}":? :FOR ZZ=32150 TO 32280 STEP 10:? ZZ:NEXT} ZZ:? 32065:? 3207532280 ? "CLR:POKE 842,12:CONT";:POSITION 2,0:POKE 842,13:END :? :FOR ZZ=32150 TO 32280 STEP 10:? ZZ:NEXTR3v????!}???U@?UU@?@?!}@?UU@?U@????!}??????!}???????!}??????!}??????!}????*?*?!}?*?*?????!}??????!}??????!}??????!}???????!}??U@?UU@?@?@?UU@!}?U@?????!}!}U@!}AT@TTT!}!}!}!}!}*!}*******!}!}!}!}!}U@!}AT@TTT!}!}????!}?@@?TT?UT?A@?@T?@@?!}??????!}??????!}??????!}???????!}??????*!}**?***??***?***??!}??????!}???????!}??????!}??????!}??????!}??@@?TT?UT?A@?@T?!}@@?????"}"}@UUTUUT"}A@U@@"}"}********"}"}"}"}" }" }" }*****" }***" }@UUTUUTA@"}U@@"}"}@@AUT"}A@A@UATUA@"}"}*******"}*"}"}**"}**"}"}"}******"}**"}@@AUT"}A@A@UATUA@"}"}" }@AUTA@A@UUTU@"!}""}*****"#}*******"$}"%}"&}"'}"(}")}*******"*}*****"+}",}@AUTA@A@UUTU@"-}".}"/}TU@"0}AT@T@T@"1}**"2}**********"3}"4}"5}***"6}*"7}"8}**"9}**********":}";}TU@AT@T@T"<}@"=}">}@"?}UUTA@A@UUT@"@}"A}****************"B}"C}"D}"E}"F}"G}"H}**********"I}******"J}@UUTA@"K}A@UUT@"L}"M}"N}UPUUPPUPP"O}"P}**"Q}*********"R}*"S}"T}***"U}"V}"W}********"X}****"Y}"Z}UPUUPP"[}UPP"\}"]}UUUUPPPP"^}UUPUUPPUUP"_}UUPPPP"`}********"a}****"b}"c}"d}"e}"f}****"g}********"h}UUUUPPPPUUP"i}UUPPUUP"j}UUPPPP"k}"l}"m}UUUUPUUUUP"n}UU@UUU\U33""%P\Ȉ*"o}Ps33"""PȈU333""!DPȈQQs33"""DDE@ALȈ"p}Ps33"""%DDUUUTULȈb"U3"""!@DETUUT@V"%5b""@DHPHX@b%@!Q"q}3"@TUXԈU@R!EPR!U35"RQPHXUi\HHDT"TQ!31bbQ@EXTUHEPET!3u""r}%PUPXjUňUDTUE@"VZa31"UX}jZUIL͈eDE" ZUR"W1"QQUPT XʼneDDUE" b6!QP"s}Ed ňԅeDUP" "%U@Pd ňXd@" UUR%AO@dO ؆P@O@Q" UQ%UUV"t}dUUH؆P@UE!UQQb%O@VdT؉PAOQUQQ!R!_!EEDfd؉ ؉PWQ%! "PUoDDfT؉U"u} ؈TUEOQ'"W"DU/DDVXŘڥ ؈DQTQbW1"UR"DAV-DUH骥XDUH"3R"j"DU"'UUYԈj"v}DHWF"as5bZ!UU"_UHLUUZUTTO!"S33$UR"QEȉUHDO*"%33jQU"!LȈDO"w}"S3""%*ȈUXDO"%3UUaQTȈT@EDDO*"""%UUQDUUDDDO"x}b"""35QUX@UUU"""3QOUU"""3UUPU""""y}3PUUUT@UUPUTUU@"z}"{}"|}ATUU@@@"}}UU@UU@@ATUUUAUE@33UUQULfVe@"~}3535Q@TfefZ1s33QR\ϖfVS7333%*Tυff"}uS333!QpW\ψfjpES3UV%@P]τfdPA33%!QPTA\ωUUXU@A"}s33"!Eb%UALψTQ_S33"!R"!UAψ33"V""TLυH]_UQsW"}&""'O@U_UUTER"!_@DgXUUQTP1V"_PUUP_gd UP@U@3WT"}@@A@ePP@UT31 @@P gT@UP33UsWg3WW3"}@ _H@533P_H@_s3@QPP_XTITS3P"}_XWTY bsU XHeXPY"R_@PQPWTfW@ETTEb"&!UU@TTP"} @UD@V""%#33 P@TT_PTR"%R#33PPTTT@Tp!b%W33U @UTp*LW"}@Pp!Ub!S535]@fXT@*#3333@OVfeP_Qc33351P*ff[@@"}333S1U@ffgLQ33534UfeLQS1S3ATffgUU@"}QS33P@fVeUUUP@UUWUPUU@UU@@"}"}"} +1 REM SHUFFLE.BAS2 REM BY CHET WALTERS3 REM (C) 1986, ANTIC PUBLISING8 IF PEEK(0)<>77 THEN RUN "D:DECKLOAD.BAS"10 READ N,&}T,F,SN,TN,TW,CRD,TT:GOSUB SN*F:GOTO TT:DATA 1,2,4,7,10,20,1920,1000020 ADDR=ADDR+MV:J=USR(1536,ADDR,ABS(D1)*D3):D1=D1-D2:IF &}D1<-TT THEN D1=TT22 J=PEEK(53279):IF J=SN THEN RETURN 24 IF J=F+T THEN POP :TRAP TW+TN:RUN "D:DECKLOAD.BAS"26 IF J=N+T THE&}N D1=TT:D2=TW*TN*(D2=O):D3=N:RETURN 28 D2=TW*TN:D3=(D3=O):RETURN 30 ADDR=SCR+TN:RESTORE TN*TW40 READ MV:IF MV<>-N THEN GOS&}UB TW:GOTO TW*T50 MV=O:ADDR=SCR+CRD+TN:FOR I=N TO SN*SN:GOSUB TW:NEXT I60 FOR I=O TO TW*F:ADDR=SCR+RND(J)*3820:GOSUB TW:NEX&}T I70 ADDR=SCR:MV=180:FOR I=N TO TW:GOSUB TW:NEXT I80 MV=-156:ADDR=SCR+3996:FOR I=N TO TW+F:GOSUB TW:NEXT I:ADDR=SCR+TW:MV=&}O:GOSUB TW90 READ MV:IF MV<>-N THEN FOR I=N TO T+F:GOSUB TW:NEXT I:READ MV:GOSUB TW:GOTO 90100 GOTO TW+TN200 DATA 643,643,&}643,637,637,637,-643,-643,-643,-637,-637,-637,3,3,4,760,760,760,760,800,-4,-4,-4,-4,-4,-760201 DATA -760,-760,-760,-800,643,&}643,643,643,643,645,-4,-4,-4,-4,-4,-637,-637,-637,-637,-637,-637,-4,-4,-4,-6202 DATA 0,20,3840,-20,-3840,3840,-3840,20,3820,&}-3840,3860,-3840,3820,-3820,-20,3860,-20,-3820,-20,3840,-3840,20204 DATA 3820,-3840,3860,-3840,3820,-3820,-20,3860,-20,-3820&},-20,3840,-3840,20,3820,-3840,3860,-3840,3820,-3820205 DATA -20,3840,20,-3840,303,3200,14,-3200,309,2560,8,-2560,316,1920,-1&}206 DATA 640,-3845,640,-3845,640,-3845,640,-3845,640,0,-638,0,-110000 J=INT(FRE(I)/CRD):DIM DCK$(J*CRD):POKE 203,PEEK(140):&}POKE 204,PEEK(141):IF J>TN+T THEN J=TN+T10010 POKE 205,J:POKE 1608,J:FOR I=O TO TW:DCK$(I+N)=CHR$(PEEK(1677+I)):NEXT I:OPEN &}#N,F,O,DCK$10020 FOR I=O TO F:GET #N,D1:POKE CRD-D2+I,D1:NEXT I:I=USR(1649,TW-F,SN,ADR(DCK$),J*CRD):CLOSE #N10030 SCR=PEEK(&}88)+256*PEEK(89):ADDR=SCR:RESTORE D2+T:FOR I=O TO F:POKE 708+I,PEEK(CRD-D2+I):NEXT I:GOTO TW*T*CRD):CLOSE #N10030 SCR=PEEK($_(7y UVZjjZVULUVZjjZUHUVZj Z@HUVZj ZHEU*}VZj EUVZjBUVZjUCUVZjU@VZjU>UVZjU=VZjU<UVZj*}U; *j U: *j U< jjZ U *  jjZ U * jU *}jUjZVU ZVU jZVU *}?))GAMNPLNSCOREN4MNN1N1CUJIJN1N1WAIBLINN25KENNN1TBL1L2L3L4NNNN1N1N1N1N1.}N2N2N10N4N5TIMCARN2CARDHANDBLS1N2LKEN40N2DFLB5PNHNPSHSN49N2N2N25N3CNCSN500N7N3JIFFN6NAYO.}SCLPPPN5LXSN136CN149SPS2N20BUTCNOSFN100N3NPNLPPACV@.} .} !"#@$.}%&'()*+,-./0123.}456789:;<@=@>@?@@ABC.}DEF@G@HIJKLMNOPQRS.}TUVW@XYZ[\]^_`ab.}cde@fghijklmn@o ANTIC MAGAZINE M.}ARCH 1984 POKER SOLITAIRE BY JERRY WHITE: B--(68<,-, 0 : A   A .}" -2 # -2 $(L+@d%B7tA1@C@@9F(L.}-)86-P:F:B7p,',0'0/058$-5 6--62*2%. 2 5$28 6-.}-AU! -AU1 5 8$<S @4Ad# @4(6K:=)K6-&@HP.}S$F% 6-6--"( %$K' -$(̠ӽ '$ZN 6-@'@@9+ 1.}!7-N(SCORE TO BEAT= d -(ҠŠiO)6.O6.| | | .} | | |nO)6.O6.x+ - (-(-.}!('-+(}+ - (-(-!('-+(+ - (-(-!('-+(+ - (-(-.}!('-+( 6-   " A#4 -6.7$&<$,"-((4@w2 -"( #.} 7<,-7<,02(9 (7<,-9( ҠҠŠϠŠĠ& 6-6--"( & .}, 6"F:,"*!6-&" @R:,"*!6-& J"F:,"* 6-%" TR:,"* 6.}-% ^"F:,"*!6-&" hR:,"*!6-& r"F:,"* 6-%" |R:,"* 6-.}%  (T:, B AF:,"@3A AK(F:@,!(7<,)6-%16-%.}7-A(7<,K AP, (>:AS,", A` A -(  @4 6- .} A( -((!Af% "68,-8,!68,-8,% % "68,-8,!68,-8,% .}% "68,-8,!68,-8,% % "68,-8,!68,-8,% 68,-8,68,-8, !Ar% .}"68,-8,!68,-8,% % "68,-8,!68,-8,% % "68,-8,!68,-8,% % "68,-8.},!68,-8,% 68,-8,68,-8, !Ax+ "68,-8,'68@,-8,+ % "68,-.}8,!68,-8,% % "68,-8,!68,-8,% % "68,-8,!68,-8,% 68,-8,68,-8, .}!A% "68,-8,!68,-8,% % "68,-8,!68,-8,% % "68,-8,!68,-8,.}% % "68,-8,!68,-8,% 68,-8,68,-8, % "68,-8,!68,-8,% % "68,-.}8,!68,-8,% % "68,-8,!68,-8,% % "68,-8,!68,-8,% 68,-8,68,-8, .}% 6-&+$, ! @p% # 6-6-#"A3 A$-3(TIME=  SECONDS .}! -(-(! / -68,-8,#68,-8,' + / ? -( -(!6-% +-2(.}8-?(3 -68&,-8,'68&,-8,+ / 3  ? -( -(!6-% +-2(8-?.}(3 -68&,-8,'68&,-8,+ / 3 ? -( -(!6-% +-2(8-?(3 .}-68&,-8,'68&,-8,+ / 3 !? -( -(!6-% +-2(8-?(&3 -68.}&,-8,'68&,-8,+ / 3 +? -( -(!6-% +-2(8-?(0? 6--6-%.}'68,-8,368,-8,7 ; ? 5C -( -( %6-) /-6(<-C(:? 6--6.}-%'68,-8,368,-8,7 ; ? ?C -( -( %6-) /-6(<-C(D? 6--.}6-%'68,-8,368,-8,7 ; ? IC -( -( %6-) /-6(<-C(N? 6-.}-6-%'68,-8,368,-8,7 ; ? SC -( -( %6-) /-6(<-C(X? 6-.}-6-%'68,-8,368,-8,7 ; ? ]7 -( -( %6-) 7"Ag -(.}ŠҠl1 -(-1( ӠĽ n0 6- -+(MINUS TIME PENALTY0(x: 6-.}&-.(̠ӽ 4!:6- A !6-- --(ҠҠŠϠŠ* .}(T:,68<,- B* A-F:,"@368<,-#- A A! 6-6-  ! A.} A  (( ӠàϠҠŠӠ#-,(7<,2!8-A(7<,$ !-(7<@(,% !-(7<@8.},*S -3(%Ҡ9-C(űI-S(Ų.3 -(ų-#(+-.}3-9' (8<,6. 6-' A@>6.=:8<,,6-B:,HD6-+$,%6-&#6-+$,%)-.(2 .}6 <6-D-^; -6-%8<, !(+6. 16-; Arf 6.=:,6-B:,6-h%6-+$,%6-.}&-!(% p; --(ҠҠŠϠŠ1 76-; r (T:, B A s"F:,"@3.}" A t A%  6-((BASIC"(IS%6 -68,-  -&-2(6 - .}-(CARD6."-(--(>6-P:F:B7p,'@,&6-8,0 B> A0 68,-66-P:'.},"6-&$0!A 6.  !A  6.` (!AP2 6. F 6.{ B .}P!AZ6.=:%, n!A x 6.J !AP 6.Q !A 6..}K  6.A B:,"6. @4B:,"6.F67B:,%,.67B:,%,.-67B:,%,.668,-?68,-.}C F$# -6- 6- # + BG( ((( use time penalty?-(2(G( .}Y OR N # "@A6-# A% "@06- A%4 A ` - $` 6 6--.}$6-$AV%F:,( 36-P:',6$ + B e( ( HAND VALUES%(*(E(1000 straight flush.}J(e( 750 four of a kind 6(( 500 full house$(6( 300 flush >(( 200 straight"(>(.} 100 three of a kind 2( 50 two pair(2( 20 one pair( - -( press START-F:,"A0P & -.}( PRESS start& A&   @4 BB -68,- $-B( Ǡ .}* --8,"*68,-8,%$  -$8, ASx 8,"6-%6- 8,"6-%6.}- 6- 8,"6-%AP 6-"AT8,"**6- 8,"6-%2 ,8,"*8,.}"*8,"*8,"*8,"26-, "6-% A|%"A 6-A% AX"AXD A.}9 --( CALCULATING 3"96- 1(-6#2@' 1 AY@ 6- A.} -6.2&'2 6 @ AY 2-62$2%( 2 @5f 6-%6-$(#! -.}!8,8%,A<#  "6-$#6-A$# ' $'1  (-(HOW MANY PLAYERS (1-4)?1 '.} )!B' ( ('D( (/(!ŠӠƠӠҠӠ2(86-< D- '6(&(TYPE THE NAME OF PLAY.}ER 2Ad6"',B:,!)46- "6., B$'H67B:,%,.6-B:,0-+$,&+&,$&@67B:,%.},. D H B'E -- 6.$'(*(E( 'o( 9( .} | |T(  o(  | '9( |  |9( |  |.}'<( <(  '?!( |  |?( | | | |.}'2.( I'M DEALING TO 7$&<$&,2  (! --( ! <(* -( Ġˠ-*(  `.})4 - BP Bp# )-4( )0-62 &20 @) -( $)/} -(` ` $) -(-(X$* -(X-($8J<6-@+@+AR@2(/}}< BBJ9( ("( poker9( solitaireGJ(( (C) 1983LJ!(!( /} N--"*N''"4N"N/}881,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20N;;21,22,23,24,25,26,31,35,40,45,50,52,60,75,100,200,250N==255,400/},490,1000,1360,1490,5000,752,764,766,53279,30000R##;,;,;,;,9,;,R--;,;,;,;,;,;,9,/};,R999,9,9,9,9,9,9,9<,;,;,&R7 6.6. 6. "6.)6.06.76.0R2;,/};,6. +6. 26.:R& --68<,-" & U 6- $0uA@2uF:A@,/}B4u$6u(T:,B8u$:u]A@)'A AX9AAFKA@]A/}AFA?@AA0B@C@D@  A""MADE BY EMCK SOFTUT3}RECHT'@@d'B7t@d(**(" 2PP(H   3} 頠  <++(" ||| | FY%273}-Y(@--------------------P7-@7(@--------------------Z9-@@3}9(@ GOED  FOUT d7-@7(@--------------------n7-@7(@3}--------------------x1-@@1(@ ""(@ ""(@ 3} ""(@ ""(@ 9"6-@% A / A3}9 @p%"@%6-@*"@ 6-P:H:@,$@,"6.+"@6.3}-"@6.X-@6-P:H:@,$,6-P:H:@,$,6-@@6 @ 3}  = "6-%"@6-&"@6-$"%%2@,3})%2@A@@) 6%%2@@!! )!@A J6-@3}6(@ T .=:,^6-@h @6-@r-@|)@3}F"@26-@--@@<(@ F Ap!!!@W) @HA!@A 3}. .>:,-@@.(@>:, A0?7@<@,.>:,/-@@?(@>:,3} A:,"A:,AP:ԠǛDW%2@AU@@7-@W @ fout ant3}woord N=-@A =2@X9-@9 @ het moet  zijn 3}b-@A l6-%@ @pĠǛ5-@5(@ goed gedaan3} -@A 6-%@"@ 6-@'6-A(36-A%?6-@pK6-AeW63 }-@0c6-@ o6-{6- A Ap"@6-@'6-A@36-@ ?6-@@3!}K6-@W6-@c6-A0o6-{6- A Ap"@06-@ '6-@0363"}-@p?6-AEK6-A W6-Ac6-A%o6-@{6-A4 A Ap!@9A3#} @pq%2AU@@7-@Y(@  m-@Aq 3$}Q-@6(@ J-@AN Q$t-@7(@3%}򠔐䠁T-A6@p2@@t s-@7(@ 3&} S-@A@o2@@s BF:B2y,"@.6-*"8 AB @p3'} A͠Π +@AR@};A H,6-C:,<6-+P:'A$,%@,$A H3(}D6-&[A7P:'AV,zA6&AV$F:A7,}N+F:A6,!)F:A7,!N;F:A63)},%AV$F:A7,,;A H,;@%,*6.>:,967A H,.H67@,.p67A6<AQ,.w 3*} >|6-A(6-A6A@AY@b'B2HA(9B2w@PBByC:,'A3+}VbB2V@tA@A@;@,]6-@6-@'6-@9A@@3,}KAA&]A#@$;#@@K:;;@,;@,)Π.6-3-}-8 ")"6-@B ")"6-@L ")"6-@V ")"6-@` 6-63.}-@2j?"@6-&@)B2H56-@? Apt?"@6-%@)B2H56-@3/}? Ap~3"@6-%@)6-@d3 Ap)"@6-&@)6-@A%230}; AV)!A6A6-ww67%@<%@,.>:+7%@<%@,4>:A,,$@(%+7%@31}<%@,4>:@(,,$A,)6.7<%@,)67<%@,.92@# /"932} @0 @pǠ6-@6(@ 16-@1233}&F:B2y,"@&6-%@-@@0 Y"@!-@A(@34} M6-@Y6-@ Y"@!-@A(@ M6-@ Y635}-@Y"@!-@A(@ M6-@`Y6-@"@6-@36}"%"F:B2y,"@*!@ %$, A0ˠ A#P6-%@"@)6-@-":37}"6@\2@~2@2@$)6-@:38}7<,,@2)6-@6-%@B"@!-@B(@ A"@039}!-@A(@  ?"@p!-@?(@ A"3:}A!-@A(@ 堑B"AP!-@B(@  3;},-@@,(@ REKENEN*36-@:7%<%,,!@2'6-36-@436-@:7%<%,,!@23<}'6-36-@ >""6@$HC6-!6-@C2R-@3=}@\a2@/2@@E2@@a2@@@f[6-&+!@,3>}'6-&+!,A6-&@$+!,[6-&@$+!,p z A 0,0,0,0,0,0,0,0,0,0,0,0,0&3?}&12,60,0,60,60,0,0,64,0,64,64,0,0$$12,72,0,64,72,0,96,0,0,0,0,0,0%%12,72,0,64,72,0,96,0,0,0,81,0,0$$24,72,0,64,73@}2,0,91,0,0,0,0,0,0&&24,108,0,96,91,0,81,0,0,0,72,0,0%%24,108,0,96,91,0,81,0,0,0,0,0,0&&24,108,0,96,91,0,81,0,0,0,3A}72,0,0$$36,81,0,72,64,0,60,0,0,0,0,0,0&&12,60,0,60,60,0,0,64,0,64,64,0,0$$12,72,0,64,72,0,96,0,0,0,0,0,0%%12,3B}72,0,64,72,0,96,0,0,0,81,0,0$$24,72,0,64,72,0,91,0,0,0,0,0,0 &&24,108,0,96,91,0,81,0,0,0,72,0,0 %%24,108,0,96,91,0,3C}81,0,0,0,0,0,0 &&24,108,0,96,91,0,81,0,0,0,72,0,0$ ''36,81,0,72,64,0,60,0,0,0,0,0,0,-1. &&;@,;@`,;@`3D},8 6.     B FF6.< L FF6.< 3E} l l l l l l y y y yV 6-@$ D:REKENEN.BAS3F}3G}mmmmmmmmmmmmmmmmmmm0:;a r KKKK1PASXKYMOVPMCURSOKPMATEMPTEMPGRIDVDDKTEMKDESTKDESTROSCABVKPLDAT7I}CMODCPMBASSPIBRIT 7J} @@7K} !"#@$%&'()*+7L},-./012345 KKΠ7M}ǠӪЪêŠ砸 AZA6-@)dΠЛn= -AdAU)@w7N}=A%$+",x.-@@! ( ."A`6-$+",6-$+",>6-@h%A$+"7O},)6-@h>6-?:<<<<<<,a-62@`<2@)%@$+",]AF:A,%+",&+7P}",a * 6-*8,%AAPAP  6-& A` AҧӠΛ% 6-7Q}6-6--%-8<,Ap 6--6-6 A`8%<%,"&A Ap7R}  '  6-6-6-' Ap5 - A(6-8%$<%$,5(A`""A,7S}  A`6 6-%@ ")"6-$J ")"6-$T")")")"6-'^<*!)+"*F:B7p,'AU7T}!?P,06-66-<6-h A`r(A0|+6-A$%$&$+6-@@%$+%, 6-%!@7U}6-+6-%++!,&+ ,,$+6-%+!,&+ ,6-?:<<<%<<<,"*"A` AΧӠ7V}Λ# 6-6-# AP%R:8,&,-  6-%6-#6-?P- Ap. !6-&6-$6-6?P. Ap7W}-  *!6-%6-&#6-- Ap.  6-%6-6$6-?P. Ap5!6-&6-6+7X}6-6?P5 Ap. !* 6-&6-%$6-6. Ap-  * 6-%6-%#6-- Ap. !*!7Y}6-&6-&$6-6. Ap 6-%!@6-$6-?:<<<%<<<,$ A5 -6-%6-%7Z}#6-%/!@56-6-?:<<<%<<<, (T:8,&,A`F:Ad,"A  AP67[}-?:<<<<<<,<-@@! (I PASS(6-%2 A`< A&Рӛ0)6-?:<<<<<<,)8<7\},A@: -6-6D AN8%<%,"&A X" A  "(A@b Al5 7]}- A(6-8%$<%$,5(Av"AP  A$(68&,-8&,%$ A  !7^}6-& 6--& 6-%6-% A # 6-&$+&,#6-&$+&, Aӛ/7_}6-@%%&&!6-%%)1/-&+"A)"@#,*"&(&+"A)"@%,*"&(&+7`}"A)"@,*"&(&+"A)"@!,*"&(@-62@`<2@)%@$+",7a}@  168,-8,%#68&,-8&,&.68<,-1$ԠӠîӛ 7-@(8, ,-@67b}@7(8, *%-%@&$+",@ %( 48,")8,"A`> ApH8-@6? *27c}@r. 8 APR ě\-6-6f<2@`12@)%@$+",5 9 <$z7d}Ԡӛ& --68<,-" & /68<,-68<,-$68<,-/68<,-0 68,-68,-687e},-'68,--6-0$Λ,",1,2,3,4,5,6,7,8,10779<,9,9,;@@,;A7f},;A0r,O@!@@9%+1ARCA @OA. -.( SUPEREVERSION by7g} Phillip Burgess& -&(S*P*A*C*E enhanced by JC$F A -A 6-@6?%BA F 7h}.AY8226.( COMPUTER STICK ONE STICK TWO COMPUTER B;;6-C:.hhhhhhh`,L7i}3%6-F:A`,%F:Aa,$AV3%@iV;!6.;6-?:>>>>>>>>>>>KK67Aa,.87m}>>ww݁  6-?: PCp_0  cc67A!,.P 07u}UjjjUUcc67A,.PUσUϏUꪪUUU7v}U說U:*UϏUcc67A,.P U?U(UU U@UUUUUUUU?7w}(++67A a,.U2{67Ap,.>:@4,367A&,.>:@4,K67AP,.>:@4,c67x}7Af,.>:@4,{67At,.>:@4,<K67A,.>:@4,367AF,.>:@4,K67AT,.>:@4,F67y}-?:-@7}@!!8,"8,4( IT IS A TIE!> AX(PLAYER b8,!8,( ONE WINS!l8,!8,( TWO WINS!7}v\ - A` # A 5AdAUC-APXF:Ad,"AU\ 6'-AA(-F:7},6.2 6 AY Ap D:REVERSEXF:Ad,"AU\ 6'-AA(-F:4@10 RANDOMIZE(0) 20 REM 30 REM CHESS C.4 VAN CREATIVE COMPUTING 40 REM OMGEWERKT VOOR ATARI-BASIC DOOR ARIE PI;}ETER VELDHOEN 50 REM HET WERKT HEEL ELEMENTAIR 60 REM MAAR JE KUNT HET ZELF WELLICHT VERBETEREN 70 REM BIJVOORBEE;}LD DOOR DE WAARDEN VAN DE STUKKEN TE WIJZIGEN 80 DEFINT A-Z 90 DIM C(64) 100 A=0 110 B=0 120 X=0 130 Y=0 ;} 140 S=0 150 A0=0 160 T=0 170 A8=0 180 A1=0 190 A2=0 200 A3=0 210 A4=0 220 B1=0 230 B6!=0 240 ;} H=0 250 M=0 260 N=0 270 P=0 280 W=0 290 A5=0 300 I=1 310 OPENW 3:FULLW 2:CLEARW 2:CLOSEW 0:CLOSEW 2:CLO;}SEW 3 320 REM HIER STOND VRAAG OM INSTRUCTIES 330 REM DEZE ZIJN TE LEZEN VANAF 3500 340 FOR J=0 TO 9:FOR K=0 TO 9:A(;}K,J)=0:NEXT:NEXT 350 CL$="N" 360 CLEARW 2 370 B$="YOU" 380 REM 390 CLEARW 2 400 INPUT " LEVEL OF PLAY ";B8!;} 410 IF B8!=0 THEN B8!=1:B7!=1+RND(1)/2 ELSE B7!=(B8!+1+RND(1))/2 420 CLEARW 2 430 PRINT "DO YOU WANT WHITE "; 440;} INPUT C$ 450 GOSUB 2810 460 IF LEFT$(C$,1)="Y" OR LEFT$(C$,1)="y" THEN GOSUB 2970:GOTO 820 470 GOSUB 3310:GOSUB 2;}970 480 IF CL$<>"Y" THEN 500 490 GOTOXY 1,2:?"START ";:GOTOXY 1,3:?SPACE$(10); 500 F!=-99:GOTOXY 1,6:?"THINKING"; 5;}10 A0=0 520 FOR J=1 TO 8 530 FOR K=8 TO 1 STEP -1 540 IF A(J,K)=99 THEN A6=J:A7=K 550 NEXT K 560 NEXT J 570;} FOR X=8 TO 1 STEP -1 580 FOR Y=8 TO 1 STEP -1 590 IF A(X,Y)<0 THEN GOSUB 1030:IF F!>=B7! THEN 650 600 NEXT Y 610;} NEXT X 620 IF F!>=-9 THEN 650 630 X=A6:Y=A7:GOSUB 3070:A(X,Y)=1:GOSUB 3070 640 GOTOXY 1,2:?"I CONCEDE";:GOTOXY 1,;}3:?"CONGRATULATIONS";:END 650 A(R,U)=A(E,Q) 660 A(E,Q)=1 670 IF A(R,U)=-2 AND U=1 THEN A(R,U)=-9:REM EIGEN PROMOTIE=;}DAME 680 X=R 690 Y=U 700 A0=4 710 GOSUB 1030:GOTOXY 1,6:?" "; 720 GOTOXY 1,6:?" IS MY MOVE";CHR$(7);};CHR$(7); 730 GOTOXY 1,5:?CHR$(E+64);Q;"- ";CHR$(R+64);U; 740 IF CL$="Y" THEN GOTOXY 1,3:?"STOP "; 750 X=E 760 Y=;}Q 770 GOSUB 3070 780 X=R 790 Y=U 800 GOSUB 3070 810 IF C=1 THEN GOTOXY 1,3:?"CHECK ";:C=0 820 IF X$="S" THE;}N GOSUB 3680:B7!=3*RND(1):GOTOXY 1,3:?"SELF";:GOSUB 4330:GOTO 500 830 GOTOXY 1,2:?"YOUR MOVE";:GOSUB 3370:D=0:B4=A:B9=B:B5;}=0 840 IF A(X,Y)=2 AND Y=5 AND B=6 AND A(A,B)=1 AND ABS(A-X)=1 THEN B5=1:GOTO 870 850 IF X$="K" OR X$="Q" THEN FOR X=1 ;}TO 8:Y=1:GOSUB 3070:NEXT:GOTOXY 1,2:?SPACE$(8);:GOTO 500 860 IF X$="S" THEN CL$="N":GOTO 820 ELSE A0=3:GOSUB 1020:IF D=0 T;}HEN GOTOXY 1,3:?"ILLEGAL";:GOTO 820 870 GOTOXY 1,2:?"OK "; 880 A=B4 890 B=B9 900 A(A,B)=A(X,Y) 910 A(X,;}Y)=1 920 GOSUB 3070 930 X=A 940 Y=B 950 GOSUB 3070 960 IF N$="N" THEN GOSUB 2970:N$=" " 970 IF A(A,B)<>2 OR;} B<>8 THEN 1000 980 GOTOXY 1,2:?"WHAT PIECE";:GOSUB 4250:X=A:Y=B:GOSUB 3070 990 GOTOXY 1,2:?SPACE$(8); 1000 IF B5=1 T;}HEN ?CHR$(7);A(A,B-1):X=A:Y=B-1:GOSUB 3070 1010 GOTO 500 1020 ON A(X,Y) GOTO 20,1730,20,1480,1230,20,1040,20,1230:GOTO 16;}70 1030 ON -A(X,Y) GOTO 20,1850,20,1480,1230,20,1040,20,1230:GOTO 1670 1040 B=Y 1050 FOR A=X+1 TO 8 1060 GOSUB 2260 ;}1070 IF S<>0 THEN 1090 1080 NEXT 1090 FOR A=X-1 TO 1 STEP -1 1100 GOSUB 2260 1110 IF S<>0 THEN 1130 1120 NEXT 113;}0 A=X 1140 FOR B=Y+1 TO 8 1150 GOSUB 2260 1160 IF S<>0 THEN 1180 1170 NEXT 1180 FOR B=Y-1 TO 1 STEP -1 1190 GOSU;}B 2260 1200 IF S<>0 THEN 1220 1210 NEXT 1220 RETURN 1230 B=Y 1240 FOR A=X+1 TO 8 1250 B=B+1 1260 GOSUB 2260 12;}70 IF S<>0 THEN 1290 1280 NEXT 1290 B=Y 1300 FOR A=X-1 TO 1 STEP -1 1310 B=B-1 1320 GOSUB 2260 1330 IF S<>0 THEN;} 1350 1340 NEXT 1350 B=Y 1360 FOR A=X-1 TO 1 STEP -1 1370 B=B+1 1380 GOSUB 2260 1390 IF S<>0 THEN 1410 1400 NEX;}T 1410 B=Y 1420 FOR A=X+1 TO 8 1430 B=B-1 1440 GOSUB 2260 1450 IF S<>0 THEN 1470 1460 NEXT 1470 IF ABS(A(X,Y))=;}DAME THEN 1040 ELSE RETURN 1480 A=X+2 1490 B=Y+1 1500 IF A<9 AND B<9 THEN GOSUB 2280 1510 B=B-2 1520 IF B>0 AND A<9;} THEN GOSUB 2280 1530 A=A-4 1540 IF A>0 AND B>0 THEN GOSUB 2280 1550 B=B+2 1560 IF B<9 AND A>0 THEN GOSUB 2280 1570 ;} A=A+1 1580 B=B+1 1590 IF A>0 AND A<9 AND B<9 THEN GOSUB 2280 1600 B=B-4 1610 IF B>0 AND A>0 AND A<9 THEN GOSUB 2280 ;} 1620 A=A+2 1630 IF A>0 AND A<9 AND B>0 THEN GOSUB 2280 1640 B=B+4 1650 IF B<9 AND A>0 AND A<9 THEN GOSUB 2280 1660 ;}RETURN 1670 FOR A=X-1 TO X+1 1680 FOR B=Y-1 TO Y+1 1690 IF A(A,B)<>0 THEN GOSUB 2280 1700 NEXT 1710 NEXT 1720 RET;}URN 1730 A=X 1740 IF Y>2 THEN 1770 1750 B=Y+1 1760 IF A(A,B)=1 THEN GOSUB 2290:B=B+1:IF A(A,B)=1 THEN GOSUB 2290:GOTO;} 1790 ELSE GOTO 1790 ELSE GOTO 1790 1770 B=Y+1 1780 IF A(A,B)=1 THEN GOSUB 2290 1790 A=X+1 1800 B=Y+1 1810 IF A(A,B;})<0 THEN GOSUB 2290 1820 A=A-2 1830 IF A(A,B)<0 THEN GOSUB 2290 1840 RETURN 1850 A=X 1860 IF Y<7 THEN 1890 1870 B;}=Y-1 1880 IF A(A,B)=1 THEN GOSUB 2290:B=B-1:IF A(A,B)=1 THEN GOSUB 2290:GOTO 1910 ELSE GOTO 1910 ELSE GOTO 1910 1890 B=Y-;}1 1900 IF A(A,B)=1 THEN GOSUB 2290 1910 A=X-1 1920 B=Y-1 1930 IF A(A,B)>1 THEN GOSUB 2290 1940 A=A+2 1950 IF A(A,;}B)>1 THEN GOSUB 2290 1960 RETURN 1970 T=A(A,B) 1980 IF T=-99 THEN B1=T:RETURN 1990 A5=S 2000 IF ABS(T)<=A(X,Y) THEN;} A(A,B)=A(X,Y):A(X,Y)=1:GOTO 2040 2010 IF T1 AND SGN(A(A,B))=SGN(A(X;},Y)) THEN RETURN 2290 ON A0 GOTO 2310,2330,2350,2370,2390 2300 GOTO 2400 2310 IF A6=A AND A7=B THEN B1=B1+1 2320 RETU;}RN 2330 IF A3=A AND A4=B THEN T=0 2340 RETURN 2350 IF B4=A AND B9=B THEN D=1 2360 RETURN 2370 IF A6=A AND A7=B THEN;} C=1 2380 RETURN 2390 IF A(A,B)<0 THEN 1970 ELSE RETURN 2400 B3=S 2410 W=X 2420 M=Y 2430 N=A 2440 H=B 2450 P=;}A(A,B) 2460 A(A,B)=A(X,Y) 2470 A(X,Y)=1 2480 B1=0 2490 A0=5 2500 FOR X=1 TO 8 2510 FOR Y=1 TO 8 2520 IF A(X,Y)>;}1 THEN GOSUB 1020 2530 NEXT Y 2540 NEXT X 2550 X=N 2560 Y=H 2570 A0=1 2580 GOSUB 1030 2590 A0=0 2600 S=B3 26;}10 X=W 2620 Y=M 2630 A=N 2640 B=H 2650 A(X,Y)=A(A,B) 2660 A(A,B)=P 2670 B6!=1/(ABS(4.5-A)+ABS(4.5-B)+1) 2680 I;}F A(X,Y)<-2 AND A(X,Y)>-9 THEN B6!=B6!+1/(ABS(A6-A)+ABS(A7-B)+5)+RND(1)/15 2690 G!=P+B1+B6! 2700 IF P=99 THEN GOSUB 2970:;}GOTOXY 1,4:?"MATE ";:GOTO 4130 2710 IF G!<=F! THEN RETURN 2720 F!=G! 2730 E=X 2740 Q=Y 2750 R=A 2760 U=B 2770 R;}ETURN 2780 REM ********************************************************* 2790 REM * INITIALISE POSITIONS ON BOARD 2800 ;}REM ********************************************************* 2810 CLEARW 2 2820 FOR Y=1 TO 8 2830 FOR X=1 TO 8 2840 ;}READ A(X,Y) 2850 NEXT X 2860 NEXT Y 2870 DATA 7,4,5,9,99,5,4,7 2880 PION=2:PAARD=4:TOREN=7:LOPER=5:DAME=9:KING=99 28;}90 DATA 2,2,2,2,2,2,2,2 2900 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 2910 DATA -2,-2,-2,-2,;}-2,-2,-2,-2 2920 DATA -7,-4,-5,-9,-99,-5,-4,-7 2930 RETURN 2940 REM ********************************************** 295;}0 REM * DRAWS BOARD AND PIECES 2960 REM ********************************************** 2970 FOR K=0 TO 8:linef 200+K*40,;}5,200+K*40,325 2980 linef 200,K*40+5,520,K*40+5:NEXT K:COLOR 1,1,1,4,2 2990 REM for K=1 to 8:FOR J=1 TO 8:IF INT((K+J)/2);}*2<>K+J THEN FILL 180+K*40,J*40 3000 FOR X=1 TO 8:GOTOXY 10,X*2.5-2:?ABS(X-9);:NEXT 3010 GOTOXY 13,19:?"A B C D ;} E F G H"; 3020 FOR X=1 TO 8:FOR Y=1 TO 8:GOSUB 3070:NEXT:NEXT 3030 RETURN 3040 REM ************************;}************************** 3050 REM * MAAK VELD X,Y SCHOON, EN ZET STUK NEER 3060 REM ***********************************;}*************** 3070 XS=X*40+180:YS=(ABS(9-Y)*40)-15 3080 COLOR 1,1,1,1,1:PCIRCLE XS,YS,17:COLOR 1,1,1,1,5:FILL XS,YS 30;}90 IF INT((X+Y)/2)*2=X+Y THEN COLOR 1,1,1,4,2:FILL XS,YS 3100 IF I*A(X,Y)<0 THEN COLOR 1,1,1,1,1 ELSE COLOR 1,1,1,1,5 311;}0 IF ABS(A(X,Y))<>PION THEN 3130 3120 PELLIPSE XS,YS,3,12:RETURN 3130 IF ABS(A(X,Y))<>PAARD THEN 3150 3140 PELLIPSE XS;}-2,YS-5,8,3:PELLIPSE XS,YS,4,12:RETURN 3150 IF ABS(A(X,Y))<>LOPER THEN 3170 3160 PELLIPSE XS,YS,5,15,700,200:RETURN 3170;} IF ABS(A(X,Y))<>TOREN THEN 3190 3180 PELLIPSE XS,YS,3,7:PELLIPSE XS,YS-6,8,3:PELLIPSE XS,YS+6,8,3:RETURN 3190 IF ABS(A(;}X,Y))<>DAME THEN 3210 3200 PCIRCLE XS,YS+2,15,600,1200:PCIRCLE XS,YS-3,15,2450,2950:RETURN 3210 IF ABS(A(X,Y))<>KING THEN;} RETURN 3220 PCIRCLE XS-3,YS-9,24,2600,2800:PCIRCLE XS+3,YS-9,24,2600,2800 3230 RETURN 3240 REM ***********************;}********************************** 3250 REM * INSTRUCTIONS 3260 REM ****************************************************;}***** 3270 CLEARW 2 3280 ?" SPECIALE COMMANDOS ZIJN TE LEZEN IN DE OUTPUT 3290 INPUT "DRUK OP RETURN";EN$ 3300 RETURN;} 3310 I=-1 3320 A(4,1)=KING 3330 A(5,1)=DAME 3340 A(4,8)=-1*KING 3350 A(5,8)=-1*DAME 3360 RETURN 3370 GOTOXY 0,;}1:?SPACE$(10);:GOTOXY 0,1:ON ERROR GOTO 3370 3380 INPUT ">>",Z$:IF LEN(Z$)=0 THEN 3590 ELSE X$=LEFT$(Z$,1) 3390 IF X$="N";} THEN N$=X$ 3400 IF X$>="A" AND X$<="H" THEN X=VAL(CHR$(ASC(X$)-16)):GOTO 3530 3410 IF X$="N" THEN 3980 3420 IF X$="K" ;}AND A(5,1)=KING AND A(8,1)=TOREN THEN A(5,1)=1:A(7,1)=KING:A(6,1)=TOREN:A(8,1)=1:GOTO 3640 3430 IF X$="Q" AND A(5,1)=KING A;}ND A(1,1)=TOREN THEN A(5,1)=1:A(1,1)=1:A(3,1)=KING:A(4,1)=TOREN:GOTO 3640 3440 IF X$="K" AND A(4,1)=KING AND A(8,1)=TOREN T;}HEN A(4,1)=1:A(2,1)=KING:A(3,1)=TOREN:GOTO 3640 3450 IF X$="Q" AND A(4,1)=KING AND A(8,1)=TOREN THEN A(4,1)=1:A(8,1)=1:A(6,;}1)=KING:A(5,1)=TOREN:GOTO 3640 3460 IF X$="X" THEN GOSUB 3680:GOTOXY 1,2:?"EXCHANGING ";:GOSUB 4330:IF C$="Y" THEN GOTOXY 1;},5:?"START";:GOTO 500 ELSE GOTO 500 3470 REM 3480 IF X$="S" THEN 3670 3490 IF X$="M" THEN GOSUB 3720 3500 REM NO INST;}RUCTIONS GIVEN 3510 IF X$="L" THEN GOSUB 4030 3520 GOTO 3380 3530 IF LEN(Z$)<4 THEN 3590 3540 IF LEN(Z$)=4 AND INSTR(;}1,Z$,"_")=0 THEN MID$(Z$,3,1)="-" 3550 Y=VAL(MID$(Z$,2,1)):IF Y=0 THEN 3590 3560 REM 3570 IF A(X,Y)<2 OR A(X,Y)>99 TH;}EN 3590 3580 GOTO 3600 3590 GOTOXY 1,3:?"ENTRY ERROR";:GOTO 3370 3600 A$=MID$(Z$,4,1):IF A$<"A" OR A$>"H" THEN 3590 ELS;}E A=VAL(CHR$(ASC(A$)-16)) 3610 REM 3620 B=VAL(RIGHT$(Z$,1)) 3630 IF B=0 THEN 3590 3640 IF X$="K" OR X$="Q" THEN GOTOX;}Y 1,1:?"CSTL. ";X$;"-SIDE"; 3650 GOSUB 3680 3660 IF CL$="Y" THEN GOTOXY 1,5:?"START "; 3670 RETURN 3680 FOR J=2 TO 7 ;} 3690 GOTOXY 0,J:?SPACE$(14); 3700 NEXT J 3710 RETURN 3720 GOSUB 3680 3730 GOTOXY 1,1:?"MODIFYING "; 3740 GOSUB 39;}50 3750 IF M$<"A" OR M$>"H" THEN 3740 3760 X=VAL(CHR$(ASC(M$)-16)) 3770 GOTOXY 1,2:?M$; 3780 M$=INPUT$(1):IF M$<"1" O;}R M$>"8" THEN 3780 3790 Y=VAL(M$) 3800 GOTOXY 2,2:?M$;" = "; 3810 M$=INPUT$(1):IF M$="C" OR M$="P" OR M$="E" THEN S1$=M;}$:GOTOXY 3,2:?M$; ELSE GOTO 3810 3820 M$=INPUT$(1):IF M$="S" OR M$="P" OR M$="N" OR M$="B" OR M$="R" OR M$="Q" OR M$="K" TH;}EN V$=M$:GOTOXY 4,2:?M$; ELSE GOTO 3820 3830 IF V$="P" THEN V1=PION 3840 IF V$="N" THEN V1=PAARD 3850 IF V$="B" THEN V1;}=LOPER 3860 IF V$="R" THEN V1=TOREN 3870 IF V$="Q" THEN V1=DAME 3880 IF V$="K" THEN V1=KING 3890 IF V$="S" THEN V1=1 ;} 3900 IF S1$="C" AND V1<>1 THEN V1=-V1 3910 A(X,Y)=V1 3920 IF S1$="E" THEN A(X,Y)=1 3930 GOSUB 3070 3940 GOTO 3720 ;}3950 M$=INPUT$(1):IF M$="N" THEN GOSUB 3980:GOTO 3950 ELSE IF M$="Z" THEN GOSUB 3680:GOSUB 2970 ELSE RETURN 3960 IF CL$="Y;}" THEN GOTOXY 1,5:?"START "; 3970 GOTO 500 3980 REM 3990 REM 4000 REM 4010 REM 4020 RETURN 4030 GOSUB 3680 40;}40 GOTOXY 1,3:?"LEVEL=";B8!;" "; 4050 GOTOXY 1,4:?"CHANGE LEVEL "; 4060 C$=INPUT$(1):IF C$<>"Y" THEN 4120 ELSE GOTOXY ;}1,3:?SPACE$(7);:GOSUB 3680 4070 L1$=INPUT$(1):IF L1$>="0" AND L1$<="9" THEN GOTOXY 1,3:?L1$; ELSE 4070 4080 L2$=INPUT$(1);}:IF L2$<"0" OR L2$>"9" THEN L2$=L1$:L1$="0" 4090 B8!=VAL(L1$)*10+VAL(L2$) 4100 B7!=B8!/2 4110 GOTOXY 2,3:?L1$;L2$; 412;}0 GOSUB 3680:GOTOXY 1,1:?SPACE$(8);:GOTOXY 1,2:?"MOVE ";B$;:RETURN 4130 REM 4140 REM 4150 REM 4160 END 4170 REM 4;}180 GOSUB 3680 4190 GOTOXY 1,1:?SPACE$(8); 4200 GOTOXY 1,2:?"MOVE ";B$; 4210 RETURN 4220 REM ***********************;}************************** 4230 REM * PROMOTION ROUTINE 4240 REM ************************************************* 4250;} GOTOXY 1,3:?"P, N, B, R, Q"; 4260 Z$=INPUT$(1):IF Z$="P" THEN A(A,B)=PION:GOTO 4320 4270 IF Z$="N" THEN A(A,B)=PAARD:GO;}TO 4320 4280 IF Z$="B" THEN A(A,B)=LOPER:GOTO 4320 4290 IF Z$="R" THEN A(A,B)=TOREN:GOTO 4320 4300 IF Z$="Q" THEN A(A,B;})=DAME:GOTO 4320 4310 GOTO 4260 4320 RETURN 4330 I=-1 4340 GOSUB 4370 4350 GOSUB 2970 4360 RETURN 4370 L=0 438;}0 FOR J=1 TO 8 4390 FOR K=1 TO 8 4400 L=L+1 4410 IF A(J,K)<>1 THEN C(L)=-A(J,K) ELSE C(L)=A(J,K) 4420 NEXT K 4430 ;}NEXT J 4440 L=65 4450 FOR J=1 TO 8 4460 FOR K=1 TO 8 4470 L=L-1 4480 A(J,K)=C(L) 4490 NEXT K 4500 NEXT J 4510 ;} RETURN L-1 4480 A(J,K)=C(L) 4490 NEXT K 4500 NEXT J 4510 8Dbn*~*DZDMMISBLBL ?} *** SCHAKEN ***&&?};@ ,;@,;@@,+@%@- 6. 67@ ,. -67@,.6. SCHAKEN ?}-@@67@ &<@ ,.!!2@u&@&-@"(@&  =%2?}9-@A =  -@ :6.7@<@ &,:2@u&@?} H-@"(@& H21A@+1B2Q?}-AAH-;@,;Ar,6. PNBRQK (4"@@K4AR@F?}w-@Ai@#"7-@O67+%,<+%,,.>:%,S W w67@`<@`,.>:,PY67?}@<@ ,. ?67A2<A2,.>:A(,Y67Ag<Ah,. Z'-AA#A' d'?}-AA#@' n%-A A"!% x(Welk niveau (1-5).)@. @I<}