0 'OTHELO.BA Gary Sullivan CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
1 KEYON:ONKEYGOSUB84,,,,,,,58:CALL20318:CLS:PRINT@96,"OTHELLO":PRINT@134,"(Ver:G2.00)":PRINT@367,"Modified for the Tandy 200":PRINT@419,"by":PRINT@452,"John Menichelli":PRINT@494,"[72226,1652]":PRINT@606,"Compressed By Gary Sullivan":FORK=1TO1500:NEXT
27 GOSUB81:PRINT"I have to forfeit my move":GOSUB74:IFZ=1THEN57
28 Z=1:GOTO31
29 Z=0:GOSUB81:PRINT"I will move to "J3", "C$(I3);:I=I3:J=J3:U=1:GOSUB62:C1=C1+S1+1:H1=H1-S1:N1=N1+1:GOSUB81:PRINT"That gives me "S1" of your pieces":GOSUB74:GOSUB69:IFH1=0THEN57
75 CLS:PRINT@3,"A B C D E F G H":LINE(9,14)-(11,12):LINE-(11,18):LINE(9,18)-(13,18):PSET(9,25):LINE(10,24)-(12,24):LINE(13,25)-(13,26):LINE-(11,28):LINE-(10,28):LINE-(9,29):LINE-(9,30):LINE-(13,30):PSET(9,37):LINE(10,36)-(12,36):LINE(13,37)-(13,38)
78 LINE(13,97)-(13,98):LINE(13,100)-(13,101):LINE(15,9)-(111,105),1,B:FORX=27TO109STEP12:LINE(X,9)-(X,105):NEXT:FORX=21TO109STEP12:LINE(15,X)-(111,X):NEXT:IFS2=0THENPRINT@21,"=-> Easy Game <-=
79 IFS2=2THENPRINT@21,"=-> Hard Game <-=
80 PRINT@100,"Move":PRINT@180,"Computer":PRINT@260,"Dumb Human":PRINT@340,"F1 Power up reDRAW":PRINT@420,"F8 to QUIT":PRINT@500,"TAB to forfit turn