Run Magazine ReRun 1989 September & October

home *** CD-ROM | disk | FTP | other *** search

/ Run Magazine ReRun 1989 September & October / rerun-1989-09-10.d64

Wrap

Commodore Disk Image | 1989-01-01 | 170.8 KB

{$fd})pi1{CBM-R}27:i2{CBM-R}64:i3{CBM-R}0:i4{CBM-R}0 *zd{CBM-R}4 *D *N star sg-10c -*Xn${CBM-R}"sg-10c" g*n1{CBM-R}27:n2{CBM-R}88:n3{CBM-R}1:n4{CBM-R}0 B*l1{CBM-R}27:l2{CBM-R}51:l3{CBM-R}24:l4{CBM-R}0 {$7c}*g1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 * i1{CBM-R}27:i2{CBM-R}64:i3{CBM-R}0:i4{CBM-R}0 *{CBM-N}d{CBM-R}4 {CBM-@}*{CBM-H} {CBM-J}*{CBM-V} disk error I*H{CBM-K}#15,en,em$,t,s {SHIFT-+}*R en {CBM-W} 20 {CBM-M} +{CBM--}" 3,G(0);G(255); '{CBM-D}15,"u2:3 0";it;is "'{CBM-L}15,"b-p:2 3" 6'{SHIFT-*}2,G(pt);G(ps); i'J15,"b-p:2 21" {$7c}'T2,G(it);G(is);G(0)G(9);G(89);G(2);G(2);G(23); '{$de}2,G(56);G(4); {CBM-G}'{$e8}15,"u2:2 0 18 1" {CBM-J}'{$f2} 3: 2:1470 {CBM--}'{$fc}""{CBM-+}7)"printer driver customizer" (" {CBM-@}"{CBM-+}7)"printer driver customizer" +{$e6}""{CBM-+}15)"disk error" 9+{$f0}""en","em$","t","s u+{$fa}{CBM-+}12)"program aborted" K+ close all files {$7c}+15,"i0": 15 + {CBM-R}"nl-10c" {CBM-S})2n1{CBM-R}27:n2{CBM-R}120:n3{CBM-R}49:n4{CBM-R}0 I)<l1{CBM-R}27:l2{CBM-R}51:l3{CBM-R}24:l4{CBM-R}0 {$e3})fg1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 "{CBM-+}10)"conversion complete" ,({CBM-+}4)"activate the driver from geos 2(J 8(T l({$7e} star nx-1000c ^(n${CBM-R}"nx-1000c" Z(n1{CBM-R}27:n2{CBM-R}120:n3{CBM-R}49:n4{CBM-R}0 (l1{CBM-R}27:l2{CBM-R}65:l3{CBM-R}8:l4{CBM-R}0 {CBM-S}({CBM-+}g1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 H({CBM-A}i1{CBM-R}27:i2{CBM-R}64:i3{CBM-R}0:i4{CBM-R}0 P({SHIFT-@}d{CBM-R}4 V(D {$e8}(N star nl-1 0c {$f8}(Xn${CBM-R}"nl-10c" ){$e2}n1{CBM-R}27:n2{CBM-R}120:n3{CBM-R}49:n4{CBM-R}0 .){$ec}l1{CBM-R}27:l2{CBM-R}65:l3{CBM-R}8:l4{CBM-R}0 h){$f6}g1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 B) i1{CBM-R}27:i2{CBM-R}64:i3{CBM-R}0:i4{CBM-R}0 J) d{CBM-R}4 P) ) star nx-10c )(n${CBM-R}"nl-10c" {CBM-S})2n1{CBM-R}27:n2{CBM-R}120:n3{CBM-R}49:n4{CBM-R}0 I)<l1{CBM-R}27:l2{CBM-R}51:l3{CBM-R}24:l4{CBM-R}0 {$e3})fg1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 {SHIFT-*}{CBM-B}~~~ ?{$f1}@AwA@AbAA{$fd} M~{SHIFT--} ={CBM-B}~{$fd} Y{CBM-M}{$f3}Q A{CBM-B}~A ~~~ YM{$7b} pRINT dRIVERv2.0 sTEPHEN v aLLEN tHIS PRINTER DRIVER PRINTS FULL-PAGE IN 120 DPI MODE. 19a96e8d7919a935 8503a9d58502a6068604 {$fa}X{$f1} a50a38e5081869018505 860ca950850ea20ca00e 2060c118a508650c850c @Y{$f2} 9002e60d18a980650c85 0ca938650d850da40588 20ffffe60cd002e60d88 Y{$f3} 10f418a5056502850290 02e603e604a604e40790 b9f0b76068853d68853e LY{$f4} {CBM-H}{CBM-J}{CBM-G}{CBM-H}{$f0}I {SHIFT-POUND}{CBM-H}{CBM-+}{CBM-J} D{CBM-I}y{CBM-J} {SHIFT-POUND} {CBM-X}{SHIFT-POUND}P{$f9}{SHIFT-POUND}N{SHIFT-POUND}MA{SHIFT-POUND}{$7d}V{SHIFT-POUND}@{CBM-I}{$f9}AJP{$f7}{SHIFT-POUND}!{$fb}{SHIFT-POUND}{$fc}{SHIFT-POUND}]{CBM-I} {$fb} {$fb}h >HJP{$f0}{CBM-I} {CBM-X}Ii{$e8} P{$f5}{CBM-G}{CBM-J}I2{$e9}2{CBM-I} l{CBM-I}{CBM-N}{CBM-X}{CBM-I} {$e4}{$f0}JJJJ{CBM-R}){CBM-G}{CBM-R}){$fe}{CBM-I}{$e4}{CBM-H}{$f0} {CBM-W}h RH{CBM-N}{$e8}l {CBM-I} D{CBM-H}{$f0}{$e8}{$e8}{$e8}Hl{CBM-J} {CBM-X}9'{$e8}H{SHIFT-*}P{$f4}{SHIFT-POUND} {CBM-E}{SHIFT-POUND}E' {$e8}{SHIFT-POUND}+{$fb}{SHIFT-POUND}{$fc} v Y{$e6}{$fb}{$e6}{$fb}{CBM-G}{CBM-J}' {$e8} v Y ! printer driver customizer 5 stephen allen h a {CBM-W}{CBM-E} 0 {CBM-M} 80 F( 53280,0:53281,0:""; 2 {CBM-+}7)"printer driver customizer" {CBM-E}< ""{CBM-+}10)"loading object file" Hf a{CBM-R}1:"prt.obj",8,1 p 49152,3:49153,21 z ""{CBM-+}10)"object file init printer:"i1","i2","i3","i4 b" device:"d m"" {$60} n${CBM-W}{CBM-E}""{CBM-M} 320 ""printer name";n$: n${CBM-R}""{CBM-M}190 {CBM-I}, C(n$) {CBM-E} 16 {CBM-M} n${CBM-R}H(n$,16) {CBM-Q}6190 {CBM-X}@ n1{CBM-W}{CBM-E}0{CBM-M} 350 {$f1}j"nlq code (4 bytes)";n1,n2,n3,n4: n1{CBM-R}0 {CBM-M} 190 {$fa}t1g" %"{CBM-+}6)"120 dpi, init printer, device" <"{CBM-K} c$: c${CBM-R}""{CBM-M} 530 v" c${CBM-R}"p" {CBM-M} n${CBM-R}"":190 {$7e}"& c${CBM-R}"n" {CBM-M} n1{CBM-R}0:n2{CBM-R}0:n3{CBM-R}0:n4{CBM-R}0:190 {CBM-+}"0 c${CBM-R}"l" {CBM-M} l1{CBM-R}0:l2{CBM-R}0:l3{CBM-R}0:l4{CBM-R}0:190 N": c${CBM-R}"1" {CBM-M} g1{CBM-R}0:g2{CBM-R}0:g3{CBM-R}0:g4{CBM-R}0:190 {$f6}"d c${CBM-R}"i" {CBM-M} i1{CBM-R}0:i2{CBM-R}0:i3{CBM-R}0:i4{CBM-R}0:{$60}{$ea}{$ea}lmYlYl{CBM-+}Yl{CBM-J}Yl{CBM-C}Yl{$e1}Yl{$e9}Ysg-10c md x 3 l @ {SHIFT-POUND} lY{CBM-Z}=Y {CBM-A}B \B{SHIFT-POUND} {$7b}{CBM-G}P ({$7b} d{$7b} 3{$7b} Y _B{CBM-I} {$60}h {$7b} _BH{CBM-N}{$60}{CBM-I} P{$fd}JP{$f8}{$60} A{$7b}{CBM-G}{CBM-G} {$fd}Y{SHIFT-POUND} {CBM-POUND}~ 3{$7b}l_B A{$7b} {$f4}Z 3{$7b} {$7b}l_B{CBM-I}p ^{SHIFT-POUND} {$60} A{$7b} {CBM-E}{$f0}IaI{$7b}{CBM-A}i {CBM-POUND}~{$e6}P{$e6}l{CBM-B}Y 3{$7b}l_B{SHIFT-POUND}~lYlrY A{$7b}{SHIFT-POUND}Y{SHIFT-POUND}) 6{$7b} 3{$7b}l_B{CBM-G} {$fc} a005b13d850b88b13d85 0a88b13d850888b13d85 0788b13d850620161908 Z{$f5} a9064ca4c2a90120f5c2 a938a212204d18a980e8 204d18adbd8885042604 xZ{$f6} 2a26042a26042a26042a a01548a21f204d18a94f ca204d18688810f060a9 {$7f}Z{$f7} 0020f5c2209fc1b0c700 007f0260,-1 91 d7a{$f3}{CBM-+}{CBM-H}{CBM-W} {CBM-U}{$e6}{CBM-A}{SHIFT-POUND}{CBM-E}{SHIFT-POUND}R{$fb}{SHIFT-POUND}{$fc} {CBM-I}{$e4}{$fe}{$f0}{$e8}HHHP{$f6}{CBM-I}' {$f9} {$e8} v {$7b} {$e8}{$e4}{CBM-A}{$f0}HHH{$e6}{$fe}{CBM-G}{$fe}IP{CBM-*}{SHIFT-POUND}{$fe} > l#{SHIFT-POUND} P {$e4}~I{$f0}I{$f0}'I P{$f1} {$e5} Q Q{$60}{CBM-+}{CBM-H}{$e8}{CBM-H} P{CBM-I}{CBM-H} lQ{CBM-+}{CBM-H}J{CBM-H} P{$f4}{CBM-I}{CBM-H} lQ {SHIFT-POUND} {SHIFT-POUND} {$e5}{$60}{CBM-I} {CBM-E}{$fb}{$fd}H{SHIFT-*}P{$f7} 1JP{$ef}{$60}{CBM-I} {$fb}H{SHIFT-*}P{$f9}h >HJP{$ef}{$60}{CBM-I} {CBM-E}{$fd}{$fb}H{SHIFT-*}P{$f7} 1JP{$ef}{$60}{SHIFT-POUND}{$f9}{$fb}{SHIFT-POUND}{$fc}{SHIFT-POUND} {CBM-X}{$60}{SHIFT-POUND}Q{$fb}{SHIFT-POUND} loaded " D x{CBM-R}0{CBM-@}500: ?N ""{CBM-+}10)"enter your choice " [X {CBM-+}10)"1) star nx-1000c" U {CBM-+}10)"2) star nl-10c" {CBM-+}10)"3) star nx-10c" {SHIFT-POUND} {CBM-+}10)"4) star sg-10c" E {CBM-+}10)"5) other printer" {$e2}{CBM-N} {CBM-K} a: a {CBM-W}1 {CBM-A} a {CBM-E}5 {CBM-M} 170 ~{CBM-H} a 1150,1230,1310,190 ^ l1 {CBM-W}{CBM-E} 0 {CBM-M}380 g H"8/72 line spacing (4 bytes)";l1,l2,l3,l4:l1{CBM-R}0{CBM-M}190 p R190 B {$7c} g1 {CBM-W}{CBM-E}0 {CBM-M}410 "120 dpi code (4 bytes)";g1,g2,g3,g4:g1{CBM-R}0{CBM-M}190 190 {CBM-H} i1 {CBM-W}{CBM-E} 0{CBM-M} 440 {$e8} {CBM-@}"init printer (4 bytes)";i1,i2,i3,i4:i1{CBM-R}0{CBM-M}190 {$f1} {CBM-S}190 !{CBM-U}190 #n c${CBM-R}"d" {CBM-M} d{CBM-R}0:190 #x530 ;#B modify file and write to disk B#L""{CBM-+}7)"printer driver customizer" {$7d}#V""{CBM-+}16)"working" #ba{CBM-R}49429 # c{CBM-R}1{CBM-@} (C(n$)) {SHIFT-@}# (ba {CBM-N}c),F(J(n$,c,1)): {$ea}#ba {CBM-R} ba {CBM-N}1: c {CBM-R}(C(n$){CBM-N}ba) {CBM-@} 49446: c, 0: ${CBM-POUND}h{CBM-G}h :Z{CBM-A}HH{$60} TZHH{SHIFT-POUND}p8{$ed}kY{CBM-N}h {$f9}Z DZ{SHIFT-POUND}E{SHIFT-POUND} EH{CBM-N}JP{$e6}{$60}{SHIFT-POUND} kY{CBM-I}jY{CBM-I}p{SHIFT-POUND}XE{SHIFT-POUND}E{CBM-D}jY{CBM-E}P{$f9}8{CBM-G}{$e9}{CBM-G}{$e9} {$ee}kYJP{$e3}{$60}8{$60}{SHIFT-POUND} {CBM-Z}kY&&&8{SHIFT-POUND}{$e5} {SHIFT-POUND}{$e5}fF {CBM-G}E >Y{CBM-G}E?Y{SHIFT-POUND}Y{SHIFT-POUND}3 6{$7b}{CBM-Z}>Y {CBM-POUND}~{CBM-Z}?Yl{CBM-POUND}~ {CBM-*}Z {$e7}Z {CBM-*}Z {$e7}Z {CBM-*}Z {$e7}Z {CBM-*}Z {$e7}Z{$60}{CBM-O}@YH {CBM-POUND}~{$60}{CBM-O}@Y {CBM-POUND}~{SHIFT-POUND} H {CBM-POUND}~{$60}{SHIFT-POUND}l{CBM-POUND}~X eos-formatted" $%{$e4}{CBM-+}5)"disk that contains no other k%{$e9}{CBM-+}5)"geos files, or else this prg E%{$ea}{CBM-+}5)"might not work! %{$ee}{CBM-+}6)"press any key to continue {CBM-I}%{$f8}{CBM-K} i$: i${CBM-R}"" {CBM-M} 760 {SHIFT-@}%15,8,15,"i0":1470 O%2,8,2,n${CBM-N}",u,w" {$e7}% c {CBM-R} 49152 {CBM-@} 50027 {$f7}% {$fc}{SHIFT-POUND} {CBM-I} {$fb}P{$fb}h >HJP{$f1}{$60}{SHIFT-POUND}{$f9}{$fb}{SHIFT-POUND}X{$fc}{SHIFT-POUND}[{$fd}{SHIFT-POUND}{$fe}{$60}{SHIFT-POUND}{$f9}{$fb}{SHIFT-POUND}{$fc}{SHIFT-POUND}{$7f}{$fd}{SHIFT-POUND}{$fe}{$60}{CBM-G}{$fd}I{$fd}{CBM-G}{$fe}I {$fe}{CBM-G}{$fb}I({$fb}{CBM-G}{$fc}I {$fc}{$60}{$f8}{CBM-G}{$fd}I{$fd}X{$60}{CBM-G}{$fd}JJJJ)I0{CBM-I} {$e4}{CBM-E}{$f0}I0P{SHIFT-POUND} {CBM-G}{$fd})I0{$60} {CBM-G}{$fb}H{CBM-G}{$fb}{$60}{CBM-+}{CBM-J}J ~P{CBM-I}C{CBM-J}{CBM-+}J ~P{CBM-I}1l{CBM-A}{CBM-+}{CBM-J}{$e8} DP{CBM-I} {CBM-J}{CBM-+}{$e8} 2P{CBM-I} {CBM-G}i{CBM-+}{CBM-W}J{CBM-X}] P{CBM-@}{SHIFT-*} {$f0}{SHIFT-POUND}{CBM-A}{$60}{SHIFT-POUND}lJ {CBM-U}{CBM-I} {CBM-@}{$fe}H{SHIFT-*}P {$fe}{$e8}{$e4}{CBM-A}P{$f2}{$60}{SHIFT-POUND} {$fd}{CBM-+}' {$f0} lJP{$fa}390 {CBM-V} edit settings :H ""{CBM-+}7)"printer driver customizer" xR "printer name: "n$ {CBM--} " nlq code:"n1","n2","n3","n4 {CBM-L}{$e6} "line spacing:"l1","l2","l3","l4 {$e8}{$f0} "120 dpi code:"g1","g2","g3","g4 {$fa} " d {CBM-W}{CBM-E} 0{CBM-M} 480 "!B"device number (4 or 5)" c!L{CBM-K} d: d{CBM-W}{CBM-E}4 {CBM-P} d{CBM-W}{CBM-E}5 {CBM-M} d{CBM-R}0:460 l!V190 N! {CBM-+}14)"save or edit":i${CBM-R}"" !{$ea}{CBM-K}i$: i$ {CBM-R}"" {CBM-A} (i$ {CBM-W}{CBM-E} "s" {CBM-P} i$ {CBM-W}{CBM-E} "e") {CBM-M} 490 {CBM-H}!{$f4} i${CBM-R}"s" {CBM-M} 610 {$f6}!{$fe}""{CBM-+}7)"printer, nlq, line spacin (ba{CBM-N}17),n1:(ba{CBM-N}18),n2:(ba{CBM-N}19),n3:(ba{CBM-N}20),n4 t${CBM-R} (ba{CBM-N}22),l1:(ba{CBM-N}23),l2:(ba{CBM-N}24),l3:(ba{CBM-N}25),l4 ${CBM-C} (ba{CBM-N}27),g1:(ba{CBM-N}28),g2:(ba{CBM-N}29),g3:(ba{CBM-N}30),g4 {CBM-V}$F (ba{CBM-N}32),i1:(ba{CBM-N}33),i2:(ba{CBM-N}34),i3:(ba{CBM-N}35),i4 L$P 49467,d {$fc}$Z"insert a blank g T{CBM-E}{CBM-I}J{$7e}@YJ{$f9}{$f2}x{$60}{CBM-Z}=Y {CBM-E}~{SHIFT-POUND}{$f7} ~l{CBM-S}~{CBM-Z}=Y {CBM-E}~{SHIFT-POUND}{$e7} ~l{CBM-S}~{CBM-Z}=Y {CBM-E}~{SHIFT-POUND}Gl~l{CBM-S}~ {CBM-E}{$f0} {CBM-POUND}~H{CBM-U}p{$f5}{$60}{CBM-Z}lYI~{$f0}{SHIFT-POUND}Y{SHIFT-POUND}.l6{$7b}{SHIFT-POUND}Y{SHIFT-POUND}8l6{$7b}{CBM-Z}=Y {CBM-A}B \Bl({$7b} _B{CBM-I} {$60}h {$7b} _BH{CBM-N}{$60}{CBM-I} P{$fd}JP{$f8}{$60} A{$7b}{CBM-G}{CBM-G} {$fd}Y{SHIFT-POUND} {CBM-POUND}~ 3{$7b}l_B A{$7b} {$f4}Z 3{$7b} {$7b}l_B{CBM-I}p ^{SHIFT-POUND} {$60} A{$7b} {CBM-E}{$f0}IaI{$7b}{CBM-A}i {CBM-POUND}~{$e6}P{$e6}l{CBM-B}Y 3{$7b}l_B{SHIFT-POUND}~lYlrY A{$7b}{SHIFT-POUND}Y{SHIFT-POUND}) 6{$7b} 3{$7b}l_B{CBM-G}2,G(B(c)); {$fd}%* &4 2:1470 &>2,8,2,"#" /&h15,"u1:2 0 18 1" a&r15,"b-p:2 3" \&\{CBM-K}#2,it$:it{CBM-R}F(it${CBM-N}G(0)) W&F{CBM-K}#2,is$:is{CBM-R}F(is${CBM-N}G(0)) &P3,8,3,"#" &Z15,"u1:3 0";it;is {CBM-U}&{CBM-K}#3,pt$:pt{CBM-R}F(pt${CBM-N}G(0)) S&{CBM-K}#3,ps$:ps{CBM-R}F(ps${CBM-N}G(0)) {$e5}&15,"b-p:3 0" {$f9}&{CBM-I} {$60}()*{$60}{CBM-G}({CBM-+}){CBM-@}*{$60}{$f1}";eVW#{CBM-H}uNQ3lv{$e7}*4EF{$7f}{CBM-T}d]G{$f1}";eVW#{CBM-H}uNQ3lv{$e7}*4EF {$f5} {$f6} Q{CBM-+}{CBM-H}J{CBM-H} P{$f4}{CBM-I}{CBM-H} lQ {SHIFT-POUND} {SHIFT-POUND} {$e5}{$60}{CBM-I} {CBM-E}{$fb}{$fd}H{SHIFT-*}P{$f7} 1JP{$ef}{$60}{CBM-I} {$fb}H{SHIFT-*}P{$f9}h >HJP{$ef}{$60}{CBM-I} {CBM-E}{$fd}{$fb}H{SHIFT-*}P{$f7} 1JP{$ef}{$60}{SHIFT-POUND}{$f9}{$fb}{SHIFT-POUND}{$fc}{SHIFT-POUND} {CBM-X}{$60}{SHIFT-POUND}Q{$fb}{SHIFT-POUND}99 0f1a20750c20a214ad7c K{CBM-V} 1af01a100d20c110ac75 0020e411d01cf02520fb 11b015208f0bb8501aa5 nK{CBM-B} 0dc934d004a50cc980b0 df200e11ce7500ce7500 30034c0313688d750060 K{SHIFT-*} a5fcf00320f5122087c1 ad74001869030a6d0a85 9044a5fcc904f03e2087 ZKA c1ad0a854a4a0045c120b7 10ad76008520f009a953 2002c2c620d0f720b710 2D{CBM-G} a91b2045c1ad81008503 ad80008502a9028519a9 2c8518a9008506a94585 XD{CBM-+} 05a9802084c1a9204c02 c2186d7e008d7e009003 ee7f00ad7f008503ad7e {CBM-V}D{CBM-M} 008502a9028519a92c85 18a9008506a9358505a9 802084c1a920480000bffd00005f fe00007ffd0008b71d00 a3041000002880000321 "OM 24800495e80000c9d340 0291fa0000b15d00005f f600001b7c0008b71100 HON af020000002010000000 82000084104008288010 032124800495e80000c9 {CBM-S}OO 534002947a0000b15d00 005d7600001bdc0008b7 1100af00a5fcf035a5fdf0 H{CBM-W} 31ad0b1a8d771aad0a1a 8d761aad761ad003ce77 1ace761aa000b90e1acd lH{CBM-H} 761ad008b90f1acd771a f00ac8c8984ac5fcd0e8 18609848b90e1a8d7c00 H{CBM-J} b90f1a8d7d0020750c20 c11068a820e411a90085 fda9642087103860a5fd XH{CBM-L} d00160ad750048ad0b1a 08000800810800840000 {$f6}R{SHIFT-+} 20000824002120880404 08000040004002042000 00000500004080000004 <S{CBM--} 040008b70500a1210080 10002000000002080002 00000020000008008100 S{SHIFT--} 00800000200000240001 04008808000040004002 04080086800000040400 HS{$de} 08b70900a12100805a53a85 04a204a0032062c2a53c {$f8}U{$e6} 38e9088505a9048506a9 1085072042c1204218ce 750010c34c8ac1cab99e >V{$e7} 77450ed494510ece925e 2a02da17171717171716 161616151515151514a9 V{$e8} 0d20421838e901d0f860 a000a2b088d0fdcad0fa 608e00d62c00d610fb8d JV{$e9} 01d6608903851e c930b0f0a51e20860c30 0dee7c00d003ee7d0020 LB c3119006c61e10e83014 a5fc0aa8ad7c00990e1a ad7d000980990f1ae6fc FLC 60ad091ad00160ad0d1a 10112087c1ad0a85f001 60a9008d0c1a8d0d1aad {CBM-D}LD 0d1ac904d005ad0c1ac9 ad90034c4114ad710049 ff8d71002032142 c02c2a9 E{CBM-POUND} 202002c2a9204c02c2a0 08207e18a900204d1818 a950650c850c9002e60d jE{SHIFT-POUND} 88d0ea60a0ff207e18c8 b9f610204d1818a95065 0c850c9002e60dc007d0 E{CBM-N} e7600018181818183c7e 00601806186018060006 186018061860a9108503 VE{CBM-Q} a9fe8502ad7c002901d0 08a911852110001100000 {$f4}OP 00208250208410000828 8020032124800495a800 004953400290aa0000b1 :PQ 5d0000555600001b3400 08b70900b70830000048 8a0000022000002a0a00 PR 0800a14802a41280282a 88240b21248804956840 00c9934002942a0000b1 FPS 5500005aca0000145400 088d7d00ad0a1a8d7c0020 fa0ba5fd307120c110a5 I{CBM-Y} 0dc902d004a50cc9d090 31ad7c00d003ce7d00ce 7c00ad7d008d0b1aad7c DI{CBM-U} 008d0a1a20fa0b20a214 ad7c1af0400820eb0628 100c20c110a905208710 {CBM-N}I{CBM-O} a900f032a92f8d750020 4011f01dce7500ad7500 10f320fb11b0e5204114 {$f0}01000 20000000020800020000 00200000080081000080 T{CBM-*} 00002000002400010400 88080000400040020407 008304840008b7110086 tT 21028010002004009708 00020000002000000800 81000080000020000024 T{$e1} 000104008a0800004400 400204840008b71d008a 01000000202000100e00d62c00d610 fbad01d660207e182059 18910260207e18b1024c W{$ea} 4d18207e18a50b4c4d18 a50da212204d18a50ce8 204d18a21f60a9188df6 vW{$eb} 18a9658df518b8500aa9 188df618a96e8df518a9 1a8503a97d8502a50985 W{$ec} 1da508851ca50b851fa5 0a851e18a907651e851e 9002e61fa0eb0d {$f2}LE 18a9156d0c1a8d0c1a90 03ee0d1a2032144c0f0e ad0d1a8d7d00ad0c1a8d 8MF 7c004cfa0bad091af012 ad0d1a8d7d00ad0c1a8d 7c0020fa0b20eb0da9ff {$7e}MG 8d0d1aa9008d7100602c 0585100160a5fdd034a9 8085fd0878a53b851fa5 DMH 3a851e28a21ea0032062 c2a915851c03a9068502a0 ff207e18c8b102204d18 F{CBM-D} 18a950650c850c9002e6 0dc007d0e86020860c30 4ead7d008d771aad7c00 BF{CBM-Z} 8d761aad761a1869158d 781aad771a69008d791a ad781a1869158d7a1aad {CBM-POUND}F{CBM-S} 791a69008d7b1a209411 f01bee761ad003ee771a ee781ad003ee791aee7a {$ee}F{CBM-P} 1adb70500bb0100000008 300004488a0010022048 QT 012a0a024800a14822a4 1280082a88240b212488 0494284000c993400294 rQU 2a0000a15500005aca00 0014540008b7c0000100 0001000440000a200004 QV 488a1020022004012a0a 004800a14902a4128028 0a88240a212488049528 {$de}QW I{SHIFT-@} a9fa208710a9fa208710 b850d5208a0eb850cf20 da10a90185fd688d7500 6J{CBM-F} 4c0f07ad750048a5fc38 e9010aa88c7500ac7500 b90e1a8d7c00b90f1a08 {$7c}J{CBM-C} 290f8d7d00990f1a2075 0c28305720c110a50dc9 37d004a50cc900b027ee BJ{CBM-X} 7c00d003ee7d00ac7500 ad7c00990e1aad7d00002 T{$e2} 04009590002200000800 01080080800020040024 02458c4008b729008501 &U{$e3} 0000002004008e220010 000090002681282ac58c 4408b734008c10000200 LU{$e4} 0832a0904245252608b7 4000208dc1201707a90f 8d7500ac7500d0052037 {CBM-R}U{$e5} 18a000b917188502b927 188503a53b8521ca0032062 {$e2}W{$ed} c2a21ea0032062c2a51e 38e51c8504a606860520 3cc1a51c18650c850ca5 (X{$ee} 1d650d850da4048820ff ffe60cd002e60d8810f4 18a504650285029002e6 NX{$ef} 03e605a605e40790cef0 cc60a9188d7a19a9768d 7919b85017a9188d7a19 {CBM-H}X{$f0} a9658d7919b8500aa918 8d7aa01c2060c1 18a928651e851e9002e6 NI 1fa51f8d0b1aa51e8d0a 1a60a50d48a50c48a980 8d7c1aa008207e182059 pNJ 18c9fff00c8d7c1ac900 f005a97f8d7c1a18a950 650c850c9002e60d88d0 NK dc68850c68850d601d00 a3041000000080000003 00000017e0000007d000 {CBM--}NL 009ff003ee7b1a20941160 ad0b1acd771ad006ad0a 1acd761af01ead0b1acd 4G{CBM-A} 791ad006ad0a1acd781a f00ead0b1acd7b1ad006 ad0a1acd7a1a60a5fcf0 ZG{CBM-E} 1938e9010aa8b90e1acd 7c00d008b90f1acd7d00 f006888810ec18603860 {SHIFT-*}G{CBM-R} b9111a990f1ab9101a99 0e1ac8c8984ac5fcd0ec c6fc6 400048924002942a0000 a15100004a8a00001454 0008b7c0000000400101 $RX 04081008200000488a10 40022081012008000800 a1480284020020088824 JRY 08212488041408000041 01400284280000010500 004880000014540008b7 {CBM-A}RZ 0500bb21008010002000 04480208000220802120 35d2209a190d0d0a33c2 209a19030c0a0bc2a908 8503a9d785022056c2a9 Joy 078db284a9b48db184a9 088503a93e85024c56c2 a9108506a9678507a900 {CBM-A}oz 8509a9608508a901850b a9ae850a60a9028506a9 0d8507a90a8508a93585 {$f6}o[ 0a6020a307203019208a 074c9b181a67656f496e c z 850da413d006a412c0fc 901438a512e9fc8512b0 02c613a50c18690c850c zz 90e2a412c015900ba512 38e9158512e60cd0efb9 490c18650c850cb95f0c z 650d850d600080008000 80008000800080008000 80008000800080000205 {$e6}z 070a0c0f111416191b1e 202325282a2d2f 70a90185 7da92b857c20fa0b202b >sG 0e688570a901857da943 857c20fa0b200e11a901 857da930857c20fa0b4c sH 0f0ea9098503a9668502 205ac1209a190a0b404b 50209a190d0e404b5020 JsI 9a191011404b50209a19 1314404b506004f80164 900a405086107005e109 tJ 4068861 03040404040000 00000202020204040404 .^ 0406060606061412100e 1412100e1412100e0d14 12100e0da018a9ff8df6 T^ 0dd007a010a9008df60d 207e18a900204d18204d 18204d1818a950650c85 {SHIFT-@}^ 0c9002e60d88d0e460a9 0c8504a90b8503a94785 02ad7100f034a90b8503 _ a df9fe0038019d80cc003 8019d98cc0038018cf0c c0038004008203800400 xwV 810306ff817f05ff0c07 00000000000001ff8003 ffc00618600ffff00fff wW f00cff300e7e700f00f0 07ffe003ffc000c30001 81800300c00000000000 {$e4}wX 00000000001ff8003ffc 00618600ffff00ffff00 c 0 8d7c009003ee7d00207b 0eee7500ad7500c93090 0A dbb028a92f8d75002086 0c3016ad7000d00e38ad 7c00e9158d7c00b003ce VA 7d00207b0ece7500ad75 0010dd4ce506ad7000f0 4e2c72003022a92f8d75 {CBM-C}A 0020860c300fad7d00c9 04d005ad7c00c9adb02c 60ce7500ad750010e460 76616465727320566572 <p\ 73696f6e20312e311b00 185772697474656e2062 793a2057696c6c69616d p] 20436f6c656d616e204a 722e1b00436f70797269 67687420313938392c20 Hp^ 426c6173746572536f66 7420496e6b2c20435749 20496e632e00416c6c20 q_ 526967687473206 323420 fa0b18a980650c850ca9 ,[ 02650d850d60a8b9161a 8d7c00b9461a8d7d0060 a8ad7c0099161aad7d00 R[ 99461a60209fc100af00 00df01a90085fd85fc8d 70008d091a204114a9ff {CBM-U}[ 8d7200a9068d081aa930 85fea90d8d0204ac7400 88c011b00cb9be0d8d08 {$fe}[ 1ab9d00d8 09f043a0a4080 86103c078a0940988610 900605ff82fe80040082 vtK 03800400be038003e006 60038006300060038006 366ef003800636666003 tL 80063666600380063666 60038006366660038006 b66660038003e3e63803 {$e2}tM 80003000000380040081 0306ff817f05ff0c0705 ff82fe800 96b8502b85029a91085 04a90a8503a9e68502ad 7000f0182c7200300ba9 f_ 0b8503a9168502b85008 a90b8503a9178502a0ff 207e18c8b102204d18c8 _ b102204d18c8b102204d 1818a950650c850c9002 e60dc604d0dc60ad7500 R_ 20940c20fa0b202b0e4c a10620fa0b20eb0da980 8d7 ff300e7e700f00f007f *xY fe003ffc000c30000660 0003c00000000003ffc0 0600600c00300cc3300c PxZ c3300c18300c3c300d00 b00cff300c0030060060 03ffc0003ffc00600600 {CBM-L}x{$7b} c00300cc3300cc3300c1 8300c3c300d00b00cff3 00c003006006003ffc20 {$fc}x{$7c} cc17ce7600d042202 B a9008d750020860c300d ad7d00d018ad7c00c915 900c60ee7500ad7500c5 hB 30d0e46020960f686860 a92f8d7500a8b9f00f20 860c303220fa0b20eb0d B 202b0ea50dc934d004a5 0cc9809006208f0b4cdc 0b18a9026d7c008d7c00 TB 9003ee7d00ac7500b9f0 0f20940cce7500ad 17265 20526573657276656400 0010676000af010b3210 tq{$60} c0070b3220da070b3240 fc070b325026080e001a 2a2a2a2053636f72696e qA 67202a2a2a1b00352d31 303020706f696e747300 202031303020706f696e qB 74730020203530302070 6f696e747300184d6f76 656d656e74204b657 d0204a02f8c 7500b95e0d8d7c00b98e 0d8d7d0018ad081a6d7c d\ 008d7c009003ee7d0098 20940c20fa0b202b0ece 7500ac750010d3a9008d \ 7d00a9e28d7c0020440d a9018d7d00a9de8d7c00 20440da9028d7d00a9da P\ 8d7c0020440da9038d7d 00a9d68d7c0020fa0b20 e20d18a93f6 400c903801f (uN 9c0000038018cc000003 8018ccf330038018cd9b 3003801f8cfb30038018 NuO 0d9b300380180d9b3003 80180d9b300380180cf9 f0038000000030038000 {CBM-H}uP 0003300380000001e003 06ff817f05ff0c0705ff 82fe8004008203800400 {$fa}uQ b803800c00e00003800c 0180 d00ad750020940ca9 {$60} 00850da915850ca27ca0 0c2069c1e612a5120a0a 186512208710c6fed003 ^{$60} 4cdc0ba5fec901d0058d 0204f00c2903d00bce02 04d003ee020420130660 {CBM-@}{$60} 20420f20c606ad700049 ff8d70002c7200302ca9 008d750020860c3016ad {$ea}{$60} 7000d00e18a9156d7c0 505 20aec19c0058181a2047 2041204d20452020204f by{$7d} 205620452052201b00ad 8100cd7f00d006ad8000 cd7e00b00cad7f008d81 y{$7e} 00ad7e008d8000202010 4cf40b4c201020e50620 0f07ee740020411420a2 Ny{$7f} 0c202010203718201306 a2ff9a4cc3c1ad7c0085 12ad7d008513a9008507500 10bdad720049ff8d7200 C{CBM-K} a0008c7000888c091a60 0004080c1014181c2024 282c0105090d1115191d {$60}C{CBM-I} 2125292d02060a0e1216 1a1e22262a2e03070b0f 13171b1f23272b2fa900 {CBM-+}C{CBM-T} 208710a9008503ad7400 8502a9028519a92c8518 a9008506a92b8505a9c0 {$ec}C{CBM-@} 2084c1a9182 973 &rC 3a1b00275a27203d204c 6566742020435253522d 3e203d20526967687400 LrD 20205370616365206f72 205a65726f203d204649 5245000010676000af01 {CBM-R}rE 0b64105b080b32236d08 0b32377a080b32498708 0bb92a94080ba537a508 {$f8}rF 0ba542c0081306090e00 a57048a90085 d7c008d7c ] 009003ee7d0020fa0b4c e20d93959799e7e9ebed 3b3d3f418f919395e3e5 \] e7e937393b3d8b8d8f91 dfe1e3e5333537398789 8b8ddbdddfe12f313335 {CBM-I}] 00000000000000000101 01010101010101010101 02020202020202020202 {$e8}] 02020303030303030303 030303 0003800df3c78003 800dd98cc003800d998c @vR c003800d998cc003800d 998cc003800d998cc003 800d9987800380040082 vS 03800400810306ff817f 05ff0c0705ff82fe8004 008203800400b803801c LvT c0000003801cc0000003 801ecf333003801ed9b3 3003801bd99fe003801b wU @,@ * creates geos program geoinvaders * {CBM-M}@ {$e8}:"place a geos-format work disk in drive.":"press a key when ready to create":"geoinvaders on work disk...":{CBM-K}{$f9}a$ O@ dr{CBM-R}8:fi${CBM-R}"geoinvaders":ty${CBM-R}G(6):18 {$f9}@ hi{CBM-R}{CBM-J}(a{CBM-Z}256):15,"m-r"G(a{CBM-Q}hi{CBM-D}256)G(hi) a 2ffa94320d2ffa9*4820d2ffa95220d2ffa9*2420d2ffa92820d2ff8e T!N 53028c5402a900ae5202*20cdbdae5302e8ac5402*a92920d2ffa9ff8d5702 {CBM-O}!O 4caec0a98d20d2ffc8c0*08b0034c7ec020d2ff4c*74a478a95ea2c18d8f02 {$fe}!P 8e9002584c74a478a948*a2eb8d8f028e9002584c*74a4ee560289):d$(24){CBM-R}G(7):d$(25){CBM-R}G(7):d$(26){CBM-R}G(11) ld* d$(27){CBM-R}G(23):tr{CBM-R}18:sc{CBM-R}db: 8:ps{CBM-R}de: 12 Yd, i{CBM-R}0 {CBM-@} 29:2,H(d$(i),1);:: 10: 2: 15 d. :"done!": d0 : {SHIFT-*}d2 * this is the hex data for geoinvaders * e3 0315bfffffff800001bf fffda00085a6d8fda6d8 85a007c2f00c :%{$7c} c92af0129900cdc8e84c*abc2ee51029900cde84c*a2c2604c4f4144220000 {$7f}%{$7d} 534156452200004c4953*540d000052554e0d0000*2a51554954004b455900 D%{$7e} 8d8d4b45592049532044*495341424c45448d8d53*59532034393135322054 {$e6}%{$7f} 4f2052452d454e41424c*458d00 {$ef}% 0f 003b09209a191013003b nh? 08209a191415003b0ba9 80a21a204d18a900a218 204d18a9008580858178 h@ a9068da084a9008d9f84 58208c05203a09202505 4c7005a576d003207005 Zha a9068da484a9258da384 a9148daa84a9638da984 a9068d9c84a9a18d9b84 ib 201306a9a88db72731b0020 aec1ea011b1842792057 pkj 696c6c69616d20436f6c 656d616e1b00209a1904 083d44e0209a19040845 kk 4ee820aec1f4012b1852 6f756e643a0020aec1f7 013553636f72653a0020 {CBM--}kl aec1ec01454869676865 73743a1b0060a577f002 c677a579f002c679a578 "lm f002c{CBM-K}#15,a$:a{CBM-R}F(a${CBM-N}G(0)): -a 15,"u1:"2;0;tr;sc: fa 15,"u2:"2;0;tr;sc: [a 15,"b-p:"2;ps: Xa {CBM-K}#2,a$:a${CBM-R}H(a${CBM-N}G(0),1): a 2,G(a);: {CBM-L}a d$(29): "working...":3,dr,3,fi${CBM-N}",u,w" {SHIFT-+}a a$: ".";: a${CBM-R}"-1" {CBM-M} 3: 30 b i{CBM-R}1 {CBM-@} C(a$): J(a$,i,1){CBM-R}" a9ffcd5602 c"Q d008a9ff8d55028d5602*a200ad8d02c901d001e8*a5cbc903d00ee000d005 "R a0074ccac1a0084ccac1*c904d00ee000d005a001*4ccac1a0024ccac1c905 M"S d00ee000d005a0034cca*c1a0044ccac1c906d00e*e000d005a0054ccac1a0 #T 064ccac14c48eb4c48eb*cc5502f02085a6d885a6d8b5 le4 a00085a000b5a30085a7 80b5a00085bffffd8000 01b36181b361819e6181 e5 8c6d81ffffff83060000 04ff03040447656f496e 7661646572732056312e Xe6 31000000c057696c6c69 616d20432e20436f6c65 6d616e20000000000000 f7 00000000000000000000 -1 0 073*00207300c924f0034cf0*c1207300c928d0f6209b K$Y b78aac51029900cdc88c*5102207900c929f0ba4c*f0c1c928f0dd4cf0c120 {CBM-A}$Z 7300f0d2c922f0a7ac51*029900cdee51024c73c2*ac5102a9009900cd4c74 {$f5}${$7b} a4a000a9ff8d55028c51*02a2008e5602ad51020a*0a0a0a0aa8bdc8848db9 84a9008dbb84a9078dba 84a9018dbd84a9cf8dbc Fic 84a90f8d18d4a9088d0b d48d12d4a57b853ba57a 853aa9058503a9038502 {CBM-D}id 4cdac2ffffffffffffff ffffffffffffffffff01 8003c007e00ff01ff8ff {$f2}ie ffffffffffffffa2008e a3848ea4848ea9848eaa 848eb8848e18d4267860a9048503a9 008502a9012003c1a200 4c06c1ad0485297fc961 Hln 9007c97bb00338e920a0 04d94b06f0058810f830 09be5006b9550620d8c1 {CBM-S}lo 601b1e5a203005060614 1425755a69690878a53b c900d004a53ac90c900b {$f4}lp 38a53ae90c853ab002c6 3b28600878a53bc901d0 04a53ac" {CBM-M} a${CBM-R}H(a$,i{CBM-Q}1){CBM-N}J(a$,i{CBM-N}1) jb : i{CBM-R}1 {CBM-@} C(a$) {SHIFT-POUND} 2:h${CBM-R}J(a$,i,1):l${CBM-R}J(a$,i{CBM-N}1,1) Vb h{CBM-R}16{CBM-D}(E(h$){CBM-Q}(h${CBM-E}"@"{CBM-P}h${CBM-W}"g"){CBM-D}(F(h$){CBM-Q}55)) {CBM-Z}b 3,G(h{CBM-N}(E(l$){CBM-Q}(l${CBM-E}"@"{CBM-P}l${CBM-W}"g"){CBM-D}(F(l$){CBM-Q}55)));:: 20 Zb 15,dr,15: 2,dr,2,"#": 3,dr,3,fi$: 3 c a{CBM-R}656: 4:db{CBM-R}a:a{CBM-R}660: 4:de08c55028898*0a0a0a0a0aa8a200b900 w#U cdf0089d7702e8c84cdc*c186c6a94085cb60a20b*6c0003a2ffa001867a84 #V 7b207300207300207300*20730090034cf0c138e9*310a0a0a0a0a8d510220 {$e1}#W 7300c92cf0034cf0c120*7300d0034c88c2c92bf0*f4c922d0034c73c2c943 &$X f0034cf000000000000000000000 00000000000000000000 Df8 00000000000000005370 61636520496e76616465 722047616d652e203830 {CBM-N}f9 20636f6c756d6e20434f 4c4f5221000000000000 00000000000000000000 {$f0}f: 00000000000000000000 00000000000000000000 00000000000000000000 6 a9058d0fd4a9dc8d0e d4a9008d13d4a9f18d14 rnu d4a9318d12d4a9008503 a90585022099c148a930 8d12d4686020e506a901 nv 8d08d4a9908d07d4a900 8d0cd4a9fb8d0dd4a981 8d0bd4204218a9808d0b {$de}nw d460a9c18db284a9248d b184208a07208e1820a3 07202319209a19020c0c $ox00cc1 8jf a9008d9b848d9c84a9a0 8db984a9018dbb84a9e3 8dba84a9028dbd84a976 {$7e}jg 8dbc84a53b857ba53a85 7aa9008503a90085024c dac2a9048576a9018574 Djh a900857e857f202010a9 00857ba9e7857a4ca20c 209a1901033d4ee220ae ki c1f70110181a67656f49 6e766164659ddb00b18a90c :mq 653a853a9002e63b2860 20f919a9008503a90085 0220dac24c2cc22087c1 mr a579d007205a12a90285 79a578d00720e313a905 8578a577d007208813a9 Fms 06857760a005a570d001 888c01d4a9008d00d4a9 008d05d4a9f18d06d4a9 nt 318d04d460a9308d04d4 60{CBM-R}a:tr{CBM-R}18:sc{CBM-R}db: 8 ac" ps{CBM-R}de: 12:i{CBM-R}0 {CBM-@} 29: 14:d$(i){CBM-R}a$::tr{CBM-R}F(d$(1)) Qc$ sc{CBM-R}F(d$(2)): 8: 14:xt${CBM-R}a$: 14:xs${CBM-R}a$: 8 {CBM-K}c& a{CBM-R}0: 16:a{CBM-R}255: 16:a{CBM-R}3: 16:a{CBM-R}21: 16: 10 {$ea}c( d$(19){CBM-R}d$(1):d$(20){CBM-R}d$(2):d$(1){CBM-R}xt$:d$(2){CBM-R}xs$:d$(21){CBM-R}G(0):d$(22){CBM-R}ty$ d) d$(23){CBM-R}G(c12073002073*00207300c924f0034cf0*c1207300c928d0f6209b K$Y b78aac51029900cdc88c*5102207900c929f0ba4c*f0c1c928f0dd4cf0c120 {CBM-A}$Z 7300f0d2c922f0a7ac51*029900cdee51024c73c2*ac5102a9009900cd4c74 {$f5}${$7b} a4a000a9ff8d55028c51*02a2008e5602ad51020a*0a0a0a0aa8bdcg; 00000000000000000000 00000000d80e1400a912 cd0fc030034c9006ad13 {$7c}g< c010f820d7c2a980852f 20a8c105000100000003 7f02af050103e0010005 Bg= 0001e40102037b02ad00 20c319209a1900153c4f e3209a190003003b0420 h> 9a190407003b05209a19 080b003b0d209a190cf4a9968d*aa50a9978dab50a9988d*ac504c7937209837ac74 o0{CBM-G} 50adaa509102adab50c8*cc7550f00591021890f5*adac50910260bd765085 0{CBM-+} 02bd9050850360a9008d*1e38a9028d7150207c38*a20ea008a9088d0a50a9 Y0{CBM-M} 022042392c1e38100160*20ce38b006201f381890*ef20f438a90220423 Q{CBM-V} a0a0a0a0a0a000000000*000000000a0a0a0a0a0a*0a0aa0a0a0a0a0a59555 q7{CBM-B} 00000000005555550a0a*0a0a0a56555500000000*00050509000000000050 7{SHIFT-*} 50600b0f0f0000000000*e0f0f000000000008baa*eeaa44 7A -1 00f ~ *555500000000ffff8181 {$f8}5{SHIFT-@} 808080808383559580661ac57612081*349009a9020d55618d55 m) 61ea8e02d08c03d0ad55*618d10d060980a0a0a18*6932a8a9008d5b618a0a ) 2e5b610a2e5b610a2e5b*611869189003ee5b61aa*ad5b61d00218603860ae W) de34bdd0348d27d08d28*d0e8e00ed002a2008ede*3460a9008d15d060a903 * 8d15d0 4{CBM-W} caca2056398d0450e8e8*c8c82056398d05508888*88882056398d0650c8c8 z4{CBM-H} 686048ad01dc2910d005*a9ff8d1e38205c396891*0260205c39b10260bd0d 4{CBM-J} 508502bd3f50850360ad*12d04d00508d00506d01*508d01504d02508d0250 {$e4}4{CBM-L} 60a9008d715020a53860*a9ad8502a9508503a20 d05500a0a8d*0550ad03500d04500d05*500d0650498f8d035098 x- 48ac0b50ad0350910468*a8ee0b50ad0b50c925f0*06c8c8c04ad0ba18a928 - 650485049002e605e8e8*e02cd0a26078a5014904*8501a90085fda92885fe {$e2}- a9ff85fba9d785fca000*b1fb0a91fdc6fba5fbc9*ffd002c6fcc6fd 7 a{CBM-R}0 {CBM-M} a{CBM-R}1:"key64",8,1 * 49152 0 c~~ww~~w~~~~~~~~~~~{CBM-B}{CBM-P} ~~~ ~{$fe}{$fa} {CBM-G}u uuu vuu pp{$60} {$f0}{$f0} {CBM-N}{$ee}{CBM-N}d nP{$e1}{$e8} 0PZ{$60} 9h{CBM-Z}pI {$f0}{CBM-Z}pI {$f0}{CBM-Z}pI {$f0} {CBM-Z}pI 9ad 1{CBM-POUND} 0350c901f018ad0450c9*01f01bad0550c901f01e*ad0650c901f0214c7d39 C1{SHIFT-POUND} e8a902204239e84cbe37*caa902204239ca4cbe37*c8a902204239c84cbe37 {CBM-POUND}1{CBM-N} 88a902204239884cbe37*008e0c502067392903aa*8e0b50bd0350c900f00a {$ed}1{CBM-Q} e8e004d0f4a2001890ef*e003f015e002f01e = this listing creates (and should not be called) key64 u 8,8,8,"key64,p,w" C ct{CBM-R}0:"" a$: a${CBM-R}"-1" {CBM-M} 8::"all done!": {CBM-A} "reading line "{CBM-N}D(ct):ct{CBM-R}ct{CBM-N}1 D C(a$){CBM-W}62 {CBM-M} 55 {$ee} b${CBM-R}J(a$,1,20){CBM-N}J(a$,22,20){CBM-N}J(a$,43,20) {$fd} i{CBM-R}1 {CBM-@} 30 600f0c0b04060e*030d05070809020a0020*a3372c1e38306820cf35 A* a9008d7250a9188d7350*a9008d7450a9278d7550*203737a9018d7250a903 {CBM-+}* 8d7350a9028d7450a925*8d7550203737a9058d72*50a9168d7350a9028d74 {$eb}* 50a9258d755020373720*f835a200bd50359d5f04*e8e008d0f520*a5029d0d50a5039d3f50 )5{CBM-Y} e031f00fe818a9486502*85029002e6031890e3a9*008502a9048503a200a5 N5{CBM-U} 029d7650a5039d905018*a928650285029002e603*e8e019d0e66081410000 {CBM-W}5{CBM-O} 00008383555500000000*8383814100000000ffff*555500000000ffff8181 {$f8}5{SHIFT-@} 808080808383559580a5fdc9 '. ffd002c6fea5fdc900d0*e1a5fec920d0dba9ff85*fba91f85fca000b1fd29 L. 558dee360a0dee368dee*3691fd29554a4a11fb91*fbe6fbd002e6fce6fdd0 {CBM-E}. 02e6fea5fdc900d0d6a5*fec928d0d0a000b9d239*990024c8c0e0d0f5a501 {$f6}. 49048501586000ad02dd*09038d02ddad02f01cd90002d0 lF 04c84c13c0a000b9e8c2*f020d90002d004c84c23*c04c7ca5a97ca2a58d04 G 038e0503a9eca0c2201e*ab4c4fc1b90002d0034c*77c0c94ff0034cf5c1c8 VH b90002c94ed0034c40c1*c946f0034cf0c1c8b900*02c946f0034cf0c14c4f I c1a000a98d20d2ffa200*bde8c2e001*f027ae0c50e8a9012042 22{CBM-D} 39e84c4239ae0c5088a9*01204239884c4239ae0c*50c8a901204239c84c42 W2{CBM-Z} 39ae0c50caa901204239*ca4c4239a206a003a900*e00c900ee02cb00ac006 {CBM-C}2{CBM-S} 9006c04ab0029003ad71*50204239c8c04ed0e1e8*e030d0da60a206a003a9 3{CBM-P} 00e00c900ee02cb* c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) l# h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 N( l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 - by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); 2 : 10 {CBM-Z}7 C(a$){CBM-W}21 {CBM-M} b${CBM-R}a$: 70 < C(a$){CBM-W}42 {CBM-M} b${CBM-R}H(a$,20){CBM-N}I(a$,(C(a$){CBM-Q}21)): 70 a b${CBM-R}H(a$,20){CBM-N}J(a$,22,20)071332026 0+ 3320f235ad01dc2910d0*90600d011a052012150e*20cf35a9008d7250a918 U+ 8d7350a9008d7450a927*8d7550203737a9018d72*50a9038d7350a9028d74 {SHIFT-@}+ 50a9258d7550203737a9*058d7250a9168d7350a9*028d7450a9258d755020 ~+ 373720713320f8354cf2*3520cf35a980*80808383818180808080*ffff959580808080ffff =6{CBM-F} 43430303030383835757*03030303838383430303*0303ffff575703030303 6{CBM-C} ffff8383838383838383*57978383838383838383*83838383ffffffffffff G6{CBM-X} ffffffffffbfafa0a0a0*a0a0ffffff0000000000*fffefa0a0a0a0a0aa0a0 7 0dd29fc*09038d00dda9188d18d0 ;/{CBM-K} ad16d009108d16d060a9*09a2009d00d89d00d99d*00da9d00dbe8d0f1a900 /{CBM-I} 8d20d0a90f8d21d0a90b*8d22d0a90c8d23d060ae*7250a9908daa50a9918d E/{CBM-T} ab50a9928dac50207937*a9938daa50a9948dab50*a9958dac50e8ec7350f0 0{CBM-@} 062079371890f00720d2ffe84c*80c0a92020d2ff981869 {$60} J 3120d2ffa92c20d2ffa9*2020d2ff980a0a0a0a0a*aaa9008d5702bd00cdf0 {CBM-G} K 7a8d5202c920902ec95b*b02aad5702f005a92b20*d2ffbd00cdf060e88d52 {$ea} L 02c920900ac95bb00620*d2ff4cc8c0caa9ff8d57*024ce8c0ad5702f005a9 /!M 2b20d00ac0*069006c04ab0029006ad*7150204239c8c04ed0e1 f3{CBM-A} e8e030d0da6020173948*ad0350c900f018ad0450*c900f011ad0550c900f0 3{CBM-E} 0aad0650c900f0036838*6068186048e82056398d*0350caca2056398d0450 P3{CBM-R} e8c82056398d05508888*2056398d0650c8686048*e8e82056398d0350caca{CBM-N}I(a$,C(a$){CBM-Q}42) f i{CBM-R}1 {CBM-@} C(b$){CBM-Z}2 lk c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) Np h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 u l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 {CBM-POUND}z by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); {CBM-W}_ : 10 BD key64 ml E 00c0a90ea2c08d04038e*05032093c2608c5102a0*00b9e3c018d7250a9*038d7350a9028d7450a9 d, 258d7550203737207133*20263320c3324cf235a2*00bd00049d0028bd0005 , 9d0029bd00069d002abd*00079d002be8d0e5a9a8*8d18d060a9188d18d060 N, a9f08504a9048505a20c*a006a9038d0b5020f438*ad04504a8d0450ad0650 - 0a8d0650a 09e5155494b*4d41540d0d2020202020 k) 202??{$7f}a209a42592053*544143455920452e2048*55474845530d0d202020 ) 2028432920434f505952*49474854203139383920*52554e204d4147415a49 U) 4e45002d505245535320*9e4631209a544f204558*4954205155494b4d4154 * 2d004449 q{CBM-R}1 {CBM-M} 12288 4 53280,0: 53281,0:""; c x{CBM-R}1 {CBM-@} 21 u x{CBM-R}1 {CBM-M} ""; G( x{CBM-R}8 {CBM-M} ""; Z2 x{CBM-R}15 {CBM-M} ""; < x{CBM-R}21 {CBM-M} ""; {CBM-G}f {CBM-T}x{CBM-D}.77);"maze run" {CBM-Z}p x {CBM-Y}D ""; FN x{CBM-R}1 {CBM-@} 20 {SHIFT--}X {CBM-T}x{CBM-D}.77)" " {$e5} x {$fa} x{CBM-R}1 {CBM-@} 15:: x ? this list 2 creates (and should not be called) maze.obj z 8,8,8,"maze.obj,p,w" H ct{CBM-R}0:"" a$: a${CBM-R}"-1" {CBM-M} 8::"all done!": {CBM-J} "reading line "{CBM-N}D(ct):ct{CBM-R}ct{CBM-N}1 I C(a$){CBM-W}62 {CBM-M} 55 {$f3} b${CBM-R}J(a$,1,20){CBM-N}J(a$,22,20){CBM-N}J(a$,43,20) i{CBM-R}1 fd01aa9398dd232ced1*32aed132e02fd00ba930 _#U 8dd1328dd23220bd3220*c332201732a281adab32*c900d00320bd32c90ab0 {CBM-@}#V 02a2218e0bd46ca8313c*ae5961bd76508502bd90*508503ac586160add232 {$e9}#W 290f8dab32add132290f*aae000f00c18a90a6dab*328dab32cad0f4602017 .$X 0c1c58a000b9d0*06990002c8c010d0f5a9 t& 128d74022040ee600000*0000000000000000a0a0*a0a0a0a0a0a0a0a0a0a0 & a0a0a0a0000000000000*000020030920e7ffa908*20b1ffa96f2093ffa000 {$de}& b9830b20a8ffc8c005d0*f520aeffa90f20c3ff60*00000000000000000000 #' 4d2d4 1*cd5761d0e220bd322087*3220363218603860202e H J 3120ad34204434202633*20713320c332200632b1*0249ff8d5a61ad01dc2d {CBM-Z} K 00dc49ff2d5a61290fd0*0160c901f00dc902f00d*c904f00dc908f00d60ce {$f2} L 596160ee596160ce5861*60ee586160a2008a9d00*d4e8e019d0f8a9058d05 7!M 534b204e414d*45203a000d0d20202020*20204449534b20494420 _* 3a00494e534552542044*49534b20544f20464f52*4d41542c205052455353 {CBM-@}* 209e52455455524e9a2e*002020202020464f524d*415454494e4720444953 W* 4b2c20504c4541534520*574149542e2020202020*00 * -1 _ "";{CBM-T}19)"by" < {CBM-T}10);"lysle e. shields ]i[" t{CBM-N} q{CBM-R}1:"maze.obj",8,1 calendar 64/128 word wonder gantry gantry list gantry.ml {CBM-@} 30 / c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) q# h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 S( l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 - by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); 2 : 10 {CBM-R}7 C(a$){CBM-W}21 {CBM-M} b${CBM-R}a$: 70 {$e5}< C(a$){CBM-W}42 {CBM-M} b${CBM-R}H(a$,20){CBM-N}I(a$,(C(a$){CBM-Q}21)): 70 a b${CBM-R}H(a$,20){CBM-N}J(a$,2 32adab328daa324eab32*18adab326daa328dab32*adab321869058dab32c9 S$Y 5a9005a95a8dab322062*3260a200adab328daa32*adab3238e90a8dab3290 {CBM-U}$Z 03e8d0ecadaa3209308d*d2328a09308dd1326020*1732aeab32a064e000f0 {$fd}${$7b} 168a48984820e0322026*3368a868aa88d0efa064*cad0e 500050000000000*00000000000000000000*00000000000000000000 H' 00000000000000000000*00000000000000000000*00000000000000000000 {CBM-Z}' 00000000000000000000*00000000000000000000*00000000000000000000 {$f2}' 00000000000000000000*00000000000000000086*038504a000 d4a90f8d18d4a9078d0c*d4a9878d07d4a9218d08*d460a9c38d00d4a9108d {$7c}!N 01d4a9108d04d4a9118d*04d460a9618d00d4a908*8d01d4a9108d04d4a911 A!O 8d04d460200632ad5861*cd8031d009ad5961cd81*31d00160ad58618d8031 "P ad59618d8131a5032903*091c8503b102c900f009*20 9 055494b*4d41540d0d2020202020 k) 202??{$7f}a209a42592053*544143455920452e2048*55474845530d0d202020 ) 2028432920434f505952*49474854203139383920*52554e204d4147415a49 U) 4e45002d505245535320*9e4631209a544f204558*4954205155494b4d4154 * 2d004449 a005b94133c900d0*058810f618603860a005 v& b941330930996f048810*f5a000b94d33996904c8*c006d0f5600000000000 & 0000000000000013030f*12052da200bd4133dd47*33f003b00760e8e006d0 & f060bd41339d4733e8e0*06d0f5a200bd47330930*9d5304e8e006d0f3a200 %' bd8 2,20){CBM-N}I(a$,C(a$){CBM-Q}42) $f i{CBM-R}1 {CBM-@} C(b$){CBM-Z}2 qk c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) Sp h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 u l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 {CBM-Z}z by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); {CBM-U}_ : 10 JD maze run ml E 0030a937850120df3020*d33220b23220bd32208f a600000a9008dd0 b%{$7c} 3260a9368dd132a9308d*d23260a9ff8dd03260ad*d1328d6304add2328d64 %{$7d} 0460000600a200a9009d*4133e8e006d0f860a005*b94133186901c90ad008 L%{$7e} a9009941338810ee9941*3320043160a005b94133*38e901c9ffd008a90999 &{$7f} 41338810ee9941332019*3160 b103f00620 7( d2ffc8d0f66086038404*8d3b0ca00084fba9a099*0002c8c010d0f8a9a0a4 {$7c}( fb910320e4ffa4fbc90d*f03ac914f026c985d003*4ce2fc18c92090e718c9 A( 60b0e2c00ff0de990002*18c9409002e9409103e6*fb4c160cc000f0c9a920 ) 9103990002c6fb4c160c*a92091036 1633900320fb3260a9 k"Q ff910220e03260a2008a*9d001c9d001d9d001e9d*001fe8d0f1600000ac8e "R 31a200cad0fd88d0fa60*4078ad14038da831ad15*038da931a9aa8d1403a9 U"S 318d1503586000002cd0*323053ce0532ae0532e0*ffd02ea9808d0bd4a93c #T 8d0532ced232aed232e0*2000000000000 9( 00000000000000007e00*00600000780000600000*6000007e000000000000 {$7e}( 00000000000000000000*00000000000000000000*00000000000000000000 C( 00000000000000000000*00000000eaa9008d5561*ae5861ac596120813490 ) 05a9018d55618e00d08c*01d0ae5 e339d5904e8e005d0*f5602d08090708a9288d*f8078df829a9298df907 J' 8df929a200bdba339d00*0abdff339d400ae8e040*d0ef20ca34600000003c {CBM-P}' 00006e00005e00007e00*007e00003c0000000000*00000000000000000000 {$f4}' 00000000000000000000*00000000000000000000*00000000 *3120863920613620ef36 tF 20b23220bd32200f3720*c43420df3420d33220a9*35200f37a9038d5861a9 G 068d5961a9248d5661a9*158d5761205b300820a3*372058352890dc205333 {$de}H 4c1c30206d3120933320*443420ac322cd0323024*209230204434208231ad # I 5861cd5661d0eaad596 (2072) quikmat {SHIFT-POUND} R~{SHIFT-POUND} P{SHIFT-POUND} !P {CBM-I} {$f0}~{CBM-I}D{SHIFT-POUND} {$f0} {CBM-I} {$f0}~{CBM-I}{CBM-R}{SHIFT-POUND} {$f0} {CBM-I} {$f0}~{CBM-I}O{SHIFT-POUND} {$f0}{CBM-I}r {SHIFT-POUND} {CBM-O} ;H{SHIFT-*}P{$f5}{CBM-I}{SHIFT-+}{SHIFT-POUND} {$f0}{CBM-I} {SHIFT-POUND} {CBM-Z}h{CBM-Z} h{SHIFT-POUND} R~ {CBM-I} {$f0}~{CBM-I}{$ed}{SHIFT-POUND} {$f0} {$e4}~IPlI P{$f2}{SHIFT-POUND} R~ {CBM-I} {$f0}~{CBM-I}{SHIFT-POUND} {$f0} {SHIFT-POUND} {CBM-E}~{SHIFT-POUND}O ~ {CBM-O}{$fb} {CBM-POUND}~H{SHIFT-*}P{$f5}H {CBM-POUND}~H {CBM-POUND}~ {CBM-S}~ v{SHIFT-POUND} {CBM-K}{CBM-G}{CBM-K}IP{$fa} L~ {SHIFT-POUND} ;H{SHIFT-*}P{$f8}lm-0e18696d850e8d85 {$fb}h{$fc} 21a9006923850f8d8621 20b7c1008a87210002a6 01a9358501ad17d048a9 @i{$fd} 008d17d085028601a9c0 85162008c28616a601a9 358501688d17d0860120 i{$fe} b7c18721008a00022014 15300c20a5c100c70000 3f01b8500920a5c100c7 Ji~ 00007e02a616f025e005 f00{$f0} R~HP{$f6}{$60}; {$fb}{SHIFT-POUND} H{SHIFT-*}P{$f8}{SHIFT-POUND} {CBM-@}{$fb} {$e4}~{CBM-@}{$fb}I {$f0}:I{$f0}&IPl{$e2}{$fc}I {$e7}I{$60}{CBM-A}{$e2}{SHIFT-*}{$f0}{$de} I@{$e9}@{$e6}{$fb}l{SHIFT-*} {$f0}I{SHIFT-POUND} F{$fb}l{SHIFT-POUND} {$60}quikmat (H by stacey e. hughes (c) copyright 1989 run magazine -press f1 to exit quikmat- disk name : disk id : insert d J616365206f6e1b 00187468697320646973 {$f8}l 6b20666f722074686973 206f7065726174696f6e 2e1b00 m -1 8 908 f008a915850fa963850e Hk 60a9158503a9af85028e 8121e003d008a9168503 a90f85024c56c2810b10 {CBM-Z}k 10c1150b1020d71513e1 15011140001847656e65 72616c2 ? this listing creates (and should not be called) quikmat y 8,8,8,"quikmat,p,w" G ct{CBM-R}0:"" a$: a${CBM-R}"-1" {CBM-M} 8::"all done!": {CBM-H} "reading line "{CBM-N}D(ct):ct{CBM-R}ct{CBM-N}1 H C(a$){CBM-W}62 {CBM-M} 55 {$f2} b${CBM-R}J(a$,1,20){CBM-N}J(a$,22,20){CBM-N}J(a$,43,20) i{CBM-R}1 {CBM-@}154000000a99320d2ff rF a90b8d20d0a9008d21d0*a010a20120f0ffa264a9*0c20f00ba006a2171820 G f0ffa2b2a90c20f00ba0*06a2081820f0ffa2cfa9*0c20f00ba252a005a90f {CBM--}H 20010ca000b90002993b*0bc8c010d0f5a2dba90c*20f00ba2a0a005a90220 ! I 010cad010248ad000248*w {SHIFT-POUND}K{CBM-I}{SHIFT-POUND} {CBM-I}{CBM-G}{SHIFT-@} {$ed}{SHIFT-POUND}O {CBM-O}{$ed}{SHIFT-POUND}m {SHIFT--}{$ed}{SHIFT-POUND}- {SHIFT--}{$ed}{SHIFT-POUND}w {SHIFT--}{$ed}{CBM-G} {SHIFT--}{$ed}{CBM-G} {SHIFT--}{$ed}{SHIFT-POUND} {SHIFT--}{$ed} {CBM-E} {SHIFT--}{$ed}H{SHIFT-*}{$f6} {$fe}{$ed}{CBM-G}I{$e6}{CBM-G}{CBM-+}I{$e6} {CBM-Z}I{$e2}{SHIFT-POUND}{$60}{SHIFT-POUND}"{SHIFT-POUND} {SHIFT-@}X{CBM-Z} {SHIFT-POUND}j lFjP{$f9}{CBM-I} y V{SHIFT-POUND}{$ee} {CBM-K}{CBM-Z} ){$fb} {SHIFT-POUND}{$ec} {CBM-D}{$ea}{$60} {CBM-S} {$e8} yP{$f6}{$e6}"lV {CBM-S} J yP{$f6}{$60}){CBM-F}{CBM-Z} ){$fc}{CBM-F} {SHIFT-POUND}{CBM-F}{CBM-I} JP{$fd}F{CBM-F}P{$f9}{$60}{CBM-G}" k{$f2} d{CBM-Z} )d {$60}{CBM-Z} 6209515b8501b2073 15a9158503a926850220 j 56c2ad1d85c902f00620 a1c24c6f14ad83212034 0d60ad0fc0c9131003a9 tj 0060ad13c01002a53f60 810b10103b150c101f0c 0c102e0e010240021040 j 0018506c656173652070 6c616365206469736b20 776974680018696e746f {$de}j 20 iisk to format, press return. formatting disk, please wait. {$e7}~{SHIFT-POUND} {CBM-E}~{SHIFT-POUND}O ~ {CBM-O} {CBM-POUND}~H{SHIFT-*}P{$f5} {CBM-S}~{SHIFT-POUND} C~{$60} m-e {CBM-E}02e606e00690adc9 i"Q e290a960a9018522a90a*85ba78ad001c09048d00*1ca914854a204c05c64a "R d0f9a200205905207605*a9ee8d0c1c20a105ad00*1c29fb8d001ca9ec20ac S"S 06ea60a002ae001ce820*590588d0f6e6224c7605*a002ae001cca20590588 #T d0f6608a290385bbad00*1c2 30 . c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) p# h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 R( l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 - by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); 2 : 10 {CBM-E}7 C(a$){CBM-W}21 {CBM-M} b${CBM-R}a$: 70 {$e4}< C(a$){CBM-W}42 {CBM-M} b${CBM-R}H(a$,20){CBM-N}I(a$,(C(a$){CBM-Q}21)): 70 a b${CBM-R}H(a$,20){CBM-N}J(a$,22a99320d2ffa002a20a18*20f0ffa2eda90c20f00b F J 20e4ffc985d0034c1808*c90dd0f2a99320d2ffa0*00a20a1820f0ffa214a9 {CBM-Q} K 0d20f00b200309a90820*b1ffa96f2093ffa000b9*fb0820a8ffc8c006d0f5 {$f0} L 6820a8ff6820a8ff20ae*ff20560ba90085a1a5a1*c903d0fa20ccffa000a9 5!M ){SHIFT-*}{SHIFT-POUND}~{$60}{CBM-G}" k{$f2}c {SHIFT-POUND}~{SHIFT-POUND} {CBM-C}{CBM-N}{CBM-POUND}{CBM-G}9 {CBM-G}{CBM-C}{CBM-G}"{CBM-G}{CBM-G}{SHIFT-POUND}{SHIFT-POUND} yyyyI{CBM-POUND}{$e6}{CBM-C}{CBM-G}{CBM-C}EcAh{$e8} {$e8}P{$fa}{SHIFT-POUND}k {SHIFT-POUND}1 0{$fe}H{CBM-POUND} {$e5}{$fd} {$f5}{$fd}{SHIFT-POUND}1 {$e9}{$f5}: {$f7}{SHIFT-POUND} 2{SHIFT-POUND}~{CBM-I}p{$fe}{CBM-U}JP{$fa}{CBM-I} {CBM-@}2p{$fe}{CBM-U}{CBM-O} HJP{$f3}2{CBM-I}p{$fe}{CBM-U}{SHIFT-POUND}uJP{$f5}{SHIFT-POUND}~{CBM-I}p{$fe}{CBM-U}JP{$f7}{CBM-I}{CBM-F}p{$fe}{CBM-U}{CBM-X} {$e8}P{$f4} p{$fe}{CBM-U}{CBM-E}0HP{$f5}{SHIFT-POUND}u{CBM-I}p{$fe}{CBM-U}JP{$f7}F{CBM-C}Pp{$fe}{CBM-U}p445249564520412e1b 0018696e746f20445249 564520422e1b00ad8621 #k 850dad8521850ca91585 0fa953850ead8984c908 f008a915850fa963850e Hk 60a9158503a9af85028e 8121e003d008a9168503 a90f85024c56c2810b10 {CBM-Z}k 10c1150b1020d71513e1 15011140001847656e65 72616c2a90f990603990703a9*00590203590303590403*59050399010318986908 Q$Y a8e6bca5bcc54390c198*48e88a9d0004e8d0faa9*4b8d0004a90385312030 {CBM-L}$Z fe68a88820e5fd20f5fd*a904853120e9f5853a20*8ff7a9008532a9ff8d01 {$fb}${$7b} 1ca20550feb8cad0faa2*0aa43250feb8b900038d*011cc8c9fc05bb8d001ca904*85bba200cad0fdc6bbd0 ]#U f960a522204bf28a0a0a*0a0a0a8544ad001c299f*05448d001c60ad0c1c29 {CBM-I}#V 1f09c08d0c1ca9ff8d03*1c8d011c60a522204bf2*8543208e05a9ff8d011c {$e7}#W a90085bcaaa8a5399900*03a5bc990203a5229903*03a513990403a5129905 ,$X 03,20){CBM-N}I(a$,C(a$){CBM-Q}42) #f i{CBM-R}1 {CBM-@} C(b$){CBM-Z}2 pk c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) Rp h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 u l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 {CBM-D}z by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); {CBM-Y}_ : 10 HD quikmat ml E 010816080a009e202832*30373229205155494b4d*4 a0993b0bc8c010d0f84c*18084d2d571200020000*a96ba20985038604a900 Z!N a20585058606a5ba200c*eda96f20b9eda94d20dd*eda92d20ddeda95720dd {CBM-B}!O eda50520ddeda50620dd*eda91e20ddeda000b103*20ddedc8c01e90f620fe "P ed18a503691e85039003*e60418a505a606691e85*0590{$fe}{CBM-U} {$fe}{CBM-G}"I#{$f0} ;l{CBM-K}{$60} l# lx {CBM-O}P H{SHIFT-*}P{$f5}{SHIFT-POUND}T @{$ee}{$60} {$e7}~{SHIFT-POUND} {CBM-E}~{SHIFT-POUND}O ~ {CBM-O} {CBM-POUND}~H{SHIFT-*}P{$f5} {CBM-S}~{SHIFT-POUND} C~{$60} m-e {CBM-E}06469736b2065 {$f2}k 72726f722e1b00184572 726f723a202000a92420 45c1ad81214a4a4a4a18 7l 6930c93a300269062045 c1ad8121290f186930c9 3a300269062045c1a91b {$7c}l 4c45c1810b10101e160b 10203f16011140001854 6865726520697320696e Al 73756666696369656e74 207370 ad0f38432a208 @%{$7c} 50feb8a9558d011ccad0*f5a9ffa20550feb88d01*1ccad0f7a2bb50feb8bd %{$7d} 00018d011ce8d0f4a000*50feb8b1308d011cc8d0*f5a955a20850feb88d01 J%{$7e} 1ccad0f7c6bcd09a50fe*b850feb82000fea522c9*23f006203b054ca10560 &{$7f} 200e054c2305200e054c*85058d0ae6e16cad0 11f02bae6e16e8ad6d16 38ed6e16c907901c8a48 <;I 20a90e688d6e16cd6f16 b008186906cd6f16b003 8d6f164c210f4cca0fad ;J 6f1638ed6e1620ca0d4c 2ac1ad6d16cd6f16d003 4ca60ead6d168d6f1638 F;K e906b004d002a9018d6e 164cf20dad6e16c901d0 034ca60ea9018d02c602a9118504a2 02a0042060c1a5021869 :4{CBM-P} d08502a50369168503a9 168505a97b8504a00420 65c2ad7b16d00ea90b85 {$7f}4{CBM-A} 03a9d185022056c24cb2 0a60810b8309db0b0b83 11000005111706112912 D4{CBM-E} 113ba30c02114d13400d 00810b1018e60b011040 00810b1818000c011040 5{CBM-R} 001e3c ?W be3c81c0808198888888 b2008c00b362b36281c0 81c19fffffffbc008c00 g?X b360b36081c083e19888 8888b2008dc0be6ebe6e 81c087f198888888bdc0 ?Y 8360b066b0db6681c08f f99888888883608360b0 3cb03c81c081c19fffff Q?Z ff836081c081c0808081 c081c19888888881ad822120340dad 76168d8d8460cd8984f0 0620b0c220a1c260a916 e8{CBM-V} 8521a9d08520ad7316a0 118c70168d6d16a90f20 39c1a5218d7a16a5208d 8{CBM-B} 791620b10da96c8506a9 7b85072024c1a9248506 a9ff2027c1ad6d16c908 O8{SHIFT-*} 900920abc11110086c10 10a90f8daa84a92d8da9 84a9018d6e1 4 696f6e2077686963680d c{$e6} 77696c6c20616c6c6f77 20796f7520746f207669 6577207374616e646172 rc{$e7} 6420616e640d636f6d70 7265737365642018444f 4f444c45211b20616e64 c{$e8} 20184b6f616c611b0d66 696c65732066726f6d20 77697468696e20746865 {CBM--}c{$e9} 201847454f531b206596f6e732e0020205365 f{$f1} 6e6420636f6d6d656e74 7320616e642073756767 657374696f6e7320746f if{$f2} 3a0d0d18202052656420 53746f726d1b20285175 616e74756d204c696e6b f{$f3} 292c206f720d1820204a 6f65204275636b6c6579 0d202034363420426561 Sf{$f4} 6c652053742e0d202057 6e168d <L 6f164cf20dad6e16c901 f0b4c90790e038e9068d 6e168d6f164c210fad6d p<M 1638e9078d7216cd6e16 9096ad6e16186906cd72 16b09b8d6e168d6f1620 <N f20dad058530034c780f 60ad05853045ad6d16f0 4020b10da969850720b3 Z<O c2c900f03320a90e20b1 0da53c38e9248 84f6e206469736b3a 1b0018506c6561736520 696e73657274206e6577 n5{CBM-W} 206469736b2e1b001846 696c65206e6f7420666f 756e642e1b00a000b91e 5{CBM-H} 84999d163005c8c010d0 f3a900999d16a8b93084 99ae163005c8c010d0f3 X5{CBM-J} a90099ae16a8b9dc8899 bf163005c8c010d0f3a9 0099ae16c080 3c81c081c08ff881c198 @{SHIFT-+} 888888807e803687f083 e087f081c19888888880 18803c83e087f083e081 [@{CBM--} c19fffffff8018ab8030 81c081c081c081c19888 888880188030808081c0 @{SHIFT--} 808081c1988888888000 80008000800080008001 9f0fff200181139c110b {$e5}@{$de} 090bcb1101094606ad6d16c9 9A 08900fad6f1638e904aa b002a200e88e6e164cf2 0da9008509a9438508a9 y9B 00850ba9bf850aa92485 06a96b8507608502a90a 8504a004a2022060c120 9C b10de606a50218650685 06690a8507e608d002e6 09a20a4c75c1ad6d16f0 {$e3}9D 7ba53848a5374820b10d a50b8538a56e 7669726f6e6d656{$7f}?{$7f}a 0018566965773a1b0d20 !d{$ea} 20436c69636b206d6f75 736520627574746f6e20 746f20676574206e6578 Fd{$eb} 742066696c652e0d1853 6c6964653a1b0d202043 6c69636b206d6f757365 {CBM-Q}d{$ec} 20627574746f6e20746f 2076696577206e657874 2066696c652e0d202048 {$f0}d2e205175696e63792c20 4d612e2030323136391b g{$f5} 00adb784d00ead048530 0620c913b8500320ca13 6060297fc9619007c97b ]g{$f6} b00338e920a004d9f113 f0058810f8300d980aa8 b9f713aab9f61320d8c1 {CBM-I}g{$f7} 604249515356260a4c05 4305e8058105ad89848d 8221a923850fa98f850e {$e7}g{$f8} 502a900 85038505a90a8504a202 =P a0042069c1a502186d6e 16cd6d169003ad6d168d 6f1620a90e60ad6d16c9 D=Q 08904aa9058d7216a96c 8506a97b8507ac7216b9 ff0f850a38e90f8508a9 {SHIFT-POUND}=R 008509850b20b3c2c900 f01e202ac1a028a200e8 d0fd88d0fa202ac1ad72 {$ee}=S 160aa8b906106005ff82fe80 6{CBM-L} 04008203800400b80380 f800c0000380cc000000 0380c6fdd99e0380c6e0 B6{CBM-Y} d9b30380c6c0d9b30380 c6c0cf3f0380c6c0cf30 0380ccc0c6330380f8c0 {CBM-M}6{CBM-U} c61e0380040082038004 00810306ff817f05ff0c b14d0cb20a0610ab0c20 {$ec}6{CBM-O} f10ca9128d1d854cbfc2 ad8984808113 9c110b090b6112120346 1c11010f460024110000 *a{CBM-*} 06107a1105ff82fe8004 008203800400b8038300 0c60000383000c600003 Oa 878cde7c79fb878ccc76 cdc38ccccc66cd838ccc cc66cd839feccc66cd83 {CBM-H}a{$e1} 986dcc66cd839867c766 79838004008203800400 810306ff817f05ff0c01 0a8537c637 a9008d72162039c1a918 (:E 2045c1ad721620ca0d20 24c1a5098519a5088518 a5061869088505ad7216 M:F 186d6e16cd6d16f002b0 2ca8888420ad70168502 a202a0202060c1ad7916 {CBM-R}:G 1865028502ad7a166503 85032048c1ee7216ad72 16c907d0ae20a90e6885 {$f7}:H 376885386{$ed} 6f6c64206d6f75736520 627574746f6e20746f20 61626f72742073686f77 5e{$ee} 2e000d20204174207468 69732074696d652c2049 20776f756c64206c696b Ze{$ef} 6520746f207468616e6b 0d1842696c6c20436f6c 656d616e1b20666f7220 {CBM-B}e{$f0} 6869732068656c702061 6e640d73756767657374 6 a9058510a9088511a900 85168517203bc2a90838 e511f01c186902480980 ,h{$f9} 8dc4046885020a0a0a0a 38e50238e50218690f8d bf04608d842120bdc120 Qh{$fa} 1415300c2053c200c700 003f01b850092053c200 c700007f02ad89848d83 {CBM-L}h{$fb} 21ad822120340da90085 0fad8421850e0a0a0a0a 186548b90510 4860ce721610bb60a214 0878a93585018e01d4a0 3>T 008c05d4a9f98d06d4a9 378d0fd4a90f8d18d4a2 158e04d488d0fdcad0fa X>U a9148d04d4a930850128 60bfaf9f8f7f6f720e7a 0eea0e010fd50eb50e81 {CBM-X}>V 9f0fffdb988888888000 80008000800080008001 98888888bc00bf00bd82218d7416ad 8d848d7616c902d025ad 17{SHIFT-@} 0fc0c920901ead9084f0 19290f8d7516ad8e8429 0fcd7516f007adc48829 V7{CBM-F} 40f003ee8d844ce1c1ae 8d84cad0016020010d8d 74164cb0c2ad8d84c901 {CBM-F}7{CBM-C} f01b1869088d7516ad74 16186901cd75169002a9 08a8b98684f0f09860ad 8{CBM-X} 741660 {$f9}a{$e2} a9008d1d854cbfc28113 9c110b090be412010946 0081139c110b090b3813 >b{$e3} 01094600a9238533a97d 85342014153011a90085 36a9468535a9008538a9 b{$e4} fa853760a9008536a98c 8535a9018538a9f48537 600d20201847656f536c Hb{$e5} 696465731b2069732061 6e206170706c6963617' sc{CBM-R}F(d$(2)): 6: 9:xt${CBM-R}a$: 9:xs${CBM-R}a$: 6 v a{CBM-R}0: 10:a{CBM-R}255: 10:a{CBM-R}3: 10:a{CBM-R}21: 10: 7 d$(19){CBM-R}d$(1):d$(20){CBM-R}d$(2):d$(1){CBM-R}xt$:d$(2){CBM-R}xs$:d$(21){CBM-R}G(0):d$(22){CBM-R}ty$ {CBM-C} d$(23){CBM-R}G(89):d$(24){CBM-R}G(4) {$e6} d$(25){CBM-R}G(15):d$(26){CBM-R}G(13):d$(27){CBM-R}G(9) tr{CBM-R}18:sc{CBM-R}db:cc2 ad00dd8d6416ad02dd8d a* 6516ad15d08d6616ad18 d08d6716ad02dd09038d 02ddad00dd29fc09028d * 00dda9088d18d0a9008d 15d0a9108df843205fc2 ad6016f003b8500d7820 K* 86fe58ad058530f6b850 1fad61168d6a16a9008d 6b16782086fe58ad0585 + 100ace6b16d0f1cea9002051 ?#P c1a9138da484a9b58da3 846020a8c10502010000 00033f01c70500014900 #Q a003f900c3074900a006 7e00ac182d2067656f53 6c69646573202d1b1654 I#R 00b9436f707972696768 74202843292031393839 2c201852554e1b206d61 $S 67617a696e6500a9008d 7b168d7c16a0 dda9088d18d0a9008d15 d0ad11d009208d11d0ad l. 16d009108d16d0a9108d f843205fc2ad6016f003 b8500d782086fe58ad05 . 8530f6b8501fad61168d 6a16a9008d6b16782086 fe58ad0585100ace6b16 V. d0f1ce6a16d0ec205cc2 ad64168d00ddad65168d 02ddad66168d11d0ad67 / 206309 b850b3200f08b850ad44 j'{$7f} 444a4a474720bdc1a9ff 8d601620b4c1b10ad016 00a916850fa9d0850ea9 ' 008510a9a08511a90085 168517203bc2a9a038e5 118d7316a9d08d6216a9 T' 168d6316ad0585300160 a000ad63168503ad6216 8502b102f0b2a9168505 ( a97b8504a202ab4c9515a90a8503a932 85022056c26081139c11 c1{CBM-@} 0b090b3f0a010946000d 184265726b656c657920 536f667468656164733a 1{CBM-G} 1b0d0d2020546865206c 69676874657374206d69 6e64732061726520776f M1{CBM-+} 726b696e672077697468 0d4265726b656c65792e 000500016e005a03d200 2{CBM-M} 6:ps{CBM-R}de: 8 0 i{CBM-R}0 {CBM-@} 29:2,H(d$(i),1);:: 7: 2: 15 a :"done!": g : y D file header E 0315bf0000001fffff12 81a3183805187c59183e 21159fc1143fcd1467e1 {$e3} F 1fffff0a041c0618e006 270003780001c0001fc0 002ec0007f4000418000 (!G 7f0000220000 6a16 d0ec205cc2ad64168d00 ddad65168d02ddad6616 u+ 8d15d0ad67168d18d020 5fc22053c200c700003f 0160a90a8503a9878502 + 2036c1a916850fa97b85 0e200bc28af01286fba9 0a8503a9a785022036c1 {CBM-*}+ a6fb4c9515ad02848505 ad01848504a980850ba9 00850aa900850c850d20 9118d6116 ad0fc0c913900aad13c0 s$T 1005a9408d611660000e 0000480002af0480be04 b40480160546696c6500 $U 53686f772046696c6500 0f2b00004f0082f70400 400503050049058f2300 {SHIFT--}$V 4314a023004314b12300 4314c223004314d32300 4314e423004314f52300 "%W 4314062400 168d15d0ad68168d16d0 ad69168d18d0205fc220 53c200c700003f0160a9 {$60}/ 0a8503a98785022036c1 a916850fa97b850e200b c28af01286fba90a8503 {CBM-G}/ a9a785022036c1a6fb4c 9515ad02848505ad0184 8504a980850ba900850a {$ea}/ a900850c850d20b6c220 b6c2a9288503a9008502 200042065 c2ad7c16cde005d006ad 7b16cddf05d006209b06 ^( b8502fad7c16cde205d0 06ad7b16cde105d00620 b807b85019ad7c16cde4 {CBM-T}( 05d006ad7b16cde305d0 06206309b85003200f08 18a9116d62168d621690 {$e8}( 03ee6316b85085a90a85 03a98785022036c1a916 850fa97b850e200bc26e076e005a067e006618 2d20576f726b696e6720 2d1b0005020100005003 w2{CBM-POUND} 3f017800a9018d6f1620 a1c220b4c1a00ad01600 a916850fa9d0850ea900 2{SHIFT-POUND} 8510a9a08511a9008516 8517203bc2a9a038e511 8d731620120ca9168db4 {$e1}2{CBM-N} 0ba99d8db30bad8984c9 08f01bc909d00da9168d b40ba83060000 045f160004536c696465 2053686f77202056312e M!H 30000000005265642053 746f726d202020202020 20202020000000000000 {CBM-R}!I 00000000000000000000 00000000000000000000 00000000000000000000 {$f7}!J 00000000000000002020 56696577207374616e64 61726420677261706$, b6c220b6c2a9248503a9 00850220ba094cf806a9 0a8503a98785022036c1 I, a916850fa97b850e200b c28af01286fba90a8503 a9a785022036c1a6fb4c {CBM-S}, 9515ad02848505ad0184 8504a9278507a9748506 a9278511a9fe851020ff {$f3}, c18af01286fba90a8503 a9a785022036c1a6fb4c4314517569 741439008018511b0049 6e666f726d6174696f6e G%X 1439008018491b000f2c 15005400822705007e05 330500e5055669657714 {CBM-D}%Y 3e008018561b00536c69 6465143e008018531b00 20bdc120270d4c2cc220 {$f1}%Z bdc1a9108503a9fd8502 2056c2a9118503a90a85 022056c2ad1d85dba094c6c08a5038517 /0 a502851618a974651685 16a9276517851720ee09 c9fef00620f809b850f3 T0{CBM-K} 20ee094820ee09aa6820 f809cad0fab850e120b6 c2e000f002686860a000 {CBM-O}0{CBM-I} 910248e602d002e603a5 03c517d004a502c516b0 02686068a90a8503a9a7 {$fe}0{CBM-T} 85022036c168686868a2 08a -) f01286fba90a8503a9a7 85022036c1a6fb4c9515 ad02848505ad01848504 R) a9248507a9328506a923 8511a9fe851020ffc18a f01286fba90a8503a9a7 {CBM-Y}) 85022036c1a6fb4c9515 a90a8503a9a785022036 c120b7c100280060401f {$fc}) 20b7c100240040000420 b4c140000044002059ae8db30bb8500a &3{CBM-Q} a9168db40ba9bf8db30b a90b8503a9aa8502a900 8da30c8da40cad8d84c9 K3{CBM-D} 01f00aa90c8da40ca94d 8da30ca90085168517a9 008d7b16a916850da97b {CBM-A}3{CBM-Z} 850c2056c2ad1d85c902 d00160c906d00ea90b85 03a9c785022056c24cb2 {$f5}3{CBM-S} 0ac912d0034cb20aad6f 1685869 <"K 632066696c6573206672 6f6d2077697468696e20 7468652047454f532065 "L 6e7669726f6e6d656e74 2e000000000000000000 00000000000000000000 {CBM-G}"M 00000000000000000000 00000000 {CBM-J}"N file body {$fa}"O 204bc1202a0420b60cad 89848d7716200014a904 8503a99e8502 9515a90a8503a9a78502 8- 2036c120b7c100280060 401f20b7c140470040e8 0320b4c1400000440020 {$7d}- 5cc220b7c1284b00d8e8 03ad104f8d21d0ad00dd 8d6416ad02dd8d6516ad B- 11d08d6616ad15d08d67 16ad16d08d6816ad18d0 8d6916ad02dd09038d02 . ddad00dd29fc09028d0016a9 6&{$7b} 118503a98285022056c2 a9118503a98f85022056 c26020bdc1a9008d6016 {$7b}&{$7c} 20b20ab8500320120bad 1d85c902d00160ad7c16 cde005d006ad7b16cddf {SHIFT-*}&{$7d} 05d006209b06b850dfad 7c16cde205d006ad7b16 cde105d00620b807b850 '{$7e} c9ad7c16cde405d006ad 7b16cde305d006@@ new rerun c128 menu -@ lou wallace @@ run magazine v@( 53280,0:53281,0 T@2 dr{CBM-R}B(186):v{CBM-R}54273:G(142) @< ch${CBM-R}"abcdefghijklmnopqrstuvwxyz" {CBM-J}@f dr${CBM-R}I(D(dr),C(D(dr)){CBM-Q}1) Z@p n$(255),d$(255):cx{CBM-R}54272: "" {$e2}@z f aD 370:nl{CBM-R}14:s1{CBM-R}0:s2{CBM-R}0: new rerun c64 automenu 0 lou wallace n( 53280,0:53281,0:G(142) D2 dr{CBM-R}B(186):v{CBM-R}54273 < ch${CBM-R}"abcdefghijklmnopqrstuvwxyz" {CBM-G}f dr${CBM-R}I(D(dr),C(D(dr)){CBM-Q}1) Jp n$(255),d$(255):cx{CBM-R}54272: "" Rz f {$ee}D i{CBM-R}1 {CBM-@} f: n$(i),d$(i) N C(n$(i)){CBM-E}265,(B(53265){CBM-P}248){CBM-N}7 d{CBM-@} 430 kd{CBM-S}pr${CBM-R}"Q{CBM-G} {CBM-M}Q" d{CBM-U}tp${CBM-R}"Q{CBM-G}UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI{CBM-M}Q" {CBM-J}dBmd${CBM-R}"Q{CBM-G}B B{CBM-M}Q" {$ea}dLbt${CBM-R}"Q{CBM-G}JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK{CBM-M}Q" eVhd${CBM-R}"se8){CBM-N}7 1 {CBM-U}pr${CBM-R}"Q{CBM-G} {CBM-M}Q" F Btp${CBM-R}"Q{CBM-G}UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI{CBM-M}Q" Lmd${CBM-R}"Q{CBM-G}B B{CBM-M}Q" P Vbt${CBM-R}"Q{CBM-G}JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK{CBM-M}Q" {$f7} hd${CBM-R}"september/october 1989 rerun ntry is the number of programs on this disk ;h{CBM-R} followed by each filename Eh{CBM-C} second data item is run or sysxxxxx hF run if file is basic,boot or xxxxx if ml hP 6 {CBM-Y}hZ calendar 64/128,run Mh{$e4} word wonder,run {$e3}h{$ee} match games,run {$fa}h{$ef} 3-d {CBM-M}geoslides,run #. calendar 64/128,run /#8 word wonder,run @#b gantry,run r#l quikmat,run E#v maze run,run {$7f}#{$60} functional keys,run #E customizer,run 0 i{CBM-R}1 {CBM-@} 19: pr$;: 590: F!: 53265,27 L!d {$e5}!n sound routine here "x v{CBM-N}23,15: wm{CBM-R}80 {CBM-M} s1{CBM-R}15:s2{CBM-R}25:nl{CBM-R}16 4aN i{CBM-R}1 {CBM-@} f: n$(i),d$(i) {$60}aX C(n$(i)){CBM-E}nl {CBM-M} n$(i){CBM-R}H(n$(i),nl{CBM-Q}1){CBM-N}"*" Fa a - print first column of names - a d${CBM-R}"" {CBM-Z}a i{CBM-R}1 {CBM-@} f{CBM-Z}2 {CBM-Y}a{CBM-N} d$; Za{CBM-H} {CBM-+}s1)""J(ch$,i,1)" "n$(i) {$ee}a{CBM-V} 640:d${CBM-R}d${CBM-N}"" {$f4}aH bR - 13 {CBM-M} n$(i){CBM-R}H(n$(i),13){CBM-N}"*" X ( 400 n - print first column of names - _ d${CBM-R}"" O i{CBM-R}1 {CBM-@} f{CBM-Z}2 Y{CBM-N} d$; {CBM-H} ""J(ch$,i,1)" "n$(i) {CBM-D}{CBM-V} 590:d${CBM-R}d${CBM-N}"" {CBM-R}H XR -- then 2nd column of names --- {$e9}{CBM--} d${CBM-R}"" {$fd}{$e6} i{CBM-R}(f{CBM-Z}2{CBM-N}1) {CBM-@} ptember/october rerun 1989" e 540 Xe{$ea}pr${CBM-R}"Q{CBM-G} {CBM-M}Q" Ue{$f4}tp${CBM-R}"Q{CBM-G}UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI{CBM-M}Q" 2f{$fe}md${CBM-R}"Q{CBM-G}B " !{$ea}""; *!{$f4} tp$;: 590 g!{$fe} i{CBM-R}1 {CBM-@} 2: md$;: 590: _!"";hd$;: 590 K!:""; ! i{CBM-R}1 {CBM-@} 1: md$;: 590: !& bt$;: 590 {CBM-Y}!0 i{CBM-R}1 {CBM-@} 19: pr$;: 590: F!: 53265,27 L!d {$e5}!n sound routine here "x v{CBM-N}23,15: esurfaces,run i{$f8} geoinvaders,run %i the battle,run .i "" tgn i{CBM-R}1 {CBM-@} 1: md$;: 640: Egx bt$;: 640 gB i{CBM-R}1 {CBM-@} 19: pr$;: 640: gL wm{CBM-W}{CBM-E} 80 {CBM-M} 53265,27 {CBM-@}gV {CBM-X}g sound routine here LgZ 1,1000,1 Rg {$e2}g file list h{CBM-POUND} first e, * creates geos program 'geoslides' * C "put geos work disk in drive, hit shift": 653,1 dr{CBM-R}8:fi${CBM-R}"geoslides":ty${CBM-R}G(6):11 {CBM-W} hi{CBM-R}{CBM-J}(a{CBM-Z}256):15,"m-r"G(a{CBM-Q}hi{CBM-D}256)G(hi) N {CBM-K}#15,a$:a{CBM-R}F(a${CBM-N}G(0)): {$e7} 15,"u1:"2;0;tr;sc: 15,"u2:"2;0;tr;sc- then 2nd column of names --- +b{CBM--} d${CBM-R}"" ?b{$e6} i{CBM-R}(f{CBM-Z}2{CBM-N}1) {CBM-@} f ib{$f0} d$; Pb{$fa} {CBM-+}s2){CBM-+}19)""J(ch$,i,1)" "n$(i) b 640:d${CBM-R}d${CBM-N}"" b b{CBM-K}{$f9}m$ {CBM-S}b"m${CBM-W}"a"{CBM-A}m${CBM-E}G(64{CBM-N}f){CBM-M}280 Fb,p{CBM-R}F(m$){CBM-Q}64:"" {CBM-*}b6 d$(p){CBM-W}{CBM-E}"run" {CBM-M} 340 c@C(n$(p)){CBM-E}16{CBM-M}n$(p){CBM-R}H(nf {$f0} d$; *{$fa} {CBM-+}19)""J(ch$,i,1)" "n$(i) > 590:d${CBM-R}d${CBM-N}"" d x{CBM-K}m$:m${CBM-R}""{CBM-M} 280 S"m${CBM-W}"a"{CBM-A}m${CBM-E}G(64{CBM-N}f){CBM-M}280 ,p{CBM-R}F(m$){CBM-Q}64:"" {CBM-@}6 d$(p){CBM-W}{CBM-E}"run" {CBM-M} 340 K@C(n$(p)){CBM-E}12{CBM-M}n$(p){CBM-R}H(n$(p),12){CBM-N}"*" {$f6}j"load"G(34)n$(p)G(34)","dr$"":360 t B{CBM-M}Q" fbt${CBM-R}"Q{CBM-G}JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK{CBM-M}Q" Gfhd${CBM-R}"september/october rerun 1989 {$e9}f""; {$fa}f& tp v{CBM-N}4,9: v{CBM-N}5,0: v,1: v{CBM-N}3,32: v{CBM-N}3,33 !"B 1"{$e8} file list J"{$f2} first entry is the number of programs on this disk "{$fc} followed by each filename {CBM-H}" second data item is run or sysxxxxx {$e3}" run if file is basic and sys xxxxx if ml {$eb}" 8 ~"$ $,i{CBM-N}1,1) 0 h{CBM-R}16{CBM-D}(E(h$){CBM-Q}(h${CBM-E}"@"{CBM-P}h${CBM-W}"g"){CBM-D}(F(h$){CBM-Q}55)) G 3,G(h{CBM-N}(E(l$){CBM-Q}(l${CBM-E}"@"{CBM-P}l${CBM-W}"g"){CBM-D}(F(l$){CBM-Q}55)));:: 12 15,dr,15: 2,dr,2,"#": 3,dr,3,fi$: 3 F a{CBM-R}656: 4:db{CBM-R}a:a{CBM-R}660: 4:de{CBM-R}a:tr{CBM-R}18:sc{CBM-R}db: 6 {$f9} ps{CBM-R}de: 8:i{CBM-R}0 {CBM-@} 29: 9:d$(i){CBM-R}a$::tr{CBM-R}F(d$(1)) : 15,"b-p:"2;ps: 2 {CBM-K}#2,a$:a${CBM-R}H(a${CBM-N}G(0),1): a 2,G(a);: P d$(29): "working...":3,dr,3,fi${CBM-N}",u,w" a$: ".";: a${CBM-R}"-1" {CBM-M} 3: 17 P i{CBM-R}1 {CBM-@} C(a$): J(a$,i,1){CBM-R}" " {CBM-M} a${CBM-R}H(a$,i{CBM-Q}1){CBM-N}J(a$,i{CBM-N}1) : i{CBM-R}1 {CBM-@} C(a$) {SHIFT-POUND} 2:h${CBM-R}J(a$,i,1):l${CBM-R}J(a$(p),15){CBM-N}"*" cj (n$(p)),u(dr) actC(n$(p)){CBM-E}16{CBM-M}n$(p){CBM-R}H(n$(p),15){CBM-N}"*" Hc^ ds$(p){CBM-R}"boot" {CBM-M} {$fe} (n$(p)),u(dr) cH{$fe} (n$(p)),b0,u(dr): (E(d$(p))) {CBM-G}cR 53280,0: 53281,0 Ec{$7c}wm{CBM-R}N(2): wm{CBM-R}80 {CBM-M} {$fe}%: 490 Ucov{CBM-R}B(53265) {$ef}c 53265,B(53265){CBM-P} 247 d 53C(n$(p)){CBM-E}15{CBM-M}n$(p){CBM-R}H(n$(p),16){CBM-N}"*" e^"load"G(34)n$(p)G(34)","dr$",1" rHa${CBM-R}d$(p) BRa${CBM-R}a${CBM-N}G(13) {$7c}631,13:b{CBM-R}1{CBM-@}C(a$):631{CBM-N}b,F(J(a$,b,1))::198,10 {CBM-I} {CBM-J} 53280,0: 53281,0 Eov{CBM-R}B(53265) {CBM-*}{CBM-@} 53265,B(53265){CBM-P} 247 {$fc}{CBM-S} 53265,(B(53265){CBM-P}24$;: 640 g0 i{CBM-R}1 {CBM-@} 2: md$;: 640: 1g:"";hd$;: 640 7gd tgn i{CBM-R}1 {CBM-@} 1: md$;: 640: Egx bt$;: 640 gB i{CBM-R}1 {CBM-@} 19: pr$;: 640: gL wm{CBM-W}{CBM-E} 80 {CBM-M} 53265,27 {CBM-@}gV {CBM-X}g sound routine here LgZ 1,1000,1 Rg {$e2}g file list h{CBM-POUND} first ea~~~~~~~~~~~~{CBM-L}{$7d} {CBM-N}{CBM-I} L{$f3} {CBM-V}~~~~~~~~~~~~~~~sept/oct rr 89 2a menu 128 menu 64 geoslides 2 calendar 64/128 cal64/128 word wonder gantry gantry list gantry.ml quikmat quikmat.list match games maze run maze run.list2 maze.obj functional keys f-key.list key64 3-d surfaces geoinvaders ; the battle ml-battle customizer prt.obj ~ 120 dpi geos ~ run's checksum , "cal64/128.bas" by james r. schwartz v "place a formatted disk in drive... "1....c64":"2...c128":"which computer (1 or 2)";c {CBM-M} c{CBM-R}1{CBM-M}sa{CBM-R}49920:60 {CBM-H}( c{CBM-W}{CBM-E}2{CBM-M}20 {SHIFT-*}2 sa{CBM-R}4864 {$f0}< ea{CBM-R}sa{CBM-N}946:"poking program into memory..." f q{CBM-R}0:j{CBM-R}sa133,252,96,248,24,165,253,105,1,133,253,216,96,165,253,106,106,106 Y&106,24,41,15,105,48,162,0,228,177,240,6,201,48,208,2,169,32,133,158 {CBM-B}&{CBM-@}24,165,253,41,15,105,48,133,159,96,160,0,165,158,145,251,200,165 '{CBM-S}159,145,251,96,166,181,202,224,255,2013,19,166,180,202,134,180,224,0,208,244,162,12 G#,134,180,32,133,21,76,113,19,32,32,21,32,169,20,32,15,21,32,169,20 {CBM-P}#632,229,20,96,162,10,160,0,177,251,145,253,200,192,22,208,247,32,49 {$f7}#@21,202,208,239,96,162,10,160,0,145,251,200,192,22,208,249,713,146,51,76,86,231,17 c){$fe}42,52,197,102,127,18,163,68,93,103,241,34,59,69,214,119,25,35,180 )85,110,113,146,51,76,86,231,17,42,52,197,102,10,1,14,6,5,2,13,1,18 R)1,16,18,13,1,25,10,21,14,10,21,12,1,21,7,19,5,16,15,3,20,14,15,22 *4,5,3,31,28, 32,232,232,200,76 r {CBM-V} 181,19,160,0,189,57,22,153,39,5,232,200,192,3,208,244,169,0,133,177 H 24,169,19,101,150,133,39,32,232,21,169,43,133,251,169,5,133,252,32 {$e1} R 86,21,32,121,21,230,251,230,251,165,181,133,39,32,232,21,32,86,21 *!{CBM--} 32,121,21,32,24 Qf{CBM-R}3{CBM-M}f{CBM-R}0 {$ef}+ ),50259,198:50456,36:50460,194:50473,127:50477,198 y,50844,195:50852,198:50820,198:50417,196 U,{CBM-POUND}i{CBM-R}50824{CBM-@}50829:i,234: ,{CBM-R}"saving program to disk...":50815 {CBM-N},{CBM-C}"done!" 86,255,169,0,133,251,169,19,133,252,169,251,16{CBM-@}ea:x:j,x:q{CBM-R}q{CBM-N}x: ?p q{CBM-W}{CBM-E}113622{CBM-M}"error in data statements!": z 133,180,134,181,24,165,180,240,4,201,13,144,4,169,6,133,180,24,166 MD 181,224,100,144,4,162,89,134,181,32,153,20,32,15,21,169,1,32,189 N 20,169,112,141,249,4,169,110,141,14,5,169 8,2,162,99,134,181,166,156,202 q'{CBM-U}224,255,208,31,162,49,76,176,21,166,181,232,224,100,208,2,162,0,134 'B181,166,156,232,224,50,208,8,162,0,165,150,73,1,133,150,134,156,166 'L179,202,189,93,22,224,1,208,8,164,155,192,0,240,5,169,29,133,176 '(V962,32,62 >$j21,104,202,208,239,96,162,10,160,0,177,253,145,251,200,192,22,208 $t247,32,49,21,202,208,239,96,169,249,133,251,169,4,133,252,169,32 L$^32,189,20,96,169,113,133,251,169,5,133,252,169,32,162,6,160,20,145 %H251,136,208,251,72,32,62,21,31,30,31,30,31,31,30,31,30,31,245,147,149,160,141,143 B*&160,148,149,160,151,133,160,148,136,160,134,146,160,147,129,246,169 {CBM-POUND}*09,162,169,160,22,32,189,255,169,0,170,32,104,255,169,0,162,8,160 {$ee}*:0,32,186,255,169,0,133,251,169,19,133,252,169,251,163,20,166,180,134,179,32,184,21,230,176,169,1,133,177 S!{$e6} 169,114,133,251,169,5,133,252,160,0,162,1,228,254,240,6,232,200,200 {CBM-F}!{$f0} 200,208,246,162,1,134,39,32,249,21,32,232,21,32,86,21,32,123,21,32 "{$fa} 0,22,232,228,176,240,23,200,200,200,230,254,165,254 au(200):sc(1){CBM-R}0:sc(2){CBM-R}0 9 *** word wonder *** q 53280,0: 53281,1 z( "" R2 {CBM-T}14)"word wonder" < {CBM-T}14)"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}" {CBM-P}f "name of player #1";: n$(1) Sp "name of player #2";: n$(2) {SHIFT-+}z t{CBM-R}1 D " one moment ple,109,141,97,6,169,125,141 \X 118,6,169,64,162,20,157,249,4,157,97,6,202,208,247,169,33,133,251 {CBM-I} 169,5,133,252,169,93,162,8,160,0,145,251,160,21,145,251,72,32,62 {$eb} 21,104,202,208,240,162,0,189,105,22,157,73,5,232,224,22,208,245,165 2 181,201,5,169,28,76,202,21,32,184,21,162,0,164,254,200,192,8,208,2,160,1 O( 132,254,232,228,176,208,242,96,169,0,133,253,166,39,224,0,240,6,32 {CBM-L}({$ea}76,21,202,208,250,96,133,40,134,41,132,42,96,165,40,166,41,164,42 {$fc}({$f4}96,241,34,59,69,214,119,25,35,180,85,110,1104,202,208,241,96,169,249,133,251,169 z%R216,133,252,169,91,133,253,169,23,133,254,96,169,249,133,251,169 {CBM-K}%{$7c}4,133,252,169,127,133,253,169,22,133,254,96,24,165,253,105,22,133 {$e8}%253,165,254,105,0,133,254,24,165,251,105,40,133,251,165,252,105,0 0&2,127,160,22 +d32,216,255,96,67,65,76,54,52,47,49,50,56,255 w+nc{CBM-R}2{CBM-M}"saving program to disk...":5759:"done!": +x"modifying program...":f{CBM-R}0:i{CBM-R}sa{CBM-@}ea:v{CBM-R}B(i) +Bf{CBM-M}f{CBM-R}f{CBM-N}1 {CBM-W}+Lf{CBM-R}0{CBM-P}(v{CBM-R}32{CBM-A}v{CBM-R}189{CBM-A}v{CBM-R}76){CBM-M}f{CBM-R}1 {CBM--}+Vf{CBM-R}3{CBM-P}v{CBM-E}18{CBM-P}v{CBM-W}23{CBM-M}v{CBM-R}v{CBM-N}176:i,v:f{CBM-R}0:650 {$e9}+,201,8,208,223 j"169,1,133,254,32,62,21,160,0,76,35,20,169,0,133,208,32,228,255,201 "145,240,24,201,17,240,39,201,32,208,241,32,229,20,32,15,21,32,209 Z"20,32,32,21,32,209,20,96,166,180,232,134,180,224,13,208,7,162,1,134 #"180,32,156,21,76,1ase." N 620 !X q{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}200){CBM-N}1 5 au(q){CBM-R}1 {CBM-M} 120 a au(q){CBM-R}1 o w${CBM-R}rw$(q) x "" P{CBM-N} {CBM-T}14)"word wonder" {CBM-H} {CBM-T}14)"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}" {CBM-F}{CBM-V} :n$(1)" : "sc(1)" "n$(2)" : "sc(2)" VH ::"your turn "n$(t) {$e5}R a${CBM-R}H(w$,1) {$f6}{CBM--} b${CBM-R}J(w$,2,1) {$e6} c0,144,7,233,50,162,0,76,128,19,162,1,133,156,134,150,170 Y 189,7,22,162,0,228,150,240,4,106,106,106,106,133,178,41,8,133,155 A{CBM-N} 165,178,41,7,133,254,162,1,228,180,240,13,134,179,138,72,32,210,21 {CBM-H} 104,170,232,76,160,19,162,0,160,1,196,180,240,7,2*** 65 words *** b${$f8} ulcer,table,night,fight,clash,crazy,woven,woman,chase,clasp $ champ,chain,think,ivory,tries,tribe,train,party,large,asked F$ would,peril,daisy,daily,hands,doing,times,great,cruel,stand % death,white,black,sight,spoke,chorry "n$(t)" you missed": t{CBM-R}1 {CBM-M} t{CBM-R}2: 550 0! t{CBM-R}2 {CBM-M} t{CBM-R}1: j!&"the word was: "w$ E!0{CBM-K} a$: a${CBM-W}{CBM-E}G(13) {CBM-M} 560 O!: 120 !d:"you got it "n$(t) E!nsc(t){CBM-R}sc(t){CBM-N}1: sc(t){CBM-R}20{CBM-M} "you won! "n$(t): !x{CBM-K} a$: a${CBM-W}{CBM-E}G(13) {CBM-M} 600 {$ea}!B 120 {$f9}!L rw$ 5" a{CBM-R}0 {CBM-M} a{CBM-R}1:"gantry.ml",8,1 . 49152 geoslides 2 calendar 64/128 word wonder ${CBM-R}J(w$,3,1) {$f0} d${CBM-R}J(w$,4,1) ){$fa} e${CBM-R}J(w$,5,1) =""a${CBM-N}" "; hg{CBM-R}1{CBM-@}5 r""; [" g$ K,l1${CBM-R}H(g$,1) {$7d}6l2${CBM-R}J(g$,2,1) @l3${CBM-R}J(g$,3,1) {CBM-K}jl4${CBM-R}J(g$,4,1) {CBM-W}tl5${CBM-R}J(g$,5,1) H^ *** checks *** {$e5}H l1${CBM-R}a$ {CBM-M} ""a$;:390 R l1${CBM-R}b$ {CBM-A} l1${CBM-R}c a this listing #2 creates (and should not be called) gantry v by colin adams R 8,8,8,"gantry.ml,p,w" ct{CBM-R}0:"" {SHIFT-POUND} a$: a${CBM-R}"-1" {CBM-M} 8::"all done!": M "reading line "{CBM-N}D(ct):ct{CBM-R}ct{CBM-N}1 {$e1} C(a$){CBM-W}62 {CBM-M} 55 b${CBM-R}J(a$,1,20){CBM-N}J(a$,22,209*c885232085c0a9a0a005*995404996d04997d0499 JF 940499a60499bb0499cf*0499e20499f704990a05*991f0599320599480599 {CBM-P}G 59059970059981059998*0599a905993806994906*99600699710699880699 {$f4}H 990699af0699c20699d7*0699ea0699ff06991207*992607993b07994d0799 9 Ike,folks,given,sieve,scout j% about,sling,fling,cling,armor,sword,frame,flame,pulse,phony %* piano,pasty,party,deals,drawn,drink,drift,bingo,cream,curly N%4 cabin,clean,chant,rainy,ready,relay,eight,repay,crush,relax &> truck,cluck,click,clown (200) "V e{CBM-R}1{CBM-@}200 " rw$(e) " e "" D" tacos,plate,bride,water,bread,money,flake,boats,shock,phone {CBM-+}"{CBM-POUND} smile,shirt,pants,mouth,words,thing,knife,choir,wound,found J"{CBM-R} fixed,index,tried,quilt,wrote {$e1}"{CBM-C} *** 25 words *** ##F alien,blascb003ee07d060eeafc8*adafc8cdb0c8f00160a9 A"Q 008dafc8ad00dcc97ed0*062043c14cc4c1c97dd0*06204ec14cc4c1c96ed0 {CBM-+}"R 092043c120a3c14cc4c1*c96dd009204ec120a3c1*4cc4c1c96fd00320a3c1 {$eb}"S 60ad15d02910c910f017*20c0c2ad15d009108d15*d0ad06d08d08d0ad07d0 0#T $ {CBM-A} l1${CBM-R}d$ {CBM-A} l1${CBM-R}e$ {CBM-M} ""l1$;: 390 ({$7c}" "; f l2${CBM-R}b$ {CBM-M} ""b$;: 420 {$7f} l2${CBM-R}a$ {CBM-A} l2${CBM-R}c$ {CBM-A} l2${CBM-R}d$ {CBM-A} l2${CBM-R}e$ {CBM-M} ""l2$;: 420 " "; {CBM-+}{CBM-@} l3${CBM-R}c$ {CBM-M} ""c$;:450 {CBM-*}{CBM-S} l3${CBM-R}a$ {CBM-A} l3${CBM-R}b$ {CBM-A} l3${CBM-R}d$ {CBM-A} l3${CBM-R}e$ {CBM-M} ""l3$;: 450 {$e9}{CBM-U}" "; B l4${CBM-R}d$ {CBM-M}){CBM-N}J(a$,43,20) i{CBM-R}1 {CBM-@} 30 g c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) I# h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 ( l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 {CBM-T}- by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); {CBM-S}2 : 10 J7 C(a$){CBM-W}21 {CBM-M} b${CBM-R}a$: 70 {$fd}< C(a$){CBM-W}42 {CBM-M} b${CBM-R}H(a$,20){CBM-N}I(a$,(C(a$){CBM-Q}21)): 7 6407997407998d0788f0*034c12c060a000b122f0*0720d2ffc84c87c060a9 {$7e} J 098d15d0a91e8d00d0a9*648d01d0a9388d10d0a9*3c8d06d0a9b48d07d060 C K ad01d0c93c9003ce01d0*60ad01d0c9dcb003ee01*d060eeadc8adadc8cdae !L c8f00160a9008dadc8ad*01dcc9fed00620b2c04c*34,crown,drown,mound,first,third,burst r&h sixth,brain,grope,grape,mixer,crane,rouge,screw,drake,flies &r pride,while,wheat,claim,coins,chump,crumb,fairy,flour,weary V&\ waive,champ,waken,waxed,micro,laces,trace,brace,braid,volts 'F story,years,v t,stick,skirt,board,codes,mates,quiet,quite,pucks E#P torch,match,radio,cloth,races,roses,black,holds,hands,world {CBM-M}#Z brief,tiger,chest,magic,glare,witch,frown,touch,wagon,store {$e9}#{$e4} swore,light,might,month,movie,films,stand,watch,roles,names ${$ee} 8d09d060adfb07c9c2d0*04eefb0760cefb0760ad*15d02902c902d027ee02 U#U d0ee02d0ee02d0ee02d0*ee02d0ad10d02902c902*f012ad02d0c9ffd008ad {SHIFT-@}#V 10d009028d10d04c1dc2*ad02d0c95090f6ad15d0*29fd8d15d0ad10d029fd ~#W 8d10d0ad15d02910c910*d027ce08d0ce08d0ce08*d0ce0 ""d$;: 480 @ L l4${CBM-R}a$ {CBM-A} l4${CBM-R}b$ {CBM-A} l4${CBM-R}c$ {CBM-A} l4${CBM-R}e$ {CBM-M} ""l4$;: 480 j V" "; G l5${CBM-R}e$ {CBM-M} ""e$;:510 {$ea} l5${CBM-R}a$ {CBM-A} l5${CBM-R}b$ {CBM-A} l5${CBM-R}c$ {CBM-A} l5${CBM-R}d$ {CBM-M} ""l5$;: 510 {CBM-N} {$f4}" "; {$e3} {$fe} l1${CBM-R}a$ {CBM-P} l2${CBM-R}b$ {CBM-P} l3${CBM-R}c$ {CBM-P} l4${CBM-R}d$ {CBM-P} l5${CBM-R}e$ {CBM-M} 580 {$eb} g !:"so0 (a b${CBM-R}H(a$,20){CBM-N}J(a$,22,20){CBM-N}I(a$,C(a$){CBM-Q}42) <f i{CBM-R}1 {CBM-@} C(b$){CBM-Z}2 Ik c${CBM-R}J(b$,(i{CBM-D}2){CBM-Q}1,2):h${CBM-R}H(c$,1):l${CBM-R}I(c$,1) p h{CBM-R}E(h$): h${CBM-E}"9" {CBM-M} h{CBM-R}F(h$){CBM-Q}55 {CBM-Z}u l{CBM-R}E(l$): l${CBM-E}"9" {CBM-M} l{CBM-R}F(l$){CBM-Q}55 Ez by{CBM-R}h{CBM-D}16{CBM-N}l:8,G(by); P_ : 10 D gantry ml %E 00c04cb9c8a9698522ac1c9fdd00720bdc04c m!M 34c160c9eed00920b2c0*2013c14c34c1c9edd009*20bdc02013c14c34c1c9 !N efd0032013c160ad15d0*2902c902f01720a6c2ad*00d08d02d0ad01d08d03 W!O d0ad15d009028d15d060*adf807c9c0d004eef807*60cef80760ad07d0c93c "P 9003ce07d060ad07d0c9*d {CBM-W}alid,vails,vault,under,lords,rings,blitz,guide z'P joust,jerky,winds,means,waste,thank,tramp,trade,traps,trays {$7e}'Z nails,purse,other,tales,tails ' *** 200 words *** n hant,rainy,ready,relay,eight,repay,crush,relax &> truck,cluck,click,clown8d0ce08d0ad10d0 d$X 2910c910d012ad08d0c9*00d008ad10d029ef8d10*d04c31eaad08d0c90ab0 $Y f6ad15d029ef8d15d0ad*10d009108d10d04c31ea*78a9d38d1403a9c18d15 N$Z 035860a900a0189900d4*88d0faa91f8d18d460a9*a88d00d4a9018d01d4a9 %{$7b} 998d05d4a9c98d06d4a9*018d079a700*d96d00795554d96d0079 =. a700daad00796700daad*007aa700d82d00700700*00000000000000000000 . 000000d00d00782700da*ad007aa700d96d007aa7*00d9ad00796700d95554 G. 796700d9ad007aa700d9*6d007aa700daad007827*00d00d00000000000000 / 000000000000388d10d0ad*b7c8c904d05f68684c3f f+ c6adb6c8c90ad053ad15*d029e509048d15d0ad10*d009048d10d0ae06d0ac + 07d08e04d08c05d0200e*c3ad10d0090429fd8d10*d0eeb8c8adb8c8200fc6 P+ a200a0211820f0ff2085*c020d8c5a9388d10d0ad*b8c8c904d00568684c3f , c660a26424001*aa800166000196000096 41{CBM-POUND} 0000980000a800002000*00000000000000009800*0258000a560009558002 Y1{SHIFT-POUND} 56802a5a0026a90026a6*00959580a655a829569a*a9965595a5966565a6a5 {CBM-V}1{CBM-N} 95aa15968806a6800a66*0002580002580000a000*14000000009800005600 2{CBM-Q} 009a00009800002 260c93fb005a9*50a00460c947b005a978 o( a00460c94fb005a9a0a0*0460c957b005a9c8a004*60c95fb005a9f0a00460 ( c967b005a918a00560c9*6fb005a940a00560c977*b005a968a00560c97fb0 Y( 05a990a00560c99fb005*a930a00660c9a7b005a9*58a00660c9afb005a980 ) a00660 C7*c22087c220c8c02059c1 #4{CBM-W} 2037c32096c32089c420*bec4ad1ed08db6c820f3*c44c1cc96020 ,4{CBM-H} -1 * 00000000931c204441 2{CBM-Z} 4d4147453a204e4f4e45*20202020202020202020*202044414d4147453a20 R2{CBM-S} 4e4f4e45004d494e4f52*20004d454449554d0053*4556455245005343524117d4a9218d04d460*a9168d07d4a91b8d08d4 x%{$7c} a9098d0cd4a9008d0bd4*a9818d0bd460a9168d0e*d4a91b8d0fd4a9098d13 %{$7d} d4a9008d12d4a9818d12*d460a946a003a2098d07*d48c08d48e0cd4a9008d {$e2}%{$7e} 0bd4a9818d0bd460a946*a003a2098d0ed48c0fd4*8e13d4a9008d12d4a981 '&{$7f} 8d1 0000d007*00782d00daa7007aad00*d967007aad00da670079 q/{CBM-K} 6d15556700796d00da67*007aad00d967007aad00*daa700782d00d0070000 /{CBM-I} 00000000000000000000*0000700d00d827007aad*00daa700796d00daa700 {SHIFT-+}/{CBM-T} 7a6d00d96715556d00d9*67007a6d00daa700796d*00daa7007aad00d8205ec6a9c68d*fd07205ec6a9c78dfd07*205ec6205ec6205ec6ad z, 15d029df09018d15d0ad*10d009108d10d0a9c48d*fd07a9008d1ed060a264 , 205ec6eefa07adfa07c9*c7d0f1a2ff205ec6205e*c6205ec6ad15d029fb09 {$e4}, 088d15d0ad10d029f88d*10d0a9c48dfa07a9008d*1ed060c901d00900026*00001400002428000895*08009626081616261824 h2{CBM-D} 15000826098008258000*09400282000260000080*0000000000931c204441 2{CBM-Z} 4d4147453a204e4f4e45*20202020202020202020*202044414d4147453a20 R2{CBM-S} 4e4f4e45004d494e4f52*20004d454449554d0053*45564552450053435241c9b7b005a9a8a0*0660c9bfb005a9d0a006*60c9c7b005a9f8a00660 C) c9cfb005a920a00760c9*d7b005a948a00760a970*a00760ad15d02904c904 {CBM-POUND}) f00160eeb1c8adb1c8cd*b2c8d01feefa07adfa07*c9c8d015a9c58dfa07ad {$ed}) 15d029fb8d15d0ad10d0*29fb8d10d060ad15d029*20c920f0016 {SHIFT-*}l{CBM-O}H{SHIFT-POUND}I"{SHIFT-POUND}H# {SHIFT-*}{SHIFT-POUND} tM{$7d}{CBM-+}{CBM-F}O{$e2}{$f7} 2hyP{SHIFT-POUND}8i{$60}Q{CBM-P}BW{$ea}~&;mDT{$f0}l{SHIFT-*}{$60} {CBM-E}"{$f0} R~Hl{SHIFT-*}{$60}{SHIFT-POUND}P{SHIFT-POUND} P{SHIFT-POUND}DP{SHIFT-POUND}8P{SHIFT-POUND}<P{SHIFT-POUND}{CBM-H}P{$60}{CBM-Z}PI<NP{$60}{CBM-Z}PI{CBM--}{CBM-A}{$ee}P{$60}{$ee}{CBM-Z}H{CBM-Z}{CBM-Z}HM{CBM-S}H{$f0}{$60}{SHIFT-POUND} {CBM-Z}H{CBM-Z}{CBM--}I{$fe}P {CBM-R}{SHIFT-*}l4AI{$fd}P {CBM-X}{SHIFT-*}l4A{$60}I{$ee}P {CBM-R}{SHIFT-*} Al2d460a9b0a007a20a*8d07d48d0ed48c08d48c*0fd48e0cd48e13d4a900 L& 8d0bd48d12d4a9818d0b*d48d12d460ad1fd08db5*c82902c902d052ad03d0 {CBM-E}& 20ebc385228423a000b1*22c9a0f005c8c027d0f5*a9209122ad10d02902c9 {$f6}& 02d008ad10d009048d10*d0ad02d0ac03d08d04d0*8c05d0ad700 0{CBM-@} 700d0000000000000000*00000000000000000000*00000000000000000000 E0{CBM-G} 00000000000000000000*aa000000000000000000*00000000000000000000 {CBM-N}0{CBM-+} 00000000000000000000*00000000000000000000*000000a0000258000158 {$ef}0{CBM-M} 00015800026a00099600*0956800a5a400299a99185 )- 22a9c8852360c902d009*a9988522a9c8852360c9*03d009a99f8522a9c885 N- 2360a9a68522a9c88523*60a9008d15d08db7c88d*b8c8a200205ec6205ec6 {CBM-W}- 205ec6205ec6205ec64c*0dc9a00088eaead0fbca*d0f66000000000000070 {$f8}- 0700d82d007aa700daad*00796700daad0 3{CBM-P} 5020000096009600ff00*ff00000000a9008d21d0*8d20d0a8b969c6990030 \3{CBM-A} c8d0f7b969c7990031c8*d0f7a9c08df807a9c48d*f907a9c58dfa07a9c28d {CBM-K}3{CBM-E} fb07a9c48dfc07a9c58d*fd07a90c8d25d0a90b8d*26d0a9ff8d1cd0a906a0 {$e6}3{CBM-R} 009927d0c8c00890f820*03c02093c0206ac22070eeb3c8ad 2* b3c8cdb4c8d01feefd07*adfd07c9c8d015a9c58d*fd07ad15d029df8d15d0 W* ad10d009208d10d060ad*b6c8c911d04bad15d029*ec09208d15d0ae00d0ac {CBM-C}* 01d08e0ad08c0bd0200e*c3ad10d029df09108d10*d0eeb7c8adb7c8200fc6 + a200a0091820f0ff2085*c020a0c5a94AI{$ed}P {CBM-X}{SHIFT-*} Al4AI{$ef}P A{$60}{CBM-Z}P)I{$f0} {CBM-+}B{CBM-Z} PP{CBM-Z}PP{CBM-Z}PP{$60}{CBM-Z}{$f8}I{SHIFT-*}P{$ee}{$f8}{$60}N{$f8}{$60}{CBM-Z}PI<NP{$60}{CBM-Z}PI{CBM--}{CBM-A}{$ee}P{$60}{$ee}{CBM-P}H{CBM-Z}{CBM-P}HM{CBM-A}H{$f0}{$60}{SHIFT-POUND} {CBM-P}H{CBM-Z} {CBM--}I{$7e}P cAlDAI{$7d}P nAlDAINP cA {CBM-T}AlDAIMP nA {CBM-T}AlDAIOP {CBM-T}A{$60}{CBM-Z}P)I{$f0} {SHIFT-*}B{CBM-Z}PP{CBM-Z}PP{CBM-Z}PP{$60}{CBM-Z}{$fb}IBP{$ee}{$fb}{$60}N{$fb}{$60}{CBM-Z}P)IP'{$ee}P{$ee}P{$ee}P{$ee}P{$ee}P{CBM-Z}P)I{$f0}{CBM-Z}PI~P15d029fd0904 ;' 8d15d0ad10d029fd8d10*d020dac2a9008d1fd060*adb5c82910c910d04bad ' 09d020ebc385228423a0*27b122c9a0f00388d0f7*a9209122ad10d02910c9 E' 10f008ad10d029df8d10*d0ae08d0ac09d08e0ad0*8c0bd0ad15d029ef0920 ( 8d15d0ad10d009108d10*d020f4c v uv*z &{SHIFT-POUND} &{CBM-+} {CBM-+}u{CBM-POUND})v{SHIFT-POUND}u{CBM-G}EE{CBM-+}{CBM-G}{CBM-N}{CBM-+} F x x v & $( &&$ &% @ {$60} damage: none damage: none minor medium severe scrap ~ ~ {SHIFT-POUND} !P P{CBM-POUND}{CBM-O}IF 0HP{$f7}{CBM-O}IG 1HP{$f7}{SHIFT-POUND}{SHIFT-*}{$f8}{SHIFT-POUND}D{$f9}{SHIFT-POUND}E{$fa}{SHIFT-POUND}B{$fb}{SHIFT-POUND}D{$fc}{CBM-L}HIPk{CBM-Z}P){$ec} P{CBM-S} P{CBM-D}P PP C{CBM-Z}P){CBM-*}P{$ee}{CBM-Y}H{CBM-Z}{CBM-Y}H F{CBM-I} {$f0}~ {SHIFT-*} E{SHIFT-POUND}8P{CBM-Z}{CBM-Y}HIP_HHl?F{CBM-Z}{CBM-L}HI Ps{CBM-Z}P){$e5}P{CBM-Z}PP{CBM-S}P{CBM-D}PPP C{CBM-Z}P){$fd}P{$ee}{CBM-U}H{CBM-Z}{CBM-U}H F{CBM-I} ! {$f0}~ {SHIFT-*} XE{SHIFT-POUND}8P{CBM-Z}{CBM-U}HIPHHl?F{$60}{CBM-I}D ^F{SHIFT-POUND}F{$fd} ^F{SHIFT-POUND}G{$fd} ^F ^F ^F{CBM-Z}P){CBM-*}P{CBM-Z}PP{SHIFT-POUND}D{$fd}{SHIFT-POUND} P{$60}{CBM-I}D ^F{$ee}{$fa}{CBM-Z}{$fa}IGP{$f1}{CBM-I}~ ^F ^F ^F@5@ L(.){CBM-R}5 {CBM-M} "switch monitor to 40-col. mode.... {CBM-Y}@ {$fe}%:n$(11),tp$(25),tr$(25),t$(25),u$(25),q(25),t(25):t{CBM-R}1{CBM-@}8:jx(t),jy(t)::2592,1:i{CBM-R}4864:5122,0:ii{CBM-R}49176:dg{CBM-R}5:xt{CBM-R}160:yt{CBM-R}100 {$de}@ t{CBM-R}1{CBM-@}9:dt$(t){CBM-R}"03:00.00":sl$(t): a ** data for screen dis{CBM-Z}PPlB{CBM-Z}PIp{$f6}{CBM-Z}P){$fd}P{CBM-Z}P){$fd}P{CBM-Z}P)IP'NPNPNPNPNP{CBM-Z}P)IP{CBM-Z}PI P{CBM-Z}P){$ef}Pl1{$ea}{CBM-Z}PI {CBM-A}{$f6}{CBM-Z}P){$ef}P{CBM-Z}PPl1{$ea}X{SHIFT-POUND}S{SHIFT-POUND}Ax{$60}{SHIFT-POUND} TP{$fa}{SHIFT-POUND}T{$60}{SHIFT-POUND}{CBM-POUND} T{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND}IT{SHIFT-POUND}T{SHIFT-POUND}!T{$60}{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND} T{SHIFT-POUND}T{$60}{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND} T{SHIFT-POUND}T{$60}{SHIFT-POUND}f {CBM-I}TTT{SHIFT-POUND} T{SHIFT-POUND}T{$60}{SHIFT-POUND}f h": 1,0,1,"games":dl${CBM-R}G(27){CBM-N}"d" <c {$de}0,1:p{CBM-R}1224:cj${CBM-R}"" {CBM-POUND}c j{CBM-R}p{CBM-Q}40{CBM-@}p{CBM-Q}1:j,100:bl${CBM-R}bl${CBM-N}" ":lt${CBM-R}lt${CBM-N}"{CBM-@}"::t{CBM-R}5{CBM-@}20:ii,0,t,0:cj{CBM-R}cj{CBM-N}1{CBM-N}(cj{CBM-R}12){CBM-D}12:J(cj$,cj,1)lt$;::{$fe}& {CBM-C}c x{CBM-R}0{CBM-@}39:y{CBM-R}0{CBM-@}15 {$e7}c {$e6}x,y:z{CBM-R}p{CBM-N}x{CBM-N}40{CBM-D}y:P(2){CBM-R}1{CBM-M}z,232:Uz,100 {$f3}c y,x:{$fe}& jd gv2o4i":q5${CBM-R}"qcv2o5i" 5f$ p6${CBM-R}"dv3o5qdqf":p7${CBM-R}"v1o2qgqav3o5qgqdv" Kf% p8${CBM-R}"v2o5qe":p9${CBM-R}"v1o3qgqav3o6qgqdv2o5idv1o4qbhc" f& v1${CBM-R}p1${CBM-N}p2${CBM-N}q1$:v2${CBM-R}p1${CBM-N}p2${CBM-N}p3$:v3${CBM-R}p1${CBM-N}p4$ Of' v4${CBM-R}p6${CBM-N}p7$:v5${CBM-R}q5${CBM-N}p6${CBM-N}p8${CBM-N}p9$:v6${CBM-R}p6${CBM-N}p8${CBM-N}p7$ {$fc}f( n$(1){CBM-R}v1${CBM-N}"qgqaqbhc":n$(2){CBM-R}v1$ r{SHIFT-POUND}E{$fd}{SHIFT-POUND}%P{SHIFT-POUND}&P{SHIFT-POUND}~P{SHIFT-POUND} 'PH{SHIFT-*}{$f8} {SHIFT-*} {SHIFT-*} JB WB B H{SHIFT-*} yA 7C C D {CBM-V}D{CBM-Z}P{CBM-L}H {$f3}DlI{$60} ZM YGuM YG ZM Z{CBM-M} YM Z{CBM-M} Z{CBM-Z} X' P {CBM-N} x x x J v z@@{CBM-N}F {CBM-POUND} x {CBM-Z}P){$fb}P{CBM-Z}P){$f8}P{SHIFT-POUND}D{$fa}{SHIFT-POUND} P{$60}IP{SHIFT-POUND}"{SHIFT-POUND}H#{$60}IP{SHIFT-POUND}"{SHIFT-POUND}H#{$60}IP{SHIFT-POUND}"{SHIFT-POUND}H#{$60}{SHIFT-POUND}{CBM-+}"{SHIFT-POUND}H#{$60}{SHIFT-POUND} P{CBM-Y}H{CBM-U}H{CBM-I} ^F ^F ^F ^F ^Fl I {$ea}{$ea}P{$fb}JP{$f6}{$60} P X- Z{CBM-M} Z{CBM-Z} YG Z{CBM-Z} Y{CBM-M} YM YutYM Y{CBM-M} Z{CBM-Z} YG Z{CBM-Z} Z{CBM-M} X- P P X' Z{CBM-Z} Z{CBM-M} YM Z{CBM-M} Y{CBM-Z} YG YutYG Y{CBM-Z} Z{CBM-M} YM Z{CBM-M} Z{CBM-Z} X' P play and music ** %a t{CBM-R}5{CBM-@}9:ch$(t): za t{CBM-R}0{CBM-@}5:mc$(t)::t{CBM-R}1{CBM-@}3:nc$(t)::co${CBM-R}"23456789" a 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,1,-1 {$f6}a * shapies *,* colours *,* letters *,* numbers *,* pointer *,* diangie *,* perpend *,* curlies *,* rectang * #b {CBM-I}TTT{SHIFT-POUND} T{SHIFT-POUND}T{$60}{SHIFT-POUND}{CBM-A} {CBM-I} TTTTTT{SHIFT-POUND} TT{SHIFT-POUND}TT{$60}{CBM-Z}P{CBM-J}H)IPr{CBM-Z}P {$eb}C"# {CBM-E}"I {$f0}H{SHIFT-*}'P{$f5}{SHIFT-POUND} "{CBM-Z}P)IP{CBM-Z}PP{CBM-Z}P{CBM-D}PPP{CBM-Z}P){$fd}P{CBM-Z}P){$fd}P ZB{SHIFT-POUND} P{$60}{CBM-Z}{CBM-J}H)IPk{CBM-Z}P {$eb}C"# '{CBM-E}"I {$f0}P{$f7}{SHIFT-POUND} "{CBM-Z}P)I{$f0}{CBM-Z}P){CBM-*}P{CBM-S}P{CBM-D}P PP{CBM-Z}P){$ef} P{CBM-Z}PP {$f4}B{$60}I?{CBM-A}{SHIFT-POUND}p {$60}Igyg$(1){CBM-R}"*************":yg$(2){CBM-R}"* your game *":yg$(3){CBM-R}"* selection *":yg$(4){CBM-R}yg$(1) Ed ** music strings ** d m$(1){CBM-R}"v1hav2qaqcv1hgv3iaibiaib" {CBM-P}d m$(2){CBM-R}"v1hdv2qbqdv1hfv3iaicieig" Td m$(3){CBM-R}"v1hdv2qeqfv1hfv3icidieig" {$fb}d m$(4){CBM-R}"v1hav2ieqfidv1hfv3icid{CBM-N}"v2o"{CBM-N}q2$ %g) n$(3){CBM-R}v2${CBM-N}q2$:n$(4){CBM-R}v2${CBM-N}"5h"{CBM-N}v4${CBM-N}q3$ ig* n$(5){CBM-R}v2${CBM-N}"6i"{CBM-N}v6${CBM-N}"2o5idv"{CBM-N}q3$ {$7e}g+ n$(6){CBM-R}v3${CBM-N}"h"{CBM-N}p5${CBM-N}"hd"{CBM-N}v5$:n$(7){CBM-R}v3${CBM-N}"w"{CBM-N}p5${CBM-N}v5$ {SHIFT-@}g, n$(8){CBM-R}n$(6):n$(9){CBM-R}n$(5):n$(10){CBM-R}q4${CBM-N}p4${CBM-N}"q"{CBM-N}p5${CBM-N}"he"{CBM-N}v5$ Vg- *** set variables *** h. {$e7}1,2:a{CBM-R}{CBM-Q}1:x{CBM-R}19:y{CBM-R}15:cgame ** Hi4 {$fe}&:{$de}0:{$e7}0,1:{$e7}4,1:{$fe}0,0,39,24:49176,0,21,1:dl$" number of players (1 or 2)":{CBM-K}{$f9}y$:np{CBM-R}E(y$):np{CBM-W}1{CBM-A}np{CBM-E}2{CBM-M}52 i5 np{CBM-R}2{CBM-M}t{CBM-R}1{CBM-@}2:dl$"name of player #"t;:np$(t): {$fb}i6 49176,0,21,0:"level: ( easy, hard or xtra hard)":{CBM-K}{$f9}y$:tg{CBM-R}T("ehx" P X- Z{CBM-M} Z{CBM-Z} YG Z{CBM-Z} ZG YMuG YM ZG Z{CBM-Z} YG Z{CBM-Z} Z{CBM-M} X- P P X' Z{CBM-Z} Z{CBM-M} YM Z{CBM-M} ZM YGuM YG ZM Z{CBM-M} YM Z{CBM-M} Z{CBM-Z} X' P {CBM-N} x x x J v z@@{CBM-N}F {CBM-POUND} x"__^^^","NNVMM","{CBM-Q}{CBM-W}{CBM-E}{CBM-R}{SHIFT-+}","IKJUU","{CBM-O}{CBM-I}{CBM-U}{CBM-K}{CBM-L}" Db v2o2t4u8v1o4t5v3o3t8,v2o2t0v1o4t2v3o3t5,v2o5t0v1o4t1v3o2t4 {CBM-T}b v2o5t0v1o4t9v3o2t8,v2o5t0v1o2t6v3o3t0,v2o4t1v1o4t7v3o2t6 Ub v1t5v2t0v3t8u8,v1t6v21v3t7u8,v1t1v2t5v3t6u8 c {$e7}4,1:{$e7}0,1:{$e7}1,1:{$de}1,1: 1,0,0,"matc{CBM-A}{SHIFT-POUND}X {$60}Io{CBM-A}{SHIFT-POUND} {$60}Iw{CBM-A}{SHIFT-POUND}H {$60}I_{CBM-A}{SHIFT-POUND}{$f0} {$60}IG{CBM-A}{SHIFT-POUND} {$60}IO{CBM-A}{SHIFT-POUND}@ {$60}IW{CBM-A}{SHIFT-POUND}H {$60}I{$7f}{CBM-A}{SHIFT-POUND} {$60}I{CBM-A}{SHIFT-POUND}0 {$60}I{CBM-M}{CBM-A}{SHIFT-POUND}x {$60}I{CBM-P}{CBM-A}{SHIFT-POUND} {$60}I{CBM-Y}{CBM-A}{SHIFT-POUND}{CBM-POUND} {$60}I{CBM-B}{CBM-A}{SHIFT-POUND}P {$60}IG{CBM-A}{SHIFT-POUND}{$f8} {$60}IO{CBM-A}{SHIFT-POUND} {$60}IW{CBM-A}{SHIFT-POUND}h {$60}{SHIFT-POUND}P {$60}{CBM-Z}P)I{$f0}{$60}{$ee}{CBM-E}H{CBM-Z}{CBM-E}HM{CBM-R}HP{$ee}{$fa}{CBM-Z}{$fa}IHP{SHIFT-POUND}E{$fa}{CBM-Z}P){$fb}P{CBM-Z}P){$fb}P{$60}{CBM-Z}P) I {$f0}{$60}{$ee}{CBM-W}H{CBM-Z}{CBM-W}HM{CBM-H}HP{$ee}{$fd}{CBM-Z}{$fd}IHP{SHIFT-POUND}E{$fd}{CBM-Z}P){CBM-*}P{CBM-Z}P P{$60}{CBM-Z}ieig" e n$(0){CBM-R}"v1o2hghfhehdqcqgqaqbhc" fe p1${CBM-R}"v1o2hgv2o4i":p2${CBM-R}"aqcibv1o2hf" We q1${CBM-R}"hev2o4qcv1o2hdqc":q2${CBM-R}"5hdv1o2qgqaqbhc" {CBM-Z}e! p3${CBM-R}"v3o5wcv1o2hev2o4qcv1o2hdqcv2o":q3${CBM-R}"1o2qbhc" {CBM-*}e" p4${CBM-R}"dqfiev1o4hfv3o5wcv1o3":p5${CBM-R}"ev2o5qcv1o3" f# q4${CBM-R}"v1o4igsfies{CBM-R}1:z1{CBM-R}7:x1{CBM-R}18:y1{CBM-R}14:d{CBM-R}1:s{CBM-R}{CBM-Q}1:w{CBM-R}3584:co{CBM-R}8 ;h/ t{CBM-R}0{CBM-@}50:d$:t{CBM-N}i,Q(d$)::4891 wh0 ** sprite maker ** h1 t{CBM-R}0{CBM-@}20:u{CBM-R}0{CBM-@}2:v{CBM-R}w{CBM-N}u{CBM-N}t{CBM-D}3:t{CBM-E}15{CBM-M}x4{CBM-R}0:Uu{CBM-R}2{CBM-M}x4{CBM-R}240:Ux4{CBM-R}255 Ph2 v,x4:u,t:{$fe}1,2:{$fe}1,0,12,1,1,1:{$fe}2,0,16,1,1,1:{$de}1,1:67 {$f5}h3 ** players and type of ,y$):tg{CBM-M}55:U54 j7 tg{CBM-R}tg{CBM-Q}1 j8 th{CBM-R}tg:78 ;j9 ** letter & number generator ** {$7b}j: k2{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}k1){CBM-N}k3:ch$(g){CBM-R}"":q{CBM-R}0{CBM-@}4:ch$(g){CBM-R}ch$(g){CBM-N}G(k2{CBM-N}q):: {SHIFT-POUND}j; 1,0,23,bl$,1:: ** clear bottom line ** {$f3}j< co{CBM-R}co{CBM-N}1{CBM-N}(co{CBM-R}16){CBM-D}16:{$e7}4,co:Z1,999{CBM-D}co,1:: ** change color of 2){CBM-R}0:x1(2){CBM-R}0:125 -qH ti${CBM-R}"000000":np{CBM-R}1{CBM-M}{$e7}1,16: 1,20,23," best time= "{CBM-N}dt$(g),1 dqI tg{CBM-R}2{CBM-P}g{CBM-W}{CBM-E}2{CBM-M}5122,1 {$60}qJ ** player movement ** qK 117:np{CBM-R}2{CBM-M}j3{CBM-R}2{CBM-N}(j3{CBM-R}2):Uj3{CBM-R}2 {CBM-I}qL j{CBM-R}O(j3):j{CBM-R}0{CBM-M}107:Uj{CBM-E}127{CBM-M}114 {SHIFT-+}qM xj(j3){CBM-R}xj(j3){CBM-N}jx(j):xj(j3){CBM-W}0{CBM-A}xj(j3){CBM-E}4{CBM-M}xj(j3){CBM-R}x1(j3) {CBM-Y}165:U [{CBM-+} ad,00,14,a2,00,a0,05,9d,1f,1c,9d,47,1c,9d,6f,1c,9d,97,1c,e8,88,d0 A[{CBM-M} f0,ee,00,14,60,78,a9,28,8d,14,03,a9,13,8d,15,03,58,60,ad,02,14,f0 {$7c}[{CBM-POUND} 03,20,00,13,4c,65,fa 8,156 Ry m1{CBM-R}m1{CBM-N}1{CBM-N}(m1{CBM-R}96){CBM-D}96:mc{CBM-R}{CBM-J}((m1{CBM-Q}1){CBM-Z}16):tc{CBM-R}tc{CBM-N}1{CBM-N}(tc{CBM-R}4){CBM-D}4:{$fe}mc$(mc){CBM-N}1)):t$(s(1)){CBM-R}t$(s(2)):t$(s(2)){CBM-R}a$: dnr {$fe}&:149:pl{CBM-R}1:{$e7}1,2:t{CBM-R}0{CBM-@}24:x{CBM-R}{CBM-J}(t{CBM-Z}5):y{CBM-R}t{CBM-Q}x{CBM-D}5:Z1,999,1:128 yns :tg{CBM-R}th:pl{CBM-R}2:96 Znt ** make and save shapes ** nu {$e4}t$(t),0,0,39,31:{$de}1,1: {CBM-T}nv {CBM-*}c,x,y: {CBM-E}nw 88:91: Pnx 60:a{CBM-R}a{CBM-N}1:a{CBM-R}5{CBM-M}a1{CBM-R}a1{CBM-N}1:a{CBM-R}0 oy c{CBM-R}1:a1{CBM-W}4{CBM-M}{$e2}c,* )x t{CBM-R}1{CBM-@}9:{$e7}1,2{CBM-N}t: 1,26,3{CBM-N}t{CBM-D}2,D(t){CBM-N}" ": 1,28,3{CBM-N}t{CBM-D}2,sl$(t),1: 1,28,4{CBM-N}t{CBM-D}2,"M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N": Bx {$e7}1,2: 1,0,22," * ",1: 1,3,22,"-change level/players" x 155:g{CBM-R}E(y$):y${CBM-R}"*"{CBM-M}52:Ug{CBM-W}1{CBM-M}145 x {$de}1,1: {CBM-J}x {$e7}4,2{CBM-N}g:{$de}1,1:{$e7}1,g{CBM-N}2:ag{CBM-R}{CBM-Q}(ag{CBM-R}0) {$ed}x gm{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}8){CBM-N}3:ga{CBM-R}{CBM-J}( screen ** !k= ** make characters for game selected ** kk> g{CBM-R}3{CBM-M}k1{CBM-R}21:k3{CBM-R}65:Ug{CBM-R}4{CBM-M}k1{CBM-R}6:k3{CBM-R}48:U64 sk? 58 Lk@ t{CBM-R}0{CBM-@}24:g{CBM-R}2{CBM-M}70:: {CBM-N}ka t$(t){CBM-R}"":u{CBM-R}1{CBM-@}9:t$(t){CBM-R}t$(t){CBM-N}J(ch$(g),{CBM-J}({CBM-F}(1){CBM-D}5){CBM-N}1,1)::: Skb ** make shapes for shapies game ** lc {$fe}%:g{CBM-R}1:z2{CBM-R}2:94:{$7c} ** select next pattern ** ,u{$7d} nx{CBM-R}nx{CBM-N}1:g{CBM-R}2{CBM-M}126:Ug{CBM-E}1{CBM-M}127:U{$e7}1,2:{$e3}t$(t(nx)),248,0: Du{$7e} e{CBM-R}0{CBM-@}2:{$e7}1,E(J(t$(t(nx)),e{CBM-N}1,1)): 1,32,e," ",1:: u{$7f} e{CBM-R}0{CBM-@}2:{$e7}1,2: 1,32,e,J(t$(t(nx)),e{CBM-D}3{CBM-N}1,3):: {CBM-Y}u tg{CBM-M}:Upl{CBM-R}2{CBM-M}137::Ug{CBM-R}2{CBM-M}133 Fu th{CBM-M}{$e7}1,g{CBM-N}2 Uu pl{CBM-R}1{CBM-M}13rN yj(j3){CBM-R}yj(j3){CBM-N}jy(j):yj(j3){CBM-W}0{CBM-A}yj(j3){CBM-E}4{CBM-M}yj(j3){CBM-R}y1(j3) ]rO {$fe}j3,24{CBM-N}xj(j3){CBM-D}40,50{CBM-N}yj(j3){CBM-D}32:x1(j3){CBM-R}xj(j3):y1(j3){CBM-R}yj(j3):Zj3,400,1 FrP 107 rQ ** is it a match ** {$e6}rR x{CBM-R}xj(j3):y{CBM-R}yj(j3):t$(x{CBM-N}y{CBM-D}5){CBM-R}t$(t(nx)){CBM-M}sc(j3){CBM-R}sc(j3){CBM-N}1:{$e7}1,g{CBM-N}2:128:Z1,8000,1:123:UZ2 0{SHIFT-POUND}7 {CBM-*}0 S2 {CBM-R}2 {CBM-X}2 1 9 A6 {$ef}6 {CBM-R}2 {CBM-X}2 7 D4 {CBM-*}4 S2 {SHIFT-POUND}5 7{SHIFT-POUND}xA{SHIFT-POUND}yA{SHIFT-POUND}$vA{SHIFT-POUND}wA [0 {CBM-T}7 x5({CBM--} s3l0 M1 3 d4 {CBM-D}2,P20$ 0 d4 1{CBM-Z}xAMvAP{$ea}{CBM-Z}yAMwAP{$e2} {CBM-X}2 2 62{$60}8{$60} .1 {CBM-Z}4 d4 &3 Q3 C2 2{CBM-E}i~zA{CBM-Z}{CBM--}- {CBM--}i~-zA)P{$60}I{$f0} I{$f0} I{$f0} I{$f0} {$60}NyA{$60}{$ee}yA{$60}NxA{$60}{$ee}xA{$60}{CBM-I} T{$e8} P{$f8}{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND}x,y,x1,y1,,,,z2:U{$e1}1,4,2,36,29,,1 oz 86: .o[ c{CBM-R}0:a{CBM-W}4{CBM-M}{$e2}c,x,y,8,6,,,,z3:93 do\ {$e1}0,13,12,26,20,,1 [o] 86:t{CBM-R}a{CBM-N}a1{CBM-D}5:85: o^ z3{CBM-R}2:87:z3{CBM-R}72:87:z3{CBM-R}90:87:z3{CBM-R}120:87:87: {CBM-G}o_ ** game begins ** {$ea}o{$60} 59:162: 1,7,23," press any key to start game ",1:15{CBM-F}(1){CBM-D}360):t{CBM-R}1{CBM-@}36:ag{CBM-N}1151,152 {$fd}x ga{CBM-R}{CBM-L}(ga{CBM-N}dg) y {$e2}1,xt,yt,t{CBM-D}7,t{CBM-D}5,,,ga,360{CBM-Z}gm: ?y {$e7}1,g{CBM-N}2: 1,27,11,sl$(g),1: yy ** music routine ** y td{CBM-R}0:m1{CBM-R}0:tc{CBM-R}0:nc{CBM-R}1:ly{CBM-R}2{CBM-N}(ly{CBM-R}2):ly158,156 Ry m1{CBM-R}m1{CBM-N}1{CBM-N}(m1{CBM-R}96){CBM-D}96:mc{CBM-R}{CBM-J}((m1{CBM-Q}1){CBM-Z}16):tc{CBM-R}tc{CBM-N}1{CBM-N}(tc{CBM-R}4){CBM-D}4:{$fe}mc$(mc){CBM-N}z2{CBM-R}72:94:z2{CBM-R}90:94:x1{CBM-R}20:y1{CBM-R}15:z2{CBM-R}120:94:94 3ld t{CBM-R}0{CBM-@}24:tp$(t){CBM-R}t$(t):: xle ** select colors for blocks ** Mlf th{CBM-R}2{CBM-M}rn{CBM-R}5:Urn{CBM-R}8 lg gg{CBM-R}0:v{CBM-R}0{CBM-@}2:c$(v){CBM-R}J(co$,{CBM-J}({CBM-F}(1){CBM-D}rn){CBM-N}1,1): Glh c$(0){CBM-R}c$(1){CBM-A}c$(1){CBM-R}c$(2){CBM-A}c$(2){CBM-R}c$(0){CBM-M}71 {$eb}li u$(t){CBM-R}c$(0){CBM-N}c$(1){CBM-N}c$(2):t6 {$f5}u g{CBM-R}1{CBM-M}{$e3}t$(x{CBM-N}y{CBM-D}5),40{CBM-D}x,32{CBM-D}y: (v e{CBM-R}0{CBM-@}2: 1,1{CBM-N}x{CBM-D}5,y{CBM-D}4{CBM-N}e,J(t$(x{CBM-N}y{CBM-D}5),e{CBM-D}3{CBM-N}1,3):: 7v pl{CBM-R}1{CBM-M}136 [v e{CBM-R}0{CBM-@}2:{$e7}1,E(J(t$(x{CBM-N}y{CBM-D}5),e{CBM-N}1,1)) Zv 1,1{CBM-N}x{CBM-D}5,y{CBM-D}4{CBM-N}e," ",1:: {CBM-+}v {$e4}tr$(x{CBM-N}y{CBM-D}5),40{CBM-D}x,32{CBM-D}y,39{CBM-N}40{CBM-D}x,31{CBM-N}32{CBM-D}y: Bv {$e3}tr$(x{CBM-N}y{CBM-D}5),40{CBM-D}x,32{CBM-D}y: {$e6}v s{CBM-R}s{CBM-Q}1:sl{CBM-R}0:,400,10:107 sS sl{CBM-R}sl{CBM-N}1:sl{CBM-R}25{CBM-M}138:U125:107 5sT ** time display for one player game ** sU np{CBM-R}2{CBM-M}:Ubt$(g){CBM-R}J(ti$,3,2){CBM-N}":"{CBM-N}I(ti$,2){CBM-N}"."{CBM-N}I(D(ti),2){CBM-N}" ":{$e7}1,12: 1,1,23,"time= "{CBM-N}bt$(g),1 {CBM-C}sV ** timing routine for end game ** {$e8}sW ti${CBM-E}"00"{CBM-N}H(dt$(g),2){CBM-N}J T{SHIFT-POUND}!T{$60}{SHIFT-POUND}C T{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND}T{$60}{SHIFT-POUND}A T{SHIFT-POUND}T{SHIFT-POUND}T{SHIFT-POUND}T{$60} 2{CBM-Z}xAM1P{CBM-Z}yAM1P{$60}{CBM-Z}xA1{CBM-Z}yA1{CBM-G}){CBM-E}I {$f0} 3 {$fb}2{$60}{SHIFT-POUND}~ 2{$60}{CBM-I} {$e8}P{$f1}{$60} {CBM-D}1{CBM-I} JP{$fd}P{$fa}{$60}@X{CBM-Z}{CBM-POUND}1{CBM-Z}{SHIFT-POUND}1{SHIFT-POUND}{CBM-N}{SHIFT-POUND}1x{$60} ,P20sN2{CBM-S}2 ~P.{SHIFT-POUND}T{SHIFT-POUND}<2NR2{CBM-S}R2 /P{SHIFT-POUND}9R2NQ2{CBM-S}Q2 /P{SHIFT-POUND}0Q2R2 {CBM-X}2 C2 2{CBM-I}{CBM-Z}{CBM-Q}2I P {CBM-X}2I 5:59:gg{CBM-R}1 $pA 1,31,5,"^ ^ ^": 1,29,7,"find this": 1,30,8,"pattern" epB ** set sprites and time ** ypC g{CBM-R}2{CBM-M}s1{CBM-R}5:Us1{CBM-R}0 MpD g{CBM-E}2{CBM-M}s2{CBM-R}9:Us2{CBM-R}1 pE {$fe}2,24,50:{$fe}1,185{CBM-N}s2,179{CBM-Q}s1:53269,2{CBM-Q}(np{CBM-R}2) FpF xj(1){CBM-R}4:yj(1){CBM-R}4:xj(2){CBM-R}0:yj(2){CBM-R}0:123 {$ef}pG x1(1){CBM-R}4:y1(1){CBM-R}4:x1(m$(tc) {$e8}y {CBM-K}y$:y${CBM-R}""{CBM-M}156:U z td{CBM-R}td{CBM-N}1:td{CBM-R}23{CBM-M}td{CBM-R}1:nc{CBM-R}nc{CBM-N}1{CBM-N}(nc{CBM-R}3){CBM-D}3 5z te{CBM-R}{CBM-J}((td{CBM-Q}1){CBM-Z}2):{$fe}nc$(nc){CBM-N}n$(te) kz {CBM-K}y$:y${CBM-R}""{CBM-M}158:U Gz{CBM-K} ** ramdom by order ** Vz{CBM-I} {$fe}%:t{CBM-R}0{CBM-@}24 z{CBM-T} r{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}25):q(r){CBM-R}s{CBM-M}163 {CBM-R}z{CBM-@} q(r){CBM-R}s:t(t){CBM-R}r::nx{CBM-R}{CBM-Q}1:{$fe}&: Qz{CBM-G} {CBM-K}y$:gl{CBM-W}11{CBM-M}gl{CBM-R}gl{CBM-N}1:{CBM-W}1{CBM-M}76 mj e{CBM-R}t{CBM-Q}1{CBM-@}0{SHIFT-POUND}{CBM-Q}1:u$(e){CBM-W}{CBM-E}u$(t){CBM-M}:76 mk 71 )ml t$(t){CBM-R}u$(t): imm ** start selected game ** Rmn {$fe}&:tg{CBM-R}0:{$e7}1,2:{$de}1:142:{$fe}%:g{CBM-E}1{CBM-M}62:82 mo ** randomize and display shapes ** Emp t{CBM-R}0{CBM-@}24:t$(t){CBM-R}tp$(t)::t{CBM-R}0{CBM-@}24:q{CBM-R}1{CBM-@}2 nq s(q){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}25)::a${CBM-R}t$(s(sc(1){CBM-R}0:sc(2){CBM-R}0:gl{CBM-R}0 w ** get best time ** &w np{CBM-R}1{CBM-P}bt$(g){CBM-W}dt$(g){CBM-M}dt$(g){CBM-R}bt$(g) 3w 165:78 sw 5122,0:5120,0:i:53269,0 {CBM-S}w {$e7}1,2:t{CBM-R}1{CBM-@}4: 1,26,t{CBM-Q}1,yg$(t),1::{$e7}1,13: 1,26,4,"{CBM-*}": 1,27,4," ",1: 1,38,4,"{SHIFT-POUND}" Qw ** display title of games *(dt$(g),4,2){CBM-M}121 {$ee}sX etY {$e7}1,15: 1,1,24,"you have used up all your time...sorry":t{CBM-R}1{CBM-@}3:Zt,400,60:{$fe}1::138 KtZ ** score for two player game ** St{$7b} np{CBM-R}1{CBM-M}:U{$e7}1,12: 1,2,23," "{CBM-N}np$(1){CBM-N}" "{CBM-N}D(sc(1)){CBM-N}" ",1:{$e7}1,16: 1,21,23," "{CBM-N}np$(2){CBM-N}" "{CBM-N}D(sc(2)){CBM-N}" ",1: {$f4}t {CBM-A}{CBM-I}!TL{CBM-POUND}1<{CBM-S}yA{CBM-X}Vp{CBM-X}p{CBM-D}xA{$60}{CBM-Z}R2){CBM-Q}2{CBM-Z}Q2){CBM-N} {$f0}{SHIFT-POUND} M{CBM-Q}2{CBM-Q}2JP{$f4}{$60} 2{CBM-Z}{CBM-Q}2{CBM-N}2n{CBM-Q}2{CBM-Z}{CBM-Q}2M{CBM-N}2{CBM-Q}2{CBM-Z}{CBM-Q}2I{CBM-Q}2Iz{SHIFT-POUND}z{CBM-Q}2 B2{$60}{CBM-I} {CBM-Z}{CBM-Q}2{CBM-N}2{CBM-Z}{CBM-Q}28{$e9} {CBM-Q}2{$e8}P{$ec}{CBM-Z}{CBM-N}20R20Q2{$60} 2{CBM-S}{CBM-Q}2 D {$f0}hh 2 &3H{CBM-POUND}H{CBM-N}P{$ef} DJP{$ea}{$60} {SHIFT-POUND} P2{$60}{SHIFT-POUND}6Q2{SHIFT-POUND}0R2{$60}{SHIFT-POUND}~P2{$60}{CBM-Z}Q2C{CBM-Z}R2D{$60} {CBM-I} {SHIFT-POUND} a3{$e8} P{$f8}{$60} {CBM-O}a3II P{SHIFT-POUND} a3{$ee}a3 {SHIFT-*}{SHIFT-POUND}{CBM-I}{SHIFT-*} B{$60}q {CBM-O}{$e3}B{$f0}Y PHl{SHIFT-*} {CBM-O}{$e8}B{$f0} Y PHl#{SHIFT-*}l{$7c}{CBM-G}{SHIFT-POUND}{$7c}{CBM-I}{CBM-G}{SHIFT-POUND}{$ec} B {CBM-Q}loA{CBM-O} PlW{SHIFT-*}Io{$f0}l{$f5}AH{CBM-O} InPl@AIf{$f0}l{$f0}AH{CBM-O} If{$f0}l{$f0}AloA {SHIFT-POUND} R~{CBM-I} {CBM-X}{$e8}B{$f0} R~{$e8}l{SHIFT-*}{SHIFT-POUND} R~I1 R~{SHIFT-POUND}, R~{SHIFT-POUND} R~ {CBM-N}{SHIFT-POUND} w{CBM-X} M{$f0}ZrI .I[{CBM-A}*{CBM-Z}w{$f0}{SHIFT-POUND}+ R~{CBM-X} M{$f0}{$60}{$e8}rI I[{CBM-A} R~lH{SHIFT-*}J{SHIFT-POUND}~wl{$e8}{SHIFT-*}{CBM-Z}w{$f0}{SHIFT-POUND}+ R~{SHIFT-POUND}c R~{SHIFT-POUND}h R~{$f0}H8{$60}H{$60}h{$e8} v9pJJ v9p{$e8}H v9p v9pHH{$60}h{$e8}{$e8} v9pJJJJ v9p{$e8}{$e8}HH v9p v9pHHH{$60}h{CBM-Z}{CBM--})P{SHIFT-POUND}~8 \9H{$60} \9{CBM-E}{$60}{CBM-X} p{CBM-X}?p{$60}{CBM-Z}Pm p pMppmpp{$60}{SHIFT-POUND} Qp {CBM-G}8{$60}{SHIFT-POUND}{CBM-Z}{SHIFT-POUND}p{CBM-I} {CBM-G} p{CBM-G}?p 1{$f0}{$e8}{SHIFT-POUND}hE{$e6}{$e3}{SHIFT-POUND} {SHIFT-POUND}{CBM-I} {CBM-G}Vp{CBM-G}p{SHIFT-POUND}(E{$e6}{$e8} P{$e6}{$60}a uu a ~~ #abledsys 49152 to re-enable t{SHIFT-POUND}) R~{SHIFT-POUND}~wl{CBM-S}{SHIFT-*}{SHIFT-POUND} R~H{SHIFT-*}{CBM-A}l{$7e}{SHIFT-*} R~lT{CBM-@}X{SHIFT-POUND}^{CBM-I}AxlT{CBM-@}X{SHIFT-POUND}h{CBM-I}{$eb}xlT{CBM-@}{$ee}v{SHIFT-POUND}~MvP{SHIFT-POUND}~uv{CBM-I} {CBM-Z}IP{$e8}{CBM-G}KIP P lJA lJAIP P lJA lJAIP P lJA lJAIP P lJA lJAlh{$eb}lh{$eb}Lu{$f0} u {CBM-POUND}{CBM-I} {CBM-O} M{$f0}W{$e8}Hl{CBM--}AF{SHIFT-POUND}@K{$60}{CBM-I}L {CBM-I}~ {SHIFT-POUND}P{$60}{SHIFT-POUND}{$f0}{SHIFT-POUND}{CBM-I} {SHIFT-POUND}p {$f4}8{CBM-Z}pjp{CBM-Z}p p{CBM-Z}p p{CBM-Z}p p p piph{CBM-D}p{CBM-Z}pH{CBM-POUND}{$ee}p{CBM-Z}pI%{$f0}HH{SHIFT-*}jP{SHIFT-@}{SHIFT-POUND}(E{$e6}{$e8}{$e8} ,P{CBM-I}{$60}X{CBM-G}i{SHIFT-POUND} {$fd}{SHIFT-POUND}({$fe}{SHIFT-POUND}~{$fb}{SHIFT-POUND}W{$fc} {CBM-E}{$fb} {$fd}F{$fb}{CBM-G}{$fb}I~PF{$fc}F{$fd}{CBM-G}{$fd}I~PF{$fe}{CBM-G}{$fd}I P{$e1}{CBM-G}{$fe}I P{SHIFT-+}{SHIFT-POUND}~{$fb}{SHIFT-POUND}{$fc} {CBM-E}{$fd})u{$ee}6 {$ee}6{$ee}6{$fd})ujj{$fb}{$fb}{$e6}{$fb}P{$e6}{$fc}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fd}I PV{CBM-G}{$fe}I(PP {CBM-O}R9 $H{SHIFT-*} P{$f5}{CBM-G}ix{$60} {CBM-Z}@6@ L(.){CBM-R}5 {CBM-M} "switch monitor to 40-col. mode..." I@ {$fe}%:{$e7}0,1:{$e7}4,1:{$e7}1,7:{$e7}2,15:{$e7}3,4:{$e7}6,7:{$de}3,1:{$de}0:W680 @ h{CBM-R}100:d{CBM-R}250:lx{CBM-R}{CBM-Q}3:hx{CBM-R}3:ly{CBM-R}{CBM-Q}3:hy{CBM-R}3 T@ ""{CBM-+}14)"CCCCCCCCCCCC":{CBM-+}14)"3-d surfaces":{CBM-+}14)"CCCCCCCCCCCC" {$f8}@( "which function? (1-8)":{$fe}& a2 {CBM-K}1{$60} {CBM-O}a38{$e9}I~P{SHIFT-POUND}a3{$ee}a3 1{$60} {CBM-O}a3I P{$f6}{$60}8{$60} {CBM-O}a30O{$f5} {CBM-O}m3IH{SHIFT-*}P{$f5}{$60} -{CBM-I} {CBM-X}a3{SHIFT--}g3{$f0}{CBM-A}{$60}{$e8} P{$f0}{$60}{CBM-X}a3g3{$e8} P{$f5}{CBM-I} {CBM-X}g30s{$e8} P{$f3}{CBM-I} {CBM-X}3y{$e8} P{$f5}{$60}-{SHIFT-POUND}({$f8}{$f8}){SHIFT-POUND}){$f9}{$f9}){CBM-I} {CBM-X}{SHIFT-@}3 {CBM-X}~3@ {$e8} @P{$ef} J4{$60} < N ^ {$7e} {$7e} < {SHIFT-POUND}r R~{SHIFT-POUND}$ R~{SHIFT-POUND}( R~st{SHIFT-POUND} {CBM-S}r M{CBM-X}{CBM-S}s{$e8}{CBM-D}t{SHIFT-POUND}) R~{SHIFT-POUND}~wl{CBM-S}{SHIFT-*}{SHIFT-POUND} R~H{SHIFT-*}{CBM-A}l{$7e}{SHIFT-*} R~lT{CBM-@}X{SHIFT-POUND}^{CBM-I}AxlT{CBM-@}X{SHIFT-POUND}h{CBM-I}{$eb}xlT{CBM-@}{$ee}v{SHIFT-POUND}~MvP{SHIFT-POUND}~uv{CBM-I} {CBM-Z}IP{$e8}{CBM-G}KIP P lJA lJAIP P lJA lJAIP P lJA lJAIP P lJA lJAlh{$eb}lh{$eb}Lu{$f0} u {CBM-POUND}{CBM-I} {CBM-O} M{$f0}W{$e8}Hl{CBM--}AF{SHIFT-POUND}@K{$60}{CBM-I}L {CBM-I}~ Xuu ~~u~~~~ccwwc~~ww~~w~~~~~~~~~~~{CBM-B}{CBM-P} ~~~ ~{$fe}{$fa} {CBM-G}u uuu vuu pp{$60} {$f0}{$f0} {CBM-N}{$ee}{CBM-N}d nP{$e1}{$e8} 0PZ{$60} 9h{CBM-Z}pI {$f0}{CBM-Z}pI {$f0}{CBM-Z}pI {$f0} {CBM-Z}pI (x,y){CBM-Z}4:x2{CBM-R}xc(x,y{CBM-N}1){CBM-Z}4:x3{CBM-R}xc(x{CBM-N}1,y{CBM-N}1){CBM-Z}4:x4{CBM-R}xc(x{CBM-N}1,y){CBM-Z}4 Hc{$f0} y1{CBM-R}yc(x,y):y2{CBM-R}yc(x,y{CBM-N}1):y3{CBM-R}yc(x{CBM-N}1,y{CBM-N}1):y4{CBM-R}yc(x{CBM-N}1,y) {CBM-M}c{$fa} {$e5}0,x1,y1{CBM-@}x2,y2{CBM-@}x3,y3{CBM-@}x4,y4{CBM-@}x1,y1:xd{CBM-R}(x1{CBM-Q}x3){CBM-Z}2:yd{CBM-R}(y1{CBM-Q}y3){CBM-Z}2 Ec{CBM-L}(xd){CBM-W}1{CBM-M}{CBM-L}(yd){CBM-W}1{CBM-M}310U280 Vc{CBM-L}(yd){CBM-W}1{CBM-M}310 {$eb}c{CBM-*}0,x3{CBM-N}xd,y3{CBM-N}yd,0 -d"y1{CBM-W}y3{CBM-M}{$e5}{SHIFT--}{SHIFT--}{CBM-Z} {SHIFT--}){$fc} {SHIFT--}{SHIFT-POUND}P{CBM-Z}PP{$60}{SHIFT-POUND}{CBM-I} X Y Z {SHIFT-+}{$e8}P{$f1}{SHIFT-POUND} P{SHIFT-POUND}!P{SHIFT-POUND}"P{SHIFT-POUND}#P{$60}{CBM-S}Rp{SHIFT-POUND}{CBM-N}p{SHIFT-POUND}{CBM-Q}p{SHIFT-POUND}{CBM-D}p Y7{SHIFT-POUND}{CBM-N}p{SHIFT-POUND}{CBM-Q}p{SHIFT-POUND}{CBM-D}p{$e8}{$ec}Sp{$f0} Y7{$f4}{SHIFT-POUND}{CBM-N}p{SHIFT-POUND}{CBM-Q}p{SHIFT-POUND}{CBM-D}plY7 7{CBM-D}Tp{CBM-Z}{CBM-N}p{CBM-Z}{CBM-Q}pHLUp{$f0}{$f5}{CBM-Z}{CBM-D}p{$60}{CBM-X}Vp{CBM-X}p{$60}{SHIFT-POUND} 8{SHIFT-POUND}Qp {$7c}8{CBM-I} {SHIFT-POUND} p{SHIFT-POUND} b9,8{$60} N8{CBM-A} 8{$ef} {$f4}8{SHIFT-POUND} b9{CBM-Z}pI{$f0}{CBM-Z}pI{$f0}{CBM-Z}pI{$f0}{CBM-Z}{$f9}fu$:fu{CBM-R}E(fu$) a< fu{CBM-R}.{CBM-A}fu{CBM-R}9{CBM-M}40 faf fu600,610,620,630,640,650,660,670 Uap "lo, med or hi-res calculations?" az {CBM-K}{$f9}a$:a${CBM-W}{CBM-E}"l"{CBM-P}a${CBM-W}{CBM-E}"h"{CBM-P}a${CBM-W}{CBM-E}"m"{CBM-M}90 {CBM-W}aD a${CBM-R}"l"{CBM-M}m{CBM-R}7:n{CBM-R}7:130 NaN a${CBM-R}"m"{CBM-M}m{CBM-R}15:n{CBM-R}15:130 {CBM--}aX m{CBM-R}23:n{CBM-R}23 {$fe}a "graph upside down? (y/n {$7e} {$60} X {$60} {$60} {$7e} {$ea}{SHIFT-POUND} uA{CBM-S}xA{CBM-D}yA 4{SHIFT-POUND}uA PP{CBM-S}vA{CBM-D}wA 4{SHIFT-POUND} uAuA{$ea}PP{CBM-Z}uAP{$60} I2{CBM-POUND}{SHIFT-POUND} [A .[A .[A .[AI{$ee}[A{CBM-N}{CBM-Z}[AP{$60}8{$60}{CBM-S}{$de}4{CBM-X}P4'P(P{$e8} P{CBM-I} {$de}4{$60}{SHIFT-POUND} P{$60}{SHIFT-POUND}P{$60} {CBM-T}7,80H O5{SHIFT-POUND} Rp{SHIFT-POUND}SpZ{$7b} S S S S l{$f0}A8{$e9}1 q S I,{$f0}l{$f0}A S PlBI+{$f0}{$f4}I"PlSBIc{$f0}l{$f0}A S S S I${$f0}l{$f0}A S I(P{$f6} {CBM-Y}{CBM-D}q MHq Y I){$f0}{SHIFT-@}l{$f0}AI({$f0}{SHIFT--}l{$f0}A S {$f0}RI"{$f0}{CBM-M}{CBM-D}q M{$ee}qlSB{CBM-D}q{SHIFT-POUND} MlT{CBM-@} {SHIFT-POUND}~uq{CBM-I} v{CBM-Z}q {CBM-POUND}{CBM-X}GB{$f0}I*{$f0} MH{$e8}l{CBM-Q}B{$ee}q M{$e8}l{CBM-I}B{$60}load" save" list run *quit key key is disx{CBM-R}hx:hx{CBM-R}z e{$7c}ly{CBM-E}hy{CBM-M}z{CBM-R}ly:ly{CBM-R}hy:hy{CBM-R}z <edx{CBM-R}1:tx{CBM-R}m:sx{CBM-R}1:dy{CBM-R}1:ty{CBM-R}n:sy{CBM-R}1 legt{CBM-W}{CBM-E}2{CBM-M}gt{CBM-R}1 \ere{CBM-W}{CBM-E}2{CBM-M}re{CBM-R}1 Ie{CBM-@}gt{CBM-R}2{CBM-M}{$fe} e{CBM-S}a{CBM-W}.{CBM-M}dx{CBM-R}m:tx{CBM-R}1:sx{CBM-R}{CBM-Q}1 e{CBM-U}b{CBM-W}.{CBM-M}dy{CBM-R}n:ty{CBM-R}1:sy{CBM-R}{CBM-Q}1:{$fe} {CBM-@}eB {$eb}eLm1{CBM-R}310{CBM-Z}m:m2{CBM-R}160{CBM-Z}m:n1{CBM-R}310{CBM-Z}n:n2{CBM-R}160{CBM-Z}n:rd{CBM-R}180{CBM-Z}~:x{CBM-R}240{CBM-Z}{SHIFT-@}(2):y{CBM-R}240{CBM-Z}{SHIFT-@}(2) FfVpx{CBM-R}31,x1,y1{CBM-@}x2,y2{CBM-@}x3,y3{CBM-@}x4,y4{CBM-@}x1,y1:{CBM-*}1,x3{CBM-N}xd,y3{CBM-N}yd,0:310 Cd,{$e5}3,x1,y1{CBM-@}x2,y2{CBM-@}x3,y3{CBM-@}x4,y4{CBM-@}x1,y1:{CBM-*}3,x3{CBM-N}xd,y3{CBM-N}yd,0 d6{$e5}2,x1,y1{CBM-@}x2,y2{CBM-@}x3,y3{CBM-@}x4,y4{CBM-@}x1,y1 d@y,x dj{CBM-K}{$f9}a$:{$de}0: {CBM-J}dtre{CBM-W}{CBM-E}1{CBM-P}re{CBM-W}{CBM-E}2{CBM-M}re{CBM-R}1 Ld^re{CBM-R}1{CBM-M}ht{CBM-R}186:hh{CBM-R}93 {$e4}dHre{CBM-R}2{CBM-M}ht{CBM-R}386:hh{CBM-R}193 ~dRlx{CBM-E}hx{CBM-M}z{CBM-R}lx:lpI{$f0}!l{$7d}9{$e8}{SHIFT-POUND} b9{$e8}l{CBM-V}7J{SHIFT-POUND} b9Jl{CBM-V}7H{SHIFT-POUND} b9Hl{CBM-V}7{SHIFT-POUND} b9l{CBM-V}7 p G9){CBM-N}p{CBM-X}pI {$f0} {$e8} P{$f4}{CBM-I} {$ef} {$f0} {$f0} {$f0}'{CBM-S}p{$e8}{SHIFT-POUND} b9{$e8}lb9{CBM-S}p{SHIFT-POUND} b9lb9{CBM-S}pH{SHIFT-POUND} b9Hlb9{CBM-S}pJ{SHIFT-POUND} b9Jlb9{CBM-I} {SHIFT-POUND} ,{CBM-A} {SHIFT-*}{SHIFT-*}j{CBM-A}{CBM-Z}Qp b9H{SHIFT-*}nP{$e1}{$e8} 0PZ{$60}{CBM-I} {SHIFT-POUND} ,{CBM-A} {SHIFT-*}{SHIFT-*}j{CBM-A}{CBM-Z}Qp b9H{SHIFT-*}nP{$e1}{$e8} 0PZ{$60} 9h{CBM-Z}pI {$f0}{CBM-Z}pI {$f0}{CBM-Z}pI {$f0} {CBM-Z}pI )" b {CBM-K}{$f9}a$:a${CBM-W}{CBM-E}"y"{CBM-P}a${CBM-W}{CBM-E}"n"{CBM-M}140 2b a${CBM-R}"n"{CBM-M}ud{CBM-R}1:170 <b ud{CBM-R}{CBM-Q}1 hb{CBM-N} {$fe}%:340 {$7f}b{CBM-H} xc(m{CBM-N}1,n{CBM-N}1),yc(m{CBM-N}1,n{CBM-N}1):zx{CBM-R}(hx{CBM-Q}lx){CBM-Z}m:zy{CBM-R}(hy{CBM-Q}ly){CBM-Z}n b{CBM-V} G(27)"x" {SHIFT-POUND}bH "computing values" NbR 460:"switch to 40 columns" {$f0}b{CBM--} {$de}3:{$fe}&:x{CBM-R}dx{CBM-@}tx{SHIFT-POUND}sx:y{CBM-R}dy{CBM-@}ty{SHIFT-POUND}sy 0c{$e6} x1{CBM-R}xc{SHIFT-POUND} Tp{SHIFT-POUND}'Up 77{SHIFT-POUND}Rp{SHIFT-POUND}Sp{SHIFT-POUND}Tp{SHIFT-POUND}%Up 77{SHIFT-POUND}Rp{SHIFT-POUND}Sp{SHIFT-POUND}Tp{SHIFT-POUND}%Up 77 {$f8}5{CBM-I} {CBM-X}p5_{$e8} P{$f5} Q3 &3 {$f2}5{CBM-Z}{CBM--})P{$60} O5{SHIFT-POUND} Rp{SHIFT-POUND}Sp{SHIFT-POUND} Tp{SHIFT-POUND}'Up 77{SHIFT-POUND}Rp{SHIFT-POUND}Sp{SHIFT-POUND}Tp{SHIFT-POUND}%Up 77{SHIFT-POUND}Rp{SHIFT-POUND}Sp{SHIFT-POUND}Tp{SHIFT-POUND}%Up 77 Q3 {$f8}5l{$f2}5 O5{SHIFT-POUND}Rp{SHIFT-POUND}Sp{SHIFT-POUND}Tp{SHIFT-POUND}%Up 77 Q3 &3 C2l{$f2}5{CBM-I} {CBM-X} ({CBM-X} ){CBM-X} *{CBM-X} +{$e8}P{$e5}{SHIFT-POUND}{CBM-POUND}P{$60} P(y{CBM-S}2{CBM-N}x)): )i{CBM-G}z(x){CBM-R}({CBM-B}(4{CBM-D}x{CBM-S}2{CBM-N}y{CBM-S}2){CBM-N}2{CBM-D}{CBM-B}(x{CBM-D}y)){CBM-Z}(4{CBM-D}x{CBM-S}2{CBM-N}y{CBM-S}2): fi{CBM-G}z(x){CBM-R}({CBM-B}(3{CBM-D}x){CBM-N}{CBM-B}(3{CBM-D}y)): yi{CBM-POUND}{$de}0:{$e7}6,3:{$e8}:{$fe}&: {CBM-Q}av:sn{CBM-R}sn{CBM-Q}av:mu{CBM-R}ht{CBM-Z}(sm{CBM-Q}sn) g:x{CBM-R}1{CBM-@}m{CBM-N}1:y{CBM-R}1{CBM-@}n{CBM-N}1 {CBM-A}gdyc(x,y){CBM-R}mu{CBM-D}(yc(x,y){CBM-Q}av){CBM-N}hh {CBM-F}gny,x: {$fa}gx{CBM-G}z(x){CBM-R}{CBM-B}(x{CBM-S}2{CBM-N}3{CBM-D}y{CBM-S}2){CBM-Z}(x{CBM-S}2{CBM-N}y{CBM-S}2){CBM-N}(x{CBM-S}2{CBM-N}5{CBM-D}y{CBM-S}2){CBM-D}{CBM-X}(1{CBM-Q}x{CBM-S}10{CBM-N}.8886207{CBM-D}(x{CBM-Q}y):py{CBM-R}hh{CBM-Q}.4586429{CBM-D}(x{CBM-N}y):x1{CBM-R}1.777241{CBM-D}x{CBM-Z}m:x2{CBM-R}1.777241{CBM-D}y{CBM-Z}n:y1{CBM-R}.9172858{CBM-D}x{CBM-Z}m:y2{CBM-R}.9172858{CBM-D}y{CBM-Z}n:g{CBM-R}lx{CBM-Q}zx:i{CBM-R}. Rf {$eb}{$fd}i{CBM-W}m{CBM-N}1 {CBM-G}f{$ea}i{CBM-R}i{CBM-N}1:" "i" out of"m{CBM-N}1:g{CBM-R}g{CBM-N}zx:j{CBM-R}.:y{CBM-R}ly{CBM-Q}zy {CBM-E}f{$f4}{$eb}{$fd}j{CBM-W}n{CBM-N}1 {$f9}f{$fe}j{CBM-R}j{CBM-N}1:y{CBM-R}y{CBM-N}zy:xc(i,j){CBM-R}(px{CBM-N}x2{CBM-D}j{CBM-Q}x1{CBM-D}i):yc(i,j){CBM-R}py{CBM-N}y2{CBM-D}j{CBM-N}y1{CBM-D}i{CBM-Q}h{CBM-D}{CBM-G}{$7f}6{$7f} L(0){CBM-R}5 {CBM-M} "switch monitor to 40-col. mode..." p{$7f} leonard morris L{$7f} 2547 andorra drive {$7f} hephzibah, ga.30815 {$7f} : {CBM-POUND}{$7f} get data and dim. J{$7f} {$fe}%:nc{CBM-R}45:ne{CBM-R}12:na{CBM-R}4:ox{CBM-R}1:oy{CBM-R}3 ? {$de}3,1:175:x%(nc,nc),y%(nc,nc),ya%(z,nc),l%(nc,n{CBM-N}1:21:U17:18 16:xp{CBM-R}0{CBM-M}23 5 z{CBM-R}z{CBM-N}1:l%(n,z){CBM-R}xp:21 ] lm%(n){CBM-R}z:z{CBM-R}0:n{CBM-R}n{CBM-N}1:17:n{CBM-W}nc{CBM-M}21:U24 Q tn{CBM-R}tn{CBM-Q}1:n{CBM-R}1:z{CBM-R}0 15:xp{CBM-R}255{CBM-M}27 {CBM-Q} z{CBM-R}z{CBM-N}1:lx%(n,z){CBM-R}xp:ly%(n,z){CBM-R}yp:25 {CBM--} z{CBM-R}0:n{CBM-R}n{CBM-N}1:n{CBM-E}na{CBM-M}tn{CBM-R}tn{CBM-N}1:n{CBM-R}1:z{CBM-R}0:28:U17:25 {$ee} 16:xp{CBM-R}0{CBM-M}30 z{CBM-R}z{CBM-N}1 1:" t h e b a t t l e ":np{CBM-R}{CBM-F}({CBM-Q}ti) {$7c}- {$fe}0,2,39,24,1:{CBM-T}7)" # of players (2-3)";:np$:np{CBM-R}E(np$):np{CBM-W}2{CBM-A}np{CBM-E}3{CBM-M}45 {CBM-V}. t{CBM-R}1{CBM-@}np:{$fe}0,t{CBM-D}2{CBM-N}4,39,t{CBM-D}2{CBM-N}5,1:"name of player #"t;:np$(t) Q/ {$fe}0,15,39,24,1 0 {$fe}0,15,39,24:c3{CBM-R}c3{CBM-N}1{CBM-N}(c3{CBM-R}9){CBM-D}n,x%(tc,u),y%(tc,u){CBM-@}x%(tc,u{CBM-N}1),y%(tc,u{CBM-N}1):: 9; {CBM-*}tn,x%(tc,u),y%(tc,u){CBM-N}4: U< {$e7}3,2:t{CBM-R}1{CBM-@}na:{$e5}3,lx%(t,1),ly%(t,1){CBM-@}lx%(t,2),ly%(t,2):: {$7b}= : > computer distributes areas {CBM-Y}? {$fe}&:{$de}3,1:c1{CBM-R}2:ss{CBM-R}ss{CBM-N}1 {$e2}@ {$e7}0,1:{$e7}4,1:60:t{CBM-R}1{CBM-@}np:{$e7}t,pc%(t)::tn{CBM-R}0 a tc{CBM-R}{CBM-J}(8 {$fb}p n${CBM-R}"":81:79 q j{CBM-R}5{CBM-A}n${CBM-R}"2"{CBM-M}tc{CBM-R}tc{CBM-N}5:tc{CBM-E}nd{CBM-M}tc{CBM-R}1 cr j{CBM-R}1{CBM-A}n${CBM-R}"8"{CBM-M}tc{CBM-R}tc{CBM-Q}5:tc{CBM-W}1{CBM-M}tc{CBM-R}nd Fs j{CBM-R}3{CBM-A}n${CBM-R}"6"{CBM-M}tc{CBM-R}tc{CBM-N}1{CBM-N}(tc{CBM-R}nd){CBM-D}nd t j{CBM-R}7{CBM-A}n${CBM-R}"4"{CBM-M}tc{CBM-R}tc{CBM-Q}1{CBM-Q}(tc{CBM-R}1){CBM-D}nd {CBM-S}u {$fe}1,(x%(tc,1){CBM-D}2){CBM-N}12,y%(tc,1){CBM-N}40: Jv sc{CBM-R}{CBM-Q}(sc{CBM-R}0):{$fe}1,1,sc{CBM-N}1: $w gg{CBM-R}1:a%(tc){CBM-W}1{CBM-M}58:59: z(g){CBM-D}ud gyc(i,j){CBM-W}sn{CBM-M}sn{CBM-R}yc(i,j) /gyc(i,j){CBM-E}sm{CBM-M}sm{CBM-R}yc(i,j) 7g{$ec}:{$ec} jg&sm{CBM-W}ht {CBM-P}sn{CBM-E}.{CBM-M} {$7b}g0av{CBM-R}(sm{CBM-N}sn){CBM-Z}2:sm{CBM-R}sm{CBM-Q}av:sn{CBM-R}sn{CBM-Q}av:mu{CBM-R}ht{CBM-Z}(sm{CBM-Q}sn) g:x{CBM-R}1{CBM-@}m{CBM-N}1:y{CBM-R}1{CBM-@}n{CBM-N}1 {CBM-A}gdyc(x,y){CBM-R}mu{CBM-D}(yc(x,y){CBM-Q}av){CBM-N}hh {CBM-F}gny,x: {$fa}gx{CBM-G}z(x){CBM-R}{CBM-B}(x{CBM-S}2{CBM-N}3{CBM-D}y{CBM-S}2){CBM-Z}(x{CBM-S}2{CBM-N}y{CBM-S}2){CBM-N}(x{CBM-S}2{CBM-N}5{CBM-D}y{CBM-S}2){CBM-D}{CBM-X}(1{CBM-Q}x{CBM-S}u),s%(nc),lm%(nc),lx%(t,2),ly%(t,2),zp%(t,t),zl%(t),z%(nc),z1%(u) nat%(u),a%(nc),b$(u),x1%(u,zz),y1%(u,zz),np$(z),pc$(z),pc%(z),cl%(u),c4%(u):c${CBM-R}"" {CBM-+} : B get screen data {CBM-*} {$e7}0,1:{$e7}4,1:{$e7}1,2:{$e7}2,3:{$e7}3,7 t{CBM-R}1{CBM-@}9:c2%(t)::t{CBM-R}0:{$fe}":zp%(n,z){CBM-R}xp:28 2 zl%(n){CBM-R}z:z{CBM-R}0:n{CBM-R}n{CBM-N}1:n{CBM-E}12{CBM-M}31:U17:28 f tn{CBM-R}tn{CBM-Q}1:n{CBM-R}1:z{CBM-R}0 z 15:xp{CBM-R}255{CBM-M}34 ! z{CBM-R}z{CBM-N}1:x1%(n,z){CBM-R}xp:y1%(n,z){CBM-R}yp:32 {SHIFT-POUND}" z1%(n){CBM-R}z:z{CBM-R}0:n{CBM-R}n{CBM-N}1:n{CBM-E}9{CBM-M}35:U17:32 {$f6}# {$de}3,1:n{CBM-R}1{CBM-@}9:z{CBM-R}1{CBM-@}z1%(n){CBM-Q}1:{$e5}1,x1%(n,z),y1%(n,z){CBM-@}x1%(n,z{CBM-N}1),y1%(n,z{CBM-N}1)::9:{CBM-T}5)J(c$,c3,1)""np$(t)",select your color " e1 t2{CBM-R}1{CBM-@}9:J(c$,t2,1)" ";:: R2 {CBM-T}2)"1 2 3 4 5 6 7 8 9" 3 {CBM-K}yc$:t2{CBM-R}E(yc$):t2{CBM-W}1{CBM-A}t2{CBM-E}9{CBM-A}c4%(t2){CBM-R}1{CBM-M}48 4 pc$(t){CBM-R}J(c$,t2,1):{$fe}0,t{CBM-D}2{CBM-N}4,39,t{CBM-N}2{CBM-N}5,1:{CBM-T}12)pc$(t)"#"t".."np$(t);:pc%(t){CBM-R}c2%(t{CBM-F}(1){CBM-D}nd){CBM-N}1:s%(tc){CBM-R}ss{CBM-M}65 bb tn{CBM-R}tn{CBM-N}1{CBM-N}(tn{CBM-R}np){CBM-D}np:tt{CBM-R}tn:58:s%(tc){CBM-R}ss:59:tn{CBM-R}0:58:tn{CBM-R}tt Xc a%(tc){CBM-R}tn:cl%(tn){CBM-R}cl%(tn){CBM-N}1:c0{CBM-R}c0{CBM-N}1:17:c0{CBM-W}nd{CBM-M}65 d {$e7}4,1:91 e : {SHIFT-POUND}f players chooses areas Hg {$de}4,1,22:{$e7}0,1:{$e7}4,1:tn{CBM-R}1:60 {$f4}h tc{CBM-R}1{CBM-@}nd:tn{CBM-R}3:58::t{CBM-R}1{CBM-@}np:{$e7} tt{CBM-R}tn:tn{CBM-R}0:58:tn{CBM-R}tt:a%(tc){CBM-R}tn:cl%(tn){CBM-R}cl%(tn){CBM-N}1:gg{CBM-R}0::U40: 5x gg{CBM-R}1{CBM-M}75:U74 ;y : _z place armies on territories {CBM-S}[ {$de}4,0,22:t{CBM-R}1{CBM-@}nd:39:{$e3}nb$(1),x%(t,1){CBM-Q}ox,y%(t,1){CBM-N}oy,4:u{CBM-R}1{CBM-@}np:ya%(u,t){CBM-R}1:: {$e9}\ tn{CBM-R}0:n{CBM-R}0:{$fe}1,1,2:{$fe}1,(x%(20,1){CBM-D}2){CBM-N}10,y%(20,1){CBM-N}39: 2{CBM-Q}y{CBM-S}2){CBM-Z}2: 9hB{CBM-G}z(x){CBM-R}(x{CBM-S}2{CBM-N}5{CBM-D}y{CBM-S}2){CBM-D}{CBM-X}(1{CBM-Q}x{CBM-S}2{CBM-Q}y{CBM-S}2){CBM-Z}2{CBM-Q}{CBM-B}(3{CBM-D}x{CBM-S}2{CBM-N}y{CBM-S}2){CBM-Z}(x{CBM-S}2{CBM-N}y{CBM-S}2): LhL{CBM-G}z(x){CBM-R}{CBM-Q}x{CBM-S}3{CBM-Z}10{CBM-Q}({CBM-B}(1{CBM-Q}x{CBM-S}2{CBM-Q}y{CBM-S}2){CBM-N}{CBM-V}(1{CBM-Q}x{CBM-S}2{CBM-Q}y{CBM-S}2)){CBM-Z}2: {CBM-G}hV{CBM-G}z(x){CBM-R}{CBM-B}(3{CBM-D}x){CBM-D}{CBM-B}(3{CBM-D}y){CBM-Z}5{CBM-N}.7{CBM-D}{CBM-B}(2{CBM-D}x{CBM-S}2{CBM-N}3{CBM-D}y{CBM-S}2){CBM-Z}(x{CBM-S}2{CBM-N}y{CBM-S}2): Th{CBM-G}z(x){CBM-R}{CBM-V}(3{CBM-D}x){CBM-N}2{CBM-D}{CBM-B}(x{CBM-S}2{CBM-N}y{CBM-S}2){CBM-Z}(x{CBM-S}2{CBM-N}y{CBM-S}2){CBM-Q}x{CBM-Z}2: {$f8}h{CBM-G}z(x){CBM-R}.3{CBM-D}({CBM-B}(x{CBM-S}2{CBM-N}y){CBM-N}{CBM-V}ml-battle",b0,p4864:tn{CBM-R}4862 : Q("1994"):n{CBM-R}1:nd{CBM-R}nc{CBM-Q}1:z{CBM-R}0:18 \ tn{CBM-R}tn{CBM-N}2:xp{CBM-R}B(tn):yp{CBM-R}B(tn{CBM-N}1): S tn{CBM-R}tn{CBM-N}1:xp{CBM-R}B(tn): t{CBM-R}t{CBM-N}1{CBM-N}(t{CBM-R}16){CBM-D}16:{$e7}4,t:Z1,n{CBM-D}1000,1: {CBM-Z} 15:xp{CBM-R}255{CBM-M}20 Q z{CBM-R}z{CBM-N}1:x%(n,z){CBM-R}xp:y%(n,z){CBM-R}yp:18 z%(n){CBM-R}z:z{CBM-R}0:n{CBM-R}n{CBM-N}1:n{CBM-R}nc{CBM-M}n{CBM-R}1:z{CBM-R}0:tn{CBM-R}t $ t{CBM-R}0{CBM-@}8:{$e4}nb$(t{CBM-N}1),t{CBM-D}8,0,t{CBM-D}8{CBM-N}4,5::44 p% 39:{$fe}0,23,39,24,1:""pc$(tn)np$(tn)" ";: & {$fe}0,24,39,24,1:""pc$(at%(2))np$(at%(2))" ";: ' Z1,10000,10: {CBM-M}( Z3,400,30: {CBM-F}) u{CBM-R}1{CBM-@}11:{CBM-K}n$:: A* : {$e4}+ # of players and colors 0, {$fe}&:{$de}0,1:{$e7}4,2):c4%(t2){CBM-R}1:{$fe}0,0,39,24: o5 {$fe}0,15,39,24,1:" distribution of territories " 6 {CBM-T}9)" 1 ...by the computer":{CBM-T}9)" 2 ...by the players" {CBM-U}7 {$fe}0,0,39,24:{CBM-K}{$f9}yc$:yc${CBM-R}"2"{CBM-M}71:U63 {CBM-V}8 : Y9 drawing routines : u{CBM-R}1{CBM-@}z%(tc){CBM-Q}1:{$e5}tt,pc%(t): /i tn{CBM-R}0:n{CBM-R}0:{$fe}1,1,2:{$fe}1,(x%(20,1){CBM-D}2){CBM-N}10,y%(20,1){CBM-N}39:tc{CBM-R}20 yj tn{CBM-R}tn{CBM-N}1{CBM-N}(tn{CBM-R}np){CBM-D}np:n{CBM-R}n{CBM-N}1:39:n{CBM-E}nd{CBM-M}91 {$7d}k 37:" select one territory "; l tn{CBM-W}3{CBM-M}79 {CBM-E}m {CBM-K}n$:86:n${CBM-R}""{CBM-M}77:Un${CBM-R}"5"{CBM-M}87:88 An j{CBM-R}0:81:77 {$e9}o j{CBM-R}O(tn):86:j{CBM-R}0{CBM-M}79:Uj{CBM-E}127{CBM-M}87:8tc{CBM-R}20 0] tn{CBM-R}tn{CBM-N}1{CBM-N}(tn{CBM-R}np){CBM-D}np:n{CBM-R}n{CBM-N}1:ya{CBM-R}0:ye{CBM-R}16:r1{CBM-R}0:Z2,10000,30:n{CBM-E}(np{CBM-D}4){CBM-M}120 v^ 41:37:" place "ye{CBM-Q}ya" armies"; C_ tn{CBM-W}3{CBM-M}98 {$60} {CBM-K}n$:86:n${CBM-R}""{CBM-M}96:Un${CBM-R}"5"{CBM-M}100:102 A j{CBM-R}0:81:96 FB j{CBM-R}O(tn):86:j{CBM-R}0{CBM-M}98:Uj{CBM-E}127{CBM-M}100:102 XC n${CBM-R}"":81:98 {$e4}D r2{CBM-R}1):z{CBM-R}1{CBM-@}12:gg{CBM-R}1:t{CBM-R}1{CBM-@}zl%(z):a%(zp%(z,t)){CBM-W}{CBM-E}tn{CBM-M}t{CBM-R}zl%(z):gg{CBM-R}0 ,T :gg{CBM-R}1{CBM-M}ye{CBM-R}ye{CBM-N}7 4U : :V : pW players turn ^X r1{CBM-R}1:tn{CBM-R}0 Y tn{CBM-R}tn{CBM-N}1{CBM-N}(tn{CBM-R}np){CBM-D}np:r1{CBM-R}1:r2{CBM-R}0:Q("d015"),1:cl%(tn){CBM-R}0{CBM-M}121 {CBM-P}Z cl%(tn){CBM-R}nd{CBM-M}179 {CBM-C}{$7b} 115:94 B{$7c} : {CBM--}{$7d} players strategyl percentage:";:at%(5){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}15){CBM-N}1:u{CBM-R}0 < 38:"'s survival percentage:";:at%(6){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}15){CBM-N}1:z{CBM-R}0 u{CBM-W}at%(5){CBM-M}at%(7){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}100):{$fe}35,23,39,23,1:{$fb}"##";at%(7);:"%";:u{CBM-R}u{CBM-N}1 T z{CBM-W}at%(6){CBM-M}at%(8){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}100):{$fe}35,24,39,24,1:{$fb}"##";at%(8);:"%";:z{CBM-R}z{CBM-N}1 {$fb}n$:n${CBM-R}"*"{CBM-M}126 {$eb} :138 {$f1} : nuke routine W r2{CBM-R}1:37:"..nuclear use comfirmed...":Z3,8000,690,1,100,200,0:" select territory for ground zero "; {$f1} 95:at%(5){CBM-R}1:at%(2){CBM-R}a%(tc):at%(4){CBM-R}tc:{$fe}3,N(1,0){CBM-Q}8,N(1,1):{$fe}5,0,40:n{CBM-R}0:at%(8){CBM-R}40:at %(4):121 {SHIFT-+}{CBM-I} : {$ee}{CBM-T} evacuation 0{CBM-@} Q("d015"),1:37:" evacuate from where?";:r2{CBM-R}1:95:at%(1){CBM-R}tc o{CBM-G} a%(tc){CBM-W}{CBM-E}tn{CBM-M}Z1,400,30:164 {CBM-+} {$fe}0,24,39,24,1:39:"how many armies to evacuate"; {CBM-O}{CBM-M} n${CBM-R}"":{CBM-K}{$f9}n$:n${CBM-R}{CBM-E}"0"{CBM-P}n${CBM-W}{CBM-R}"8"{CBM-M}hm{CBM-R}E(n$):168:U167 {$e7}{CBM-POUND} hm{CBM-R}0{CBM-A}hm{CBM-E}(ya {CBM-F} .{CBM-H} u{CBM-R}10:x{CBM-R}0{CBM-@}C(np$(tn)){CBM-D}8:z{CBM-R}0:y{CBM-R}192{CBM-@}199:z{CBM-R}z{CBM-N}1:{$e6}x,y:P(2){CBM-R}1{CBM-M}{$e1}1,4{CBM-N}x{CBM-D}5,u{CBM-N}z{CBM-D}7,7{CBM-N}x{CBM-D}5,u{CBM-N}8{CBM-N}z{CBM-D}7,,1:Z1,60000,1 {$60}{CBM-J} :: 1,5,11," may the force be with you ",1: Z{CBM-L} 8,9,11,3,5,7,15,4,6 (2):112:tc{CBM-R}at%(1):112:ya%(tn,tc){CBM-R}ya%(tn,tc){CBM-Q}hm:112:121 D{CBM-Z} : Y{CBM-S}{CBM-M} E gg{CBM-R}1:ya%(tn,tc){CBM-R}9 {CBM-A} a%(tc){CBM-W}{CBM-E}tn{CBM-M}40::Ugg{CBM-R}0: "F r2{CBM-R}1{CBM-M} /G gg{CBM-R}1{CBM-M}94 OH {$fe}0,24,39,24,1:yb{CBM-R}9{CBM-Q}ya%(tn,tc):yc{CBM-R}ye{CBM-Q}ya:yb{CBM-W}yc{CBM-M}yd{CBM-R}yb:Uyd{CBM-R}yc I 39:"how many armies: "yd"or less";:41 NJ m${CBM-R}"":{CBM-K}{$f9}m$:m${CBM-R}{CBM-E}"0"{CBM-P}m${CBM-W}"9"{CBM-M}hm{CBM-R}E(m$):107:U106 {$eb}K hm{CBM-R}0{CBM-A}(hm{CBM-N}ya) {$7e} 37:" select your action:";:cl%(tn){CBM-R}nd{CBM-M}179 u{$7f} {$fe}0,24,39,24,1:" a ttack r adiation e vacuation";:41 {$7f} n${CBM-R}"":{CBM-K}{$f9}n$:T(q$,n$)131,153,164:128 : attack routine C r2{CBM-R}1:37:" attack from where?"; {$f0} Q("d015"),1:95:a u{CBM-W}at%(5){CBM-A}z{CBM-W}at%(6){CBM-M}Z3,50000,1:140 X {$fe}2:tt{CBM-R}tn:at%(7){CBM-E}{CBM-R}at%(8){CBM-M}u{CBM-R}{CBM-J}(ya%(tn,at%(3)){CBM-Z}2):z{CBM-R}ya%(tn,at%(3)){CBM-Q}u:tn{CBM-R}at%(2):tc{CBM-R}at%(4):112:ya%(tn,tc){CBM-R}ya%(tn,tc){CBM-Q}1:145 {CBM-W} tc{CBM-R}at%(3):tn{CBM-R}tt:112:ya%(tn,tc){CBM-R}ya%(tn,tc){CBM-Q}1:112:147 ya%(tn,tc){CBM-E}0{CBM-M}112:tn{CBM-R}tt:14%(9){CBM-R}1:{$fe}13,16:{$fe}2,0:{$fe}5,1,2,,,,1 ( gg{CBM-R}0:at%(2){CBM-R}tn{CBM-M}37:" you're terror with a bomb"; y n{CBM-R}n{CBM-N}2:Z2,400,15:{$fe}5,n,40:z{CBM-R}{CBM-Q}(z{CBM-R}0):8188,60{CBM-N}z {CBM-+} at%(9){CBM-P}n{CBM-R}{CBM-E}N(1,0){CBM-P}gg{CBM-R}0{CBM-M}{$fe}7,n,40:at%(9){CBM-R}40:{$fe}7,1,12,,,,1:gg{CBM-R}n:Ugg{CBM-R}o{CBM-M}156 {$e8} at%(9){CBM-W}N(1,1){CBM-M}at%(9){CBM-R}at%(9){CBM-N}2:81%(tn,tc){CBM-Q}1){CBM-M}40:164:U".."m$ {SHIFT-POUND} {$fe}2,N(1,0),N(1,1):{$fe}2,1,2 :{CBM-N} 39:" ...move to where";:95:a%(tc){CBM-W}{CBM-E}tn{CBM-M}165 L{CBM-Q} at%(2){CBM-R}ya%(tn,tc){CBM-N}hm:at%(2){CBM-E}9{CBM-M}Z1,400,30:164 {CBM-V}{CBM-D} 112:ya%(tn,tc){CBM-R}at%(2):112:tc{CBM-R}at%(1):112:ya%(tn,tc){CBM-R}ya%(tn,tc){CBM-Q}hm:112:121 D{CBM-Z} : Y{CBM-S} !#~~'#&#&!()(&&$!# "#2'5+5.+.*.)*)($&#~~6'&)&"("+)/)/(?+?'@'@0~~i@@&p'poof~~uoopq2]3y+y%^^s~~^$\ y&y+\3^6^8E8E5D5D+E+E)D)D'{$60}$^$~~H!E!C^#{$60}%D&D(E(E+D+D4E4E9G:P9P3Q3Q/N/N.M.M/L-N*J&M#J H H!E!~~{$7f}*{$7d}-Y-Y2W3W5Y5Y44{CBM-E}ye{CBM-M}40:94 L (hm{CBM-N}ya%(tn,tc)){CBM-E}9{CBM-M}40:104 eM 112:ya%(tn,tc){CBM-R}ya%(tn,tc){CBM-N}hm:112:ya{CBM-R}ya{CBM-N}hm:r1{CBM-R}0{CBM-M}111 rN ya{CBM-R}ye{CBM-M} DO ya{CBM-R}ye{CBM-M}93:U94 P za%{CBM-R}ya%(tn,tc):{$e3}nb$(za%),x%(tc,1){CBM-Q}ox,y%(tc,1){CBM-N}oy,4: {CBM-T}Q : KR award armies for zones occupied S ya{CBM-R}0:ye{CBM-R}cl%(tnt%(1){CBM-R}a%(tc):at%(3){CBM-R}tc - at%(1){CBM-R}tn{CBM-P}ya%(tn,tc){CBM-E}1{CBM-M}{$fe}2,N(1,0),N(1,1):{$fe}2,1,1:135 @ Z3,400,30:126 37:" attack who";:95:at%(2){CBM-R}a%(tc):at%(4){CBM-R}tc:a%(tc){CBM-R}tn{CBM-M}134 {CBM-W} gg{CBM-R}1:u{CBM-R}1{CBM-@}lm%(at%(3)):l%(at%(3),u){CBM-R}tc{CBM-M}gg{CBM-R}0 C :gg{CBM-R}1{CBM-M}134 ~ 37:"'s surviva8:Utn{CBM-R}tt:tc{CBM-R}at%(3):112:ya%(tn,tc){CBM-R}u:112:tc{CBM-R}at%(4):tn{CBM-R}at%(2) W cl%(tn){CBM-R}cl%(tn){CBM-Q}1:tn{CBM-R}tt:cl%(tn){CBM-R}cl%(tn){CBM-N}1:a%(tc){CBM-R}tn:58:59:tn{CBM-R}0:58:tn{CBM-R}tt:ya%(tn,tc){CBM-R}z:112:126 ya%(tn,tc){CBM-E}1{CBM-M}148:U126 D 37:", * key to stop future attacks";:{$fe}1 t{CBM-R}1{CBM-@}11:{CBM-K}90,62{CBM-N}z:{$fe}7,gg,at%(9):156 d Z2,900,500,2,254,5,3,4000:u{CBM-R}1:{$fe}3,1,2,,1,,1:t{CBM-R}1{CBM-@}300:u{CBM-R}{CBM-Q}(u{CBM-R}0):8186,58{CBM-N}u::Q("d015"),1 X tt{CBM-R}tn:tn{CBM-R}at%(2):112:ya%(tn,at%(4)){CBM-R}at%(5):112 U{CBM-K} u{CBM-R}1{CBM-@}lm%(at%(4)):tc{CBM-R}l%(at%(4),u):tn{CBM-R}a%(tc):112:ya%(tn,tc){CBM-R}1:112::tn{CBM-R}tt:tc{CBM-R}at * variables * N{CBM-P} c0{CBM-R}0:c3{CBM-R}0:gg{CBM-R}0:hm{CBM-R}0:np{CBM-R}0:r1{CBM-R}0:r2{CBM-R}0:t{CBM-R}12:t2{CBM-R}0:tc{CBM-R}0:tt{CBM-R}0:sc{CBM-R}0:ss{CBM-R}0:u{CBM-R}9:ya{CBM-R}0:yb{CBM-R}0:yc{CBM-R}0:yd{CBM-R}0:ye{CBM-R}0:z{CBM-R}3:za{CBM-R}0:zz{CBM-R}14:hm${CBM-R}"":n${CBM-R}"":np${CBM-R}"":yc${CBM-R}"":q${CBM-R}"are" T{CBM-A} Z{CBM-E} : {CBM-R} * end game * F{CBM-W} {$de}1,0:{$e7}1,1: 1,0,24,np$(tn){CBM-N}" ,you are the best":{$e7}1,25533))"!#{$7f})~~ 3300..**& ~~'&~~ *2"~~7)/',<=??*2(~~g&@&>5m5o7p3q3q+p+p'd&~~w3p3q?rb\b_<_:]3t3~~B8^8_:_;\bCrGoE9C8A8~~I:F:GoJoMjMaLaL:H:~~R:Q:Q8L:LaMaMgRiVfVcWcW:U:U9S9S:Q:~~{$7e}5Y5V9Wa{$7e}c{$7f}b>::445{$7b}5~~>>{$7f}b+ run's checksum 64/128 - bob kodadek y mo{CBM-R}128:sa{CBM-R}3328: B(40960){CBM-M} mo{CBM-R}64:sa{CBM-R}49152 {$7d} i{CBM-R}0{CBM-@}169:b:ck{CBM-R}ck{CBM-N}b: sa{CBM-N}i,b: ( ck{CBM-W}{CBM-E}20651 {CBM-M}"data error!": E2 sa{CBM-N}110,240:sa{CBM-N}111,38:sa{CBM-N}140,234 {$e7}< G(147)D(mo)" run checksum": f "to toggle on or 167,165,168,105,0,133,168,136,208,239,232,208,209,169,42,32,210 {CBM-N} 255,165,167,69,168,170,169,0,32,50,142,169,32,32,210,255,32,210 H{CBM-H} 255,169,13,32,210,255,104,168,96,104,170,24,32,240,255,104,168 {CBM-V} 96,56,32,240,255,138,72,152,72,24,162,0,1 F {$f0}/ {$fe}{CBM-N} {$7f}~{$e8}{$fe}{$ee}{$fa} {$fc} {$f0} {CBM-@} {CBM-@} {CBM-@} {CBM-@} {CBM-@} \ \ \ \ \ d d ! ! !"% % % %' ! !"# " ! %#$ "$ "#%& "$&' $%)* (%) ') %&'(* &)+ *, + ~~~~!+~~7 {$7d}~~, ! "# %$& '()* ,+* kkf==55::<>~~, * 004 4i i kkw^FG [@/+~~1/@![#y'50~~,<+<-6&5$o0r1=+;~~:?1=0rauc@6>~~h5>5=?c?cesep8m5d5~~kebeauuvsffe~~xbrbvyyyyx{$60}xAzByCr\bub~~NhLfKmJoFoCsCwRsTnSkRkRiNh~~XaVaUcUhSjToUp{$7c}h{$7c}bYbXa~~{$7e}c{$7b}b{$7b}hVoUpSoRs{$7e}pp{$7e}b~~(q$o#yF'P*P new rerun c64 automenu 0 lou wallace n( 53280,0:53281,0:G(142) D2 dr{CBM-R}B(186):v{CBM-R}54273 < ch${CBM-R}"abcdefghijklmnopqrstuvwxyz" {CBM-G}f dr${CBM-R}I(D(dr),C(D(dr)){CBM-Q}1) Jp n$(255),d$(255):cx{CBM-R}54272: "" Rz f {$ee}D i{CBM-R}1 {CBM-@} f: n$(i),d$(i) N C(n$(i)){CBM-E}off, sys"sa: mo{CBM-R}128 {CBM-M} 100 hp sa{CBM-N}13,124:sa{CBM-N}15,165:sa{CBM-N}25,124:sa{CBM-N}26,165 Xz sa{CBM-N}39,20:sa{CBM-N}41,21:sa{CBM-N}123,205:sa{CBM-N}124,189 D sa{CBM-N}4,{CBM-J}(sa{CBM-Z}256): sa:{CBM-I} ZN 120,162,24,160,13,173,4,3,201,24,208,4,162,13,160,67,142,4,3,140 ! X 5,3,88,96,32,13,67,152,72,1 060,0,32,240,255,169 H 42,208,198 164,23,134,167,132,168,170,189,0,2,240,58,201,48,144,7,201,58,176 {CBM-P} 3,232,208,240,189,0,2,240,42,201,32,208,4,164,180,240,31,201,34 {$f7} 208,6,165,180,73,1,133,180,230,176,164,176,165,167,24,125,0,2,133 =C(n$(p)){CBM-E}15{CBM-M}n$(p){CBM-R}H(n$(p),16){CBM-N}"*" e^"load"G(34)n$(p)G(34)","dr$",1" rHa${CBM-R}d$(p) BRa${CBM-R}a${CBM-N}G(13) {$7c}631,13:b{CBM-R}1{CBM-@}C(a$):631{CBM-N}b,F(J(a$,b,1))::198,10 {CBM-I} {CBM-J} 53280,0: 53281,0 Eov{CBM-R}B(53265) {CBM-*}{CBM-@} 53265,B(53265){CBM-P} 247 {$fc}{CBM-S} 53265,(B(53265){CBM-P}24 "#$%&'()* ! ! ~~ ~~ ~~ ~~" "" ~~( (**(~~0 2 211~~9 89889::9:9 ~~@ b bb@@ ~~ {CBM-I} {CBM-X}{CBM-A} {$e8}P{$f7}{$ee}{$ee}P{$ec}{$60} d d -P0r&p~~5s0r-Q/Q/O<O?u3s~~jFgDgy>y<O4O8W8{$7c}<{$7f}?{$7b}b{$7c}flnnmmpsw{$7b}uLuJvJvHtFpGlGgD~~nv?u?yfyfClGpGuFu{$60}tyuyuviv~~[xuytyt{$60}u{$60}uGwJ^K^BBz]yyxxy~~zKvJvVwVw{$7c}\{$7c}\Z_{$7e}D{$7e}DZ{$60}YBW_T^T^Q_Q_KyJ~~B__A^P]P^TDYFVFSESFGGGG_B_~~LtCw_{$60}G{$60}N]VsMtGv~~I^G_ESGSGWIWISPSPHL]H^~~{$7f}pVsP\13 {CBM-M} n$(i){CBM-R}H(n$(i),13){CBM-N}"*" X ( 400 n - print first column of names - _ d${CBM-R}"" O i{CBM-R}1 {CBM-@} f{CBM-Z}2 Y{CBM-N} d$; {CBM-H} ""J(ch$,i,1)" "n$(i) {CBM-D}{CBM-V} 590:d${CBM-R}d${CBM-N}"" {CBM-R}H XR -- then 2nd column of names --- {$e9}{CBM--} d${CBM-R}"" {$fd}{$e6} i{CBM-R}(f{CBM-Z}2{CBM-N}1) {CBM-@} 69,0,141,0,255,133,176,133,180,166,22 I 164,23,134,167,132,168,170,189,0,2,240,58,201,48,144,7,201,58,176 {CBM-P} 3,232,208,240,189,0,2,240,42,201,32,208,4,164,180,240,31,201,34 {$f7} 208,6,165,180,73,1,133,180,230,176,164,176,165,167,24,125,0,2,133 = " {$ea}""; * {$f4} tp$;: 590 g {$fe} i{CBM-R}1 {CBM-@} 2: md$;: 590: A "";hd$;: 590 M :""; i{CBM-R}1 {CBM-@} 1: md$;: 590: & bt$;: 590 {CBM-O} 0 i{CBM-R}1 {CBM-@} 19: pr$;: 590: H : 53265,27 N d {$e7} n sound routine here x v{CBM-N}23,1 8){CBM-N}7 1{CBM-U}pr${CBM-R}"Q{CBM-G} {CBM-M}Q" FBtp${CBM-R}"Q{CBM-G}UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI{CBM-M}Q" Lmd${CBM-R}"Q{CBM-G}B B{CBM-M}Q" PVbt${CBM-R}"Q{CBM-G}JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK{CBM-M}Q" {$f7} hd${CBM-R}"september/october 1989 rerun d d x {$f8} u {CBM-G}P9uV_Z5MH{$fa} t X {$7c} pv {$e5}{$f0}.u\{$f5}w&U{$7c}{CBM-F}{SHIFT-*} {CBM--} t {CBM--} {SHIFT-*} {SHIFT-*} {$f0}/ {$fe}{CBM-N} _~{$e8}{$fe}{$fe}{$fa} {$fc} {$f0}Xz__]\yyrpp{$7b}r~~Z[VzS\R]{$7b}I^XzV[~~S_Q\L^PIPSWSWPYPYKZKZIYIYGS_~~{$7b}Z{$7b}RZRZPWPWSISIVNVOZQZRXUYW{$7f}YY{$7e}{$7f}{$7f}{$7b}Y~~1-++/{CBM-G}4{CBM-G}660~~TO O RRTVZ {$7f} ZP~~, f {$f0} d$; * {$fa} {CBM-+}19)""J(ch$,i,1)" "n$(i) > 590:d${CBM-R}d${CBM-N}"" d x {CBM-K}m$:m${CBM-R}""{CBM-M} 280 S "m${CBM-W}"a"{CBM-A}m${CBM-E}G(64{CBM-N}f){CBM-M}280 ,p{CBM-R}F(m$){CBM-Q}64:"" {CBM-@} 6 d$(p){CBM-W}{CBM-E}"run" {CBM-M} 340 K @C(n$(p)){CBM-E}12{CBM-M}n$(p){CBM-R}H(n$(p),12){CBM-N}"*" {$f6} j"load"G(34)n$(p)G(34)","dr$"":360 t5: v{CBM-N}4,9: v{CBM-N}5,0: v,1: v{CBM-N}3,32: v{CBM-N}3,33 #B 3{$e8} file list L{$f2} first entry is the number of programs on this disk {$fc} followed by each filename {CBM-L} second data item is run or sysxxxxx {$e5} run if file is basic and sys xxxxx if ml {$ed} 8 $-p:2 21" %T2,G(it);G(is);G(0)G(9);G(89);G(2);G(2);G(23); 8{$de}2,G(56);G(4); n{$e8}15,"u2:2 0 18 1" ^{$f2} 3: 2:1470 {$fc}""{CBM-+}7)"printer driver customizer" {CBM-Z}""{CBM-+}10)"conversion complete" R{CBM-+}9)"exit to basic or geos" {$ea}{CBM-K} c$: c$ {CBM-R}"" {CBM-M}10 {SHIFT-POUND} geoslides,run . calendar 64/128,run 18 word wonder,run bb gantry,run tl quikmat,run Gv maze run,run {$60} functional keys,run E customizer,run 0 i{CBM-R}1 {CBM-@} 19: pr$;: 590: H : 53265,27 N d {$e7} n sound routine here x v{CBM-N}23,1 50 {$fb}$ c${CBM-R}"b" {CBM-M} . c${CBM-W}{CBM-E}"g" {CBM-M} 1050 :8""{CBM-+}9)"insert geos boot disk" {$60}b{CBM-+}7)"press any key to contuine " Vl{CBM-K} c$: c${CBM-R}""{CBM-M}1100 v15,"i0":1470 {$60} 15:"geos",8 {CBM-K}J {CBM-M}T {CBM-F}{$7e} star nx-1000c Mn${CBM-R}"nx-1000c" {$e9}n1{CBM-R}27:n2{CBM-R}120:n3{CBM-R}49:n 15,"i0": 15 {$f1} nl-10c" 2n1{CBM-R}27:n2{CBM-R}120:n3{CBM-R}49:n4{CBM-R}0 8<l1{CBM-R}27:l2{CBM-R}51:l3{CBM-R}24:l4{CBM-R}0 rfg1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 Lpi1{CBM-R}27:i2{CBM-R}64:i3{CBM-R}0:i4{CBM-R}0 Tzd{CBM-R}4 ZD N star sg-10c Xn${CBM-R}"sg-10c" {CBM-L}n1{CBM-R}27:n2{CBM-R}88:n3{CBM-R}1:n4{CBM-R}0 Ql1{CBM-R}27:l2{CBM-R}51:l3{CBM-R}24:l4{CBM-R}0 {$eb}g1{CBM-R}27:g2{CBM-R}76: 4{CBM-R}0 l1{CBM-R}27:l2{CBM-R}65:l3{CBM-R}8:l4{CBM-R}0 {CBM-+}g1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 7{CBM-A}i1{CBM-R}27:i2{CBM-R}64:i3{CBM-R}0:i4{CBM-R}0 ?{SHIFT-@}d{CBM-R}4 eD wN star nl-10c GXn${CBM-R}"nl-10c" {$e2}n1{CBM-R}27:n2{CBM-R}120:n3{CBM-R}49:n4{CBM-R}0 {$ec}l1{CBM-R}27:l2{CBM-R}65:l3{CBM-R}8:l4{CBM-R}0 {CBM-Y}{$f6}g1{CBM-R}27:g2{CBM-R}76:g3{CBM-R}0:g4{CBM-R}0 Q i1{CBM-R}27:i2{CBM-R}64:i3{CBM-R}0:i4{CBM-R}0 Y d{CBM-R}4 {CBM-*} {$f1}