2 IFA=.THEN110
4 IFA=1THENA=2:LOAD"BOWML",8,1
6 IFA=2THENA=3:LOAD"B.MAZE",8,1
8 PRINT"[129][147]";:POKE53272,30:POKE53265,11
10 PRINT"[151]\\\\\\\[152]\\\\\\[155]\\\\\\\\\\\\[155]\\\\\\[152]\\\\\\[151]\\\      [152]  [146]    [155]";
12 PRINT" [146]  [146]    [146]   [146]  [155] [146]     [152][146]   [146][187]  [151][146]         ";
14 PRINT"[152][146]  [169]  [146] [155]  [146]  [146]    [146]  [146][223] [155][146][169] [146]  [146]  [152] ";
16 PRINT"[146]  [146][223] [146][187][151] [146]        [152] [146][183][183] [146]  [155][146]   [146]  ";
18 PRINT"[146]  [146]  [146]  [146] [155] [146]  [146]  [146][183][152][183] [146]  [146] [223][151]  [146]    ";
20 PRINT"   [152] [223]  [146][169] [155][223]  [146][169] [223]   [146][169] [223][155]   [169]";
22 PRINT" [223][152]  [169] [223] [151] [223][169]    \\[152]\\\\\\[155]\\\\\\";
24 PRINT"\\\\\\[155]\\\\\\[152]\\\\\\[151]\\\\\\\\":PRINTTAB(10)"[156]@'89 BY JON MATTSON"
26 POKE53265,27
28 SYSM(3):A=PEEK(V(1)):P=1603:FORI=.TO7:P=P+D(A):POKEP,241+A:SYSM(1):POKEP,32
30 NEXT:ONAGOTO42,48,68
32 FORI=.TOJ:POKEA+I,1:NEXT:FORI=1TO300:NEXT:RETURN
34 POKE198,0:PRINT" [154][[159]Y[154]/[159]N[154]] [159]";
36 GETA$:IFA$="Y"THENA=1:PRINTA$:RETURN
38 IFA$="N"THENA=.:PRINTA$:RETURN
40 GOTO36
42 A=55884:J=3:GOSUB32:PRINT"[147][150]QUIT? ARE YOU SURE?";:GOSUB34
44 IF(A)THEN96
46 GOTO8
48 A=56232:J=6:GOSUB32:PRINT"[147]"TAB(12)"[156]\\\ [159]OPTIONS [156]\\\"
50 PRINT" USE CUSTOM LEVELS?";:GOSUB34:IF(A)THENSYSM(4)
52 PRINT" RANDOM LEVELS?";:GOSUB34:IF(A)THENSYSM(2)
54 PRINT" DIFFICULTY LEVEL?":PRINT" [159]1[154] = FAIRLY EASY; [159]5[154] = VERY HARD: [159]";
56 GETA$:IFA$=""THEN56
58 DF=VAL(A$):IFDF<1ORDF>5THEN56
60 PRINTA$:PRINT" SPEED?":PRINT" [159]1[154] = SLOW; [159]5[154] = FAST: [159]";
62 GETA$:IFA$=""THEN62
64 SP=VAL(A$):IFSP<1ORSP>5THEN62
66 PRINTA$:FORI=1TO500:NEXT:GOTO8
68 A=55863:J=3:GOSUB32
70 I=3+3*DF:I=I-(I>14)-(I>17):POKEV(1),I:I=4*(7-SP)+(DF>3):POKEV(2),I
72 SYSM(.):S=PEEK(V(3))+256*PEEK(V(4)):IFPEEK(V(.))<1THEN84
74 POKE54277,136:POKE54278,136:POKE54276,33:FORI=1TO18:POKE54273,I:NEXT
76 FORI=18TO1STEP-1:POKE54273,I+3:POKE54273,I:NEXT:POKE54276,129:POKE1107,191
78 FORI=1TO200:NEXT:POKE54276,128:FORI=1TO1000:NEXT
80 PRINT"[151][147]    CO[152]NGRATU[155]LATIONS, D[155]RAGON-[152]SLAYER[151]!!":A=12
82 FORI=1TO300:A=27-A:POKE53280,A:SYSM(1):NEXT:POKE53280,0
84 PRINT"[147][156] YOUR SCORE[159]"S;TAB(23)"[156]HIGH SCORE[159]"H:IFS<=HTHEN94
86 FORI=1TO500:NEXT:PRINTTAB(11)"[150]A NEW HIGH SCORE!![159]":POKE54277,0
88 POKE54278,16:FORI=1TO5:FORJ=1TO10:POKE54276,17:POKE54273,J*10:POKE54276,16
90 NEXTJ,I:POKE54273,50:FORI=HTOSSTEP(S-H)/10:POKE54276,17
91 PRINT""TAB(33)INT(I)
92 POKE54276,16:NEXT:H=S:PRINT""TAB(33)H
94 FORI=1TO2000:NEXT:GOTO8
96 POKE52,160:POKE56,160:CLR:POKE53280,14:POKE53281,6:PRINT"[147][154]";:POKE53272,21
98 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
100 IFER=63THEN104
102 PRINT"[147]":END
104 PRINT"[147]RETURNING TO LOADSTAR...":PRINT"LOAD"CHR$(34);
106 PRINT"HELLO CONNECT"CHR$(34)",8":PRINT"RUN[145][145][145][145][145][145][145][145]":POKE631,13
108 POKE632,28:POKE633,13:POKE198,3:NEW
110 POKE52,56:POKE56,56:CLR:POKE53280,.:POKE53281,.
112 DIMD(3),M(4),V(4):A=1:B=16560:H=.:S=.:DF=3:SP=3
114 D(1)=1:D(2)=40:D(3)=-1:FORI=.TO4:M(I)=B+I*3:V(I)=B+I+15:NEXT
116 PRINTCHR$(14)"[147]  [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]"
118 FORI=1TO7:PRINT"  [152]                                    ":NEXT
120 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]";
122 PRINTTAB(17)"[152][194][207][215][205][193][206]":PRINTTAB(9)"[194]Y [202]ON [205]ATTSON ([195])1989"
124 PRINTTAB(8)"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #64"
126 PRINTTAB(6)"[211]UBSCRIPTIONS 1-800-831-2694"
128 PRINTTAB(5)"      [193][204][204][160][210][201][199][200][212][211][160][210][197][211][197][210][214][197][196]      "
130 PRINTTAB(15)"[154][204]OADING...":GOTO4