-ACPMUG 5ACATALOG VOLUME5 OC21 SC9 BAS2-0 OM` BAS2-1 OM` !"#$OTHELLO AS%&'()*+,-./01234OTHELLO AS.2 12K BAS2-0.COM BASIC-E COMPILER 5.3 12K BAS2-1.COM CASIC-E COMPILER 5.4 DELETED 5.5 5K BIO-FF.ASC MICROSOFT BASIC PROGRAM 5.6 4K BIORYTH.ASC MICROSOFT BASIC PROGRAM 5.7 10K BLKFRI2.ASC MICROSOFT BASIC PROGRAM 5.8 DELETED 5.9 2K DECISION.ASCOTHELLO OC&56789RUN2-2 OM\:;<=>?@ABCDERUN2-3 OM\FGHIJKLMNOPQRUNK2-0 OM`RSTUVWXYZ[\] INTCROSOFT BASIC PROGRAM 5.17 1K RECOVERY.ASC MICROSOFT BASIC PROGRAM 5.18 12K RUN2-2.COM BASIC-E INTERPRETER 5.19 12K RUN2-3.COM BASIC-E INTERPRETER 5.20 12K RUNK2-0.COM BASIC-E INTERPRETER 5.21 4K SLOT.ASC MICROSOFT BASIC PROGRAM 5.22 2K SORT.ASC MICR MICROSOFT BASIC PROGRAM 5.10 DELETED 5.11 6K EDTEXT.ASC MICROSOFT BASIC PROGRAM 5.12 2K FORMAT.ASC MICROSOFT BASIC PROGRAM 5.13 DELETED 5.14 16K OTHELLO.BAS BASIC-E PROGRAM 5.15 5K OTHELLO.DOC INSTRUCTIONS FOR OTHELLO.BAS 5.16 2K RADIX.ASC MIVOLUME 5 BASIC-E COMPILERS AND INTERPRETERS BASIC-E PROGRAMS, CONTINUED FROM VOLUME 3 MICROSOFT BASIC PROGRAMS NUMBER SIZE NAME COMMENTS CATALOG.5 CONTENTS OF CP/M GROUP VOL 5 VOLUME5.DOC COMMENTS 5.1 8K 21.ASC MICROSOFT BASIC PROGRAM 5OSOFT BASIC PROGRAM 5.23 7K STARTREK.ASC MICROSOFT BASIC PROGRAM 5.24 14K SUPTRK3.ASC MICROSOFT BASIC PROGRAM 5.25 DELETED BASIC-E THIS DISKETTE CONTAINS 2 VERSIONS OF THE BASIC-E COMPILER BAS2-0 AND BAS2-1, AND THREE VERSIONS OF THE RUN-TIME INTERPRETER RUNK2-0, RUN2-2 AND RUN2-3. THE BUGS AND RELATIVE MERITS ARE UNKNOWN. TRY THEM. NOTE THAT IN THESE VERSIONS, THE CO 205 236 IFO(G)=0 GOTO 202 237 O(G)=O(G)-1 238 X(G)=X(G)-10 239 GOTO 235 240 N=P(G,1) 241 Y=Y+1 242 GOSUB 332 243 M=N 244 N=P(G,2) 245 GOSUB 332 246 IF M=N GOTO 249 247 PRINT"YOU MAY ONLY SPLIT PAIRS!!"; 248 GOTO 174 249 R=R+1 250 Y=Y+1 257 GOSUB 341 158 GOSUB 374 159 IFM<>11 GOTO 161 160 GOSUB 456 161 IFW<>21 GOTO170 162 PRINT"I HAVE BLACKJACK, "; 163 IFX(1)<>21 GOTO 167 164 PRINT"SO DO YOU, WE PUSH"; 165 GOSUB 447 166 GOTO 128 167 PRINT"YOU LOSE "; 168 V=V-U 169 GOTO 165 170 FIRST CARD FOR HAND ";G;" WAS "; 211 GOSUB 341 212 GOTO 174 213 IF F<>0 GOTO 219 214 IF X(G)<22 GOTO 205 215 IFO(G)=0 GOTO 202 216 X(G)=X(G)-10 217 O(G)=O(G)-1 218 G=G+1 219 IF F<>2 GOTO 240 220 IF S(G)=2 GOTO 223 221 PRINT"DOUBLE ON FIRST TPRINT 132 PRINT 133 PRINT 134 INPUT"YOUR BET";U 135 IFU=0GOTO467:IFU<0GOSUB289 136 PRINTCHR$(26) 137 PRINT"YOUR BET IS $";U;" YOUR STANDING IS $";V 138 IFU>0 GOTO 143 139 IFU=0GOTO467 140 B=1 141 GOSUB 289 142 GOTO 134 143 IFU<=500 GOTO 146 OMPILE TIME OPTIONS ARE PLACED IN THE COMMAND NOT IN THE FILE - EG "BAS2-1 WUMPUS $B" OTHELLO IS OVERFLOW BASIC-E PROGRAM FROM VOLUME 5 MICROSOFT BASIC (AND SIMILAR) THE FILES ???????.ASC ARE ASCII SOURCES OF PROGRAMS WRITTEN IN MICROSOFT - F>3 GOTO 179 182 IF F<>1 GOTO 213 183 IFA<=E GOTO185 184 GOSUB 384 185 M=S(G) 186 M=M+1 187 S(G)=M 188 N=D(A) 189 P(G,M)=N 190 PRINTTAB(7)"YOUR CARD IS "; 191 GOSUB341 192 GOSUB 332 193 A=A+1 194 IFN<>11 GOTO 196 195 O(G)=O(G)+1 196 X(G)=X(IFX(1)<>21 GOTO 174 171 PRINT"YOU HAVE BLACKJACK, YOU WIN!" 172 V=V+3*U/2 173 GOTO165 174 PRINT"PLAY "; 175 IFR=1 GOTO 177 176 PRINT"FOR HAND ";G;" "; 177 INPUT F 178 IF F>-1 GOTO 181 179 PRINT"ONLY 0-3 ARE VALID! REENTER"; 180 GOTO 177 181 IF 100 PRINTCHR$(26) 101 PRINT"WHAT IS YOUR LUCKY NUMBER (1 TO 25000)" 102 INPUT LN 103 IF LN<1 OR LN>25000 OR LN<>INT(LN) THEN PRINT"FOLLOW INSTRUCTIONS !":GOTO101 104 LN=LN MOD 97 105 FORX=1 TO LN:NL=RND(1):NL=RND(X):NEXT 106 PRINT : PRINT : PRINT WO CARDS ONLY!!" 222 GOTO 174 223 IFA<=E GOTO 225 224 GOSUB 384 225 H(G)=2*U 226 N=D(A) 227 P(G,3)=N 228 A=A+1 229 PRINTTAB(20)"YOU DRAW THE "; 230 GOSUB 341 231 GOSUB 332 232 IFN<>11 GOTO 234 233 O(G)=O(G)+1 234 X(G)=X(G)+N 235 IFX(G)<22 GOT144 PRINT" HOUSE LIMIT IS $500!! REENTER" 145 GOTO 134 146 GOSUB 299 147 H(1)=U 148 N=Q(2) 149 PRINT"MY UP CARD"; 150 GOSUB 341 151 PRINT 152 N=P(R,1) 153 PRINTTAB(7)"YOUR 1ST CARD" 154 GOSUB 341 155 N=P(R,2) 156 PRINTTAB(7)"YOUR 2ND CARD" 15TYPE BASIC. PROBABLY NEEDS LITTLE PATCHING FOR DEC PDP11 EXTENDED BASIC, TDL AND OTHERS. THE SUFFIX ASC IS USED TO DISTINGUISH THEM FROM THE TOKEN FILES WITH BINARY LINE NUMBERS, WHICH HAVE .BAS SUFFICES. G)+N 197 IF X(G)<22 GOTO 174 198 IFO(G)=0 GOTO 202 199 O(G)=O(G)-1 200 X(G)=X(G)-10 201 GOTO 197 202 PRINT:PRINT"YOU BUSTED WITH ";X(G) 203 X(G)=0 204 Y=Y-1 205 IFG0 GOTO 122 120 PRINT" 1 TO 4 DECKS ONLY!! REENTER "; 121 GOTO 118 122 IFN>4GOTO120 123 E=N*52 124 GOSUB 282 125 B=1 126 GOSUB 289 127 A=1 128 PRINT 129 G=1 130 PRINT 131 107 DIM D(208),H(16),O(16),P(16,11),Q(11),S(16),X(16) 108 PRINT 109 PRINT" ***** BLACKJACK *****" 110 PRINT 111 PRINT"INSTRUCTIONS (Y=YES; N=NO)" 112 INPUTM$ 113 IFM$="Y"GOTO115 114 IFM$<>"N"GOTO111ELSEGOTO116 115 GOSUB 471 116 PRINTCHR$(1 P(R,1)=P(G,2) 252 S(G)=1 253 S(R)=1 254 X(G)=X(G)/2 255 X(R)=X(G) 256 H(R)=U 257 IFN<>11 GOTO 174 258 IF A<=E GOTO 260 259 GOSUB 384 260 N=D(A) 261 P(G,2)=N 262 PRINT"1ST ACE GETS:"; 263 GOSUB 341 264 GOSUB 332 265 IFN<>11 GOTO 267 266 N=1500 ON EACH HAND......." 478 PRINT 479 PRINT"USE THESE CODES TO PLAY:" 480 PRINT" 0-STAND" 481 PRINT" 1-HIT" 482 PRINT" 2-DOUBLE DOWN" 483 PRINT" 3-SPLIT A PAIR" 484 PRINT 485 PRINT"A ZERO BET ENDS THE GAME." 486 PRINT"A NEGATIVE BET FORCEGOSUB 341 400 IF Y=0 GOTO 426 401 IFW<17 GOTO 406 402 IFW>17 GOTO 418 403 IFZ=0 GOTO 424 404 W=W-10 405 Z=Z-1 406 IFA<=E GOTO408 407 GOSUB 384 408 N=D(A) 409 A=A+1 410 Q(T)=N 411 PRINT"I DRAW THE"; 412 GOSUB 341 413 GOSUB 332 414 IFN<>11 GOTO 11 300 Q(I)=0 301 FOR J=1 TO R 302 P(J,I)=0 303 NEXT J 304 NEXT I 305 R=1 306 Y=1 307 IF A+4<=E GOTO 310 308 B=1 309 GOSUB 289 310 PRINT"DEALING" 311 PRINT 312 P(R,1)=D(A) 313 Q(1)=D(A+1) 314 P(R,2)=D(A+2) 315 Q(2)=D(A+3) 316 A=A+4 317 ":INPUTM$ 457 IF M$="Y"GOTO459 458 RETURN 459 PRINT"YOUR INSURANCE BET "; 460 IFW<>21 GOTO 464 461 PRINT"WINS" 462 V=V+U 463 RETURN 464 PRINT"LOSES" 465 V=V-U/2 466 RETURN 467 PRINT"HERE'S YOUR FINAL STANDING!" 468 GOSUB 447 469 GOTO 491 4" 365 RETURN 366 IF I<>1 GOTO 369 367 PRINT"HEARTS" 368 RETURN 369 IFI<>2 GOTO372 370 PRINT"DIAMONDS" 371 RETURN 372 PRINT"CLUBS" 373 RETURN 374 O(G)=0 375 X(G)=0 376 FORI=1 TO 2 377 N=P(G,I) 378 GOSUB 332 379 X(G)=X(G)+N 380 IFN<>11 GOTO 3 267 X(G)=X(G)+N 268 A=A+1 269 IF A<=E GOTO 272 270 GOSUB 384 271 S0 272 N=D(A) 273 P(R,2)=N 274 PRINT"2ND ACE GETS:"; 275 GOSUB 341 276 GOSUB 332 277 IFN<>11 GOTO 279 278 N=1 279 X(R)=X(R)+N 280 A=A+1 281 GOTO 206 282 FOR I=1 TO N 283 J=(432 429 PRINT"LOST "; 430 V=V-H(I) 431 GOTO 441 432 IFW<22 GOTO 436 433 PRINT"WON "; 434 V=V+H(I) 435 GOTO 441 436 IFW<>X(I) GOTO439 437 PRINT"PUSHED ON "; 438 GOTO 441 439 IFW1 GOTO 444 442 PRINT"THE HAND"O416 415 Z=Z+1 416 W=W+N 417 GOTO 401 418 IFW<22GOTO424 419 IFZ=0GOTO423 420 Z=Z-1 421 W=W-10 422 GOTO401 423 PRINT"I BUSTED "; 424 PRINT"MY TOTAL IS ";W 425 PRINTTAB(7)"YOUR TOTAL IS ";X(G) 426 FORI=1 TO R 427 PRINT"YOU "; 428 IFX(I)<>0 GOTOT=2 318 S(1)=2 319 GOSUB 322 320 M=N 321 RETURN 322 Z=0 323 W=0 324 FOR I=1 TO2 325 N=Q(I) 326 GOSUB 332 327 IF N<>11 GOTO 329 328 Z=Z+1 329 W=W+N 330 NEXT I 331 RETURN 332 IF N<14 GOTO 335 333 N=N-13 334 GOTO332 335 IF N<>1 GOTO 338 33670 PRINT 471 PRINT"THE DEALER STANDS ON 17 OR MORE," 472 PRINT"BUT WILL HIT A SOFT 17." 473 PRINT"YOU MAY SPLIT ANY PAIR." 474 PRINT"YOU MAY DOUBLE DOWN ON FIRST TWO CARDS," 475 PRINT"AND GET ONLY ONE MORE CARD." 476 PRINT 477 PRINT"HOUSE LIMIT IS $82 381 O(G)=O(G)+1 382 NEXT I 383 RETURN 384 K=T 385 FORI=1 TO R 386 K=K+S(I) 387 NEXT I 388 FOR I=1 TO K 389 A=A-1 390 J=D(I) 391 D(I)=D(A) 392 D(A)=J 393 NEXT I 394 B=K+1 395 GOSUB 289 396 RETURN 397 N=Q(1) 398 PRINT"MY HOLE CARD" 399 I-1)*52 284 FOR K=1 TO 52 285 D(K+J)=K 286 NEXT K 287 NEXT I 288 RETURN 289 PRINT"I'M SHUFFLING THE CARDS ", 290 FOR I=B TO E 291 C=RND(5)*E 292 IF C0 GOTO451 449 PRINT"EVEN" 450 RETURN 451 IFV>0 GOTO 454 452 PRINT"LOSING $";V 453 RETURN 454 PRINT"WINNING $";V 455 RETURN 456 PRINT"INSURANCE ? (Y=YES; N=NO)FN>10 GOTO 355 353 PRINTTAB(17);N; 354 GOTO 362 355 IFN>11 GOTO 358 356 PRINTTAB(16);"JACK"; 357 GOTO 362 358 IFN>12 GOTO 361 359 PRINTTAB(16);"QUEEN"; 360 GOTO 362 361 PRINTTAB(16);"KING"; 362 PRINT" OF "; 363 IF I<>0 GOTO 366 364 PRINT"SPADES N=11 337 RETURN 338 IF N<11 GOTO 340 339 LET N=10 340 RETURN 341 I=0 342 IF N<14 GOTO 346 343 N=N-13 344 I=I+1 345 GOTO 342 346 IF N<>1 GOTO 349 347 PRINTTAB(17);"ACE"; 348 GOTO 362 349 IFN>9 GOTO 352 350 PRINTTAB(18);N; 351 GOTO 362 352 IS A SHUFFLE." 487 PRINT"TO START, HIT RETURN KEY." 488 WAIT0,1,1 489 RETURN 490 GOTO 491 491 END INT"A NEGATIVE BET FORCE 2-DOUBLE DOWN" 483 PRINT" 3-SPLIT A PAIR" 484 PRINT 485 PRINT"A ZERO BET ENDS THE GAME." 486 PRINT"A NEGATIVE BET FORCE*-"-*-#"2.*6.&-) ^#V!:.q::.0.!..;H !B,6OTdͯ!<.p+qͥ *2.*;.s#r*2.+"2.*2.>w "->-0 *-~2=.*4. *=.& *-*=.&*4. :=.=2=.¿ >Ñ *2.^#V"-u >*4.>2>.O# *0."-*4.#*0.###*4.*- w_:,<2,!,!,6.>2X, -> :X,HL1:X,\c `U1!-p+q:~-<<2-:B,~!I,6:T,ʝ:X, ʚM2X,Æ1:B,*J,#"J,*-|OE*-}OE?E:-=2- E^Eq!I,6!L,6:A,m{,;ͮ,_2X, :X,AO>/ H  H H < / :X, H 1!y,6!-q*M,#"M,:B,g *-M> !Y,t >*Y,&O n&"-!-6*Y,&Y ~!-   *Y,&c :-O! ~2T,O>@:T,cH :T,AO!m ~2U,:T,2V,!T,65>:Y,-F +s#r#4*, ,;,͕,͡(ͤ!,6*,͡2-O>Dͤ:-:G,P,͕,͡h͕ͤ E E!-p+q!-6+6>!-!-60*-&) -S *-&) -S +s#r!-6#4Ø:-/!-*-ME E!-4Š!P,6#6#6!O,6͇ à HҔ!T,61:X,0.2X,/ > / :X,Ex͹ :X,+:X,-Hg͹ /uFId/ :Y,!W,60!Y,6#60= à  c  Ҩ Û:X,$»!U,62 !U,61h / :Z,F:[,NH:Y,H!T,66!T,64= ` !y,6#6!"-}2~-,!,6!-6:1:{,$¤!-6:-<2-O!{, ~2- ʤ:-A2-O>ڡ*-M! ^#V!C,6á!D,6á!G,6á!F,6á!E,6á!H,6áemu}/!Y,6!W,6!T,6#6:X,"!y, !T,62!y,6":X, SUd͇ :y,1:X," )d END <(+*)-,=/;>:#^IFTOGOONOREQLTGTLEGENEFORLETREMDIMDEFNOTANDTANSINCOSSQRTABLOGLENFREATNABSEXPINTENDPOSRNDSGNINPASCVALXORSUBOUTTHENREADGOTOELSENEXTSTOPDATAFILECHR$MID$STEPSTR$COSHSINHPRINTINPUTGOSUBCLOSELEFT$RETURNRIGHT$REMARKRESTORERANDOMIZE >!-6*-&*-:-<2-O!Y, :Y,!-/H= :Y,!-_ogN#Fog01PROD $ ERRORS DETECTED$:A,ғ ->@_!D0"0.*++".."-*-#6!7.q*-^*-*7.& "2.!8.6*-##"2.!9.6*-~!9. *9.&*2.:8.?28.!9.4 :8.*-^!S,6!-q:+-<2+-H!+-6*+-&, :-w,-R !-q*-DM|*-ME E!-6:-!-s*-&,- NE!-4Uq,!-6::X,Hҫ *,DM;!,62X,:~-<2~-O!,- :X,w:X, *-#"-:I,!D,:~-=O8!~-6:X, !X,6 :X,*,&*,~:T, :X,  2X,M ` :T,c\ 3N *X,MN  H M*X,MN 3 ,N N *M,+"M,` = à :X,\q Mà ͹ h /҂ CIdå:y,/Ҹ :Y,<2Y,O!Y, :X,w:X,!W,?w:Y,ڸ !y,6͇ 1͇ 2X,:X,0O> /:X,a/>z!X,/H:X,. !F, :Xq:-=2-*-:-w*-#"-!-q:H,9*-&͕D*-&͕!-q:- j:z,<2z,g QÂ!z,4*-M :- ‚!z,6!-p+q*-~$ʣ*-NE*-#"-É̓ͯ *,DM; *, 6 *, 6*,̓ͯ͡,ͤ͡:G,    HEFIJNTLGAKBOCDPQX! )&$"%(c#RU'WYZ-,+*S.V03%| 7EJMNNAFGFADE $BASNS $!;,r+s+q!>,r+s+q>!"?,!*?,!-s+p+q+p+q:-=2-*-*- w*-#"-*-#"-!-s+q+p+;ͥ *2.6  *2.q#p*6.&-) *-s#r:>.0.+s#r*-~ͥ *2.>!?.qͥ *2.:?.wͥ *2.~ͥ *2.^#V!@.qͥ *2.:@.wͥ *2.~B 2C.!D.6:C.!D. Ϳ o&-"A.*A.-% *A.N#F`i"A.ù *2.*A.N#Fq#p!D.4ž B 2H.!G.6:H.!G.NdA6|*- N#F!-*-q#p*-#>A*-"-**0M*- -%HhnINd:-|LUd!-6*/MҞ` /!B,Ҟ!-6͂:S,ұ|ö6|k DM!60q*60MB UIdDMI N k "0DM:O,: 01: 01H%FMd9[||[|(|||:A,җ!A,6:-nUFd!-6*|*-###DM*M,DMDM:X, ʨ2X,×||H*J,DM|h ̓qͯ/|M|AGMPSVY\_behkn*: 01* 0M|*: 0O|1L: 01G|L|͠[|et0|҆͠|͠ҕ|͠ҧ|:0½*0DM,|* 0M*/MͿ:O,IFd *0"-͉ ! 0!-0p+q*,0|O|*,0}O|!/0p+q!.0DM!10p+q!00DM:E,V*-M_|!0"4.:0?26.!20q:A,҅W :20-DMI !04Wo 230͆k DM: 01: 01HFMd>>! 0: 0MMd>>* 0M: 01>FMd>: 02FM,*0MͿ: 01*FId*0DM,-| *0"-*0M!A,yPDdN :A,ҍDMI k DM,*-DM @|@|:Q,>|!Q,6'|!R,6GGWW@ *-#"E.Ϳ O!- *E.N#Fq#pͿ O!- *-s#r!G.4 !0q:A,S*0M!"-"M,}2/20!"-!"-:A,!` "4.!6.61 1A$AI N !^ "4.!6.60 0A$AI N !0q:B,!C,b ̓*0M|q*0M! ^#V*<DL*/&K/ ~20*0& ~2 0*0& ~2 0*/&k/ ~2 0*0& ~2 0*0& ~2 0*/&.) ^#V"0*0&) ^#V"0*0&) ^#V"0*0&. ~20*0& ~20*/& ~20*/&.) ^#V"0*0&) ^#V"0!0p+q*/&.) *0s#r!0p+q*0&.) *0s#r!0q*/&qtwz}-0O^hwzHN]cir '/7ORXh :@ILRXd !'*069ASorNSdk DM,!|,*0M/B H8SId,*-DM 5*0"0͂͂5*/MҜ*-DMb*-DM B OPâUFd*V,M: 0OPeY, , , , ,d[|: 0<2 0O,*0Mx  |*0M||: 01A|F|4|!R,6;|:0g*0DM:R,x"1͑Ð:Q,҉)*͑Ð=<͑!50s+q: 02®*40M||ú*50M||[|:/<2/O!/ N\|9|*/&/ :0w:-=2-!-6U!Q,6?|!Q,64|!Q,6[|&|!Q,6[||[|%|:Q,/5|͟fͻ͆k DM`||ͻ͟͟: 0>!+0q*+0M> >*-#"-*.. ^#V"-k DM.|ff[|^|͂k DM͟f6|͔: 02vEId7|͔ҧ*0"-* 0MN ͓ ||f6|͔*/M2;0* 0M*-DM:A,:;0DFd*-DMI  ,,,*.. ^#V"-:0-|k DM,|:0Nk DM||:0҅||8| |9| |7|*..N#F*..##*-s#r6|*..##N#F*.. *-s#r!O,6>..0+s#r"-*-#>w# !-4,!O,6*.. *-s#r!80p+q2|!906*70~!90N*90&*70N|!904.:y,[ͥa|).|1*/MB HҖk DM!:06:Y,!:0ڹ*:0&Y, NA!:04›$A*-#"-DM:Q,: 01+|,|: 01:0J#|W0DC5000D2A412E4E234603606922412EC3B90DDB :100DD500CD0C0C2A3224E2346E17135 :100DE500237021442E34C29E0DC9CD4 \ INT36013A482E21472EB00ECD28 :100E0500FA0B2AAC2D2322452ECDBF0B4F06002110 :100E1500AE2D0909E52A452EE34E23,/3579;=?ACFILOSVY\^adfhkmptvy{}2/7!;22 $$%%''))+++++---22555577BBCCDDEEFFHHHHHHH "   1 "4 412 "  " !!!!!'!!!!!  4  " 4    7i / "$&(bdfgrt.!?    #/7ceij'*>0"<0*>0<0+*PNd*<0"<0҈)R+>!I.+*́+:/+!0s:0<20>I.+M:L,*:02/t+"<0*/&+/ ~2/*/&K.) ^#V">0*<0 n&"@0}@0>0+Hҽ**<0#"<0É**<0#) ^#V"I.>+*!L,6R+>!I.+7+t+"<0͟+*<0 n&"@0} bPZ\SVJKROQI.1@@0@@0@@0rt<?=/ lkA$#g3d8>C0D6C$|: 0 4*0"- *-DM:0=20O>k DM: 0 W*0"-͉ ! 0SPFd1: 01!0mPFd:0O>: 0=2 0O: 0 ¬:0ʘNFd|*0"-k DM: 0ʼNFd* 0M|: 021:A,*0Mͬ DMI * 0Mx N :     #'(+7UaceijuBASIC-E COMPILHHIJKLLMMMNNOPQRSSTTUVVWXXYZZ[]]^__``abbcccffggghhiijjllmnnopqqsttvvxxyyz{|}~             cj(>JJFIK!!*!&O@ G  "H}~R&JQTUE. HJ!@0:T,+H%+*<0#"<0**<0") ^#V"I.R+͌+́+*/&K.) q#pt+"I.E))!D,6j+!B,6)vy T*I.$) ^#V*I.' n&:/<2/ ž+OSd:0Ү+ͥ!06!C0q*/&/ :C0w:/<2/O>d+OVd_{ozgi`N#Fogo&og_{_z#"$   !"#$%-/02<=>?@$BCCCCCEFYZZZ[\Y%]^_`aaabcdgldddosvz~ddddddd$$  #&) 0x!I.+,*͌+*/&K.) *I.s#rt+"<0͟+́+*<0+">0*<0"<0>0<0+)**<0D :T, **/&+/ :/w!B06:Y,!B0)*B0&Y, Nͯ+!B04´)*/&. :W,w*/&k/ :U,w*<0(!) ^#V"I.!06L112233445579:;B4D,E+F-H(LL)MM5NNTT8UUUWWPXX*YY6[]]9^^ _A`Baace:::fhijmnopqsuvvvvvvvvwwx"G %'<$% =>?S  "H}~R&JQTU  "H}~R&JQTU-|z {  NM##''()+,46E1712370DF :100E2500CDBF0B4F060021AE2D099E52AAC2DEBF0 :100E3500E173237221472E34C2FA0DC921063071A0 :100E45003A412C1FD25302A:6304DCD0605C92135 :100E550000002A32D2242C7D32EF2F32053021AB :100E6500010022A72D21FFFF22A52DCDF0043A4137 :100E75002C1FD2C3.*-^*-"-*-#"Z.*^.&-) ^#V!b.q:b.X.0!V.cP !j,6OTlͯ!d.p+qͭ *Z.*c.s#r*Z.+"Z.*Z.>w "->-X *-~2e.*\. *e.& *-*e.&*\. :e.=2e. >Ù  *Z.^#V"-} >*\.>2f.O+ *X."-*\.#*X.###*\.&*,~:,<2,!,'!,6.'>2, 5>  :,HT9:,\k h]9!-p+q:-<<2-:j,҆!q,6:|,ʥ:, ʢU2,Î9:j,*r,#"r,*-|OE*-}OE?E:-=2- E^Eq!q,6!t,6:i,mE0D3BC4 :100F35000F21812D362ACD411AC31118CD411AC36F :100F45001118CD6F1CC31118C31118C31118C31183 :100F550018C31118C31118C31118C31118C31118D8 :100F6500C31118C31118C31118C31118C31118C31D :100F75001118C31118C31118C31118C31118C311BF :100F850018C31118C31, :,_2, :,AO>/ H  H H D 7 :, P 9!,6!-q*u,#"u,:j,o *-M> !,| >*,&O n&"-!-6*,&Y ~!-  *,&c :-O! ~2|,O>@:|,cH :|,AO!m ~2},:|,2~,!|,65>:,-N *, ,;,͕,͡(ͤ!,6*,͡2-O>Dͤ:-:o,P,͕,͡h͕ͤ E E!-p+q!-6+6>!-!-60*-&) -[ *-&) -[ +s#r!-6#4Ø:-/!-*-ME E!-4Š!x,6#6#6!w,60ECDFC0321600B22342E21364C :100E85002E3631CDD50C0E31CD410E0E24CD410E71 :100E9500010000CD490C0E04CD4E0D215E0B223410 :100EA5002E21362E3630CDD50C0E30CD410E0E24EA :100EB500CD410E010100CD490C0E04CD4E0DC921C9 :100EC5000730713A422C21432CA61FD2E50E016250 :10:," ͏ Ë HҜ!|,61:,062,%7 F 7 :,E€ :,+:,-Ho /}FIl7 :,•!,60!,6#60E Ë  k % Ұ ã:,$!},62 !},61p / :,F:,NH:,H!|,66 !|,6,;ͮ!,6#6!"-}2-,!,6!-6:9:,$¬!-6:-<2-O!, ~2- ʬ:-A2-O>ک*-M! ^#V!k,6é!l,6é!o,6é!n,6é!m,6é!p,6ému}7!,6!,6!|,6#6:,"!,!|,62!,6":, SUl͏ :,94)d END <(+*)-,=/;>:#^IFTOGOONOREQLTGTLEGENEFORLETREMDIMDEFNOTANDTANSINCOSSQRTABLOGLENFREATNABSEXPINTENDPOSRNDSGNINPASCVALXORSUBOUTTHENREADGOTOELSENEXTSTOPDATAFILECHR$MID$STEPSTR$COSHSINHPRINTINPUTGOSUBCLOSELEFT$RETURNRIGHT$REMARKRESTORERANDOMIZE+s#r#4” >!-6*-&*-:-<2-O!, :,!-/HE  :,!-_ogN#Fog01PROD $ ERRORS DETECTED$:i,қ ->@_!l0"X.*++"V."-*-#6!_.q*-^*-*_.& "Z.!`.6*-##"Z.!a.6*-~!a. *a.&*Z.:`.?2`.!a.4 :`!{,6!-q:S-<2S-H!S-6*S-&, :-wT-R !-q*-DM|*-ME E!-6:-!-s*-&T- NE!-4Uq,!-6: :,Hҫ *,DM;!,62,:-R:-<2-O!T- :,w:, *-#"-:q,!l,:-=O8!-6:, !,6 :,*,0ED5000BCD83032A07304D0600CD7C04CD71046C :100EE500CD12182A07304D060021DF1609095E23A9 :100EF50056EBE9C31118C311182AFF2F4DCDC81998 :100F05001FD2360FCD600D1FD2260FCD6B0D11A34D :100F15002DCD331FB5CA230F014C44CD6406C33311 :100F25000F2AA32D444DCD490C0E08CD44E h :|,' :, $ 2,U h :|,cd 3V *,MV  P U*,MV ; ,V V *u,+"u,h E Ë :,\y UË p /Ҋ CIlí:,/ :,<2,O!, :,w:,!,?w:, !,6͏ 9͏ 2,:,0O> /:,a/>z!,/H:,. !nq:-=2-*-:-w*-#"-!-q:p,9*-&͕D*-&͕!-q:- j:,<2,g QÂ!,4*-M :- ‚!,6!-p+q*-~$ʣ*-NE*-#"-É̓ͯ *,DM; *, 6 *, 6*,̓ͯ͡,ͤ͡:o,    HEFIJNTLGAKBOCDPQX! )&$"%(c#RU'WYZ-,+*S.V03%| 7EJMNNAFGFADE $BASNS $!c,r+s+q!f,r+s+q>!"g,!*g,!-s+p+q+p+q:-=2-*-*- w*-#"-*-#"-!-s+q+p+*- w_;ͭ *Z.6  *Z.q#p*^.&-) *-s#r:f.X.0+s#r*-~ͭ *Z.>!g.qͭ *Z.:g.wͭ *Z.~ͭ *Z.^#V!h.qͭ *Z.:h.wͭ *Z.~J 2k.!l.6:k.!l.  o&-"i.*i.-M *i.N#F`i"i.  *Z.*i.N#Fq#p!l.4¦ J 2p.!o.9ͤ*0&0 :00w:-=2-/!-6UNli6ͤ*- N#F(!-D*-q#p*-#>i*-"-R*)0M*- -MHҐÖINl:-ҤLUl!-6*'0Mh /!j,!-6ͪ:{,ͤ6ͤs DM(!^0q*^0MJ U!{,699999j999j9:501:301HMFMla[ͤͤ[ͤ(ͤ9ͤ9ͤ9:i,ҿ!i,6:-ʖUFl!-6*ͤ*-###=DM(*u,DM( DM(:, 2,ÿͤͤH*r,DM|p ̓qͯ9/ͤ9 ͤ992:301$*20Mͤ2:20Oͤ1B99T:301OͤTͤ9cͤ9m9|0ͤ99Ҏͤ9ҝͤ99үͤ9:00*90DMTͤ999*50MB9*'0M9:w,IFl1*;0"-͑ >>!S0q*S0M> >*-#"-!U0p+q*T0|Oͤ*T0}Oͤ!W0p+q!V0DDM(!Y0p+q!X0DDM(:m,~*-M?_ͤ!+0"\.:-0?2^.!Z0q:i,ҭ :Z0-0DMQ !-04w 2[0ͮs DM(:401:301HFMl>>!40:30MMl>>T9T99999*(0M:4012FIl*90DMT-ͤ99?99@9@91*;0"-9*(0M!i,ҁPDlV :i,ҕ DMQ s DM?T*-DM9199:302FMl[ͤ@ͤ9:302FMl[ͤ@ͤ9:y,>ͤ!y,696:p.!o.H *-#"m. O!- *m.N#Fq#p O!- *-s#r!o.4!.0q:i,[*.0M!"-"u,}202-0!"-!"-:i,!h "\.!^.61 1I$IQ V !f "\.!^.60 0I$IQ V !/0q:j,!k,j ̓*/0M|q:*/0M! ^#V^ai{ #&,dlt*'0&s/ ~200*)0& ~220*(0& ~210*'0&/ ~230*)0& ~250*(0& ~240*'0&.) ^#V"90*)0&) ^#V"=0*(0&) ^#V";0*(0&. ~270*)0& ~280*'0& ~260*'0&/) ^#V"?0*(0&) ^#V"A0!D0p+q*'0&.) *C0Mͤ9IOUX[^adgjmpsvy| 58Wfp"PVekqz /7?WZ`pBHQTZ`l%+36CIORX!10 NSls DMT!ͤT9*(0M/J H@SIlT*-DM919]*A0"?0ͪ9ͪ909]09*'0MҤ*-DM͊*-DM J OxêUFl9*~,M:30Ox9͍9,A99 T9 T9 T9 T9*30MB:301>FMl>:502+FMl[ͤ:10<210OT*00M̀  ͤ*00Mͤͤ:501iͤnͤ4ͤ!z,6;ͤ:00*90DM?:z,Ҡ"1͹ø:y,ұ)*͹ø=<͹!]0s+q:302*\0Mͤͤ*]0Mͤͤ[ͤ:0<20O!0 N?\ͤ9'ͤ!z,69o9o999!y,699?ͤ!y,699999994ͤ9!y,6[ͤ&ͤ9!y,6[ͤͤ[ͤ%ͤ99:y,/ҧ5ͤ999͎99ͮs DM?`ͤͤ99:10h .s -[+LDl;*-DMQ V C!-6*i9i9͗99999999999999999999999999ҪY9:10½*;0DM?99*20Mͤ9 9]99 ͤ99s#r!F0p+q*(0&.) *E0s#r!G0q*'0&s/ :G0w!H0q*'0&/ :H0w!I0q*(0&/ :I0w!J0q*(0&s/ :J0w!K0q*(0&. :K0w!L0q*'0&. :L0w!N0p+q*'0&/) *M0s#r!O0q*-#"-:i,/Ҿ*O0M!P0q*P0&S/ n&/!Q0q*Q0MͿ"\.*Q0&. ~2^.!R0q*R0Mw T9*V. ^#V"-s DM?.ͤ(9͎9͎9[ͤ^ͤͪs DM(999͎6ͤͼ9:502~EIl7ͤͼ9ү*;0"-*20MV ͛ ͎ͤͤ96ͤͼ*'0M2c0*30MB*-DM:i,:c0DFl*-DMQ  9999T9T9*V. ^#V"-:005ͤs DMTͤ:00Vs DM?ͤͤ:00ҍͤ?ͤ?8ͤ ͤ?9ͤ ͤ7ͤ*V.N#F(*V.##*-s#r96ͤ*V.##N#F(*V. *-s#r9!w,6>V.X+s#r"-*-#>w+ !-49Il DMQ V s "90DM:w,@!w,6*V. *-s#r!`0p+q20ͤ!a06*_0~!a0v*a0&*_0Nͤ!a04V:,҃ͭÉͤQ.ͤ10*'0MJ HҾs DM(!b06:,!b0*b0&, NI!b04$I*-#"-DM(:y,:301{ozgi`N#Fogo&og_{_z#W92E4E234603606922692EC3C10D7B :100DDD00CD140CDu=)B92EE35 :100DED002370216C2E34C2A60DC9CD4A0D32702E42 \ INT16F2EBEDA480ECDA000E0D00020C2AD42D23226D2ECDC70B4F060021A7 :1  #&),/3579;=?ACFILOSVY\^adfhkmptvy{}2/7!;22 $$%%''))+++++---22555#$%&(*+,-.034#$%&(*+,-.0344  "   1 "4 412 "  " !!!!!'!!!!!  4  " 4    7i / "$&(bdfgrt.!?. :,w*'0&/ :},w*d0P!) ^#V"q.!*06*f0"d0D*f0d0,D*PNl*d0"d0Ұ)z+>!q.,+ͩ+:'0+!(0s:(0<2)0>q.,M:t,+:(02'0͜+"d0*'0&S/ ~2&0*'0&s.) ^#V"f0*d0 n&"h0}h0f0,H**d0#"d0ñ**d0$) ^#V"q.>++!t,vvvvvvwwx"G bPZ\SVJKROQI.1@@0@@0@@0rt<?=/ lkA$#g3d8> +ͤ,ͤ/:301*:00J'#ͤ/$ͤ:10 \*;0"- *-DM:70=270Ofs DM?:10 *;0"-͑ !50{PFlY:501!70ҕPFl:70Of:40=240OB:10 :70NFlͤ*?0"-s DM(:40NFl*10Mͤ:402B1B      #'(+7Uaceiju577BBCCDDEEFFHHHHHHHHHIJKLLMMMNNOPQRSSTTUVVWXXYZZ[]]^__``abbcccffggghhiijjllmnnopqqsttvvxxyyz{|}~               #/7ceij' cj(>JJFIK!!*!&O@ G  "H}~R&JQTU6z+>!q.,_+͜+"d0+*d09 n&"h0}!h0:|,,HM+*d0#"d0+*d0") ^#V"q.z+ʹ+ͩ+*'0&s.) q#p͜+"q.m)C)!l,6͒+!j,6C)v́ \*q.%) ^#V*q.' n&:'0<2'0 +OSl:*0+ͭ!*06!k0q*&0&/ :k0w:&0<2&0O>d+OVl_C0D6C"$   !"#$%-/02<=>?@$BCCCCCEFYZZZ[\Y%]^_`aaabcdgldddosvz~ddddddd$$:i,/*)0M DMQ *50M̀ V :10x!q.,T*ʹ+*'0&s.) *q.s#r͜+"d0+ͩ+*d0+"f0*d0"d0f0d0,Q**d0l :|,1**'0&S/ :&0w!j06:,!j0)*j0&, N+!j04)*'0&NM##''()+,L112233445579:;B4D,E+F-H(LL)MM5NNTT8UUUWWPXX*YY6[]]9^^ _A`Baace:::fhijmnopqsuvvE. HJ %'<$% =>?S  "H}~R&JQTU  "H}~R&JQTU-|z {  00E1D00D62D0909E52A6D2EE34E2346E171237087 :100E2D00CDC70B4F060021D62D0909E52AD42DE90 :100E3D00E1732372216F2E34C2020EC9212E30713F :100E4D003A692C1FD25B0E2A2E304DCD60:C921D5 :BB)5D00000022CB2D227527D32173022D302102 :100E6D00010022CF2D21FFFF22CD2DCDGOSUB 1325 IF (Y=0) AND (X=6) THEN GOTO 1065 REM AUTO MODE IF (Y=0) AND (X=7) THEN GOSUB 1100 REM SET UP BOARD YOURSELF IF (Y=0) AND (X=8) THEN GOSUB 1110 REM MOVE A PIECE IF (Y=0) AND (X=9) THEN GOSUB 1112 REM DELETE A PIECE IF (Y=0) AND (X=EN CH=RND ELSE GOTO 1028 IF CH<=.750 THEN BOARD(1,8)=-1 ELSE GOSUB 1316 1028 IF PLAYERS.RANK>6 THEN CH=RND ELSE GOTO 1030 IF CH<=.750 THEN BOARD(8,1)=-1 ELSE GOSUB 1316 1030 IF PLAYERS.RANK>7 THEN CH=RND ELSE GOTO 1032 IF CH<=.750 THEN BOARD(8,8)=-2D000F2ACB2D444DCD510C0E08CD560DC3437C :103D000F21A92D362ACD691AC33918CD691AC3C7 :100F4D003918CD971CC33918C33918C33918C3398B :100F5D0018C33918C33918C33918C33918C3391808 :100F6D00C33918C33918C33918C33918C33918C34D :100F7D003918C33918C33918C33918C3391IF X=8 THEN PRINT NEXT X:NEXT Y: PRINT RETURN 1055 PRINT INPUT "YOU ARE 'X', DO YOU WANT TO GO FIRST"; A$ PRINT IF LEFT$(A$,1)="N" THEN 1069 REM INPUT MOVE 1059 PRINT "YOUR MOVE"; INPUT Y,X IF (Y=0) AND (X=0) THEN GOTO 1232 RF LEFT$(A$,1)<>"N" THEN GOTO 1011 1013 PRINT "THESE ARE YOUR CONTROL OPTIONS :" : GOSUB 1450 REM SET UP BOARD 1016 FOR X=1 TO 8 FOR Y=1 TO 8 BOARD(Y,X)=0 NEXT Y: NEXT X BOARD(4,4)=1:BOARD(5,5)=1:BOARD(4,5)=-1:BOARD(5,4)=-1 REMF0043A69B7 :100E7D002C1FD2CB0ECDFC0321680B225C2E215EE4 :100E8D002E3631CDDD0C0E31CD490E0E24CD490E51 :100E9D00010000CD510C0E04CD560D21660B225CC8 :100EAD002E215E2E3630CDDD0C0E30CD490E0E24AA :100EBD00CD490E010100CD510C0E04CD560DC921A9 :100ECD002F30713A6AE GOTO 1038 IF CH<=.750 THEN BOARD(8,8)=1 ELSE GOSUB 1321 1038 IF PLAYERS.RANK<3 THEN CH=RND ELSE GOTO 1040 IF CH<=.750 THEN BOARD(1,8)=1 ELSE GOSUB 1321 1040 IF PLAYERS.RANK<2 THEN CH=RND ELSE GOTO 1042 IF CH<=.750 THEN BOARD(8,1)=1 ELSE GOSUB 1321 ELSE GOSUB 1316 1032 IF PLAYERS.RANK>8 THEN CH=RND ELSE GOTO 1034 IF CH<=.750 THEN BOARD(1,1)=-1 ELSE GOSUB 1316 1034 IF PLAYERS.RANK<5 THEN CH=RND ELSE GOTO 1036 IF CH<=.750 THEN BOARD(1,1)=1 ELSE GOSUB 1321 1036 IF PLAYERS.RANK<4 THEN CH=RND ELS REM THIS PROGRAM WAS WRITTEN BY MITCH J. BOGDANOWICZ 8/19/77 REM COPYRIGHT 1977 MITCHELL J. BOGDANOWICZ JR. REM THE MEMORY MERCHANTS INC. REM 1350 BUFFALO ROAD REM SUITE 11 REM ROCHESTER, NEW YORK 14624 REM 716-328-5585 EM SAVE DATA IF (Y=0) AND (X=1) THEN GOTO 1270 REM FORFEIT MOVE IF (Y=0) AND (X=2) THEN GOTO 1117 REM EXCHANGE BOARD W/CONT. IF (Y=0) AND (X=3) THEN GOTO 1118 REM EXCHANGE BOARD IF (Y=0) AND (X=4) THEN EH=1 : GOTO 1217 IF (Y=0) AND (X=5) THEN SET DIFFICULTY 1022 PRINT "ENTER YOUR RANK (1 TO 9) - 9 IS MOST DIFFICULT.";:INPUT PLAYERS.RANK PRINT IF PLAYERS.RANK<1 OR PLAYERS.RANK>9 THEN GOTO 1022 COUNTER=COUNTER+ABS(PLAYERS.RANK-5) IF PLAYERS.RANK=5 THEN GOTO 1043 IF PLAYERS.RANK>5 TH2C216B2CA61FD2ED0E016AC0 :100EDD000BCD83032A2F304D0600CD7C04CD71043C :100EED00CD3A182A2F304D060021071709095E2328 :100EFD0056EBE9C33918C339182A27304DCDF019EF :100F0D001FD23E0FCD680D1FD22E0FCD730D11CBFD :100F1D002DCD5B1FB5CA2B0F014C44CD6C06C33BC9 :100F1 1042 REM PRINT STARTING BOARD AND START GAME 1043 GOSUB 1046 GOTO 1055 REM DISPLAY BOARD 1046 FOR Y=1 TO 8 FOR X=1 TO 8 IF BOARD(Y,X)=1 THEN PRINT "X "; IF BOARD(Y,X)=-1 THEN PRINT "O "; IF BOARD(Y,X)=0 THEN PRINT "+ "; AME$ FILE.NAME$=LEFT$(NAME$,8) PRINT IF NEW.OR.OLD$="OLD" THEN GOTO 1345 PRINT "THIS IS THE GAME OF OTHELLO":COUNTER=4 :EG=0 :EH=0 PRINT : PRINT 1011 INPUT "DO YOU WANT THE RULES? (Y OR N) "; A$ IF LEFT$(A$,1)="Y" THEN GOSUB 1240:GOTO 1016 I DIM BOARD(12,12),LENGTH(64),MY(64),MX(64),SY(64),SX(64),RI(64),SI(64) DIM LN(64),MOVE(64),SAFE.MOVE(64),DANGER.MOVE(64),NO.DANGER(64) 1002 INPUT "IS THIS A NEW GAME OR OLD "; NEW.OR.OLD$ PRINT RANDOMIZE INPUT "ENTER A FILE NAME FOR THIS GAME "; N10) THEN GOSUB 1450 REM PRINT OPTIONS IF (Y=0) AND (X>10) THEN GOSUB 1450 : GOTO 1059 IF (Y<0) OR (X<0) OR (Y>10) OR (X>10) THEN GOTO 1059 IF Y=0 THEN GOSUB 1046 : GOTO 1059 PRINT : COUNTER=COUNTER+1: GOSUB 1199 IF BOARD(Y,X)<>0 THEN PRINT "INVAGTH(Q8)+LENGTH(Q9)-1 : MOVE(F)=Q9 IF LENGTH(Q8)>LENGTH(Q9) THEN MOVE(F)=Q8 RETURN REM SELECT A MOVE 1149 K8=K: FOR QQ=1 TO 5 K1=INT(RND*K8)+1 K=0 FOR Q1=1 TO Q IF Q2=LENGTH(Q1) THEN GOSUB 1237 IF K=K1 AND Q2=LENGTH(Q1) THEN GO OR +)" PRINT "ENTER R TO RETURN"; : INPUT P$ IF P$="R" THEN Y=0 : RETURN INPUT "COORDINATES(Y,X): ";Y,X IF P$="X" THEN BOARD(Y,X)=-1 IF P$="O" THEN BOARD(Y,X)= 1 IF P$="+" THEN BOARD(Y,X)= 0 GOTO 1100 1110 PRINT "MOVE A PIECE(X OR O)" 0=Q2:SD=0 1081 K=0: MM=0: NN=0:N1=0 FOR Q1=1 TO Q IF Q2=LENGTH(Q1) THEN K=K+1 REM TAKE A CORNER IF POSSIBLE IF ((MY(Q1)=1) OR (MY(Q1)=8))AND((MX(Q1)=1)OR(MX(Q1)=8))THEN Q2=LENGTH(Q1): GOTO 1172 NEXT Q1:GOTO 1119 1087 REM CHECK IN ALM EVALUATE MULTIPLE MOVES FOR G=1 TO F IF LN(G)>H THEN J=G :H=LN(G) NEXT G IF LN(J)<=Q2 THEN 1149 P=0 : FOR G=1 TO F IF LN(G)=LN(J) THEN P=P+1 NEXT G P8=P : FOR PP=1 TO 3 P1=INT(RND *P8)+1 :P=0 FOR G=1 TO F IF LN(J)=LN(G) THEN GOSUBND (MY(Q)>=2) AND (MY(Q)<=7) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=2) AND (MX(Q)>=2) AND (MX(Q)<=7) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=7) AND (MX(Q)>=2) AND (MX(Q)<=7) THEN DANGER.MOVE(Q)=1 IF BOARD(1,1)=-1 AND MX(Q)=2 AND MY(Q)=2 THEN DANGER.MOVE(Q)=0 IF BLID MOVE, TRY AGAIN!":COUNTER=COUNTER-1: GOTO 1059 BOARD(Y,X)=1 : GOSUB 1186 : GOSUB 1046 IF COUNTER>=64 THEN GOTO 1217 GOTO 1069 1065 REM AUTO AUTO$="AUTO" FIRST.TIME=0 GOTO 1069 1069 REM FIND ALL POSSIBLE MOVES FOR BLACK IF IINING CONTINUITY GOSUB 1400 REM EXCHANGE PIECES PRINT GOSUB 1046 REM PRINT BOARD PRINT GOTO 1069 REM BLACK MOVES WHAT WOULD HAVE BEEN WHITE 1118 REM EXCHANGE BOARD GOSUB 1400 PRINT GOSUB 1046 PRINT GOTO 1059 REM LOO INPUT "FROM ";Y,X IF Y=0 THEN RETURN INPUT " TO ";Y1,X1 TEMP.=BOARD(Y,X) BOARD(Y,X)=0 BOARD(Y1,X1)=TEMP. GOTO 1110 1112 INPUT "DELETE THE PIECE (Y,X): ";Y,X IF Y=0 THEN RETURN BOARD (Y,X)=0 GOTO 1112 1117 REM EXCHANGE BOARD RETAL DIRECTIONS FOR A WHITE STRING TO FLIP FOR R=Y-1 TO Y+1 FOR S=X-1 TO X+1 IF (R=0) OR (S=0) THEN 1092 IF BOARD(R,S)=1 THEN GOSUB 1095 1092 NEXT S: NEXT R RETURN REM FIND DIRECTION AND LENGTH OF WHITE STRING 1095 R1=R-Y : S1=S- 1302 IF P=P1 AND LN(J)=LN(G) THEN Q2=LENGTH(MOVE(G)) :Q1=MOVE(G) :GOTO 1172 IF DANGER.MOVE(MOVE(G))=0 THEN LET NN=1 NEXT G IF NN<>1 THEN GOTO 1149 NEXT PP : GOTO 1149 REM GET LENGTH ETC. OF MULTIPLE STRING MOVE 1144 F=F+1 LN(F)=LENOARD(1,8)=-1 AND MX(Q)=7 AND MY(Q)=2 THEN DANGER.MOVE(Q)=0 IF BOARD(8,1)=-1 AND MX(Q)=2 AND MY(Q)=7 THEN DANGER.MOVE(Q)=0 IF BOARD(8,8)=-1 AND MX(Q)=7 AND MY(Q)=7 THEN DANGER.MOVE(Q)=0 RI(Q)=R1 : SI(Q)=S1 RETURN 1100 PRINT "ENTER THE PIECE (X,NP(1) = 27 THEN AUTO$="MANUAL" : GOTO 1059 REM AN ESCAPE STOPS AUTO 1070 Q=0 FOR Y=1 TO 8 FOR X=1 TO 8 IF BOARD(Y,X)=-1 THEN GOSUB 1087 NEXT X :NEXT Y IF Q=0 THEN 1217 Q2=0 FOR Q1=1 TO Q Q3=LENGTH(Q1) IF Q3>Q2 THEN Q2=Q3 NEXT Q1: QK FOR A MULTIPLE STRING MOVE 1119 F=0 FOR Q8=1 TO Q FOR Q9=1 TO Q IF (MY(Q8)=MY(Q9)) AND (Q8<>Q9) AND (MX(Q8)=MX(Q9)) THEN GOSUB 1144 NEXT Q9: NEXT Q8 :H=0 REM IF NO MULTIPLE MOVES, GO SELECT A STRAIGHT MOVE IF F=0 THEN 1149 REE(Q)=0 MY(Q)=C*R1+Y : LENGTH(Q)=C-1 : SY(Q)=Y : SX(Q)=X MX(Q)=C*S1+X REM RECOGNIZE DANGER ZONES IF (MX(Q)=1)OR(MX(Q)=8)OR(MY(Q)=1)OR(MY(Q)=8) THEN GOSUB 1306 IF (MX(Q)=2) AND (MY(Q)>=2) AND (MY(Q)<=7) THEN DANGER.MOVE(Q)=1 IF (MX(Q)=7) AX C=1 R2=R+R1 :S2=S+S1 1098 IF (R2=0) OR (S2=0) THEN RETURN IF BOARD(R2,S2)=1 THEN C=C+1 :R2=R2+R1 :S2=S2+S1 :GOTO 1098 IF BOARD(R2,S2)=-1 THEN RETURN IF (R2>8) OR (R2<1) OR (S2>8) OR (S2<1) THEN RETURN C=C+1 Q=Q+1:SAFE.MOVE(Q)=0 :DANGER.MOVOTO 1172 IF DANGER.MOVE(Q1)=0 THEN LET MM=1 : N1=N1+1 : NO.DANGER(N1)=Q1 NEXT Q1 IF MM<>1 THEN GOTO 1164 NEXT QQ FOR N2=1 TO N1 IF Q2=LENGTH(NO.DANGER(N2)) THEN Q1=NO.DANGER(N1): GOTO 1172 NEXT N2 Q2=Q2-1 IF Q2 >0 THEN GOTO 1081 1164 IF ED AT EACH END BY A" PRINT "DISC OF YOUR COLOR." PRINT "IF A PLAYER CANNOT OUTFLANK AND FLIP AT LEAST ONE OPPOSING DISC, THE" PRINT "TURN IS FORFEITED AND THE OPPONENT MOVES AGAIN. TO FORFEIT A TURN," PRINT "ANSWER -1,-1 TO 'YOUR MOVE?'." PRIN R2=R2+R1 : S2=S2+S1 IF BOARD(R2,S2)=-1 THEN 1211 IF BOARD(R2,S2)=0 THEN RETURN IF (R2>8) OR (R2<1) OR (S2>8) OR (S2<1) THEN RETURN VM=1 : RETURN 1217 REM END OF GAME TALLY AND 'NO MOVE' SITUATIONS W=0 :B=0 FOR Y=1 TO 8 FOR X=1 TO 8OVES FOR Q6=1 TO Q IF (MY(Q1)=MY(Q6)) AND (Q1<>Q6) AND (MX(Q1)=MX(Q6)) THEN GOSUB 1181 NEXT Q6 :PRINT:PRINT"MY MOVE ";MY(Q1);",";MX(Q1):EG=0:EH=0:COUNTER=COUNTER+1 PRINT IF AUTO$="AUTO" AND FIRST.TIME=1 THEN GOSUB 1400 GOSUB 1046 IF AUTO$="OP GOTO 1234 1237 IF DANGER.MOVE(Q1)=0 THEN K=K+1 ELSE RETURN IF SAFE.MOVE(Q1)>0 THEN K=K1 RETURN 1240 PRINT " RULES " PRINT : PRINT "YOU HAVE WHITE(X) DISCS AND THE COMPUTER HAS BLACK(O)" 2,S2)=-1 THEN BOARD(R2,S2)=1 :GOSUB 1198 :GOTO 1196 RETURN 1198 R2=R2+R1 : S2=S2+S1 : RETURN 1199 REM CHECK FOR A LEGAL MOVE BY WHITE IF BOARD(Y,X)<>0 THEN RETURN VM=0 FOR R=Y-1 TO Y+1 FOR S=X-1 TO X+1 IF (R=0) OR (S=0) THEN 1206 DD=1 THEN GOTO 1184 Q2=Q0 :FOR Q6=1 TO Q : DANGER.MOVE(Q6)=0 IF BOARD(1,1)<>-1 AND MY(Q6)=2 AND MX(Q6)=2 THEN DANGER.MOVE(Q6)=1 IF BOARD(1,8)<>-1 AND MY(Q6)=2 AND MX(Q6)=7 THEN DANGER.MOVE(Q6)=1 IF BOARD(8,1)<>-1 AND MY(Q6)=7 AND MX(Q6)=2 THEN DAN Y PRINT PRINT "THE GAME IS OVER, I HAVE CAPTURED ";B;"DISCS AND YOU HAVE ";W;"DISCS" IF W=B THEN PRINT "TIE GAME------YOU LUCKED OUT":GOTO 1232 IF W>B THEN PRINT "YOU WIN BY ";W-B;"DISCS":GOTO 1232 PRINT "I WIN BY ";B-W;"DISCS" 1232 PRINT "DO Y Z=BOARD(Y,X) IF Z=0 AND EH=1 THEN GOTO 1224 IF AUTO$="AUTO" AND Z=0 THEN EG=1 : GOSUB 1400 : GOTO 1069 IF Z=0 THEN PRINT "I HAVE NO MOVES AVAILABLE, PLEASE GO AGAIN.":PRINT:EG=1:GOTO 1059 1224 IF Z=1 THEN W=W+1 IF Z=-1 THEN B=B+1 NEXT X :NEXTAUTO" AND FIRST.TIME=0 THEN GOSUB 1400 :\ FIRST.TIME=1 : GOTO 1069 IF AUTO$="AUTO" THEN FIRST.TIME=0 : GOTO 1069 GOTO 1059 REM FLIP REMAINDER OF MULTIPLE MOVE 1181 FOR Q4=1 TO LENGTH(Q6) +1 BOARD(SY(Q6)+RI(Q6)*Q4,SX(Q6)+SI(Q6)*Q4)=-1 PRINT "A MOVE CONSISTS OF OUTFLANKING YOUR OPPONENT'S DISC(S), THEN " PRINT "FLIPPING THE OUTFLANKED DISC(S) OVER TO YOUR COLOR." PRINT " TO OUTFLANK MEANS TO PLACE A DISC SO THAT YOUR " PRINT "OPPONENT'S ROW(OR ROWS) OF DISC(S) IS BORDER IF BOARD(R,S)=-1 THEN GOSUB 1210 1206 NEXT S :NEXT R IF VM>0 THEN RETURN PRINT "YOU CAN'T FLIP ANY OF YOUR OPPONENT'S PIECES WITH THAT MOVE" Y=11 :X=11 :BOARD(Y,X)=2 : RETURN 1210 R1=R-Y : S1=S-X : R2=R : S2=S 1211 IF (R2=0) OR (S2=0) THEN RETURNGER.MOVE(Q6)=1 IF BOARD(8,8)<>-1 AND MY(Q6)=7 AND MX(Q6)=7 THEN DANGER.MOVE(Q6)=1 NEXT Q6 : DD=1 : GOTO 1081 REM FLIP A STRING 1172 FOR Q4=1 TO Q2+1 : DD=0 BOARD(SY(Q1)+RI(Q1)*Q4,SX(Q1)+SI(Q1)*Q4)=-1 NEXT Q4 REM LOOK FOR MULTIPLE MOU WANT TO SAVE THE DATA?(YES OR NO)";: INPUT SAVE$ IF SAVE$="YES" THEN GOSUB 1322 1234 PRINT "WOULD YOU LIKE TO PLAY AGAIN? (YES OR NO OR RESUME)" INPUT A$ IF A$="RESUME" THEN GOSUB 1046 : GOTO 1059 IF A$="YES" THEN GOTO 1002 IF A$="NO" THEN ST1=Q6-X :R2=R1+Q5 :S2=S1+Q6 1191 IF BOARD(R2,S2)=-1 THEN GOSUB 1198 :GOTO 1191 IF BOARD(R2,S2)=0 THEN RETURN IF (R2>8) OR (R2<1) OR (S2>8) OR (S2<1) THEN RETURN R2=R1+Q5 : S2=S1+Q6 IF BOARD(R2-R1,S2-S1)=-1 THEN BOARD(R2-R1,S2-S1)=1 1196 IF BOARD(RNEXT Q4 :RETURN 1184 Q2=Q0 : FOR Q6=1 TO Q : DANGER.MOVE(Q6)=0 : NEXT Q6 : GOTO 1081 REM FLIP ALL DISCS FOR WHITE'S MOVE 1186 FOR Q5=Y-1 TO Y+1 FOR Q6=X-1 TO X+1 IF BOARD(Q5,Q6)=-1 THEN GOSUB 1190 NEXT Q6 :NEXT Q5 : RETURN 1190 R1=Q5-Y :ST "A DISC MAY OUTFLANK ANY NUMBER OF DISCS IN ONE OR MORE ROWS. A ROW" PRINT "IS DEFINED AS ONE OR MORE DISCS IN A CONTINUOUS STRAIGHT LINE." PRINT "A DISC MAY OUTFLANK IN ANY DIRECTION: HORIZONTALLY, VERTICALLY OR " PRINT "DIAGONALLY. A DISC MAY OUTH,P,\ P8,DD,VM,NAME$ CLOSE 1 RETURN 1345 REM READ IN DATA FILE FILE.NAME$ FOR LOAD = 1 TO 64 READ # 1;\ LENGTH(LOAD),MY(LOAD),MX(LOAD),\ SY(LOAD),SX(LOAD),RI(LOAD),\ SI(LOAD),LN(LOAD),MOVE(LOAD),\ SAFE.MOVEMOVE(Q)=1 IF (MY(Q)=1) AND (MX(Q)=7) AND (BOARD(1,8)<>-1) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=2) AND (MX(Q)=8) AND (BOARD(1,8)<>-1) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=7) AND (MX(Q)=1) AND (BOARD(8,1)<>-1) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=8) AND (MX(Q)=YOU WANT A SAMPLE BOARD, (Y OR N)"; S$ IF LEFT$(S$,1)<>"Y" THEN RETURN PRINT "THIS IS THE BOARD AND HOW THE SPACES ARE NUMBERED":PRINT:FOR Y=1 TO 8:FOR X=1 TO 8 PRINT Y;",";X;" "; IF X=8 THEN PRINT : PRINT NEXT X : NEXT Y : PRINT : RETURN 5 1325 REM SAVE ALL DATA FOR A FUTURE FINISH FILE FILE.NAME$ FOR SAVE = 1 TO 64 PRINT # 1;\ LENGTH(SAVE),MY(SAVE),MX(SAVE),\ SY(SAVE),SX(SAVE),RI(SAVE),\ SI(SAVE),LN(SAVE),MOVE(SAVE),\ SAFE.MOVE(SAVE),DANGER.MOVE(SAVE),NO.DAN (R2=0) OR (S2=0) THEN RETURN IF BOARD(R2,S2)=-1 THEN R2=R2+R1:C=C+1:S2=S2+S1:GOTO 1294 IF BOARD(R2,S2)=1 THEN RETURN IF (R2>8) OR (R2<1) OR (S2>8) OR (S2<1) THEN RETURN C=C+1 :Q=Q+1 MY(Q)=C*R1+Y MX(Q)=C*S1+X RETURN 1302 IF DANGER.MOVFLANK IN ANY NUMBER OF DIRECTIONS AT THE" PRINT "SAME TIME . A DISC MAY ONLY BE OUTFLANKED AS A DIRECT RESULT OF A MOVE" PRINT "AND MUST FALL IN THE DIRECT LINE OF THE DISC PLACED." PRINT "WHEN IT IS NO LONGER POSSIBLE FOR EITHER PLAYER TO MOVE," P O ") PIECE (HANDICAP) 1316 X=INT(RND*8)+1 Y=INT(RND*8)+1 IF BOARD(Y,X)<>0 THEN GOTO 1316 BOARD(Y,X)=-1 : RETURN REM RANDOMLY PLACE A WHITE (" X ") PIECE (HANDICAP) 1321 X=INT(RND*8)+1 Y=INT(RND*8)+1 IF BOARD(Y,X)<>0 THEN GOTO 1321 2) AND (BOARD(8,1)<>-1) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=8) AND (MX(Q)=7) AND (BOARD(8,8)<>-1) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=7) AND (MX(Q)=8) AND (BOARD(8,8)<>-1) THEN DANGER.MOVE(Q)=1 SAFE.MOVE(Q)=1 : RETURN REM RANDOMLY PLACE A BLACK ("REM CHECK FOR ALL OF WHITE'S POSSIBLE MOVES 1270 Q=0: FOR Y=1 TO 8 FOR X=1 TO 8 IF BOARD(Y,X)=1 THEN GOSUB 1286 NEXT X:NEXT Y IF Q=0 AND EG=1 THEN EH=1: GOTO 1217 IF Q=0 THEN EG=1: GOTO 1070 PRINT "I'M SORRY, YOU MAY NOT FORFEIT THIS MOVE" GER(SAVE) NEXT SAVE FOR SAVE.A = 1 TO 12 FOR SAVE.B = 1 TO 12 PRINT # 1; BOARD(SAVE.A,SAVE.B) NEXT SAVE.B NEXT SAVE.A PRINT # 1; COUNTER,EG,EH,PLAYERS.RANK,\ Q,Q0,Q2,Q3,\ K,K1,K8,MM,\ NN,N1,R,S,\ R1,S1,C,R2,\ S2,F,E(MOVE(G))=0 THEN P=P+1 ELSE RETURN IF SAFE.MOVE(MOVE(G))>0 THEN P=P1 RETURN REM AVOID DANGER ZONES 1306 IF (MY(Q)=1) AND (MX(Q)=2) AND (BOARD(1,1)<>-1) THEN DANGER.MOVE(Q)=1 IF (MY(Q)=2) AND (MX(Q)=1) AND (BOARD(1,1)<>-1) THEN DANGER.RINT " THE GAME IS OVER" PRINT "DISCS ARE COUNTED AND THE PLAYER WITH THE MOST DISCS IS THE WINNER." PRINT "TO ABORT A GAME ANSWER 0,0 TO 'YOUR MOVE?'" PRINT "TO TALLY-UP AND QUIT TYPE 99,99 TO 'YOUR MOVE'" PRINT:PRINT INPUT "DO BOARD(Y,X)=1 : RETURN 1322 PRINT " THE PRESENT FILE IS NAMED ";FILE.NAME$ PRINT " IF YOU WANT TO CHANGE IT, INPUT A DIFFERENT NAME" PRINT "OTHERWISE ENTER A '*' "; INPUT NAME$ IF NAME$="*" THEN GOTO 1325 FILE.NAME$=LEFT$(NAME$,8) GOTO 132Q9), 1285 NEXT Q9 : PRINT : GOTO 1059 1286 FOR R=Y-1 TO Y+1 FOR S=X-1 TO X+1 IF (R=0) OR (S=0) THEN 1291 IF (R=9) OR(S=9) THEN 1291 IF BOARD(R,S)=-1 THEN GOSUB 1292 1291 NEXT S: NEXT R: RETURN 1292 R1=R-Y: S1=S-X:C=1 R2=R+R1 :S2=S+S1 1294 IF PRINT "YOU HAVE THESE LEGAL MOVES AVAILABLE:":PRINT FOR Q9=1 TO Q FOR QI=1 TO Q IF MX(Q9)=MX(QI) AND MY(Q9)=MY(QI) AND Q9<>QI THEN MX(QI)=0:MY(QI)=0 NEXT QI : NEXT Q9 FOR Q9=1 TO Q IF MX(Q9)=0 AND MY(Q9)=0 THEN GOTO 1285 PRINT MY(Q9);",";MX((LOAD),DANGER.MOVE(LOAD),NO.DANGER(LOAD) NEXT LOAD FOR LOAD.A = 1 TO 12 FOR LOAD.B = 1 TO 12 READ # 1; BOARD(LOAD.A,LOAD.B) NEXT LOAD.B NEXT LOAD.A READ # 1; COUNTER,EG,EH,PLAYERS.RANK,\ Q,Q0,Q2,Q3,\ K,K1,K8,MM,\ NN,N1,R,S,\ THE FOLLOWING LISTING WAS WRITTEN IN BASIC-E A DISK BASED MICROCOMPUTER LANGUAGE SUPPORTED BY IMSAI AND OTHERS. IT WILL RUN ON ANY CP/M BASED 8080/Z80 SYSTEM. THE GAME IS AVAILABLE FROM THE MEMORY MERCHANTS ON DISK OR AS A NON-DISK VERSION FOR TDL'S E GAME OTHELLO / REVERSI IS A VERY SIMPLE, ELEGANT ONE, WHICH PERMITS MUCH OPPORTUNITY FOR STRATEGY. THE GAME IS PLAYED ON AN 8 BY 8 MATRIX, AND EACH PLAYER HAS 32 PLAYING DISKS, WHICH ARE WHITE ON ONE SIDE AND BLACK ON THE OTHER (REPRESENTED IN THE COMP" PRINT "COMMAND 0,7 = SET UP BOARD YOURSELF" PRINT "COMMAND 0,8 = MOVE A PIECE" PRINT "COMMAND 0,9 = DELETE A PIECE" PRINT "COMMAND 0,10 = PRINT OPTIONS" PRINT PRINT RETURN END ROWS OF HIS OPPONENT'S DISCS [THERE CAN BE ONE DISK IN A ROW] WITH ONE OF HIS OWN. AFTER DOING SO THE ENTIRE ROW BECOMES HIS. THE WINNER IS THE PLAYER WITH THE MOST DISCS OF HIS COLOR ON THE BOARD WHEN ALL DISCS HAVE BEEN PLAYED. THE STRATEGY COMES IN ** *********************************************************************** *********************************************************************** OTHELLO IS ONE OF THE MOST POPULAR GAMES AROUND TODAY. THE EXCITEMENT R1,S1,C,R2,\ S2,F,H,P,\ P8,DD,VM,NAME$ CLOSE 1 GOSUB 1046 : GOTO 1059 1400 FOR X = 1 TO 8 FOR Y = 1 TO 8 BOARD(Y,X)=- BOARD(Y,X) NEXT Y NEXT X RETURN 1450 REM OPTIONS ON Y,X RESPONSE OF 0,# PRINT PRINT "COMMAND CASE THE CORNER SPACES ARE GIVEN TO THE PERSON RECEIVING THE HANDICAP [ BUT BEWARE!!! THERE IS A 25% PROBABILITY THAT ANY ONE HANDICAP PIECE MAY BE PLACED RANDOMLY ON THE BOARD]. FOR EXAMPLE, IF YOU GIVE THE COMPUTER A HANDICAP OF 3 [WHICH WOULD BE DONUTER VERSION BY 'X' AND 'O' RESPECTIVELY). ONE PLAYER PLAYS 'O' (COMPUTER) AND THE OTHER PLAYS 'X' (HUMAN). FOUR STARTER PIECES ARE PLACED IN THE CENTER OF THE BOARD TO BEGIN PLAY (EXCEPT WHEN A HANDICAP IS GIVEN BY EITHER YOU OR THE COMPUTER. IN THIS *********************************************************************** *********************************************************************** ** ** ** ***** ***** * * ****PLANNING WHERE TO OUTFLANK TO GAIN THE MOST DISCS OR TO MANEUVER PIECES TO THE STRONGEST POWER POSITIONS ON THE BOARD. THIS COMPUTER VERSION WAS DESIGNED NOT ONLY TO PLAY A REASONABLE GAME WITH A HUMAN OPPONENT, BUT ALSO TO AID IN PERFECTING OUR GAME. IS CERTAINLY JUSTIFIED, SINCE OTHELLO IS AN EXCELLENT GAME. OTHELLO SWEPT JAPAN AND IS NOW MAKING A COMMERCIAL SWEEP HERE. HOWEVER, THE BASIC CONCEPTS OF THE GAME HAVE BEEN AROUND SINCE THE VICTORIAN TIMES IN ENGLAND WHERE IT WAS CALLED REVERSI. THE0,0 = SAVE DATA" PRINT "COMMAND 0,1 = FORFEIT MOVE" PRINT "COMMAND 0,2 = EXCHANGE BOARD" PRINT "COMMAND 0,3 = EXCHANGE PIECES" PRINT "COMMAND 0,4 = END GAME + TALLY" PRINT "COMMAND 0,5 = SAVE DATA ON CURRENT FILE" PRINT "COMMAND 0,6 = AUTO MODEE BY ENTERING A RANK OF 8, RANK 5 IS DEAD EVEN] , THREE CORNERS WOULD BECOME'O''S AT THE START OF THE GAME.). EACH PLAYER IN TURN PLACES ONE DISC ON THE BOARD [BY ENTERING Y,X TO 'YOUR MOVE'] AND MUST OUTFLANK THE OPPOSITION BY SURROUNDING ONE OR MORE * * * * * * * * * * * ** ** * * * * * * * * * * ** ** ***** * * * ***** ***** ***** ***** ** ** * * * ***** ** ** * * * * * * * * * * ** ** * * * * * * * * * * ** ** * * * ***** *** * * * * ** *XTENDED BASIC. THE LISTING CAN BE MODIFIED TO SUIT MOST ANY BASIC BY DELETING THE DISK ACCESS ROUTINES, INCLUDING LINE NUMBERS AND SHORTENING SOME OF THE VARIABLE NAMES [BASIC -E IS FREE FORMATTED AND ONLY REQUIRES LINE NUMBERS FOR GOTO'S AND GOSUB 'S w!{6͠!{ͽ!ks*!o͠!{ͽ!{s!{ͽ!M͘!ks!y5~!k͠!{ͽ!{s!{͠!M!os!{͠!M!o!{s!{ͽ!kq{9 ~#F#N#V!Y , <    *$A!6 # TI܀1r l7s,w,p,q,r!w>!w!~{_,~,,N,Vê~{_,~,N,VoG!qG{~{̀x!~wbG{ɯ{O!>wDONE BY THE COMMAND 0,1 [IF YOU USE THIS COMMAND AND THERE ARE LEGAL MOVES A LIST OF YOUR LEGAL MOVES WILL APPEAR]. COMMANDS 0,2 AND 0,3 ARE COMPLIMENTARY, COMMAND 0,3 EXCHANGES THE PIECES AND LETS YOU PLAY THE COMPUTERS CURRENT POSITION, AND, COMMAND !ss!k͠!oͽ*w!s!M7!os!M͠!s!o!oszWyOI܀1ŕ!Q͌!{s!Q͏ y !Qͽ́!{!{s̈́!Q!Q_!|~G{+s{É!{͠!{ͽ́!ksH!o͠!{ͽ!w,w͌͌AND ALSO ALLOWS VARIABLE NAMES UP TO 31 CHARACTERS]. THIS VERSION HAS ELEVEN OPTIONS AVAILABLE TO THE USER. THEY ARE IMPLEMENTED BY RESPONDING TO 'YOUR MOVE' WITH A 0,# ,WHERE '#' IS A NUMBER FROM 0-10. COMMANDS 0,0 AND 0,5 ALLOW YOU TO SAVE THE CURRE ZQHoxGyOzW{_--~wo_}W}O}G. xSAJS_}o5-{_zWyOxGF} !w!{^rx,t {_w!w!r!s_W!͟.͜.zYPFoOڰJSOҰ}o{_zWyOxGҰ{_zWyê!~w-~w-~wyy!Vw!dwz!Rw!`w{!Nw!\w>^,G,N,V!~-w{ʌhxG..w.~ʷ<\Ìڷs_!~.w,^pC,^qK,^rS!~.~W-~O-~GҤGyOzW_.~wä_~W-~O-~G 3{bG!{ox{]!~.-qêG,N,V,^!~ȀGxw,~wyد{_zWyOxG.0,2 EXCHANGES THE PIECES BUT ALSO SWITCHES THE PLAY TO THE COMPUTER TO RETAIN THE PROPER CONTINUITY. COMMAND 0,4 ENDS THE GAME [FOR CHICKENS!!]. COMMAND 0,6 PITS THE COMPUTER AGAINST ITSELF [AUTO COMMAND]. COMMANDS 0,7 0,8 AND 0,9 ARE USED TO SET UP T5!M̈́5!s!Q͠_!~怰G{!{s!{͠!!{s!{ͽ!M͘!M!{̈́!{s!w!$ !$͇ ,0uddvC$0 ʅw#{{6  ͏   y s{Ybw#p#q#r! N#F!q#p2!q!NT GAME ON THE DISK [0,5 SAVES IT WITH THE NAME DESIGNATED AT THE BEGINING OF THE GAME. 0,0 ALLOWS YOU TO CHANGE THE NAME OF THE DISK FILE]. IN THE EVENT YOU HAVE NO LEGAL MOVES, YOU MAY FORFEIT A MOVE AND LET YOUR OPPONENT TAKE AN EXTRA MOVE. THIS IS x!Kw!Yw!gw!~,V,^B.N qkb_HJx}o|gz'}[kb_PH>}o|g{_>o|g{_>+6* |} !͌!ks͠!k̈́!ks@!os!k͠!o!o!osï!o͠ɯ!ow!"*M"o*O"q!"w կGOy * NOTE THAT ALTHOUGH MITCH HAS PUT COPYRIGHT NOTICES INTO THE PROGRAM SOURCE, HE IS PERMITTING UN-RESTRICTED HOBBIEST EXCHANGE. PLEASE LEAVE THE NAME AND ADDRESS OF THE ORIGINATOR IN THE FILE. A.R.G. HE BOARD, MOVE A PIECE AND DELETE A PIECE RESPECTIVELY. TRY THEM THEY ARE SELF EXPLANATORY. FINALLY COMMAND 0,10 LISTS THE AVAILABLE COMMANDS IN CASE YOUR MEMORY BANK HAS A GLITCH. ************************** GOOD LUCK *********************************s !o4͠!{ͽ!{s!y~HPy !Uͽ!{![N,F-R !P o ![q,p6 c o c o ɗyOxGc ~O,~G-kZQHG}!w,6,xÛ!~ʼ {Ҽ .F,N,V.~ >xAJSɯGOW^P ,6!r{ !r\ ~# . _ !#w!iͽOOOOO$*) *)s#r>)(_FEA *)#")*)")*)")))Ϳ(ʈO*)+")<û  ¢#7/ҮM# *) 4 *) > *) 5O& WDA 7#r*)^#V"C*| *)^#V"G**C*N#F!F*q+6:F*!E*X| ͆*)*C*^#VN#F(*G* "G*!E*4'͆*C*G*(mBSA *C*##*G*DMa *)q#p*C*##"C*!I*q*)DM :I*3̀*)^#V"J**J*N#FͿ *J*N#F `i"L**L*~=w*J*N#Fͦ*)N#F `i"L*Ϳ 3*L*~/*L*#"L) *) *) *) *) *) *)0 *)!)p+q*) !)p+q*)))!)p+q!*6>!* !*60**&f ) )(ڵ **&f ) )(+s#r!*4Æ **M !*4x !*r+s+p+q+p+q*! *r+s+q+p+q* *+" *ͮ( **:)*]* w| ~*)*]*s#r̀*)~!c*C*)DM͎!d*6>!d**c*M! ^#V*d*&*)~/w*d*&*)*d*&*)~`iw*d*&*)*d*&*)~`iw*d*&*)*d*&*)~`iwaq!d*4H>!c*| *)DM͞*)MNA *&*!)*p+q>(*( !*(*DḾ",**,* 6*(**,*"0**,**0*N#Fq#p*,*N#F`i"2**,**0*s#r*2*s#r*0* 6*0*##"0**0**,*s#r*,*",**(* *,*!5*p+q>4*(#s#r"4**4* 6*4*##"4**4*^#V"4*>ͫ(*4* ~*4*"6**4*^#.s,~HPy ..~ -Fp !w _ \ ~G_? xA ,~ _ G,~ X OxG{_ G!N!qx!ʌw!i~ >h ͽ>h -P ͌!s\ 6ʶ _x{ 6~!iڿ !^sè ͽ!^sæ ̈́!mҨ !~_ w>,w{!w !iͽ͏Q*2S*f*)N#F*S*M "T*DM*Q*& *)N#F:Q*T*c(DM*R*& ~| ~*)*T*s#r:S*=*T*ẁɟqLSA X҂*)"X*Ì*)^#V"X*eҜ*)"V*æ*)^#V"V**V*~2[*!Z*6:[*!Z**V**X* >*V**X*~>*V*#"V**X*#"X*!Z*4²>~**L**L*~N*(¤>*N*~!P*q:P**)v **)6X| e | *)N#F͏<2Q*f*)N#F͏2R*:R*! *w**#"* !*p+q* *|O * *}O >!%)(=  Q *%)DMm !*p+q  Q **DM !*p+q  Q **DM *)#")*)")>͵(")!)(Ҡ >)(")*)")")!)(ھ *)")!*p+q)*Ϳ(!*p+q**N#FͿ / **N#Fa *)**q#p*)DM)Q!e*6:e*<2e*O!) ~  *))q#p`i:e*w!") !"f**f*~ Y*f*+"f*F !")f*)Ϳ(ڂ*)N *)")b0*)^#V"h*>ͫ(!j*6*h*~!j**j*&*h**) w*)#")ͮ(@!j*4ž*) !*) ~!k*q!*) :k*wV"8**8*>(A*8* ~A*8**4*N#Fq#p`i"8**8**4*s#r!":*t *)"=**)"?*!<*6*)~!<*ڊ*)N#F*:*(+s#r":*| !<*4\*=*")*?*")*:*DMa *)~<_DM "=*"A**)*A* w#6!<*6*)~!<**A*##"A**)*A*N#Fq#p| !<*4͡ *)*=*s \ wy > !~6" \ 6 -H 1 OW 3 >\ s!à>GOW< }DQ!s!^s,fkd   !e( IN LINE $ERROR $WARNING $1)1) ͱ1) ͧv!)q*)&  !)p+q / *#)#"#) *| ~!\*q!a*6:\*<rDH/SSA ͬ*)~2a*| r*)N#F͏!a*HDHl| ~*)>w#6ͬ*)*)N#F͏!a*#wҡ:\*š:b*<*)wá*):b*w:\*¶*)^#V"_*:\**):b*d(*)~͵("_**):a*d(+"_**_* O "]* _ *| ͎͡ *)n *ͬ!*p+q*)>w#6**|*)##w**}*) w*)DM͞*)*)Dn| >r{| >| >!!*p+q*))""*!"&*>"*(*"* ~*"*"*Ϳ(>͵("$**&*"&*> *(* *$*(*"**"*^#V""*Ó> *(*)**)DM*)**)DM***)***)DM *)N#F*)**)~*)~*)>(*)>(*)#~*)#~!*q*)##:*w:ҫFO\ *)z *!"*)DM͎*) *)w*)##*)#w!*q*)**M*)͎!*q*)**M*) *)")*)#")!)(/>)(!l*q&*)#"))(HVREA `ͽ/7Hz͖ *) 5*):l*w*)>ҔFMA *)~ͅO!) ^#V")>ͫ(ºUFA *)N!) ^#V")&*)")")$*) ^#V")"*) ^#V")G $$$"$3$>$I$a$$$$$$%!%)%1%\%d%%%%%%&&S&&&&&&&''''B'J'm'}'t  N#Fog_og_ogDM!>))Ҍ( =„(^#V) •(^#V|g}o Ÿ(_{ozgO{ozgi`N#Fogo&og_{_z#W712A0D47 :100D16002A7C4FCDC6OͩQ(rOͩQ(rOͩQ(r/OͩQ(r/OͩQ(r/OͩQ(͏| | Q(͡ t *)*)s#r*)n&")̀Q(Q(t ͡ *)##*)q#p*)^#V")Q(*)N#F `i")| Q(BQ(Q(/"wQ(͆| Q(͆~| Q(g|Z* "z**)#^l&}("x**x*}*t*|v*c(͟(H !~*s>z*p(*) +")<!z*͛(#s#r *) :~*ʄ vECA  *) :~*w*|*} *) w| ңͽ͖/Ү͖*)~ºM*)~!*q:*:)/,3!)6*)^#V"***~2*:*!*5 *)NO!Q(*)^#V"*>ͫ(**~H<&CAA **#~2*~**M!Q(ͬ "***6*)**# w*)**s#r̀Q(Q(*)N#F͏2*~**M!Q(Q(Q():)(**q#p**##>w#6** w#6**^#V"***>w#6**##*)s#r*)~Ҵ ͡ *)#*) w*)>?*)#w*)~Ү .t Q(*)N!' ^#VQ(Q(Q(D ZD\ Q(N!D 0 EMA !o*6:o*<2o*O!) >(5 ")*o*&)) q#p&*)")G *)#"m*  *)^#V"p**p*##~:ž*p*#>*)w*p*~==2r**p*##"p*å*p*~2r*> !r*ҳ!r*6 *p*#"p*!s*6RO*p* ~.!r*:s*Hÿ*p**m*DM*s*& R!r**s##")| Q(UQ(BQ(*)DM͎Q(!)6*)")ʹQ(!)6>Q(!)6wQ(&[$͖ [$P$<Q(&~$*)++)(~$ 3h$ 3 3<Q(͙V*)N!) >w#6*)N!) w#6| Q(*)#>wQ(*)DM͎*)DM͞Q(͡ *) *͡ *[DM!Q(r/2Q(gZQ(#͡ Q(*)*)^N| | Q(!)6wQ(!)6>Q(ͿQ(ͿQ(Q(͡ t *)N#F*)*t Q(*)+"')Q( Q(/Ҕ#>Q(Q(Q(@Q(!*6**& ) )Ϳ(#!*4ë#!~ :*#@#**& ) ^#V")Q(iQ(D#i$*)"3N!*6:*!*:**~")EQA **N3N!*4:*J"3~| **#"*ͽ jECA *)DMͦ!*6:*<2*O>ڦ**&)) ^#V")>ͫ(ʣVxs@ ?  +) :-)ͧ!,)"})*,)& 6 *,)&,) })(| *)")II\Q(Q(Q( Q(*)~=w*)~=H4'IOA | *)~(҃%*)>(+s#rg%*)N#F ! +s#r)(/>(Hҳ%@*)^#V")| Q(Q(͡ ́DM!Q(*#)"[Q(Q(͡ >)(DM!Q(H!|)4-2*:*":-2*,:* H:͡ ͇*):|)!|)ҝ*|)M*)0*) ͎ð:)«ð*)6 )a  0* )"!)")* )")+"')* )")*)")`"))")*)")" û *')#"')!)(DOA *')~*})#"})*})~:)n>P!|)DBDA ͖*|)&,) w f&cERA k*)~5:)z!:)†!|)6-2* šÌ:)¨!,)"):)¶*})"):)*')"):*"!*6,!*6":)*)#")-2*!*:*+~ 0B2A0D2D4FCDC60B3E0031 :100D26002129CDP728D23D0D01950BCD510C2A71 :100D36002529444DCD6D0CCDD60BC921102A702B1B :100D460071CD0B019F0BCD510C2A0F2A444DCDE8 :100D56000E0DCD0E01C921122A702B71CDD60B01B5 :100D6600A60BCD510C2A112A444DCD0E0DC92A17BA :100Dw!{6͠!{ͽ!ks*!o͠!{ͽ!{s!{ͽ!M͘!ks!y5~!k͠!{ͽ!{s!{͠!M!os!{͠!M!o!{s!{ͽ!kq{9 ~#F#N#V!Y , <    *$A!6 # TI܀1r l7s,w,p,q,r!w>!w!~{_,~,,N,Vê~{_,~,N,VoG!qG{~{̀x!~wbG{ɯ{O!>w,:-3",e-*-w,*-#"- ,,:-6,S-.-S-,:-d,S-*-"-*-6S-e-a,S-*-4O,,S-:-6:-7H:-^H:-HҰ,p-*- )͠-+s#r̀-,:-.,p-*-^#V))* +s#r̀-+v!.p+q*.DMQ    *. 6I*!ss!k͠!oͽ*w!s!M7!os!M͠!s!o!oszWyOI܀1ŕ!Q͌!{s!Q͏ y !Qͽ́!{!{s̈́!Q!Q_!|~G{+s{É!{͠!{ͽ́!ksH!o͠!{ͽ!w,w͌͌76002923221729C92A1529221329EB3E04CD36 :100D8600B528221529EB211929CDDA28D2A00D3E46 :100D960004111B29CDCC28221529C92A132922156D :100DA6002911040019221329EB211B29CDDA28DA8F :100DB600BE0D2A1929221329C921142A702B711153 :100DC6001B2901132ACDBF289FC921162A7 ZQHoxGyOzW{_--~wo_}W}O}G. xSAJS_}o5-{_zWyOxGF} !w!{^rx,t {_w!w!r!s_W!͟.͜.zYPFoOڰJSOҰ}o{_zWyOxGҰ{_zWyê!~w-~w-~wyy!Vw!dwz!Rw!`w{!Nw!\w>^,G,N,V!~-w{ʌhxG..w.~ʷ<\Ìڷs_!~.w,^pC,^qK,^rS!~.~W-~O-~GҤGyOzW_.~wä_~W-~O-~G 3{bG!{ox{]!~.-qêG,N,V,^!~ȀGxw,~wyد{_zWyOxG.. 6N*. 6T*. #-+,*. *-#"-!͸-R-!"-$-R-*-6*-*- w*-#"-.-*-~2-e-*-#we-*-w*-##"-e-O`iͲ-e-_N#Fog{ozg) ²-{ozgi`N#FogC2A712A134B :100ED600290E02CDDF012A1C2A4D2A13295!M̈́5!s!Q͠_!~怰G{!{s!{͠!!{s!{ͽ!M͘!M!{̈́!{s!w!$ !$͇ ,0uddvC$0 ʅw#{{6  ͏   y s{Ybw#p#q#r! N#F!q#p2!q!NI $BASIC-E INTERPRETER - VER 2.2$NM $1-1-+,,!/ͫ-"--Ϳ-")e-2-*ʦ+!-6e-:-<2-O!- Hqy$ʆ+h+*-M-0*- *-"-X+͉-*- "-)-Ϳ-" ))-Ϳ-" )͉-* ) " )*- )-+$+,͉-))* ) ")e-x!Kw!Yw!gw!~,V,^B.N qkb_HJx}o|gz'}[kb_PH>}o|g{_>o|g{_>+6* |} !͌!ks͠!k̈́!ks@!os!k͠!o!o!osï!o͠ɯ!ow!"*M"o*O"q!"w կGOy \60 :100EE600D201CD8E0EC9211D2A712A1329EB0E02BD :100EF600CDDF012A1D2A4D2A1529EBCDD201CD7C45 :100F06000DCD8E0EC9CDA10D2A1329EB016E0BCD89 :100F16002A010E03CDEC0ECDAC0EC9211F2A702B73 :100F2600712A13293E00772336002A1E2A7C2A13AB :100F3600292323772A1E2A7Ds !o4͠!{ͽ!{s!y~HPy !Uͽ!{![N,F-R !P o ![q,p6 c o c o ɗyOxGc ~O,~G-kZQHG}!w,6,xÛ!~ʼ {Ҽ .F,N,V.~ >xAJSɯGOW^P ,6!r{ !r\ ~# . _ !#w!iͽOOOOO$*) *)s#r>)(_FEA *)#")*)")*)")))Ϳ(ʈO*)+")<û  ¢#7/ҮM# *) 4 *) > *) 5O& WDA 7#r*)^#V"C*| *)^#V"G**C*N#F!F*q+6:F*!E*X| ͆*)*C*^#VN#F(*G* "G*!E*4'͆*C*G*(mBSA *C*##*G*DMa *)q#p*C*##"C*!I*q*)DM :I*3̀*)^#V"J**J*N#FͿ *J*N#F `i"L**L*~=w*J*N#Fͦ*)N#F `i"L*Ϳ 3*L*~/*L*#"L) *) *) *) *) *) *)0 *)!)p+q*) !)p+q*)))!)p+q!*6>!* !*60**&f ) )(ڵ **&f ) )(+s#r!*4Æ **M !*4x !*r+s+p+q+p+q*! *r+s+q+p+q* *+" *ͮ( **:)*]* w| ~*)*]*s#r̀*)~!c*C*)DM͎!d*6>!d**c*M! ^#V*d*&*)~/w*d*&*)*d*&*)~`iw*d*&*)*d*&*)~`iw*d*&*)*d*&*)~`iwaq!d*4H>!c*| *)DM͞*)MNA *&*!)*p+q>(*( !*(*DḾ",**,* 6*(**,*"0**,**0*N#Fq#p*,*N#F`i"2**,**0*s#r*2*s#r*0* 6*0*##"0**0**,*s#r*,*",**(* *,*!5*p+q>4*(#s#r"4**4* 6*4*##"4**4*^#V"4*>ͫ(*4* ~*4*"6**4*^#.s,~HPy ..~ -Fp !w _ \ ~G_? xA ,~ _ G,~ X OxG{_ G!N!qx!ʌw!i~ >h ͽ>h -P ͌!s\ 6ʶ _x{ 6~!iڿ !^sè ͽ!^sæ ̈́!mҨ !~_ w>,w{!w !iͽ͏Q*2S*f*)N#F*S*M "T*DM*Q*& *)N#F:Q*T*c(DM*R*& ~| ~*)*T*s#r:S*=*T*ẁɟqLSA X҂*)"X*Ì*)^#V"X*eҜ*)"V*æ*)^#V"V**V*~2[*!Z*6:[*!Z**V**X* >*V**X*~>*V*#"V**X*#"X*!Z*4²>~**L**L*~N*(¤>*N*~!P*q:P**)v **)6X| e | *)N#F͏<2Q*f*)N#F͏2R*:R*! *w**#"* !*p+q* *|O * *}O >!%)(=  Q *%)DMm !*p+q  Q **DM !*p+q  Q **DM *)#")*)")>͵(")!)(Ҡ >)(")*)")")!)(ھ *)")!*p+q)*Ϳ(!*p+q**N#FͿ / **N#Fa *)**q#p*)DM)Q!e*6:e*<2e*O!) ~  *))q#p`i:e*w!") !"f**f*~ Y*f*+"f*F !")f*)Ϳ(ڂ*)N *)")b0*)^#V"h*>ͫ(!j*6*h*~!j**j*&*h**) w*)#")ͮ(@!j*4ž*) !*) ~!k*q!*) :k*wV"8**8*>(A*8* ~A*8**4*N#Fq#p`i"8**8**4*s#r!":*t *)"=**)"?*!<*6*)~!<*ڊ*)N#F*:*(+s#r":*| !<*4\*=*")*?*")*:*DMa *)~<_DM "=*"A**)*A* w#6!<*6*)~!<**A*##"A**)*A*N#Fq#p| !<*4͡ *)*=*s \ wy > !~6" \ 6 -H 1 OW 3 >\ s!à>GOW< }DQ!s!^s,fkd   !e( IN LINE $ERROR $WARNING $1)1) ͱ1) ͧv!)q*)&  !)p+q / *#)#"#) *| ~!\*q!a*6:\*<rDH/SSA ͬ*)~2a*| r*)N#F͏!a*HDHl| ~*)>w#6ͬ*)*)N#F͏!a*#wҡ:\*š:b*<*)wá*):b*w:\*¶*)^#V"_*:\**):b*d(*)~͵("_**):a*d(+"_**_* O "]* _ *| ͎͡ *)n *ͬ!*p+q*)>w#6**|*)##w**}*) w*)DM͞*)*)Dn| >r{| >| >!!*p+q*))""*!"&*>"*(*"* ~*"*"*Ϳ(>͵("$**&*"&*> *(* *$*(*"**"*^#V""*Ó> *(*)**)DM*)**)DM***)***)DM *)N#F*)**)~*)~*)>(*)>(*)#~*)#~!*q*)##:*w:ҫFO\ *)z *!"*)DM͎*) *)w*)##*)#w!*q*)**M*)͎!*q*)**M*) *)")*)#")!)(/>)(!l*q&*)#"))(HVREA `ͽ/7Hz͖ *) 5*):l*w*)>ҔFMA *)~ͅO!) ^#V")>ͫ(ºUFA *)N!) ^#V")&*)")")$*) ^#V")"*) ^#V")G $$$"$3$>$I$a$$$$$$%!%)%1%\%d%%%%%%&&S&&&&&&&''''B'J'm'}'t  N#Fog_og_ogDM!>))Ҍ( =„(^#V) •(^#V|g}o Ÿ(_{ozgO{ozgi`N#Fogo&og_{_z#W712A0D47 :100D16002A7C4FCDC6OͩQ(rOͩQ(rOͩQ(r/OͩQ(r/OͩQ(r/OͩQ(͏| | Q(͡ t *)*)s#r*)n&")̀Q(Q(t ͡ *)##*)q#p*)^#V")Q(*)N#F `i")| Q(BQ(Q(/"wQ(͆| Q(͆~| Q(g|Z* "z**)#^l&}("x**x*}*t*|v*c(͟(H !~*s>z*p(*) +")<!z*͛(#s#r *) :~*ʄ vECA  *) :~*w*|*} *) w| ңͽ͖/Ү͖*)~ºM*)~!*q:*:)/,3!)6*)^#V"***~2*:*!*5 *)NO!Q(*)^#V"*>ͫ(**~H<&CAA **#~2*~**M!Q(ͬ "***6*)**# w*)**s#r̀Q(Q(*)N#F͏2*~**M!Q(Q(Q():)(**q#p**##>w#6** w#6**^#V"***>w#6**##*)s#r*)~Ҵ ͡ *)#*) w*)>?*)#w*)~Ү .t Q(*)N!' ^#VQ(Q(Q(D ZD\ Q(N!D 0 EMA !o*6:o*<2o*O!) >(5 ")*o*&)) q#p&*)")G *)#"m*  *)^#V"p**p*##~:ž*p*#>*)w*p*~==2r**p*##"p*å*p*~2r*> !r*ҳ!r*6 *p*#"p*!s*6RO*p* ~.!r*:s*Hÿ*p**m*DM*s*& R!r**s##")| Q(UQ(BQ(*)DM͎Q(!)6*)")ʹQ(!)6>Q(!)6wQ(&[$͖ [$P$<Q(&~$*)++)(~$ 3h$ 3 3<Q(͙V*)N!) >w#6*)N!) w#6| Q(*)#>wQ(*)DM͎*)DM͞Q(͡ *) *͡ *[DM!Q(r/2Q(gZQ(#͡ Q(*)*)^N| | Q(!)6wQ(!)6>Q(ͿQ(ͿQ(Q(͡ t *)N#F*)*t Q(*)+"')Q( Q(/Ҕ#>Q(Q(Q(@Q(!*6**& ) )Ϳ(#!*4ë#!~ :*#@#**& ) ^#V")Q(iQ(D#i$*)"3N!*6:*!*:**~")EQA **N3N!*4:*J"3~| **#"*ͽ jECA *)DMͦ!*6:*<2*O>ڦ**&)) ^#V")>ͫ(ʣVxs@ ?  +) :-)ͧ!,)"})*,)& 6 *,)&,) })(| *)")II\Q(Q(Q( Q(*)~=w*)~=H4'IOA | *)~(҃%*)>(+s#rg%*)N#F ! +s#r)(/>(Hҳ%@*)^#V")| Q(Q(͡ ́DM!Q(*#)"[Q(Q(͡ >)(DM!Q(H!|)4-2*:*":-2*,:* H:͡ ͇*):|)!|)ҝ*|)M*)0*) ͎ð:)«ð*)6 )a  0* )"!)")* )")+"')* )")*)")`"))")*)")" û *')#"')!)(DOA *')~*})#"})*})~:)n>P!|)DBDA ͖*|)&,) w f&cERA k*)~5:)z!:)†!|)6-2* šÌ:)¨!,)"):)¶*})"):)*')"):*"!*6,!*6":)*)#")-2*!*:*+~ 0B2A0D2D4FCDC60B3E0031 :100D26002129CDP728D23D0D01950BCD510C2A71 :100D36002529444DCD6D0CCDD60BC921102A702B1B :100D460071CD0B019F0BCD510C2A0F2A444DCDE8 :100D56000E0DCD0E01C921122A702B71CDD60B01B5 :100D6600A60BCD510C2A112A444DCD0E0DC92A17BA :100Dk..~-Fp!wQN ~G_1x3,~ QG,~ JOxG{QG!N!qx!ʌw!ip>Zͽ>Z-B ͌!sN 6ʨ_x{6~!iڱڽ!^sÚͽ!^sØ̈́!mҚ!~_w>,w{!w !iͽ́N wk>q{& ~#F#N#V!Y , <    *$A!6 # TI܀1r hV*+^B:e,w>2T:T=2T:+O+0 Z*+*+!^bB!b"+!Z"+O2V"+"+!V>:[2U:[>2U!,:-3",e-*-w,*-#"- ,,:-6,S-.-S-,:-d,S-*-"-*-6S-e-a,S-*-4O,,S-:-6:-7H:-^H:-HҰ,p-*- )͠-+s#r̀-,:-.,p-*-^#V))* +s#r̀-+v!.p+q*.DMQ    *. 6I* ZQHoxGyOzW{_--~wo_}W}O}G. xSAJS_}o5-{_zWyOxGF} !w!{^rx,t {_w!w!r!s_W!͟.͜.zYPFoOڰJSOҰ}o{_zWyOxGҰ{_zWyê!~w-~w-~wyy!Vw!dwz!Rw!`w{!Nw!\w76002923221729C92A1529221329EB3E04CD36 :100D8600B528221529EB211929CDDA28D2A00D3E46 :100D960004111B29CDCC28221529C92A132922156D :100DA6002911040019221329EB211B29CDDA28DA8F :100DB600BE0D2A1929221329C921142A702B711153 :100DC6001B2901132ACDBF289FC921162A72+B :+<2+_!+6 Í:U5>914607>0>5697~#B~+K!Gs,w,p,q,r!w>!w!~{_,~,,N,Vê~{_,~,N,VoG!qG{~{̀x!~wbG{ɯ{O!>w+:+=2+_>E!+:+_"X2W%*X:WG>.Q+.:WG:_F x *X:WG :_` x *X ڐ>.ʆ>0 :+=2++n:+=2+ >0µ+:+=2+>.ʮ  Ö:+=2++>.ʵ  ù!+:+_GK61:+<2+ >0 Z#:+=G. 6N*. 6T*. #-+,*. *-#"-!͸-R-!"-$-R-*-6*-*- w*-#"-.-*-~2-e-*-#we-*-w*-##"-e-O`iͲ-e-_N#Fog{ozg) ²-{ozgi`N#FogC2A712A134B :100ED600290E02CDDF012A1C2A4D2A1329x!Kw!Yw!gw!~,V,^B.N qkb_HJx}o|gz'}[kb_PH>}o|g{_>o|g{_>+kZQHG}!w,6,xÛ!~ʮ{Ү.F,N,V.~ >xAJSɯGOW^B ,6!r{!rN ~  Q!#w!iͽ.s,~HP)-ï -`iN#F#^#V#~#fo}+ !y:!$0w# =>w!$ʹ!$y-1uddvC$0 ʅw#{{6  ́  ks{ F O u r w#p#q#r! N#F!q#p2!q!NI $BASIC-E INTERPRETER - VER 2.3$NM $1-1-+,,!/ͫ-"--Ϳ-")e-2-*ʦ+!-6e-:-<2-O!- Hqy$ʆ+h+*-M-0*- *-"-X+͉-*- "-)-Ϳ-" ))-Ϳ-" )͉-* ) " )*- )-+$+,͉-))* ) ")e->^,G,N,V!~-w{ʌhxG..w.~ʷ<\Ìڷs_!~.w,^pC,^qK,^rS!~.~W-~O-~GҤGyOzW_.~wä_~W-~O-~G 3{bG!{ox{]!~.-qêG,N,V,^!~ȀGxw,~wyد{_zWyOxG.\60 :100EE600D201CD8E0EC9211D2A712A1329EB0E02BD :100EF600CDDF012A1D2A4D2A1529EBCDD201CD7C45 :100F06000DCD8E0EC9CDA10D2A1329EB016E0BCD89 :100F16002A010E03CDEC0ECDAC0EC9211F2A702B73 :100F2600712A13293E00772336002A1E2A7C2A13AB :100F3600292323772A1E2A7!~6 N 6-: # OW % >N s!à>GOW. }DQ!s!^s,fk 1` >-  ( \͌!X s͠!X ̈́!X s@!\ s!X ͠!\ !\ !\ sʿ Ü !\ ͠ɯ!\ w! *: "\ *< "^ ! "d  կGOk!` s!X ͠!\ ͽ*+*], w|~*+*],s#r̀*+~!c,C*+DM͎!d,6>!d,*c,M! ^#V*d,&*+~/w*d,&*+*d,&*+~`iw*d,&*+*d,&*+~`iw*d,&*+*d,&*+~`iwaq!d,4H>!c,|*+DM͞qMNA*&,!),p+q>(,* !*(,DḾ",,*,, 6*(,*,,"0,*,,*0,N#Fq#p*,,N#F`i"2,*,,*0,s#r*2,s#r*0, 6*0,##"0,*0,*,,s#r*,,",,*(,*,,!5,p+q>4,*#s#r"4,*4, 6*4,##"4,*4,^#V"4,>ͫ**4, ~*4,"6,*4,^#s* !\ ͠!h ͽ!h s!h ͽ!: ͅ !X s!f 5k !X ͠!h ͽ!h s!h ͠!: !\ s!h ͠!: !\ !h s!h ͽ!X s  !\ 4͠Q,2S,f*+N#F*S,M "T,DM*Q,&*+N#F:Q,T,c*DM*R,&~|~*+*T,s#r:S,=*T,ẁɟqLSAX҂*+"X,Ì*+^#V"X,eҜ*+"V,æ*+^#V"V,*V,~2[,!Z,6:[,!Z,*V,*X, >*V,*X,~>*V,#"V,*X,#"X,!Z,4²>~*+**+DM*+**+DM,**+,**+DM*+N#F*+**+~*+~*+>**+>**+#~*+#~!,q*+##:,w:ҫFO\*+z *!"*+DM͎*+ *+w*+##*+#w!,q*+*,M*+͎!,q*+*,M*+d !` !: $ !\ s!: ͠!` !\ !\ szWyO I܀1ŕ!> ͌!h s!> ́k!> ͽ́!h !h s̈́!>  ʭ !> _!i ~G{+s{v !h ͠!h ͽ́!X sH !\ ͠!h ͽ !w,w͌͌" !: q " !l s!#r*+^#V"C,|*+^#V"G,*C,N#F!F,q+6:F,!E,X|͆*+*C,^#VN#F**G, "G,!E,4'͆*C,G,*mBSA*C,##*G,DMa *+q#p*C,##"C,!I,q*+DM:I,3̀*+^#V"J,*J,N#FͿ*J,N#F `i"L,*L,~=w*J,N#Fͦ*+N#F `i"L,Ϳ3*L,~/*L,#"LV"8,*8,>*A*8, ~A*8,*4,N#Fq#p`i"8,*8,*4,s#r!":,t*+"=,*+"?,!<,6*+~!<,ڊ*+N#F*:,*+s#r":,|!<,4\*=,"+*?,"+*:,DMa*+~<_DM "=,"A,*+*A, w#6!<,6*+~!<,*A,##"A,*+*A,N#Fq#p|!<,4͡*+*=,s!h ͽ!h s!f ~HPk!B ͽ!h ![N,F-? != \ ![q,p6 P \ P \ ɗyOxGP ~O,~G-d - gA>͞ IN LINE $ERROR $WARNING $1+1+ ͱ!1+"ͧv!+q*+&  !+p+q / *#+#"#+ *|~!\,q!a,6:\,<rDH/SSAͬ*+~2a,|r*+N#F͏!a,HDHl|~*+>w#6ͬ*+*+N#F͏!a,#wҡ:\,š:b,<*+wá*+:b,w:\,¶*+^#V"_,:\,*+:b,d**+~͵*"_,*+:a,d*+"_,*_, O "], _*|͎͡*+n *ͬ!,p+q*+>w#6*,|*+##w*,}*+ w*+DM͞*+*+Dn|>r{|>|>!!,p+q*)+"",!"&,>",**", ~*",",Ϳ*>͵*"$,*&,"&,> ,** ,$,**",*",^#V"",Ó> ,*> ͠_!m ~怰G{!h s!h ͠!l !h s!h ͽ!: ͅ !: !h q !h s!l N,*¤>*N,~!P,q:P,*+v **+6X|e|*+N#F͏<2Q,f*+N#F͏2R,:R,! ,w*,#",!,p+q* ,|O * ,}O >!%+*= Q*%+DMm !,p+q  Q*,DM!,p+q  Q*,DM*+#"+*+"+>͵*"+!+*Ҡ>+*"+*+"+"+!+*ھ*+"+!,p+q+,Ϳ*!,p+q*,N#FͿ/*,N#Fa*+*,q#p*+DM+ *+ *+ *+ *+ *+ *+0*+!+p+q*+ !+p+q*+))!+p+q!,6>!,!,60*,&f ) +*ڵ*,&f ) +*+s#r!,4Æ*,M !,4x!,r+s+p+q+p+q,! ,r+s+q+p+q* ,+" ,ͮ* *,:+Q!e,6:e,<2e,O!+ ~  *++q#p`í!"+ !"f,*f,~ Y*f,+"f,F !"+f,+Ϳ*ڂ*+N *+"+b0*+^#V"h,>ͫ*!j,6*h,~!j,*j,&*h,*+ w*+#"+ͮ*@!j,4ž*+!*+ ~!k,q!*+ :k,w *+NO!Q**+^#V",>ͫ**,~H<(CAA*,#~2,~*,M!Q*ͬ ",*,6*+*,# w*+*,s#r̀Q*Q**+N#F͏2,~*,M!Q*Q*Q*+:+**,q#p*,##>w#6*, w#6*,^#V",*,>w#6*,##*+s#r*+~Ҵ"͡*+#*+ w*+>?*+#w*+~Ү".tQ**+N!) ^#VQ*Q*Q*D"ZD\Q*N#D0EMA!o,6:o,<2o,O!+ >*5 "+*o,&+) q#p&*+"+G*+#"m,  *+^#V"p,*p,##~:ž*p,#>*+w*p,~==2r,*p,##"p,å*p,~2r,> !r,ҳ!r,6 *p,#"p,!s,6RO*p, ~.!r,:s,Hÿ*p,*m,DM*s,&R!r,*s##"+|Q*UQ*BQ**+DM͎Q*!+6*+"+ʹQ*!+6>!Q*!+6w!Q*&[&͖ [&P&<Q*&~&*++++*~& 3h& 3 3<Q*͙V*+N!+ >w#6*+N!+ w#6|Q**+#>wQ**+DM͎*+DM͞Q*͡*+ *͡*[DM!Q*r/2û *'+#"'+!+* DOA*'+~*}+#"}+*}+~:+n >P!|+D BDA͖*|+&,+ w f &c ERAk *+~5 :+z ! :+†  !|+6- 2, š Ì :+¨ !,+"+:+¶ *}+"+:+ *'+"+:," !,6, !,6":+ *+#"+- 2,!,:,+~ OOOOO$*+ *+s#r>+*_FEA*+#"+*+"+*+"+++Ϳ*ʈO*++"+<û ¢#7/ҮM# *+ 4 *+ > *+ 5O&WDA 7OͩQ*rOͩQ*rOͩQ*r/OͩQ*r/OͩQ*r/OͩQ*͏||Q*͡t*+*+s#r*+n&"+̀Q*Q*t͡*+##*+q#p*+^#V"+Q**+N#F `i"+|Q*BQ*Q*/$w!Q*͆|Q*͆~|Q*g|Z#*+r *E#y"#ENAE#*+*+*+|͎Q*OOͩQ*OOͩQ*OOͩQ*O/OͩQ*O/OͩQ*O/OͩQ*&Q*&Q*&Q*.Q*͏|Q*|Q*͡Q*Q*͏||Q*r,&*p,*m,!s,:r,_*+$*+ q#p|*+"*+ N#Fq#p|:s,<2s,*+"+*+"+͙!"+!+6|&/ҊURAXrHҞRIA*+N#F +q#p-ͽ*+}*+#~H_**+|l_&}*!9g*"v,*+^}*"t,!v,͑**t,D/Oͩ:,' Q* Q* Q*Q*͡ | ͡NT'ZTAQ* Q* *+>*҃'*+>*+s#rg'*+N#F ! +s#r+*/>*Hҳ'@*+^#V"+|Q*Q*́͡DM!Q**#+"[Q*Q*͡>+*DM!Q*H!!|+4- 2, :,":!- 2,,:, H:!!͇͡ *+:|+!|+ҝ!*|+M*+0*+ ͎ð!:+«!ð!*+6!"+a0* +"!+"+* +"++"'+* +"+*+"+`")+"+*+"+" *+"+*+#"+!+*/>+*!l,q&*+#"++*HVREA`ͽ/7Hz͖ *+ 5*+:l,w*+>ҔFMA*+~ͅO!+ ^#V"+>ͫ*ºUFA*+N!+ ^#V"+&*+"+"+$*+ ^#V"+"*+ ^#V"+GQ*gZQ*%͡Q**+*+^N||Q*!+6w!Q*!+6>!Q*ͿQ*ͿQ*Q*͡t*+N#F*+*tQ**++"'+Q* Q*/Ҕ%>!Q*Q*Q*@Q*!,6*,& ) +Ϳ*%!,4ë%!~ :,%@%*,& ) ^#V"+Q*iQ*D%i&*+"3N!,6:,!,:*,~")EQA*,N3N!,4:,J"3~|*,#",ͽjECA*+DMͦ!,6:,<2,O>ڦ*,&+) ^#V"+>ͫ*ʣVxs@ ?  ++ :-+ͧ!,+"}+*,+& 6 *,+&,+ }+*|*+"+II\, "z,*+#^l&}*"x,*x,}*t,|v,c*͟*H !~,s>z,p**+ +"+<!z,͛*#s#r *+ :~,ʄvECA *+ :~,w*|,} *+ w|ңͽ͖/Ү͖*+~ºM*+~!,q:,:+/,3!+6*+^#V",*,~2,:,!,5Q*Q*Q* Q**+~=w*+~=H4)IOA|*+~&I&a&&&&&&'!')'1'\'d''''''((S((((((())))B)J)m)})t"N#Fog_og_ogDM!>))Ҍ* =„*^#V) •*^#V|g}o Ÿ*_{ozgO{ozgi`N#Fogo&og_{_z#W1149 :100FC6001B2B01132CCDBFNI $BASIC-E INTERPRETER: VER K2.0$NM $1/1/-..!1ͫ/"//Ϳ/"+e/2/*ʦ-!/6e/:/<2/O!/ Hqy$ʆ-h-*/M/0*/ */"/X-͉/*/ "/+/Ϳ/" ++/Ϳ/" +͉/* + " +*/ +/-$-.͉/))* + "+e/NI $BIC-E INTERPRETER - VER 2.2$N $1P1-+,,!/ͫ-"--Ϳ-")e-2-*ʦ+!-6e-:-<2-O!- Hqy$ʀh+*-M-0*- *-"-X+͉-*- "-)-Ϳ-" ))-Ϳ-" )͉-* ) " )*- )-+$+,͉-))* ) ")e-0 6N*0 6T*0 #/-.*0 */#"/!͸/R/!"/$/R/*/6*/*/ w*/#"/./*/~2/e/*/#we/*/w*/##"/e/O`iͲ/e/_N#Fog{ozg) ²/{ozgi`N#FogC702B6C :10118600712A2922222C21000022262C3E0011.:/3".e/*/w.*/#"/ ..:/6.S/./S/.:/d.S/*/"/*/6S/e/a.S/*/4O..S/:/6:/7H:/^H:/HҰ.p/*/ +͠/+s#r̀/.:/..p/*/^#V))* +s#r̀/-v!0p+q*0DMQ   *0 6I*