
 ô GOMOKU$ ô Electron Introductory Cassette5 ô Authors J.C. and L.H., IBM PC version by R.T.R.(  2 î … ë 3:à< ç<&900 ŒÐ=&900:×"GOMOKU"Z Þ MAP 255,BLOCK 8d osword=&FFF1n òINITDBL%x ë4:òOFF:òDBL("Gomoku",12):N%=¦500‚  Œ î…åtlH   – CX%=1:CY%=1:SIZ%=32-  @%=3:HW%=0:CW%=0:BOARDC%=7:MYC%=7:ITSC%=70ª òBLOB:ë6:òINFO:ë5:òBOARD(40,150):òPALETTE   &´ Þ M%(19,19),T%27*27,S%81,COORDS%12¾ ãI%=1¸81:S%?I%=0:íÈ òOFF^Ò ô IFHW%>0ORCW%>0:CLS:PRINT"Change the"'"colours (Y/N)?":A=GET:IF A=89:PROCPALETTE         (Ü Û:ñ"Shall I start (Y/N)?":A=¥:Û     8æ S%?20=1:S%?10=40:S%?12=30:S%?13=47:S%?27=15:S%?28=208ð S%?29=10:S%?30=40:S%?31=50:S%?32=30:S%?24=1:S%?36=39:ú S%?37=65:S%?38=40:S%?39=70:S%?40=100:S%?41=60:S%?42=309S%?43=30:S%?44=30:S%?62=41:S%?72=31:S%?73=11:S%?74=419S%?78=51:S%?80=90:S%?26=21:S%?79=40:S%?60=21:S%?61=11S%?54=1"ãI%=1¸27",çI%<=19 ãJ%=1¸19:M%(I%,J%)=0:í#6ãJ%=1¸27*27 ˆ 27:T%?(I%+J%)=0:í@í-JC%=-1:W%=19-³(10):N%=14:O%=14:X%=19-³(10)TçA=89Œd~A^òIN:Z%=CX%:Y%=CY%/hY%=Y%+4:Z%=Z%+4:çY%<5„Z%<5„Y%>23„Z%>23ŒD^ArçT%?(Y%*27+Z%)>0ŒD^A|òDO(Z%-4,Y%-4,225,2)†T%?(Y%*27+Z%)=2:I%=Y%:J%=Z%ñ½30;"  Thinking...":ätTB šçC%<>-1ŒDNB¤I%=W%:J%=X%	®ätTB	¸Q%=-1ÂãI%=5¸23#ÌãJ%=5¸23::çT%?(I%*27+J%)>0ŒdjA!ÖA%=M%(I%-4,J%-4):çA%<Q% ŒdjAàW%=I%:X%=J%:Q%=A%êí,ôÛþãI%=1¸3òDO(X%-4,W%-4,225,0)T=‘:õý ‘>T+30òDO(X%-4,W%-4,225,1)&T=‘:õý ‘>T+300í+:T%?(W%*27+X%)=1:çM%(W%-4,X%-4)<100ŒD^A5DòFINDWIN(X%-4,W%-4,1):Û:ñ"I win":CW%=CW%+1       <NçC%=0:òFINDWIN(Z%-4,Y%-4,2):Û:ñ"You win":HW%=HW%+1      Xñ"Another game (Y/N) ?",bï28,24,24,29,2:ñ'"Me  ";CW%''"You ";HW% lõý¦(0)=-1S€A=¥:ç A<>89 Œ tlH ‹ ãI%=1¸27:ãJ%=1¸27:ç T%?(I%*27+J%)>0 Œ òDO(J%-4,I%-4,225,0)Ší,:Û:ï28,0,24,19,22:åt~@  ”K%=1:L%=-1     žçI%<N% çI%>5 N%=I%¨ç I%>O% ç I%<23 O%=I%²U%=I%:V%=J%:D%=0¼D%=D%+1:P%=81ÆçU%>23„V%>23„U%<5„V%<5ŒdhC9ÐE%=U%-4:G%=V%-4:A%=M%(E%,G%):Q%=T%?(27*(U%+K%)+V%+L%)qÚR%=27*T%?(27*(U%-K%)+V%-L%)+9*T%?(27*(U%-2*K%)+V%-2*L%)+3*T%?(27*(U%-3*K%)+V%-3*L%)+T%?(27*(U%-4*K%)+V%-4*L%)DäB%=Q%*27+T%?(27*(U%+2*K%)+V%+2*L%)*9+T%?(27*(U%+3*K%)+V%+3*L%)*3 îçR%=80 çT%?(27*U%+V%)=2 C%=0øçT%?(27*U%+V%)<>0ŒdTCçR%<14 çR%>11 çQ%=1 P%=37çR%>71 çB%>53 çB%<63 P%=80çR%>71 çB%>71 P%=80 çR%>53 çR%<63 çQ%=2 P%=72*çP%=72 çR%=60 P%=314çQ%<>2ŒD\C>çR%=78P%=80HçR%=79P%=80RçR%=41R%=81\çR%<42 çR%>35 çQ%=1 P%=41fçR%<33 çR%>29 çQ%=1 P%=41pçR%>53 çR%<63 çB%>71 P%=80zçR%>38 çR%<42 çQ%=1 R%=40%„çR%>35 çR%<45 çB%>35 çB%<45 R%=40%ŽçR%>27 çR%<54 çB%>38 çB%<42 R%=40˜çR%=79çA%=51M%(E%,G%)=41¢çR%=0R%=81¬çS%?P%>S%?R%:R%=P%3¶çS%?R%-S%?R% ƒ10=1 çA%-A% ƒ10=1 çS%?R%<41 R%=742ÀçS%?R%-S%?R%ƒ10=9 çA%-A% ƒ10=9 çS%?R%<65 R%=37$ÊçS%?R%>M%(E%,G%) M%(E%,G%)=S%?R%ÔçD%>4ŒdhCÞU%=U%+K%:V%=V%+L%:åt|BèçK%=0 çL%=-1 øòçK%=-1 çL%=-1 K%=0üçK%=-1 çL%=0 L%=-1çK%=-1 çL%=1 L%=0çK%=0 çL%=1 K%=-1çK%=1 çL%=1 K%=0$çK%=1 çL%=0 L%=1.çK%=1 çL%=-1 L%=0	8åtrBB LÝòBOARD(X%,Y%)Vê T%`ï19,7,0;0;    
jìX%,Y%tT%=SIZ%*19~ãI%=0¸19ˆð1,0,T%’ð0,SIZ%,-T%œí
¦ìX%,Y%°ãI%=0¸19ºð1,T%,0Äð0,-T%,SIZ%ÎíØï19,3,BOARDC%;0;âï29,X%-8 ;Y%+8;ìáö 
 ÝòBLOB#
ï23,224,0,0,&7E,&42,&42,&7E,0,0%ï23,226,0,0,&08,&08,&08,&08,&08,0!ï23,227,0,0,0,&1C,&14,&1C,0,0%(ï23,225,0,0,&1C,&3E,&3E,&3E,&1C,0,2ï23,228,0,0,0,&1C,0,0,0,0               <áF PÝòDO(X%,Y%,CODE%,KOLOR%)Zì0,0:ï5dì(X%-1)*SIZ%+8,Y%*SIZ%-8næ0,KOLOR%xï CODE%‚ï4Œá–  Ý òPALETTE#ªï28,0,24,19,22:ï23;&200A;0;0;0;´Û:õý¦(0)=-1¾á=Èñ"Please select"'"board colour";:BOARDC%=¤PAL(3,BOARDC%) :Òñ½13"my colour   ";:òDO(19,-2,225,1):MYC%=¤PAL(1,MYC%)?Üñ½13"your colour  ";:òDO(19,-2,225,2):ITSC%=¤PAL(2,ITSC%):Ûæáð úÝ¤PAL(I%,J%)õý¦(0)=-1-õ ï19,I%,J%;0;:A%=¥:J%=J%+1:ç J%=8 Œ J%=1"ý A%=13 :ç J%=1 Œ =7‹ =J%-1, 6ÝòIN@Û:ñ"   Your move" #^STIN$=½208+½200+½203+½205:ådLFhõý¦(0)=-1rA$=¾|çA$=½13 Û:á   H†I%=0:õI%=I%+1:ý A$=ÁSTIN$,I%,1)„I%>7:çI%>7 Œ DhF ‹ ç I%>4 Œ I%=I%-2?ç I%<=2Œ J%=(I%-1)*2-1:òDO(0,CY%,228,0):òDO(20,CY%,228,0)  :šçI%>2ŒJ%=(I%-3)*2-1:òDO(CX%,0,226,0):òDO(CX%,20,226,0)3¤ç T%?(27*(CY%+4)+CX%+4)=0 Œ òDO(CX%,CY%,227,0) $®ç I%<=2Œ CY%=CY%+J% ‹ CX%=CX%+J%$¸çCY%=0 Œ CY%=19 ‹ ç CY%=20 CY%=1$ÂçCX%=0 Œ CX%=19 ‹ ç CX%=20 CX%=1LÌòDO(0,CY%,228,3):òDO(20,CY%,228,3):òDO(CX%,0,226,3):òDO(CX%,20,226,3)   6Öç T%?(27*(CY%+4)+CX%+4)=0 Œ òDO(CX%,CY%,227,2)    	àåDhFê ôÝòFINDWIN(X%,Y%,WHO%)þê P%,XS%,YS%,TG%P%=0:XS%=X%:YS%=Y%ã I%=-1  ¸ 1ã J%=-1 ¸ 1	&TG%=00õ:COORDS%?P%=X%:P%=P%+1DCOORDS%?P%=Y%:P%=P%+1NX%=X%+I%XY%=Y%+J%'bý T%?(27*(Y%+4)+X%+4)<>WHO% „ P%=10RlçT%?(27*(Y%+4)+X%+4)<>WHO% € TG%=0 € P%<>10Œ X%=X%-5*I%:Y%=Y%-5*J%:TG%=1:åTpG,vç P%=10 Œ I%=1:J%=1 ‹ X%=XS%:Y%=YS%:P%=0€í,ŠãJ%=0¸3”ãI%=0¸9 ˆ 2=žòDO(COORDS%?I%,COORDS%?(I%+1),225,0):í:TG%=‘:õý ‘>=TG%+70N¨ãI%=0¸9 ˆ 2:òDO(COORDS%?I%,COORDS%?(I%+1),225,WHO%):í:TG%=‘:õý ‘>=TG%+70:í²á¼ 7ÆÝ òINFO:ñ'"GOMOKU is a board game where the winner".Ðñ"is the first to get 5 counters in a row",Úñ"(horizontal, vertical or diagonal)."  läñ''"To place a counter on the board, move"'"the cursor to the desired square and"'"press RETURN."        îñ''" CURSOR CONTROL KEYS :-"øñ'Š14)½27½27" - Left"ñ'Š14)½27½26" - Right"ñ'Š14)½27½24" - Up"ñ'Š14)½27½25" - Down"° ô PRINT'"To choose the board and counter colours,press any key when you are prompted and"'"the selected colour will alter. When thedesired colour is displayed press RETURN"-*ñŠ4,23)"Press the SPACE BAR to continue";
4õý¥=32>áH RÝ òOFF ï23,1,0;0;0;0;:á\ 4fÝ òINITDBL $MAP=Ä255,½0):MAP?255=0:CHARPTR=224:áp WzÝ òDBL(A$,y%)B$="":C$="":ãCH%=1¸©A$:K%=¤CHAR(—ÁA$,CH%,1)):B$=B$+½K%:C$=C$+½(K%+1):í?„K%=19-©A$/2:DBL$=½31+½K%+½y%+B$+½31+½K%+½(y%+1)+C$:ñDBL$;:áŽ ¼˜Ý ¤CHAR(C%)çMAP?C%Œ=MAP?C% ‹çCHARPTR>=256ú ‹MAP?C%=CHARPTR:?BLOCK=C%:A%=10:X%=BLOCK:Y%=BLOCK 256:Öosword:ãJ%=0¸1:ï23,CHARPTR+J%:ãI%=2¸9:ïBLOCK?(J%*4+I%2):í,:CHARPTR=CHARPTR+2:=MAP?C%¢ ¬ô Error-trap"¶ç Ÿ<>17 ë 3:ö:ñ" at line ";ž:à	Àë 3:à ÿÿ