00000000: 00 40 2E 53 20 4E 3D 32 0D 2E 53 20 44 3D 31 0D |.@.S N=2..S D=1.|
00000010: 2E 53 20 46 3D 34 0D 2E 49 20 4D 4E 28 33 29 3A |.S F=4..I MN(3):|
00000020: 31 0D 2E 45 20 4A 20 2B 32 0D 21 21 21 21 21 0D |1..E J +2.!!!!!.|
00000030: 2E 53 20 50 3D 33 2D 50 0D 2E 43 20 31 2C 50 2C |.S P=3-P..C 1,P,|
00000040: 30 0D 2E 42 20 4E 43 41 52 31 0D 2E 53 20 56 3D |0..B NCAR1..S V=|
00000050: 50 0D 2E 44 20 0D 2E 42 20 4E 43 41 52 32 0D 2E |P..D ..B NCAR2..|
00000060: 53 20 56 3D 50 0D 2E 44 20 0D 2E 42 20 4E 43 41 |S V=P..D ..B NCA|
00000070: 52 33 0D 2E 53 20 56 3D 50 0D 2E 44 20 0D 2E 5F |R3..S V=P..D .._|
00000080: 20 50 0D 2E 21 43 4C 52 54 0D 2E 50 20 22 22 47 | P..!CLRT..P ""G|
00000090: 72 65 65 74 69 6E 67 73 21 20 59 6F 75 20 6C 6F |reetings! You lo|
000000A0: 6F 6B 20 6C 69 6B 65 20 79 6F 75 20 6E 65 65 64 |ok like you need|
000000B0: 20 73 6F 6D 65 0D 2E 50 20 22 20 70 72 6F 76 69 | some..P " provi|
000000C0: 73 69 6F 6E 73 2E 20 4C 65 74 20 6D 65 20 73 68 |sions. Let me sh|
000000D0: 6F 77 20 79 6F 75 20 6D 79 20 77 61 72 65 73 21 |ow you my wares!|
000000E0: 22 0D 2E 46 20 33 2D 50 0D 2E 24 20 50 0D 2E 21 |"..F 3-P..$ P..!|
000000F0: 4D 4F 52 45 0D 2E 50 20 22 22 4B 69 6E 64 20 73 |MORE..P ""Kind s|
00000100: 69 72 2C 20 77 65 20 68 61 76 65 20 74 68 65 20 |ir, we have the |
00000110: 6D 6F 73 74 20 77 6F 6E 64 72 6F 75 73 0D 2E 50 |most wondrous..P|
00000120: 20 22 20 77 6F 72 6B 69 6E 67 73 20 6F 66 20 6D | " workings of m|
00000130: 61 6E 20 61 6E 64 20 62 65 61 73 74 20 2E 20 2E |an and beast . .|
00000140: 20 2E 22 0D 2E 53 20 54 4C 28 31 29 3D 32 0D 2E | ."..S TL(1)=2..|
00000150: 53 20 54 4C 28 33 29 3D 32 0D 2E 53 20 54 4C 28 |S TL(3)=2..S TL(|
00000160: 39 29 3D 32 0D 2E 53 20 54 4C 28 31 30 29 3D 32 |9)=2..S TL(10)=2|
00000170: 0D 2E 53 20 54 4C 28 31 31 29 3D 32 0D 2E 53 20 |..S TL(11)=2..S |
00000180: 54 4C 28 31 32 29 3D 32 0D 2E 21 44 52 41 57 0D |TL(12)=2..!DRAW.|
00000190: 2E 53 20 4D 4E 28 34 29 3D 30 0D 2E 4A 20 2B 36 |.S MN(4)=0..J +6|
000001A0: 0D 25 4C 4F 53 4C 0D 25 41 4B 53 4C 0D 25 41 4B |.%LOSL.%AKSL.%AK|
000001B0: 50 52 0D 25 42 59 2E 2E 0D 2E 53 20 4D 4E 28 34 |PR.%BY....S MN(4|
000001C0: 29 3D 31 0D 2E 33 20 52 4F 4F 4D 20 32 2E 32 20 |)=1..3 ROOM 2.2 |
000001D0: 20 0D 2E 21 47 4F 54 4F 0D 25 41 4B 2E 2E 0D 2E | ..!GOTO.%AK....|
000001E0: 50 20 22 22 49 20 61 6D 20 62 75 74 20 61 20 73 |P ""I am but a s|
000001F0: 69 6D 70 6C 65 20 6D 61 6E 20 6F 66 20 66 61 69 |imple man of fai|
00000200: 74 68 2E 0D 2E 50 20 22 20 49 20 6B 6E 6F 77 20 |th...P " I know |
00000210: 6E 6F 74 68 69 6E 67 20 6F 66 20 73 75 63 68 20 |nothing of such |
00000220: 74 68 69 6E 67 73 2E 22 0D 25 42 59 30 31 0D 2E |things.".%BY01..|
00000230: 53 20 41 3D 31 36 33 0D 2E 21 42 55 59 4F 0D 25 |S A=163..!BUYO.%|
00000240: 42 59 30 33 0D 2E 53 20 41 3D 31 30 0D 2E 21 42 |BY03..S A=10..!B|
00000250: 55 59 4F 0D 25 42 59 30 39 0D 2E 53 20 41 3D 32 |UYO.%BY09..S A=2|
00000260: 0D 2E 21 42 55 59 4F 0D 25 42 59 31 30 0D 2E 53 |..!BUYO.%BY10..S|
00000270: 20 41 3D 31 0D 2E 21 42 55 59 4F 0D 25 42 59 31 | A=1..!BUYO.%BY1|
00000280: 31 0D 2E 53 20 41 3D 31 0D 2E 21 42 55 59 4F 0D |1..S A=1..!BUYO.|
00000290: 25 42 59 31 32 0D 2E 53 20 41 3D 32 35 0D 2E 21 |%BY12..S A=25..!|
000002A0: 42 55 59 4F 0D 25 4F 46 2E 2E 0D 2E 50 20 22 22 |BUYO.%OF....P ""|
000002B0: 49 20 61 6D 20 6E 6F 74 20 61 20 63 6F 6D 6D 6F |I am not a commo|
000002C0: 6E 20 70 65 64 64 6C 65 72 21 0D 2E 50 20 22 20 |n peddler!..P " |
000002D0: 4D 79 20 70 72 69 63 65 73 20 61 72 65 20 66 69 |My prices are fi|
000002E0: 72 6D 2E 22 0D 21 4C 4F 4F 4B 0D 25 4C 4F 43 41 |rm.".!LOOK.%LOCA|
000002F0: 0D 2E 50 20 22 54 68 65 20 6D 65 72 63 68 61 6E |..P "The merchan|
00000300: 74 20 73 74 61 6E 64 73 20 6E 65 61 72 20 74 68 |t stands near th|
00000310: 65 20 72 6F 61 64 2E 0D 2E 25 4C 4F 52 44 0D 25 |e road...%LORD.%|
00000320: 4C 4F 52 44 0D 2E 50 20 22 54 68 65 20 72 6F 61 |LORD..P "The roa|
00000330: 64 20 67 6F 65 73 20 65 61 73 74 20 61 6E 64 20 |d goes east and |
00000340: 77 65 73 74 2E 0D 25 45 2E 2E 2E 0D 25 46 57 2E |west..%E....%FW.|
00000350: 2E 0D 25 4F 55 2E 2E 0D 2E 21 54 58 54 31 0D 2E |..%OU....!TXT1..|
00000360: 33 20 52 4F 4F 4D 20 33 2E 30 20 20 0D 2E 53 20 |3 ROOM 3.0 ..S |
00000370: 47 45 28 39 29 3D 33 0D 2E 21 54 52 41 56 0D 25 |GE(9)=3..!TRAV.%|
00000380: 57 2E 2E 2E 0D 25 42 4B 2E 2E 0D 2E 21 54 58 54 |W....%BK....!TXT|
00000390: 31 0D 2E 33 20 52 4F 4F 4D 20 31 2E 31 20 20 0D |1..3 ROOM 1.1 .|
000003A0: 2E 21 54 52 41 56 0D 25 41 54 2E 2E 0D 21 53 48 |.!TRAV.%AT...!SH|
000003B0: 54 58 0D 2E 50 20 22 41 20 73 74 61 72 74 6C 65 |TX..P "A startle|
000003C0: 64 20 67 75 61 72 64 20 73 6B 65 77 65 72 73 20 |d guard skewers |
000003D0: 79 6F 75 0D 2E 50 20 22 6F 6E 20 68 69 73 20 73 |you..P "on his s|
000003E0: 63 69 6D 69 74 61 72 2E 0D 2E 21 44 45 41 44 0D |cimitar...!DEAD.|
000003F0: 21 54 58 54 31 0D 2E 49 20 47 45 28 34 29 3A 32 |!TXT1..I GE(4):2|
00000400: 30 34 0D 2E 54 20 4A 20 2B 33 0D 2E 50 20 22 59 |04..T J +3..P "Y|
00000410: 6F 75 20 6C 65 61 76 65 20 74 68 65 20 74 72 61 |ou leave the tra|
00000420: 64 65 72 20 63 6F 75 6E 74 69 6E 67 20 68 69 73 |der counting his|
00000430: 20 67 6F 6C 64 2E 0D 21 21 21 21 21 0D 2E 50 20 | gold..!!!!!..P |
00000440: 22 54 68 65 20 6D 65 72 63 68 61 6E 74 20 6C 6F |"The merchant lo|
00000450: 6F 6B 73 20 64 69 73 61 70 70 6F 69 6E 74 65 64 |oks disappointed|
00000460: 20 61 73 20 79 6F 75 0D 2E 50 20 22 72 65 74 75 | as you..P "retu|
00000470: 72 6E 20 74 6F 20 74 68 65 20 72 6F 61 64 2E 0D |rn to the road..|
00000480: 21 47 54 4D 57 0D 2E 49 20 4D 57 28 4C 29 3A 31 |!GTMW..I MW(L):1|
00000490: 0D 2E 54 20 50 20 22 22 49 74 20 69 73 20 63 75 |..T P ""It is cu|
000004A0: 73 74 6F 6D 61 72 79 20 74 6F 20 62 75 79 20 74 |stomary to buy t|
000004B0: 68 65 20 69 74 65 6D 20 62 65 66 6F 72 65 0D 2E |he item before..|
000004C0: 54 20 50 20 22 20 79 6F 75 20 74 61 6B 65 20 69 |T P " you take i|
000004D0: 74 2E 22 0D 21 42 55 59 4F 0D 2E 49 20 4D 57 28 |t.".!BUYO..I MW(|
000004E0: 4C 29 3A 30 0D 2E 54 20 50 20 22 22 59 6F 75 20 |L):0..T P ""You |
000004F0: 68 61 76 65 20 62 6F 75 67 68 74 20 61 6C 6C 20 |have bought all |
00000500: 74 68 61 74 20 49 20 63 61 6E 20 73 70 61 72 65 |that I can spare|
00000510: 0D 2E 54 20 50 20 22 20 6F 66 20 74 68 61 74 20 |..T P " of that |
00000520: 69 74 65 6D 2E 22 0D 2E 54 20 4A 20 2D 34 0D 2E |item."..T J -4..|
00000530: 49 20 41 3E 47 45 28 34 29 0D 2E 54 20 50 20 22 |I A>GE(4)..T P "|
00000540: 22 59 6F 75 27 72 65 20 61 20 6C 69 74 74 6C 65 |"You're a little|
00000550: 20 73 68 6F 72 74 2E 20 50 65 72 68 61 70 73 20 | short. Perhaps |
00000560: 61 20 6C 65 73 73 20 20 20 65 78 70 65 6E 73 69 |a less expensi|
00000570: 76 65 20 69 74 65 6D 2E 2E 2E 22 0D 2E 54 20 4A |ve item..."..T J|
00000580: 20 2D 33 0D 2E 50 20 22 22 41 20 6D 6F 73 74 20 | -3..P ""A most |
00000590: 65 78 63 65 6C 6C 65 6E 74 20 63 68 6F 69 63 65 |excellent choice|
000005A0: 21 22 0D 2E 50 20 22 4D 6F 6E 65 79 20 61 6E 64 |!"..P "Money and|
000005B0: 20 67 6F 6F 64 73 20 63 68 61 6E 67 65 20 68 61 | goods change ha|
000005C0: 6E 64 73 2E 0D 2E 53 20 47 45 28 34 29 3D 47 45 |nds...S GE(4)=GE|
000005D0: 28 34 29 2D 41 0D 2E 53 20 41 3D 47 45 28 30 29 |(4)-A..S A=GE(0)|
000005E0: 2B 54 57 28 4C 29 0D 2E 49 20 41 3E 31 35 0D 2E |+TW(L)..I A>15..|
000005F0: 54 20 4A 20 2B 34 0D 2E 53 20 47 45 28 30 29 3D |T J +4..S GE(0)=|
00000600: 41 0D 2E 53 20 54 4C 28 4C 29 3D 32 35 35 0D 2E |A..S TL(L)=255..|
00000610: 53 20 54 43 28 4C 29 3D 30 0D 2E 53 20 4D 57 28 |S TC(L)=0..S MW(|
00000620: 4C 29 3D 30 0D 2E 21 44 52 41 57 0D 2E 5F 20 50 |L)=0..!DRAW.._ P|
00000630: 0D 2E 21 43 4C 52 54 0D 2E 50 20 22 22 41 20 6D |..!CLRT..P ""A m|
00000640: 6F 73 74 20 65 78 63 65 6C 6C 65 6E 74 20 63 68 |ost excellent ch|
00000650: 6F 69 63 65 21 22 0D 2E 50 20 22 4D 6F 6E 65 79 |oice!"..P "Money|
00000660: 20 61 6E 64 20 67 6F 6F 64 73 20 63 68 61 6E 67 | and goods chang|
00000670: 65 20 68 61 6E 64 73 2E 0D 2E 46 20 33 2D 50 0D |e hands...F 3-P.|
00000680: 2E 24 20 50 0D 2E 54 20 21 4D 4F 52 45 0D 2E 54 |.$ P..T !MORE..T|
00000690: 20 50 20 22 59 6F 75 72 20 61 72 6D 73 20 61 72 | P "Your arms ar|
000006A0: 65 20 66 75 6C 6C 2E 20 54 68 65 20 69 74 65 6D |e full. The item|
000006B0: 20 69 73 20 70 6C 61 63 65 64 0D 2E 54 20 50 20 | is placed..T P |
000006C0: 22 61 74 20 79 6F 75 72 20 66 65 65 74 2E 0D 21 |"at your feet..!|
000006D0: 44 52 41 57 0D 2E 21 49 46 53 56 0D 2E 53 20 50 |DRAW..!IFSV..S P|
000006E0: 3D 33 2D 50 0D 2E 43 20 31 2C 50 2C 30 0D 2E 49 |=3-P..C 1,P,0..I|
000006F0: 20 4D 57 28 31 29 3A 31 0D 2E 42 20 48 4F 52 53 | MW(1):1..B HORS|
00000700: 45 0D 2E 53 20 56 3D 50 0D 2E 54 20 44 20 0D 2E |E..S V=P..T D ..|
00000710: 49 20 4D 57 28 31 30 29 3A 31 0D 2E 42 20 42 55 |I MW(10):1..B BU|
00000720: 54 54 52 0D 2E 53 20 56 3D 50 0D 2E 54 20 44 20 |TTR..S V=P..T D |
00000730: 0D 2E 49 20 4D 57 28 31 31 29 3A 31 0D 2E 42 20 |..I MW(11):1..B |
00000740: 54 45 41 2E 2E 0D 2E 53 20 56 3D 50 0D 2E 54 20 |TEA....S V=P..T |
00000750: 44 20 0D 2E 49 20 4D 57 28 31 32 29 3A 31 0D 2E |D ..I MW(12):1..|
00000760: 42 20 54 45 4E 54 2E 0D 2E 53 20 56 3D 50 0D 2E |B TENT...S V=P..|
00000770: 54 20 44 20 0D 2E 49 20 4D 57 28 39 29 3A 31 0D |T D ..I MW(9):1.|
00000780: 2E 42 20 54 53 41 4D 50 0D 2E 53 20 56 3D 50 0D |.B TSAMP..S V=P.|
00000790: 2E 54 20 44 20 0D 2E 49 20 4D 57 28 33 29 3A 31 |.T D ..I MW(3):1|
000007A0: 0D 2E 42 20 53 44 4C 42 47 0D 2E 53 20 56 3D 50 |..B SDLBG..S V=P|
000007B0: 0D 2E 54 20 44 20 0D 2E 42 20 4D 45 52 43 48 0D |..T D ..B MERCH.|
000007C0: 2E 53 20 56 3D 50 0D 2E 44 20 0D 2E 21 49 46 52 |.S V=P..D ..!IFR|
000007D0: 53 0D 40 20 20 20 20 0D |S.@ . |
.@.S N=2..S D=1..S F=4..I MN(3):1..E J +
2.!!!!!..S P=3-P..C 1,P,0..B NCAR1..S V=
P..D ..B NCAR2..S V=P..D ..B NCAR3..S V=
P..D .._ P..!CLRT..P ""GREETINGS! YOU LO
OK LIKE YOU NEED SOME..P " PROVISIONS. L
ET ME SHOW YOU MY WARES!"..F 3-P..$ P..!
MORE..P ""KIND SIR, WE HAVE THE MOST WON
DROUS..P " WORKINGS OF MAN AND BEAST . .
."..S TL(1)=2..S TL(3)=2..S TL(9)=2..S
TL(10)=2..S TL(11)=2..S TL(12)=2..!DRAW.
.S MN(4)=0..J +6.%LOSL.%AKSL.%AKPR.%BY..
..S MN(4)=1..3 ROOM 2.2 ..!GOTO.%AK....
P ""I AM BUT A SIMPLE MAN OF FAITH...P "
I KNOW NOTHING OF SUCH THINGS.".%BY01..
S A=163..!BUYO.%BY03..S A=10..!BUYO.%BY0
9..S A=2..!BUYO.%BY10..S A=1..!BUYO.%BY1
1..S A=1..!BUYO.%BY12..S A=25..!BUYO.%OF
....P ""I AM NOT A COMMON PEDDLER!..P "
MY PRICES ARE FIRM.".!LOOK.%LOCA..P "THE
MERCHANT STANDS NEAR THE ROAD...%LORD.%
LORD..P "THE ROAD GOES EAST AND WEST..%E
....%FW...%OU....!TXT1..3 ROOM 3.0 ..S
GE(9)=3..!TRAV.%W....%BK....!TXT1..3 ROO
M 1.1 ..!TRAV.%AT...!SHTX..P "A STARTLE
D GUARD SKEWERS YOU..P "ON HIS SCIMITAR.
..!DEAD.!TXT1..I GE(4):204..T J +3..P "Y
OU LEAVE THE TRADER COUNTING HIS GOLD..!
!!!!..P "THE MERCHANT LOOKS DISAPPOINTED
AS YOU..P "RETURN TO THE ROAD..!GTMW..I
MW(L):1..T P ""IT IS CUSTOMARY TO BUY T
HE ITEM BEFORE..T P " YOU TAKE IT.".!BUY
O..I MW(L):0..T P ""YOU HAVE BOUGHT ALL
THAT I CAN SPARE..T P " OF THAT ITEM."..
T J -4..I A>GE(4)..T P ""YOU'RE A LITTLE
SHORT. PERHAPS A LESS EXPENSIVE ITEM.
.."..T J -3..P ""A MOST EXCELLENT CHOICE
!"..P "MONEY AND GOODS CHANGE HANDS...S
GE(4)=GE(4)-A..S A=GE(0)+TW(L)..I A>15..
T J +4..S GE(0)=A..S TL(L)=255..S TC(L)=
0..S MW(L)=0..!DRAW.._ P..!CLRT..P ""A M
OST EXCELLENT CHOICE!"..P "MONEY AND GOO
DS CHANGE HANDS...F 3-P..$ P..T !MORE..T
P "YOUR ARMS ARE FULL. THE ITEM IS PLAC
ED..T P "AT YOUR FEET..!DRAW..!IFSV..S P
=3-P..C 1,P,0..I MW(1):1..B HORSE..S V=P
..T D ..I MW(10):1..B BUTTR..S V=P..T D
..I MW(11):1..B TEA....S V=P..T D ..I MW
(12):1..B TENT...S V=P..T D ..I MW(9):1.
.B TSAMP..S V=P..T D ..I MW(3):1..B SDLB
G..S V=P..T D ..B MERCH..S V=P..D ..!IFR
S.@ .
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL