0 'POOL.BA Tim Peters 
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLEAR9,HIMEM-233:DEFINTA-Z:CLS:PRINT@41,"Loading program":A=HIMEM-2^16:FORI=213TO0STEP-1:PRINT@56,I:READX:S!=S!+X:IFX>255THENX!=X-256+HIMEM:H=X!/256:POKEA,X!-256*H:X=H:A=A+1
3 POKEA,X:A=A+1:NEXT:IFS!<>33121THENBEEP:PRINT"Checksum wrong:  aborted":CLEAR9,HIMEM+233:END
4 CLS:DIMM(2)
5 INPUT"Max x value (1-239)";XU:IFXU<1ORXU>239THENBEEP:GOTO5
6 INPUT"Max y value (1-63)";YU:IFYU<1ORYU>63THENBEEP:GOTO6
7 PRINT"Start x at (0-"MID$(STR$(XU),2);:INPUT")";X:IFX<0ORX>XUTHENBEEP:GOTO7
8 PRINT"Start y at (0-"MID$(STR$(YU),2);:INPUT")";Y:IFY<0ORY>YUTHENBEEP:GOTO8
9 M(0)=257:M(1)=X+256*Y:M(2)=XU+256*YU+257:CLS:CALLHIMEM,0,VARPTR(M(0)):PRINT"Try again? ";:IFINSTR("Yy",INPUT$(1))THENPRINT"y":GOTO5ELSECLEAR0,HIMEM+233:MENU
10 DATA70,35,78,35,86,35,94,35,126,35,110,103,197,58,488,14,1,13,194,274,61,194,274,193,205,320,205,320,122,128,188,218,299,175,144,71,130,87,123,129,189,218,310,175,145,79,131,95,205,427,210,268,195,131,114,197,229,205,92,118,1,50,0,122,4,145
11 DATA210,329,5,129,79,205,357,62,63,147,95,205,357,62,239,146,87,62,9,48,225,193,201,197,123,254,32,62,5,210,367,175,128,135,198,67,111,38,118,205,59,117,123,7,7,7,230,192,177,79,205,72,117,211,254,205,72,117,219,255,205,72,117,219,255,71,123
12 DATA230,7,135,198,67,111,38,118,126,168,71,205,72,117,121,211,254,205,72,117,120,211,255,193,201,197,213,229,33,484,229,205,66,114,200,254,27,55,200,254,115,194,463,205,66,114,202,447,254,27,55,200,254,115,194,447,201,254,49,63,208,47,198,58
13 DATA208,71,62,0,23,5,242,474,50,488,175,225,225,209,193,201,8