5 GOSUB 5000
10 GOTO 1370
20 REM  GOLF
30 REM ** ACCURACY SUBR **
40 Z=RND(0):Z2=INT(54*Z)+1:AC=INT(3*LOG(Z2))-1
50 IF AC<0 THEN AC=0
60 RETURN
70 REM  **   DISTANCE SUBR **
80 Z=RND(0):X=20:A=0:ODL=DL
90 IF CL=12 OR CL=13 THEN 130
100 IF CL=1 THEN X=80
110 IF (CL=2 OR CL=3) THEN X=30
120 GOTO 210
130 PRINT:PRINT"1/3, 2/3, OR FULL (1, 2, OR 3)";:X=17
140 GET A$:IF A$="" THEN 140
150 IF A$="1" THEN 190
160 IF A$="2" THEN A=17:GOTO 190
170 IF A$="3" THEN A=34:GOTO 190
180 GOTO 140
190 PRINT A$;:GOSUB 4000
200 REM  SAND/ROUGH MORE DIFF LONGER CLUB
210 IF (PL=1 OR PL=4 OR PL=5 OR PL=6) AND CL<6 THEN DF=.8*DF
220 IF (PL=1 OR PL=4 OR PL=5 OR PL=6) AND CL<3 THEN DF=.7*DF
230 DI=INT(DF*(MR(CL)+(X*Z)+A+1))
240 REM  ALTER DIST HIT OUTSIDE OF RANGE
250 Z=RND(0):X=INT(5*Z)+1:IF X<>4 THEN 290
260 Z=RND(0):X=INT(3*Z)+1:IF X=2 THEN 280
270 DI=INT(.9*DI):GOTO 290
280 DI=INT(1.1*DI):GOTO 290
290 RETURN
300 REM ** TROUBLE TYPE SUBR **
310 Z=RND(0):PL=INT(6*Z)+1
320 RETURN
330 REM ** TROUBLE SUBR **
340 DF=1
350 ON PL GOTO 370,430,470,620,370,620
360 REM  ROUGH
370 Z=RND(0):IF ((INT(2*Z)+1)=1) THEN 400
380 PRINT:PRINT"YOUR BALL IS IN THE RIGHT ROUGH"
390 PRINTDL;"YARDS FROM THE PIN":DF=.9:TR=1:GOTO 680
400 PRINT:PRINT"YOUR BALL IS IN THE LEFT ROUGH"
410 PRINTDL;"YARDS FROM THE PIN":DF=.9:TR=1:GOTO 680
420 REM  WATER
430 Z=RND(0):WA=INT(3*Z)+1:PRINT:PRINT WA$(WA)
440 DL=DL+10:PRINT"AFTER DROPPING BACK IT'S":PRINT DL;"YARDS FROM THE PIN"
450 SR(I)=SR(I)+1:GOTO 680
460 REM  WOODS
470 Z=RND(0):WO=INT(10*Z)+1:IF WO<>7 THEN 510
480 PRINT:PRINT"AREN'T YOU THE LUCKY ONE. YOUR BALL HIT"
490 PRINT"A COUPLE OF TREES AND THEN BOUNCED INTO"
500 PRINT"THE FAIRWAY ";DL;"YARDS FROM THE GREEN":GOTO 680
510 Z=RND(0):WO=INT(3*Z):IF WO<>1 THEN 560
520 DL=ODL:LO=1:SR(I)=SR(I)+1
530 PRINT:PRINT"THAT ONE'S LONG GONE. YOU MIGHT AS WELL"
540 PRINT"NOT EVEN LOOK FOR IT. YOUR BALL IS "
550 PRINT DL;"YARDS FROM THE PIN AGAIN":GOTO 680
560 TR=1:PRINT:PRINT"YOUR BALL IS ";DL;"YARDS FROM THE PIN"
570 PRINT"BEHIND SOME TREES, AND IN A BAD LIE. "
580 PRINT"TRY TO CHIP IT BACK INTO":PRINT"INTO PLAY WITH A PITCHING WEDGE"
590 PW$="Y"
600 GOTO 680
610 REM  SAND
620 TR=1:IF DL<=50 THEN 660
630 PRINT:PRINT "YOU ARE IN A BUNKER";DL;"YDS FROM THE PIN"
640 Z=RND(0):T=INT(Z*10):IF T=4 THEN DF=1:GOTO 680
650 Z=RND(0):DF=INT(Z*6)/10+.3:GOTO 680
660 PRINT:PRINT"YOU ARE IN A GREEN SIDE BUNKER":PRINTDL;"YDS FROM THE PIN"
670 Z=RND(0):DF=INT(Z*5)/10+.5
680 RETURN
690 REM ** CHOOSE CLUB SUBR **
700 PRINT"WHICH CLUB ?    [157][157][157][157]";
710 GET A$:IF A$="" THEN 710
711 IFA$=CHR$(13) THEN 4100
720 IF(A$>="1"ANDA$<="9")ORA$="P"ORA$="S"ORA$="C"THEN PRINT A$;:GOTO 740
730 GOTO 710
740 GET B$:IF B$="" THEN 740
750 PRINT B$;:IF ASC(B$)=20 OR ASC(B$)=157 THEN GOTO 710
751 IF B$=CHR$(13) THEN PRINT:PRINT"[145][145]";:GOTO 700
760 IF B$="W" AND (A$>="1" AND A$<="3") THEN CL=ASC(A$)-48:GOTO 820
770 IF B$="I" AND (A$>="2" AND A$<="9") THEN CL=ASC(A$)-48+2:GOTO 820
780 IF A$+B$="PW" THEN CL=12:GOTO 820
790 IF A$+B$="SW" THEN CL=13:GOTO 820
800 IF A$+B$="CL" THEN GOSUB 1900:GOTO 700
810 PRINT:PRINT"[145]";BL$;"[145]";:GOTO 700
820 GOSUB4000:SR(I)=SR(I)+1
830 IF CL<>1 OR (SR(I)<2 OR LO=1) THEN 880
840 REM   PREVENT DRIVER OFF FAIRWAY
850 Z=RND(0):DL=DL-(INT(17*Z)+1)
860 PRINT:PRINT"A DUFF. YOUR BALL IS NOW";DL;"YARDS":PRINT"FROM THE HOLE."
870 PRINT"EVEN THE PROS DON'T TRY THAT ONE.":GOTO 700
880 IF PW$<>"Y" OR CL=12 THEN 930
890 REM   SHOULD HAVE FOLLOWED CADDIE
900 DL=DL+13:PRINT:PRINT"NICE JOB - IT BOUNCED OFF OF A TREE."
910 PRINT"NOW YOUR'RE IN THE FAIRWAY":PRINT DL;"YARDS FROM THE PIN"
920 SR(I)=SR(I)+1:PW$="N":GOTO 700
930 PW$="N":RETURN
940 REM ** PUTTING SUBR **
950 DL=DL*3:IF TR=1 THEN AC=AC*1.25
960 REM IF CL>11 AND DL>0 AND TR=0 THEN 803
970 DL=INT((DL^2+AC^2)^0.5)
980 IFAC<3ANDABS(DL)<10THENPRINT:PRINT:PRINT"NICE SHOT - IT HIT THE PIN !"
990 IF DL>1 THEN 1030
1000 Z=RND(0):X=INT(Z*7)+1
1010 IF X=3 THEN PRINT:PRINT"TOO BAD - YOUR BALL IS ON THE LIP":GOTO 1040
1020 PRINT:PRINT"YOUR BALL IS 1 FOOT FROM THE HOLE":GOTO 1040
1030 PRINT:PRINT"YOUR BALL IS";DL;"FEET FROM THE HOLE"
1040 PRINT"PUTTING STROKE (1-7)";
1050 GET A$:IF A$="" THEN 1050
1060 PRINTA$;:P=ASC(A$)-48:IF P<1 OR P>7 THEN PRINT:GOTO 1040
1070 SR(I)=SR(I)+1 :GOSUB 4000
1080 Z=RND(0):DI=INT(10*Z)+(P-1)*10+1
1090 IF DL<2 AND P=1 THEN 1220
1100 IF DL<10 AND ABS(DL-DI)>4 AND P<2 THEN 1080
1110 IF DL>6 OR ABS(DL-DI)<4 THEN 1130
1120 Z=RND(0):X=INT(4*Z)+1:IF X<>3 THEN DI=DL
1130 IF DL<26 OR ABS(DL-DI)>3 THEN 1150
1140 Z=RND(0):Z2=INT(7*Z)+1:IFZ2<>2THENZ=RND(0):DL=INT(15*Z)+1:GOTO 1160
1150 DL=DL-DI:IF ABS(DL)<4 THEN 1220
1160 IF DI<15 THEN PRINT:PRINT"DRIBBLE...":GOTO 1180
1170 PRINT:PRINT"DRIBBLE..TRICKLE.."
1180 IF DL>0 THEN DL=DL-2:GOTO 990
1190 DL=DL+2
1200 IFDL=-1THENPRINT:PRINT"TOO MUCH-YOU SLID BY 1 FOOT";:DL=-DL:GOTO 1020
1210 PRINT:PRINT"TOO MUCH-YOU SLID BY";:DL=-DL: PRINTDL;"FEET";:GOTO 1030
1220 IF DI<6 THEN PRINT:PRINT"...PLUNK":GOTO 1260
1230 IF DI<15 THEN PRINT:PRINT"TRICKLE...PLUNK":GOTO 1260
1240 IF DI<25 THEN PRINT:PRINT"DRIBBLE..TRICKLE..PLUNK":GOTO 1260
1250 PRINT:PRINT"SQUIGGLE..DRIBBLE..TRICKLE..PLUNK"
1260 PRINT"IN THE HOLE"
1270 RETURN
1280 DATA 4,8,11,15,20,24,27,32,36,40,43,47,52,56,60,63,68,72
1290 DATA 301,347,152,407,485,390,212,515,337
1300 DATA 385,179,420,614,414,432,225,530,440
1310 DATA 4,4,3,4,5,4,3,5,4,4,3,4,5,4,4,3,5,4
1320 DATA 20,22,18,20,27,20,21,25,21,23,15,23,28,22,23,20,18,19
1330 DATA 20,20,20,25,30,25,10,30,20,23,20,25,30,30,30,20,30,28
1340 DATA 210,200,180,170,160,150,140,130,120,110,100,50,0
1350 DATA 210-290,200-230,180-210,170-190,160-180,150-170,140-160,130-150
1360 DATA 120-140,110-130,100-120,50-100,0-50
1370 PRINT"[147]"
1380 DIM CN$(14),NA$(4),YD(18),PA(18),GS(18),TP(18),MR(13),MR$(13),TS(4)
1390 DIM PD(4),SR(4),FW(18),PM$(7)
1400 WA$(1)="YOUR BALL LANDED IN A CREEK"
1410 WA$(2)="DO YOU HAVE SCUBA DIVING EQUIPMENT WITH YOU? ITS IN A POND"
1420 WA$(3)="SPLASH! YOU'LL HAVE A HARD TIME FINDING IT - ITS IN A LAKE"
1430 X=RND(TI):FORI=1TO40:BL$=BL$+" ":NEXT
1440 PM$(1)="DOUBLE EAGLE!!":PM$(2)="EAGLE!":PM$(3)="BIRDIE":PM$(4)="PAR"
1450 PM$(5)="BOGEY":PM$(6)="DOUBLE BOGEY":PM$(7)="TRIPLE BOGEY"
1460 FORI=1TO18:READ TP(I):NEXT:FOR I=1TO18:READ YD(I):NEXT
1470 FORI=1TO18:READ PA(I):NEXT
1480 FOR I=1TO18:READ GS(I):NEXT:FOR I=1TO18:READ FW(I):NEXT
1490 FOR I=1TO13:READ MR(I):NEXT:FOR I=1TO13:READ MR$(I):NEXT
1500 POKE 53280,5:POKE 53281,5
1510 PRINT"[147]WELCOME TO THE TANGLEWOOD COUNTRY CLUB."
1520 PRINT"   DO YOU WANT INSTRUCTIONS (Y/N)?";
1530 GET A$:IF A$="" THEN 1530
1540 PRINT A$;:IF A$="N" THEN 1760
1550 PRINT"[147]WELCOME TO THE [153]TANGLEWOOD COUNTRY CLUB,"
1560 PRINT" A SIMULATED GOLF COURSE.  AVAILABLE "
1570 PRINT" FOR YOU IS A FULL SET OF CLUBS "
1580 PRINT"CONSISTING OF THE FOLLOWING, ALONG WITH"
1590 PRINT" EXPECTED RANGES & SELECTION CODES.":PRINT
1600 PRINT"[158]CLUB";TAB(8)"[158]RANGE";TAB(15);"[158]CODE";TAB(21)"[158]CLUB";
1610 PRINT TAB(28);"[158]RANGE";TAB(35);"[158]CODE":PRINT"[146]"
1620 FORI=1TO3:PRINT"[151]"STR$(I)"WOOD"TAB(7)""MR$(I)TAB(15);""STR$(I);"W":NEXT
1630 FORI=4TO6:PRINT"[151]"STR$(I-2)"IRON";TAB(7)""MR$(I)TAB(15)""STR$(I-2);"I"
1640 NEXT:PRINT"";:PRINT
1650 FORI=7TO11
1660 PRINTTAB(20)"[151]"STR$(I-2);"IRON";
1665 PRINTTAB(27)""MR$(I);TAB(35)""STR$(I-2);"I":NEXT
1670 PRINT TAB(20);"[151] PW ";TAB(28)""MR$(12);TAB(35);" PW"
1680 PRINT TAB(20);"[151] SW ";TAB(29)""MR$(13);TAB(35);" SW"
1690 PRINT:PRINT"THE COURSE IS 6785 YDS. LONG WITH A PAR"
1700 PRINT"OF 72, AND HAS PLENTY OF ROUGH, WATER,"
1710 PRINT"TREES & BUNKERS. I WILL CADDIE FOR YOU"
1720 PRINT"(AT A MODEST RATE) & I KNOW THE COURSE"
1730 PRINT"PRETTY WELL. AS IN A REAL GAME OF GOLF,"
1740 PRINT"UNEXPECTED TRIUMPHS AND DISASTERS LAY "
1750 PRINT"AHEAD OF YOU. GOOD LUCK AND HAVE FUN!"
1751 PRINT"      PRESS ANY KEY TO CONTINUE. 
1752 [161]A$:[139]A$[178]"" [167] 1752
1760 [153]"LOAD       NUMBER OF PLAYERS POKE(1-4POKE)";
1770 [161] A$:[139] A$[178]"" [167] 1770
1780 [153] A$:[139] A$[179]"1" [176] A$[177]"4" [167] 1760
1790 NP[178][198](A$)[171]48:[129]I[178]1[164]NP
1800 NA$(I)[178]"":[153]"LOADSYS PLAYER #";I
1805 [153]"WHAT IS YOUR NAMEPOKE: ";
1807 [153]"TOCMD";:NA$(I)[178]""
1810 [161] A$:[139] A$[178]"" [167] 1810
1820 [139] A$[178][199](13)[175][195](NA$(I))[177]0 [167] [153]" ":[137] 1860
1821 [139] A$[178][199](13)[167] 1810
1830 [139] A$[178][199](20)[175][195](NA$(I))[178]0 [167] 1810
1831 [139] A$[178][199](20)[167]NA$(I)[178][200](NA$(I),[195](NA$(I))[171]1):[153]A$;:[137]1810
1832 [139] [195](NA$(I))[177]12 [167] 1810
1833 [139] A$[179]" "[176]A$[177]"Z" [167] 1810
1840 NA$(I)[178]NA$(I)[170]A$:[153]A$"TOCMD";:[137] 1810
1860 :
1880 [130]:[153]"LOAD"
1890 [137] 2010
1900 [153]:[153]
1910 [143]
1920 [153]"LOADPOKE           YOUR CLUBS SIR,":[153]"SYSWOODSWAIT"
1930 [129] T[178]1[164]3:[153]""[196](T);"W ";MR$(T):[130]
1940 [153] "ONONONON";[163]11) "SYSIRONSWAIT":[153]"ON";
1950 [129] T[178]4[164]8:[153] [163]16);""[196](T[171]2);"I ";MR$(T):[130]
1960 [153]"ONONONONON";
1970 [129] T[178]9[164]11:[153] [163]27);""[196](T[171]2);"I ";MR$(T):[130]
1980 [153] [163]28);"PW ";MR$(12):[153] [163]28);"SW ";MR$(13)
1990 [153]"":[142]
2000 [143] ** MAIN LOOP FOR EACH HOLE **
2010 [153]"LOAD":[129]H[178]1[164]18:[129] I[178]1[164]NP
2020 DL[178]YD(H):SR(I)[178]0
2030 [153]"LOAD";:[141] 1920:[153]"HOLE # ";H;" PAR";PA(H);YD(H);"YARDS";
2040 [139] PA(H)[179]4 [167] [153]:[137] 2080
2050 [139] FW(H)[179]22 [167] [153]"  NARROW-FW":[137] 2080
2060 [139] FW(H)[179]29 [167] [153]"  MEDIUM-FW":[137] 2080
2070 [153]"    WIDE-FW"
2080 [153]"PLAYER #";I;NA$(I)
2090 DF[178]1:PL[178]0:TR[178]0
2100 [141] 700
2110 [141] 80:[141] 40
2120 [139] CL[178]1 [167] AC[178]AC[172]3
2130 [139] CL[178]2 [167] AC[178][181](AC[172]2.5)
2140 [139] CL[178]3 [167] AC[178][181](AC[172]2)
2150 [139] CL[177]3 [175] CL[179]8 [167] AC[178][181](AC[172]1.5)
2160 LO[178]0:DL[178]DL[171]DI
2170 [139] DL[179][177]0 [167] 2230
2180 [139] AC[177]3 [167] 2220
2190 [139] SR(I)[179][177]1 [167] 2210
2200 [153]"LOAD":[153]:[153]:[153]"H O L E   I N   O N E  !!!!":[137] 2400
2210 [153]:[153]:[153]"NICE  S H O T!!":[153]"ITS IN THE HOLE !":[137] 2400
2220 [153]:[153]:[153]"NICE SHOT - PIN HIGH":[141] 950:[137] 2400
2230 [139] [182](DL)[177]GS(H) [176] CL[177]3 [167] 2270
2240 [143]  MAKE 2- & 3- WOOD LESS ACCURATE WHEN HITTING GREEN
2250 T[178]DL:DL[178]ODL:[141] 80:[141] 40:DL[178]DL[171]DI
2260 [139] [182](T)[177][182](DL) [167] DL[178]T
2270 [139] CL[179]12 [167] 2310
2280 [143] MAKE WEDGES MORE ACCURATE
2290 T[178]DL:DL[178]ODL:Z[178][187](0):[141] 210:[141] 40:DL[178]DL[171]DI
2300 [139] [182](T)[179][182](DL) [167] DL[178]T
2310 [139] DL[177]0 [167] 2340
2320 DL[178][171]DL:[139] DL[179]GS(H) [167] [141] 950:[137] 2400
2330 [153]:[153]"TOO MUCH.":[153]"YOU OVERSHOT THE HOLE BY";DL;"YARDS";
2340 [139] DL[179]GS(H) [167] [141] 950:[137] 2400
2350 Z[178][187](0):DE[178][181](5[172]Z)[170]1
2360 [139] AC[177]FW(H) [176] DE[178]4 [167] [141]310:[141] 340:[137] 2100
2370 [139] DL[179][178]GS(H) [167] [141]950:[137] 2400
2380 [153]:[153]"YOUR BALL IS IN THE FAIRWAY":[153]DL;"YARDS FROM THE PIN"
2390 [137] 2080
2400 [153]:[153]"HOLE";H;"PLAYER#";I;"SCORE";SR(I);:TS(I)[178]TS(I)[170]SR(I)
2410 T[178]SR(I)[171]PA(H)[170]4:[139] T[177]7 [167] [153]"REAL BAD":[137] 2430
2420 [153] PM$(T)
2430 [153]:[153]"PRESS ANY KEY TO CONTINUEWAIT"
2440 [161] A$:[139] A$[178]"" [167] 2440
2450 [130]
2460 [153]"LOAD"
2470 [153]:[153]"HOLE #";H:[153]
2480 [129]J[178]1[164]NP:[153] NA$(J);:[129] K[178][195](NA$(J))[164]15:[153] " ";:[130]
2490 T[178]SR(J)[171]PA(H)[170]4:[139] T[177]7 [167] [153]"REAL BAD":[137] 2510
2500 [153] PM$(T)
2510 [130]:[153]
2520 [139] H[178]1 [167] [153]:[153]"AFTER 1 HOLE":[153]:[137] 2540
2530 [153]:[153]"AFTER ";H;"HOLES":[153]
2540 [129] J[178]1[164]NP:[153] NA$(J);
2550 [129] K[178][195](NA$(J)) [164] 15:[153] " ";:[130]:[153]"IS ";
2560 X[178]TS(J)[171]TP(H)
2570 [139] X[178]0 [167] [153]"EVEN":[137] 2600
2580 [139] X[177]0 [167] [153]"+";X:[137] 2600
2590 [153] X
2600 [130]
2610 [153]:[153]"PRESS ANY KEY TO CONTINUEWAIT"
2620 [161] A$:[139] A$[178]"" [167] 2620
2630 [130]
2640 [153]:[129] J[178]1[164]NP:[153]NA$(J);" HAD A ";TS(J):[130]
2650 [153]:[153]:[153]"WOULD YOU LIKE TO PLAY AGAIN (Y/N)?"
2660 [161] A$:[139] A$[178]"" [167] 2660
2670 [139] A$[178]"Y" [167] [138]
2680 [137]4200
3000 [153]A$;:NA$(I)[178][202](NA$(I),1,[195](NA$(I))[171]1):[142]
4000 QA$[178]"                                        ":QD$[178]""
4001 [153]QD$:[129]X[178]1[164]14:[153]QA$;:[130]:[153]QD$:[142]
4100 [153]:   [153]"ONSYS DO YOU WANT TO QUIT TO LOADSTAR? (Y/N)"
4102 [161]A$:[139]A$[178]""[167] 4102
4105 [139]A$[178]"Y"[167] 4200
4106 [139]A$[178]"N"[167] 4150
4110 [137] 4102
4150 [153]"ON                                       "
4151 [153]"ON";:[137] 700
4200 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15
4201 [139] ER[179][177]63 [167] [153]"LOAD":[128]
4205 [147]"HELLO CONNECT",8
5000 [151]53280, 6:[151]53281, 1:[153]"LOADRETURN";:[151]53265,[194](53265)[175]239
5001 [153]"LIST         WAITCLRoUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpLIST                   WAITCLRSGNLOADSTARPRES";
5002 [153]"ENTSTHENPRINT# LIST            CONT      WAITCLRlANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR CONT      LISTCLOSE    CLOSECONT  ";
5003 [153]"                          CONT      LISTCLOSE     CONT                              ";
5004 [153]"    LISTCLOSE    CLOSECONT   WAIToUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT    LISTCLOSE    CLOSECONT  WAITCLRoSGN";
5005 [153]"THENCLRpCONT   LISTCLOSE     CONT  WAITCLRSGNSGNGOLFTHENCLRTHEN";
5006 [153]" CONT  LISTCLOSE     CONT  WAITCLRlSGNPRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(THENCLRSQR CONT  LISTCLOSE     CONT   WAITlANDAND";
5007 [153]"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR  CONT  LISTCLOSE    CLOSECONT                               CONT";
5008 [153]"   LISTCLOSE    CLOSECONT                                  LIST      CONT   WAITFORoUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
5009 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT    LIST      CONT   WAITFORSGNVERIFYWRITTENBYFORTHEN CONT   LIST   ";
5010 [153]"CLOSE  CONT   WAITFORSGNTHEN CONT   LIST     CLOSECONT   WAITFORSGNVERIFYMICHAELJPO";
5011 [153]"LTONAVAGEFORTHEN CONT   LIST   CLOSE  CONT   WAITFORlANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR CONT   LIST    ";
5012 [153]"  CONT                               CONT   LIST      CONT                         ";
5013 [153]"         LIST   CLOSE CLOSECONT                                  LIST     CLOSECONT             ";
5014 [153]"                     LIST   CLOSE  CONT    WAITCLRoUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT     LIST    ";
5015 [153]" CLOSECONT    WAITCLRSGNPRESSSPACETOCONTINUE+ CONT    LIST          WAITCLRlANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND";
5016 [153]"ANDANDANDANDANDANDANDSQRPRINT# LIST               PRINT#                         LIST      "
5017 [151]2023,96[170]128:[151]56295,15:[151]53265,[194](53265)[176]16
5018 [161]A$:[139]A$[179][177]" "[167] 5018
5099 [142]