100 PRINT"[147]"
110 GOSUB 2280:PRINT"[147]";
120 POKE 53281,.:POKE 52,48:POKE 56,48:DIM M(38,2):DIM W$(17)
130 FOR Z=54272 TO 54296:POKE Z,.:NEXT:FOR Z=12544 TO 12551:POKE Z,.:NEXT
140 POKE 53272,(PEEK(53272)AND240)+12
150 FOR Z=12288TO12423:READ D:POKE Z,D:NEXT
160 FOR Z=49152 TO 49364:READ D:POKE Z,D:NEXT:POKE 54296,15
170 DATA 28,28,16,30,16,28,36,102,56,56,8,120
180 DATA 8,56,36,102,28,28,73,62,8,20,20
190 DATA 54,8,0,8,0,8,0,8,0,0,126
200 DATA 66,66,66,66,66,126,28,42,73,8,8,8,8,8,8,8,8
210 DATA 8,8,73,42,28,0,32,64,128,255,128,64,32,0
220 DATA 52,126,47,182,247,90,62,15,3
230 DATA 51,19,219,219,255,79,0,0,0,0,0
240 DATA 32,8,0,96,92,95,88,64,64,224,224,255
250 DATA 255,255,255,255,255,255,255
260 DATA 102,102,102,102,102,126,60,0,60,110,112
270 DATA 60,14,118,60,0,60,60,102,126,126
280 DATA 102,102,0,124,126,102,124,124,110
290 FOR Z=0 TO 37:READ M(Z,0):NEXT:FOR Z=0 TO 27:READ M(Z,1):NEXT:U=53281
300 FOR Z=0 TO 17:READ D:W$(Z)=CHR$(D):NEXT
310 J$="[153]":AG=1:B=256:A6=833:A7=834
320 SL=1938:S1=1064:CR=54272:S2=1943:JX=56320
330 V1=15:V2=16:V3=40:V4=32:V5=11
340 V6=12:V7=1:V8=2:V9=3:VA=5:VB=6:VC=7:VD=10
350 CF=21:A1=828:A2=829:A3=830:E=38
360 A4=831:A5=832:AA=49329:XX=54283
370 LK=1504:A(0)=2:A(1)=2:A(2)=2:A(4)=1:A(5)=1
380 A(8)=0:A(9)=0:D(0)=0:D(1)=-40:D(2)=40
390 D(4)=-1:D(5)=-41:D(8)=1:D(9)=-39
400 AD=54291:SR=54292:HS=54287:LS=54286
410 WF=54290:NZ=129:PG=33:VE=135:WE=1262
420 REM*******MODIFY THESE VARIABLES:
430 MT=200:HH=6:W1=4:W2=1:ME=4
440 REM******************************
450 MX=9:N1=PG:N2=VE:GOSUB1980:YU=HH
460 POKE A7,INT(MT/B):POKE A6,MT-INT(MT/B)*B
470 PRINT"[147][151]";:POKE XX,.:POKE U-V7,V8:POKE U,V8
480 FOR Z=1984 TO 2023:POKE Z+CR,V8:POKE Z,V6:NEXT
490 POKE U,14:FOR Z=0 TO HH:POKE WE+V7+Z*V3,4:POKE WE+V7+Z*V3+CR,V7:NEXT
500 IF DF THEN GOSUB2070:GOTO520
510 FOR Z=HH TO HH-LV STEP-1:POKE WE+V7+Z*V3+CR,VB:NEXT
520 FOR Z=0 TO HH:POKE WE+Z*V3,4:POKE WE+Z*V3+CR,V7:NEXT
530 FOR Z=HH TO YU STEP-1:POKE WE+Z*V3+CR,V8:NEXT
540 POKE A1,.:POKE A2,.:POKE A3,W1:POKE A5,W2:Z1=INT(RND(V7)*VA)+VD
550 IF LV=HH THEN FOR Z=1 TO 10:PRINT:NEXT:AG=11:GOSUB1790:GOTO570
560 PRINT W$(LV);:R$=J$:J$=W$(LV)
570 UU=INT(RND(1)*5)+V7+Z1:POKE A4,UU
580 FOR Z2=V7 TO UU:PRINT"L";:NEXT
590 PRINT:FOR Z2=1 TO Z1:PRINT"L";:NEXT:PRINT
600 FOR Z1=AG TO CF:IF LV<>HH THEN630
610 R$="":PRINT"[151]";:IF Z1<21 THEN PRINT"[152]";
620 IF Z1<V2 THEN PRINT"[155]";
630 IF Z1=INT(CF/V9) THEN PRINT R$;
640 FOR Z2=V7 TO INT(RND(V7)*(Z1-8))+20:PRINT"L";:NEXT Z2:PRINT:NEXT Z1
650 FOR Z=V7 TO 35:PRINT"L";:NEXT
660 IF LV=.THEN PRINT"LLLLL[145][157][157][157][157][154]L[145][157]L[157]KKK";
670 IF DF=. THEN POKE SL,V7:POKE SL+CR,.
680 FOR Z=1024 TO 1944 STEP V3:POKE Z+CR,V8:POKE Z+V7+CR,V8:POKEZ+V7,V6
690 POKE Z,V6:NEXT:PRINT"L[157][159]@[157] [157] [157] "
700 IF ME>.THEN GOSUB2080
710 PRINT"[159][157][157][145]MM[157][157]NN[157][157]NO[157][157]P ";:ON DF GOTO1520,1930
720 JV=PEEK(JX):FR=JV AND V2:JV=V1-(JV AND V1)
730 SYS AA:IFPEEK(A2)=.THEN 760
740 IF PEEK(A2)<>V8 THEN2060
750 GOSUB1860
760 IF PEEK(SL+V3)=V4 THEN1520
770 IF PEEK(SL+D(JV))<>V4 THEN840
780 IF SL>S2 THEN1500
790 IF JV THEN POKE SL,V4:SL=SL+D(JV):POKE SL,A(JV):POKE SL+CR,.
800 IF FR THEN720
810 IF TS THEN1800
820 IF PEEK(SL-V3)=V4 AND PEEK(SL+V3)<>V4 THEN880
830 GOTO720
840 TP=SL+D(JV):IF PEEK(TP)=V6 THEN JV=.:GOTO780
850 IF PEEK(TP)=V9 OR PEEK(TP)=VD THEN1630
860 IF PEEK(TP-V7)=VC THEN N1=PG:N2=VE:GOSUB1980:POKE TP-V7,V4:GOTO780
870 JV=.:GOTO780
880 IF SL<S1+V3 THEN POKE SL-V3,V9:POKE SL-V3+CR,V7:GOTO1630
890 IF PEEK(SL-V8*V3)<>V4 THEN720
900 HL=SL-V3*V8
910 POKE SL+CR-V3,V7:POKE SL,V8:POKE HL+CR,V7:RY=.
920 GOSUB1600:RY=RY+V7:IF PEEK(A2)=.THEN950
930 IF PEEK(A2)<>V8 THEN2060
940 GOSUB1860
950 IF RY>MX THEN1010
960 IF PEEK(HL)<>V4 THEN1010
970 POKE HL,VA:POKE HL+V3,V9:POKE HL+CR,V7
980 IF HL<S1 THEN POKE HL,V9:GOTO1630
990 IF FR=.AND PEEK(HL-V7)=V4 THEN1070
1000 HL=HL-V3:GOTO920
1010 HL=HL+V3
1020 HL=HL+V3:GOSUB1600:IF PEEK(A2)=.THEN1050
1030 IF PEEK(A2)<>V8 THEN2060
1040 GOSUB1860
1050 RY=RY-V7:IF RY=. THEN N1=PG:N2=VE:GOSUB1980:POKE HL-V3,V4:GOTO720
1060 POKE HL,VB:POKE HL-V3,V4:GOTO1020
1070 HL=HL-V7
1080 GOSUB1600:IF PEEK(A2)=.THEN1110
1090 IF PEEK(A2)<>V8 THEN2060
1100 GOSUB1860
1110 IF PEEK(HL)=V6 THEN POKE SL,V7:N1=NZ:N2=V8:GOSUB1980:GOTO1630
1120 POKE HL,VC:POKE HL+CR,V7:POKE HL+V7,VD
1130 IF PEEK(HL-V3)<>V6 THEN POKE HL-V3,V4:POKE HL-V3+V7,V4
1140 HL=HL+V3:GOTO1080
1150 FOR Z=1 TO 120:NEXT:POKE WF,.:POKE LS-V9,.:POKE AD,V1:POKE LS-V8,V1
1160 POKE AD+V7,240:POKE LS-V7,240:POKE AD-V7,17:POKE LS-V9,17:Z1=.
1170 POKE HS,M(Z1,LF):POKE LS,M(Z1,LF):POKE WF-VD,M(Z1,LF)/V8
1180 POKE WF-V5,M(Z1,LF)/V8:Z1=Z1+V7
1190 IF M(Z1,LF)<. THEN POKE WF,.:POKE LS-V9,.:RETURN
1200 GOTO1170
1210 DATA 102,0,160,0,140,11,212,173,60
1220 DATA 3,48,52,208,3,76,155,192,177,251,201,3
1230 DATA 176,5,200,140,61,3,96,169,32,145,251
1240 DATA 160,40,177,251,201,3,144,20,201
1250 DATA 12,240,46,24,165,251,105,40,133
1260 DATA 251,165,252,105,0,133,252,76,63,192
1270 DATA 200,140,61,3,96,160,0,169,8,145,251
1280 DATA 165,252,24,105,212,133,252,169,9
1290 DATA 145,251,56,165,252,233,212,133,252
1300 DATA 96,160,0,169,129,141,11,212,169,0
1310 DATA 141,12,212,169,241,141,13,212,169
1320 DATA 1,141,8,212,141,7,212,169,32,145
1330 DATA 251,160,1,177,251,201,3,144,190
1340 DATA 24,165,251,105,1,133,251,165,252,105
1350 DATA 0,133,252,165,252,201,7,144,175,165
1360 DATA 251,201,148,144,169,136,140,60,3
1370 DATA 96,173,4,220,205,62,3,176,155,200
1380 DATA 140,60,3,169,4,133,252,173,63,3,133
1390 DATA 251,96,206,65,3,173,65,3,201,0,208
1400 DATA 16,206,66,3,173,66,3,201,255,208,6
1410 DATA 169,2,141,61,3,96,174,64,3,32,0,192
1420 DATA 202,208,250,96,100,50,200,100,50
1430 DATA 200,150,100,250,150,100,100,50,200
1440 DATA 100,50,200,100,100,100,100,105,105
1450 DATA 120,140,160,0,0,0,0,100,50,200,0,100
1460 DATA 50,200,-1,190,180,170,160,190
1470 DATA 180,170,160,190,180,170,160,150
1480 DATA 140,130,120,60,60,60,40,40,40,0,0,20
1490 DATA 20,20,-1
1500 SL=SL-V3*23:LV=.:AG=V7:J$="[153]"
1510 DF=V7:GOTO470
1520 F=.
1530 IF PEEK(SL+V3)=V6 OR PEEK(SL+V3)=V5 THEN1570
1540 F=F+V7:SL=SL+V3:POKE SL,V8:POKE SL+CR,.
1550 IF PEEK(SL-V3)<>V6THENPOKESL-V3,V4
1560 GOTO1530
1570 IF F<VA THEN720
1580 IF SL>S2 THEN1500
1590 POKE SL,VD-V7:N1=NZ:N2=V8:GOTO2000
1600 JV=PEEK(JX):FR=JV AND V2:JV=V1-(JV AND V1):IF JV THEN POKE SL,A(JV)
1610 SYS AA:RETURN
1620 SL=1938:LV=LV+V7:GOTO470
1630 JV=PEEK(JX):JV=V1-(JV AND V1):POKE SL,A(JV):POKE SL+CR,.
1640 SYS AA:IF PEEK(A2)=.THEN 1670
1650 IF PEEK(A2)<>V8 THEN2060
1660 GOSUB1860
1670 IF JV=V7 AND PEEK(SL+D(JV))=V9 OR PEEK(SL+D(JV))=VD THEN SL=SL-V3
1680 IF SL<S1 THEN1620
1690 IF PEEK(SL-V7)=VC THEN1730
1700 IF JV AND PEEK(SL+V3)<V6 THEN POKE SL+V3,V4
1710 IF LV=HH AND SL<LK THEN TS=V7
1720 GOTO1630
1730 POKE SL,V4:IF PEEK(SL+V3)<>V6 THEN POKE SL+V3,V4
1740 SL=SL-V3-V7:N1=PG:N2=VE:GOSUB1980:GOTO1520
1750 GOSUB1150
1760 POKE SL+CR,M:M=M+V7:IF M>VC THEN M=.
1770 IF PEEK(JX) AND V2 THEN1760
1780 GOTO 2090
1790 POKE A1,B-V7:PRINT"";:RETURN
1800 IF PEEK(SL+V7+V3)=V4 THEN720
1810 IF SL>1424 THEN TS=.:GOTO720
1820 POKE SL+V7,V5:POKE SL+V7+CR,VB:POKE SL,V8:PRINT"M N O";
1830 SL=SL+V7:GOTO1750
1840 DATA 159,155,152,158,158,159,150,156,159
1850 DATA 155,155,153,30,159,159,31,150,129
1860 IF LV=HH THEN RETURN
1870 POKE A7,INT(MT/B):POKE A6,MT-INT(MT/B)*B:YU=YU-V7:POKE WE+YU*V3+CR,V8
1880 N1=PG:N2=V6:GOSUB1980:IF YU<V7 THEN 1900
1890 POKE A2,.:RETURN
1900 POKE XX,.:FOR Z1=1 TO 20
1910 FOR Z=HH TO YU STEP-1:POKE WE+Z*V3+CR,Z1:NEXT Z,Z1
1920 DF=V8:TL=LV:LV=HH:GOTO470
1930 PRINT"BK"
1940 FORZ=1TO25:POKE1390,INT(RND(V7)*V8)
1950 N1=PG:N2=VE:GOSUB1980:NEXT:POKE1390,V8
1960 REM POSSIBLE PROBLEM AREA -----MDR
1970 PRINT"M N N P";:LF=V7:SL=1391:GOTO1750
1980 POKE WF,.:POKE WF,N1:POKE AD,VE:POKE SR,.
1990 POKE HS,N2:POKE LS,N2:RETURN
2000 ME=ME-V7:POKE WE-E+CR,7
2010 POKE XX,.:GOSUB1980:J$=R$:FOR Z=1 TO 250:NEXT
2020 N1=NZ:FOR Z=200 TO 20 STEP-20:N2=Z:GOSUB1980:POKE WE-E+CR,Z/4:NEXT
2030 POKE WE-E+CR,14
2040 IF ME=.THEN LF=V7:GOTO1750
2050 FOR Z=1 TO 2800:NEXT:SL=1938:DF=.:GOTO470
2060 POKE SL,8:POKE SL+CR,9:N1=NZ:N2=V8:GOTO2000
2070 FOR Z=HH TO HH-TL STEP-1:POKE WE+V7+Z*V3+CR,VB:NEXT:RETURN
2080 FOR Z=0 TO ME-V7:POKE WE-E+Z*V3,4:POKE WE-E+Z*V3+CR,1:NEXT:RETURN
2090 POKE53272,21:PRINT"[147][155]";:POKE53281,0
2100 T$="       [221]                        [221]"
2110 PRINT"       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINTT$
2120 PRINT"       [221] [154][208]LEASE CHOOSE:[155]         [221]":PRINTT$
2130 PRINT"       [221]  [154]1. [208]LAY [195]LIFFHANGER[155]   [221]":PRINTT$
2140 PRINT"       [221]  [154]2. [210]ETURN TO [204][207][193][196][211][212][193][210][155] [221]":PRINTT$
2150 PRINT"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2160 REM
2170 GETA$:IFA$=""THEN2170
2180 IFA$="1"THENRUN
2190 IFA$<>"2"THEN2170
2200 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
2210 IF ER<>63 THEN PRINT"[147]":END
2220 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
2230 PRINT"[158]LOAD"Q$A$Q$",8"
2240 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
2250 REM
2260 REM
2270 REM
2280 POKE214,15:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
2290 FORI=1TO3:PRINT"                                      ":NEXT
2300 POKE53272,21:POKE53281,0
2310 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #59     "
2320 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
2330 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
2340 PRINT"                                      "
2350 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
2360 AU$="[195][204][201][198][198][200][193][206][199][197][210]":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
2370 AU$="[194]Y [212]ED [194]URCH  ([195]) 1989":POKE214,18:PRINT
2380 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$""
2390 PRINT"":QQ=0
2400 PRINTTAB(9)"[159][195] [204] [201] [198] [198] [200] [193] [206] [199] [197] [210]"
2405 PRINTTAB(12)"[154][193] [208]ERILOUS [195]LIMB"
2407 PRINTTAB(11)"[154][202]OYSTICK IN [208]ORT 2"
2410 QQ=QQ+1:GETA$:IFA$=""ANDQQ<200ANDPEEK(56320)>111THEN2410
2420 RETURN