3 TEXT : HOME :LJ = 8192 *3:LS = 8192 *4: PRINT "<CTRL-D>BLOADPR(ML)"
4 IF PEEK(8192) = 119 AND PEEK(8193) = 7 THEN PRINT "<CTRL-D>BRUNGAME1(ML)$7FD"
5 IF PEEK(8192) = 119 AND PEEK(8193) = 202 AND PEEK(8194) = 119 THEN PRINT "<CTRL-D>BSAVEHS,A$2C0,L$5"
7 A$(4) = "HIT KEY 'S' TO SKIP TITLE PAGE OR HIT ANY KEY TO CONTINUE."
8 A$(5) = " HIT ANY KEY TO CONTINUE."
10 IF PEEK(8192) = 119 AND PEEK(8193) = 202 THEN FOR Z = 709 TO 713: POKE Z,0: NEXT : POKE 714,16: PRINT "<CTRL-D>BLOADHS": GOTO 100
15 IF PEEK(8192) = 119 AND PEEK(8193) = 199 THEN 20
17 PRINT "<CTRL-D>BLOADHS": FOR Z = 709 TO 713: POKE Z,0: NEXT : POKE 714,16: GOTO 100
20 B$(3) = "<CTRL-D>BRUNAP":A$(3) = "WELL DONE HUMAN, I UNDERESTIMATED YOU. HOWEVER, YOU HAVE NOT FOUND ME YET. I WILL PREPARE MY SELF JUST IN CASE YOU HAPPEN TO FIND ME."
30 B$(2) = "<CTRL-D>BRUNSCROLL(ML)":A$(2) = "CONGRATULATIONS HUMAN. YOU HAVE SURVIVEDAPPLES LITTLE PETS BUT OUR UNDERGROUND CITY WILL SURELY STOP YOUR ESCAPE."
40 B$(1) = "<CTRL-D>BRUNGAME1(ML)$7FD":A$(1) = "I DON'T BELIEVE IT HUMAN, YOU HAVE DESTROYED ONE OF MY COMPUTERS BUT YOU HAVE NOT FOUND ME YET. I WILL LOOK FORWARD TO SEEING YOU VERY SOON."
50 IF PEEK(8192) = 119 AND PEEK(8193) = 199 THEN GOSUB 300:P = 5:X = 3:Y = Y +30: GOSUB 340: GOSUB 400: IF K = 211 THEN PRINT : TEXT : PRINT "<CTRL-D>BLOADHS": FOR Z = 709 TO 713: POKE Z,0: NEXT : POKE 714,5: PRINT "<CTRL-D>BRUNGAME1(ML)$7FD"
70 PRINT : TEXT : PRINT B$( PEEK(8194))
100 CALL LJ +3:P = 1:X = 10:Y = 100:A$(1) = "WELCOME TO CAVERN CREATURES, AFAST ACTION CHALLENGING ADVENTURE GAME. PLAY BEGINS AT THE ENTRANCE OF A LONG WINDING CAVERN,"
120 A$(1) = A$(1) +" INHABITED WITH CREATURESBLOCKING YOUR ESCAPE TO THE UNDERGROUND CITY. THE END BATTLE WILL BE A SURPRISE THAT NO ONE CAN MISS."
130 POKE 8194,1:P = PEEK(8194): CALL LJ +3:X = 10:Y = 100: GOSUB 340:P = 4:X = 3:Y = Y +30: GOSUB 340: GOSUB 400: IF K = 211 THEN PRINT : TEXT : PRINT "<CTRL-D>BLOADHS": FOR Z = 709 TO 713: POKE Z,0: NEXT : POKE 714,16: PRINT "<CTRL-D>BRUNGAME1(ML)$7FD"
200 PRINT : TEXT : PRINT "<CTRL-D>BRUNTITLE PAGE"
300 P = PEEK(8194): CALL LJ +3:X = 0:Y = 100
340 FOR Z = 1 TO LEN(A$(P)): POKE LS,X: POKE LS +1,Y: POKE LS +2, ASC( MID$ (A$(P),Z,1))
345 IF PEEK( -16384) >127 THEN RETURN
350 IF PEEK(LS +2) = ASC("'") THEN POKE LS +2,93
370 CALL LJ:X = X +1: IF X >39 THEN X = 0:Y = Y +10
380 NEXT : RETURN
400 FOR D = 1 TO 900:K = PEEK( -16384): IF K >127 THEN D = 999: NEXT : RETURN
