1PROCvdu7:MODE7:PROCtitle:PRINT" 3-A
-LINE IS A GAME WHICH NEEDS "'" BETWEEN
2-4 PLAYERS.THE OBJECTIVE OF "'" THE GAM
E IS TO FIT 3 SQUARES IN A "'" HORIZONTA
L,VERTICAL OR DIAGONAL LINE."'" IF YOU D
O..YOU GAIN POINTS."
40PRINT'" THIS INVOLVES CLEVER THINKI
NG & "'" BRAINPOWER TO GAIN MORE POINTS
THAN "'" THE OTHER PLAYERS."
50PRINT'" ALSO NOTE THAT IF THREE SQU
ARES ARE"'" IN LINE AND THIS FORMATION I
S NOT "'" BROKEN (IE THE THREE SQUARES A
RE NEXT"'" TO EACH OTHER) THEN POINTS AR
E AWARDED"'" EVERY TIME ANY PLAYER HAS F
INISHED HIS"'" /HER GO."::VDU23,65,112,8
,68,126,66,66,66,0
60PRINT'" ALSO...THERE IS A COLOUR SE
QUENCE.."'" WHICH MUST BE FOLLOWED.IT IS
SHOWN ON"'" THE TOP OF THE SCREEN IN TH
E GAME."
61PRINT"
,,,,,,,,,,":GT$=GET$
70VDU23,66,126,66,66,124,66,66,126,0:
VDU23,67,126,66,64,64,66,66,126,0:VDU23,
68,112,8,68,66,66,66,124,0:VDU23,69,126,
0,64,124,64,64,126,0:VDU23,70,126,0,64,1
24,64,64,64,0:VDU23,71,126,2,64,78,66,66
,126,0:VDU23,72,66,66,66,126,66,66,66,0:
VDU23,73,62,8,8,8,8,8,62,0
150VDU23,74,126,8,8,8,72,72,120,0:VDU2
3,75,68,72,80,96,80,72,68,0:VDU23,76,64,
64,64,64,66,66,126,0:VDU23,77,127,73,73,
73,73,65,65,0:VDU23,78,112,8,68,66,66,66
,66,0:VDU23,79,126,2,66,66,66,66,126,0:V
DU23,80,126,2,126,64,64,64,64,0:VDU23,81
,126,2,66,66,74,76,118,2
230VDU23,82,126,2,126,72,68,66,66,0:VD
U23,83,126,66,64,126,2,66,126,0:VDU23,84
,127,8,8,8,8,8,8,0:VDU23,85,66,66,66,66,
66,66,126,0:VDU23,86,66,66,66,66,68,72,1
12,0:VDU23,87,65,65,73,73,73,73,127,0:VD
U23,88,66,66,36,24,36,66,66,0:VDU23,89,6
5,65,127,8,8,8,8,0
310VDU23,90,126,66,4,8,16,34,126,0:VDU
23,64,60,66,153,161,161,153,66,60:VDU23,
94,8,24,8,8,8,8,28,0:VDU23,91,126,66,2,2
,2,2,2,0:VDU23,95,126,66,66,126,2,2,126,
0:VDU 19,1,3,0,0,0:VDU28,0,24,39,3 :CHAI
N"SQU":END
400DEFPROCtitle:PRINTTAB(5);:VDU132,15
7,141:PRINT" 3-a-line by a.s.shakoor '91
":PRINTTAB(5);:VDU132,157,141:PRINT" 3-A
-liNe by A.S.ShAkOOr '91":PRINT"
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC
500DEFPROCvdu7:ENVELOPE 3,1,0,0,0,0,0,
0,-126,-2,0,-1,126,80:ENVELOPE 1,1,0,0,0
,0,0,0,-126,-2,0,-1,126,80:ENVELOPE2,1,0
,0,0,0,0,0,-126,-2,0,-1,126,80:OSCLI("FX
211,1"):OSCLI("FX212,0"):OSCLI("FX213,18
0"):OSCLI("FX214,1"):ENDPROC