00000000: 00 40 2E 53 20 44 3D 47 45 28 36 29 0D 2E 53 20 |.@.S D=GE(6)..S |
00000010: 46 3D 42 0D 2E 49 20 4E 3A 34 31 0D 2E 54 20 21 |F=B..I N:41..T !|
00000020: 53 45 54 4D 0D 2E 21 43 4C 52 54 0D 2E 50 20 22 |SETM..!CLRT..P "|
00000030: 59 6F 75 20 63 6F 6D 65 20 74 6F 20 61 20 62 72 |You come to a br|
00000040: 61 6E 63 68 20 69 6E 20 74 68 65 20 68 61 6C 6C |anch in the hall|
00000050: 77 61 79 2E 0D 2E 21 4C 4F 4F 4B 0D 2E 21 48 45 |way...!LOOK..!HE|
00000060: 52 45 0D 21 4C 4F 4F 4B 0D 2E 49 20 46 3A 31 0D |RE.!LOOK..I F:1.|
00000070: 2E 54 20 50 20 22 50 61 73 73 61 67 65 73 20 67 |.T P "Passages g|
00000080: 6F 20 6C 65 66 74 2C 20 72 69 67 68 74 2C 20 61 |o left, right, a|
00000090: 6E 64 20 62 61 63 6B 2E 0D 2E 49 20 46 3A 32 0D |nd back...I F:2.|
000000A0: 2E 54 20 50 20 22 50 61 73 73 61 67 65 73 20 67 |.T P "Passages g|
000000B0: 6F 20 66 6F 72 77 61 72 64 2C 20 6C 65 66 74 2C |o forward, left,|
000000C0: 20 61 6E 64 20 62 61 63 6B 2E 0D 2E 49 20 46 3A | and back...I F:|
000000D0: 33 0D 2E 54 20 50 20 22 50 61 73 73 61 67 65 73 |3..T P "Passages|
000000E0: 20 67 6F 20 66 6F 72 77 61 72 64 2C 20 72 69 67 | go forward, rig|
000000F0: 68 74 2C 20 61 6E 64 20 62 61 63 6B 2E 0D 53 54 |ht, and back..ST|
00000100: 41 54 20 0D 2E 21 43 4C 52 54 0D 2E 50 20 22 4E |AT ..!CLRT..P "N|
00000110: 4F 44 45 3A 20 3B 0D 2E 50 20 4E 0D 2E 50 20 22 |ODE: ;..P N..P "|
00000120: 48 45 41 44 49 4E 47 3A 20 3B 0D 2E 50 20 44 0D |HEADING: ;..P D.|
00000130: 25 4E 2E 2E 2E 0D 25 53 2E 2E 2E 0D 25 45 2E 2E |%N....%S....%E..|
00000140: 2E 0D 25 57 2E 2E 2E 0D 25 4E 57 2E 2E 0D 25 53 |..%W....%NW...%S|
00000150: 57 2E 2E 0D 25 4E 45 2E 2E 0D 25 53 45 2E 2E 0D |W...%NE...%SE...|
00000160: 2E 50 20 22 57 69 74 68 6F 75 74 20 61 20 63 6F |.P "Without a co|
00000170: 6D 70 61 73 73 20 79 6F 75 20 63 61 6E 27 74 20 |mpass you can't |
00000180: 74 65 6C 6C 0D 2E 50 20 22 77 68 69 63 68 20 77 |tell..P "which w|
00000190: 61 79 20 74 68 61 74 20 69 73 2E 0D 25 42 4B 2E |ay that is..%BK.|
000001A0: 2E 0D 2E 50 20 22 59 6F 75 20 74 75 72 6E 20 62 |...P "You turn b|
000001B0: 61 63 6B 2E 0D 2E 53 20 42 3D 33 2D 44 0D 2E 21 |ack...S B=3-D..!|
000001C0: 44 49 52 54 0D 2E 21 54 53 47 4F 0D 25 46 57 2E |DIRT..!TSGO.%FW.|
000001D0: 2E 0D 2E 53 20 42 3D 44 0D 2E 21 44 49 52 54 0D |...S B=D..!DIRT.|
000001E0: 2E 54 20 50 20 22 59 6F 75 20 6D 61 72 63 68 20 |.T P "You march |
000001F0: 66 6F 72 77 61 72 64 2E 0D 2E 54 20 21 54 53 47 |forward...T !TSG|
00000200: 4F 0D 2E 21 49 4E 56 44 0D 25 4C 2E 2E 2E 0D 2E |O..!INVD.%L.....|
00000210: 21 44 43 56 4C 0D 2E 21 44 49 52 54 0D 2E 54 20 |!DCVL..!DIRT..T |
00000220: 50 20 22 59 6F 75 20 67 6F 20 6C 65 66 74 2E 0D |P "You go left..|
00000230: 2E 54 20 21 54 53 47 4F 0D 2E 21 49 4E 56 44 0D |.T !TSGO..!INVD.|
00000240: 25 52 2E 2E 2E 0D 2E 21 44 43 56 52 0D 2E 21 44 |%R.....!DCVR..!D|
00000250: 49 52 54 0D 2E 54 20 50 20 22 59 6F 75 20 68 65 |IRT..T P "You he|
00000260: 61 64 20 72 69 67 68 74 2E 0D 2E 54 20 21 54 53 |ad right...T !TS|
00000270: 47 4F 0D 2E 21 49 4E 56 44 0D 21 44 43 56 4C 0D |GO..!INVD.!DCVL.|
00000280: 2E 49 20 44 3A 30 0D 2E 54 20 53 20 42 3D 32 0D |.I D:0..T S B=2.|
00000290: 2E 49 20 44 3A 31 0D 2E 54 20 53 20 42 3D 30 0D |.I D:1..T S B=0.|
000002A0: 2E 49 20 44 3A 32 0D 2E 54 20 53 20 42 3D 33 0D |.I D:2..T S B=3.|
000002B0: 2E 49 20 44 3A 33 0D 2E 54 20 53 20 42 3D 31 0D |.I D:3..T S B=1.|
000002C0: 21 44 43 56 52 0D 2E 49 20 44 3A 30 0D 2E 54 20 |!DCVR..I D:0..T |
000002D0: 53 20 42 3D 31 0D 2E 49 20 44 3A 31 0D 2E 54 20 |S B=1..I D:1..T |
000002E0: 53 20 42 3D 33 0D 2E 49 20 44 3A 32 0D 2E 54 20 |S B=3..I D:2..T |
000002F0: 53 20 42 3D 30 0D 2E 49 20 44 3A 33 0D 2E 54 20 |S B=0..I D:3..T |
00000300: 53 20 42 3D 32 0D 21 44 49 52 54 0D 2E 53 20 41 |S B=2.!DIRT..S A|
00000310: 3D 4E 2D 32 30 30 0D 2E 53 20 48 3D 42 2B 42 0D |=N-200..S H=B+B.|
00000320: 2E 4A 20 2B 48 2B 31 0D 2E 53 20 41 3D 4D 4E 28 |.J +H+1..S A=MN(|
00000330: 41 29 0D 2E 4A 20 2B 36 0D 2E 53 20 41 3D 4D 45 |A)..J +6..S A=ME|
00000340: 28 41 29 0D 2E 4A 20 2B 34 0D 2E 53 20 41 3D 4D |(A)..J +4..S A=M|
00000350: 57 28 41 29 0D 2E 4A 20 2B 32 0D 2E 53 20 41 3D |W(A)..J +2..S A=|
00000360: 4D 53 28 41 29 0D 2E 49 20 41 23 32 35 35 0D 21 |MS(A)..I A#255.!|
00000370: 54 53 47 4F 0D 2E 53 20 47 45 28 36 29 3D 31 30 |TSGO..S GE(6)=10|
00000380: 0D 2E 49 20 41 26 31 32 38 0D 2E 45 20 4A 20 2B |..I A&128..E J +|
00000390: 39 0D 2E 49 20 41 3A 31 36 37 0D 2E 54 20 33 20 |9..I A:167..T 3 |
000003A0: 52 4F 4F 4D 20 33 39 2E 30 20 0D 2E 49 20 41 3A |ROOM 39.0 ..I A:|
000003B0: 31 37 32 0D 2E 54 20 33 20 52 4F 4F 4D 20 34 34 |172..T 3 ROOM 44|
000003C0: 2E 30 20 0D 2E 49 20 41 3A 31 37 33 0D 2E 54 20 |.0 ..I A:173..T |
000003D0: 33 20 52 4F 4F 4D 20 34 35 2E 30 20 0D 2E 53 20 |3 ROOM 45.0 ..S |
000003E0: 47 45 28 31 30 29 3D 31 30 0D 2E 21 54 52 41 56 |GE(10)=10..!TRAV|
000003F0: 0D 2E 49 20 41 26 33 32 0D 2E 54 20 53 20 47 45 |..I A&32..T S GE|
00000400: 28 36 29 3D 47 45 28 36 29 2B 31 30 0D 2E 49 20 |(6)=GE(6)+10..I |
00000410: 41 26 36 34 0D 2E 54 20 53 20 47 45 28 36 29 3D |A&64..T S GE(6)=|
00000420: 47 45 28 36 29 2B 32 30 0D 2E 53 20 41 3D 41 26 |GE(6)+20..S A=A&|
00000430: 33 31 0D 2E 53 20 4E 3D 41 2B 32 30 30 0D 2E 53 |31..S N=A+200..S|
00000440: 20 44 3D 42 0D 2E 49 20 47 45 28 36 29 3A 32 30 | D=B..I GE(6):20|
00000450: 0D 2E 54 20 21 44 43 56 4C 0D 2E 49 20 47 45 28 |..T !DCVL..I GE(|
00000460: 36 29 3A 33 30 0D 2E 54 20 21 44 43 56 52 0D 2E |6):30..T !DCVR..|
00000470: 49 20 47 45 28 36 29 3A 34 30 0D 2E 54 20 53 20 |I GE(6):40..T S |
00000480: 42 3D 33 2D 44 0D 2E 53 20 44 3D 42 0D 2E 53 20 |B=3-D..S D=B..S |
00000490: 42 3D 30 0D 2E 21 44 49 52 54 0D 2E 54 20 53 20 |B=0..!DIRT..T S |
000004A0: 42 3D 31 0D 2E 54 20 21 44 49 52 54 0D 2E 54 20 |B=1..T !DIRT..T |
000004B0: 53 20 42 3D 32 0D 2E 54 20 21 44 49 52 54 0D 2E |S B=2..T !DIRT..|
000004C0: 54 20 53 20 42 3D 33 0D 2E 54 20 21 44 49 52 54 |T S B=3..T !DIRT|
000004D0: 0D 2E 49 20 42 3A 44 0D 2E 54 20 53 20 47 45 28 |..I B:D..T S GE(|
000004E0: 31 30 29 3D 47 45 28 36 29 2B 31 0D 2E 54 20 4A |10)=GE(6)+1..T J|
000004F0: 20 2B 31 32 0D 2E 53 20 48 3D 42 2B 42 0D 2E 4A | +12..S H=B+B..J|
00000500: 20 2B 48 2B 31 0D 2E 49 20 44 3A 31 0D 2E 4A 20 | +H+1..I D:1..J |
00000510: 2B 36 0D 2E 49 20 44 3A 33 0D 2E 4A 20 2B 34 0D |+6..I D:3..J +4.|
00000520: 2E 49 20 44 3A 30 0D 2E 4A 20 2B 32 0D 2E 49 20 |.I D:0..J +2..I |
00000530: 44 3A 32 0D 2E 54 20 53 20 47 45 28 31 30 29 3D |D:2..T S GE(10)=|
00000540: 47 45 28 36 29 2B 33 0D 2E 45 20 53 20 47 45 28 |GE(6)+3..E S GE(|
00000550: 31 30 29 3D 47 45 28 36 29 2B 32 0D 2E 53 20 47 |10)=GE(6)+2..S G|
00000560: 45 28 36 29 3D 44 0D 2E 33 20 52 4F 4F 4D 20 34 |E(6)=D..3 ROOM 4|
00000570: 33 2E 30 20 0D 2E 21 54 52 41 56 0D 21 53 45 54 |3.0 ..!TRAV.!SET|
00000580: 4D 0D 2E 53 20 4E 3D 32 30 33 0D 2E 53 20 44 3D |M..S N=203..S D=|
00000590: 30 0D 2E 53 20 4C 3D 33 0D 2E 53 20 4D 4E 28 4C |0..S L=3..S MN(L|
000005A0: 29 3D 32 35 35 0D 2E 53 20 4D 53 28 4C 29 3D 32 |)=255..S MS(L)=2|
000005B0: 35 35 0D 2E 53 20 4D 45 28 4C 29 3D 32 35 35 0D |55..S ME(L)=255.|
000005C0: 2E 53 20 4D 57 28 4C 29 3D 32 35 35 0D 2E 53 20 |.S MW(L)=255..S |
000005D0: 4C 3D 4C 2B 2B 0D 2E 49 20 4C 3C 31 33 0D 2E 54 |L=L++..I L<13..T|
000005E0: 20 4A 20 2D 36 0D 2E 53 20 54 4C 28 39 29 3D 32 | J -6..S TL(9)=2|
000005F0: 30 39 0D 2E 53 20 4D 45 28 33 29 3D 34 30 0D 2E |09..S ME(3)=40..|
00000600: 53 20 4D 57 28 33 29 3D 35 0D 2E 53 20 4D 53 28 |S MW(3)=5..S MS(|
00000610: 33 29 3D 36 38 0D 2E 53 20 4D 4E 28 34 29 3D 35 |3)=68..S MN(4)=5|
00000620: 0D 2E 53 20 4D 45 28 34 29 3D 33 35 0D 2E 53 20 |..S ME(4)=35..S |
00000630: 4D 53 28 34 29 3D 31 30 30 0D 2E 53 20 4D 4E 28 |MS(4)=100..S MN(|
00000640: 35 29 3D 37 30 0D 2E 53 20 4D 45 28 35 29 3D 33 |5)=70..S ME(5)=3|
00000650: 0D 2E 53 20 4D 53 28 35 29 3D 34 0D 2E 53 20 4D |..S MS(5)=4..S M|
00000660: 4E 28 36 29 3D 33 39 0D 2E 53 20 4D 45 28 36 29 |N(6)=39..S ME(6)|
00000670: 3D 38 0D 2E 53 20 4D 57 28 36 29 3D 33 37 0D 2E |=8..S MW(6)=37..|
00000680: 53 20 4D 45 28 37 29 3D 37 30 0D 2E 53 20 4D 57 |S ME(7)=70..S MW|
00000690: 28 37 29 3D 31 37 32 0D 2E 53 20 4D 53 28 37 29 |(7)=172..S MS(7)|
000006A0: 3D 31 30 30 0D 2E 53 20 4D 4E 28 38 29 3D 39 0D |=100..S MN(8)=9.|
000006B0: 2E 53 20 4D 57 28 38 29 3D 36 0D 2E 53 20 4D 53 |.S MW(8)=6..S MS|
000006C0: 28 38 29 3D 36 37 0D 2E 53 20 4D 4E 28 39 29 3D |(8)=67..S MN(9)=|
000006D0: 31 36 37 0D 2E 53 20 4D 45 28 39 29 3D 37 34 0D |167..S ME(9)=74.|
000006E0: 2E 53 20 4D 53 28 39 29 3D 38 0D 2E 53 20 4D 4E |.S MS(9)=8..S MN|
000006F0: 28 31 30 29 3D 34 31 0D 2E 53 20 4D 45 28 31 30 |(10)=41..S ME(10|
00000700: 29 3D 37 34 0D 2E 53 20 4D 53 28 31 30 29 3D 31 |)=74..S MS(10)=1|
00000710: 31 0D 2E 53 20 4D 4E 28 31 31 29 3D 31 30 0D 2E |1..S MN(11)=10..|
00000720: 53 20 4D 45 28 31 31 29 3D 37 36 0D 2E 53 20 4D |S ME(11)=76..S M|
00000730: 53 28 31 31 29 3D 31 30 0D 2E 53 20 4D 4E 28 31 |S(11)=10..S MN(1|
00000740: 32 29 3D 34 33 0D 2E 53 20 4D 45 28 31 32 29 3D |2)=43..S ME(12)=|
00000750: 31 37 33 0D 2E 53 20 4D 53 28 31 32 29 3D 31 30 |173..S MS(12)=10|
00000760: 0D 40 20 20 20 20 0D |.@ . |
.@.S D=GE(6)..S F=B..I N:41..T !SETM..!C
LRT..P "YOU COME TO A BRANCH IN THE HALL
WAY...!LOOK..!HERE.!LOOK..I F:1..T P "PA
SSAGES GO LEFT, RIGHT, AND BACK...I F:2.
.T P "PASSAGES GO FORWARD, LEFT, AND BAC
K...I F:3..T P "PASSAGES GO FORWARD, RIG
HT, AND BACK..STAT ..!CLRT..P "NODE: ;..
P N..P "HEADING: ;..P D.%N....%S....%E..
..%W....%NW...%SW...%NE...%SE....P "WITH
OUT A COMPASS YOU CAN'T TELL..P "WHICH W
AY THAT IS..%BK....P "YOU TURN BACK...S
B=3-D..!DIRT..!TSGO.%FW....S B=D..!DIRT.
.T P "YOU MARCH FORWARD...T !TSGO..!INVD
.%L.....!DCVL..!DIRT..T P "YOU GO LEFT..
.T !TSGO..!INVD.%R.....!DCVR..!DIRT..T P
"YOU HEAD RIGHT...T !TSGO..!INVD.!DCVL.
.I D:0..T S B=2..I D:1..T S B=0..I D:2..
T S B=3..I D:3..T S B=1.!DCVR..I D:0..T
S B=1..I D:1..T S B=3..I D:2..T S B=0..I
D:3..T S B=2.!DIRT..S A=N-200..S H=B+B.
.J +H+1..S A=MN(A)..J +6..S A=ME(A)..J +
4..S A=MW(A)..J +2..S A=MS(A)..I A#255.!
TSGO..S GE(6)=10..I A&128..E J +9..I A:1
67..T 3 ROOM 39.0 ..I A:172..T 3 ROOM 44
.0 ..I A:173..T 3 ROOM 45.0 ..S GE(10)=1
0..!TRAV..I A&32..T S GE(6)=GE(6)+10..I
A&64..T S GE(6)=GE(6)+20..S A=A&31..S N=
A+200..S D=B..I GE(6):20..T !DCVL..I GE(
6):30..T !DCVR..I GE(6):40..T S B=3-D..S
D=B..S B=0..!DIRT..T S B=1..T !DIRT..T
S B=2..T !DIRT..T S B=3..T !DIRT..I B:D.
.T S GE(10)=GE(6)+1..T J +12..S H=B+B..J
+H+1..I D:1..J +6..I D:3..J +4..I D:0..
J +2..I D:2..T S GE(10)=GE(6)+3..E S GE(
10)=GE(6)+2..S GE(6)=D..3 ROOM 43.0 ..!T
RAV.!SETM..S N=203..S D=0..S L=3..S MN(L
)=255..S MS(L)=255..S ME(L)=255..S MW(L)
=255..S L=L++..I L<13..T J -6..S TL(9)=2
09..S ME(3)=40..S MW(3)=5..S MS(3)=68..S
MN(4)=5..S ME(4)=35..S MS(4)=100..S MN(
5)=70..S ME(5)=3..S MS(5)=4..S MN(6)=39.
.S ME(6)=8..S MW(6)=37..S ME(7)=70..S MW
(7)=172..S MS(7)=100..S MN(8)=9..S MW(8)
=6..S MS(8)=67..S MN(9)=167..S ME(9)=74.
.S MS(9)=8..S MN(10)=41..S ME(10)=74..S
MS(10)=11..S MN(11)=10..S ME(11)=76..S M
S(11)=10..S MN(12)=43..S ME(12)=173..S M
S(12)=10.@ .
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL