ADVENTURE.LOGO
FILE INFORMATION
FILENAME(S): ADVENTURE.LOGO
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-02 16:30:34
APPEARS ON: 1 disk(s)
FILE HASH
df3aee2758ae49b194ad42074adfab62b4372b64b23e303a0f83b5c9f3f06a9a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NG USERS 11A | ADVENTURE.LOGO | PRG | Treasure Chest - OzzyC64 | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 47 41 4D 45 0D 20 4F 50 20 22 41 |. TO GAME. OP "A| 00000010: 44 56 53 41 56 45 0D 45 4E 44 0D 0D 54 4F 20 44 |DVSAVE.END..TO D| 00000020: 52 4F 50 41 4C 4C 0D 20 44 52 4F 50 41 4C 4C 49 |ROPALL. DROPALLI| 00000030: 54 45 4D 53 20 3A 49 54 45 4D 53 0D 45 4E 44 0D |TEMS :ITEMS.END.| 00000040: 0D 54 4F 20 47 45 54 41 4C 4C 0D 20 47 45 54 41 |.TO GETALL. GETA| 00000050: 4C 4C 49 54 45 4D 53 20 3A 49 54 45 4D 53 0D 45 |LLITEMS :ITEMS.E| 00000060: 4E 44 0D 0D 54 4F 20 53 0D 20 4D 4F 56 45 44 49 |ND..TO S. MOVEDI| 00000070: 52 20 33 0D 45 4E 44 0D 0D 54 4F 20 4E 0D 20 4D |R 3.END..TO N. M| 00000080: 4F 56 45 44 49 52 20 31 0D 45 4E 44 0D 0D 54 4F |OVEDIR 1.END..TO| 00000090: 20 49 54 45 4D 4C 4F 43 32 20 3A 49 54 45 4D 20 | ITEMLOC2 :ITEM | 000000A0: 3A 49 0D 20 49 46 20 3A 49 20 3D 20 5B 5D 20 4F |:I. IF :I = [] O| 000000B0: 50 20 30 0D 20 49 46 20 4C 41 53 54 20 46 49 52 |P 0. IF LAST FIR| 000000C0: 53 54 20 3A 49 20 3D 20 3A 49 54 45 4D 20 4F 50 |ST :I = :ITEM OP| 000000D0: 20 46 49 52 53 54 20 46 49 52 53 54 20 3A 49 0D | FIRST FIRST :I.| 000000E0: 20 4F 50 20 49 54 45 4D 4C 4F 43 32 20 3A 49 54 | OP ITEMLOC2 :IT| 000000F0: 45 4D 20 42 46 20 3A 49 0D 45 4E 44 0D 0D 54 4F |EM BF :I.END..TO| 00000100: 20 50 55 54 49 54 45 4D 32 20 3A 49 54 45 4D 20 | PUTITEM2 :ITEM | 00000110: 3A 4C 4F 43 20 3A 4C 49 53 54 0D 20 49 46 20 3A |:LOC :LIST. IF :| 00000120: 4C 49 53 54 20 3D 20 5B 5D 20 4F 50 20 5B 5D 0D |LIST = [] OP [].| 00000130: 20 49 46 20 4C 41 53 54 20 46 49 52 53 54 20 3A | IF LAST FIRST :| 00000140: 4C 49 53 54 20 3D 20 3A 49 54 45 4D 20 4F 50 20 |LIST = :ITEM OP | 00000150: 46 50 55 54 20 46 50 55 54 20 3A 4C 4F 43 20 42 |FPUT FPUT :LOC B| 00000160: 46 20 46 49 52 53 54 20 3A 4C 49 53 54 20 42 46 |F FIRST :LIST BF| 00000170: 20 3A 4C 49 53 54 0D 20 4F 50 20 46 50 55 54 20 | :LIST. OP FPUT | 00000180: 46 49 52 53 54 20 3A 4C 49 53 54 20 50 55 54 49 |FIRST :LIST PUTI| 00000190: 54 45 4D 32 20 3A 49 54 45 4D 20 3A 4C 4F 43 20 |TEM2 :ITEM :LOC | 000001A0: 42 46 20 3A 4C 49 53 54 0D 45 4E 44 0D 0D 54 4F |BF :LIST.END..TO| 000001B0: 20 44 52 4F 50 41 4C 4C 49 54 45 4D 53 20 3A 49 | DROPALLITEMS :I| 000001C0: 0D 20 49 46 20 3A 49 20 3D 20 5B 5D 20 43 4D 44 |. IF :I = [] CMD| 000001D0: 0D 20 54 45 53 54 20 49 54 45 4D 4C 4F 43 20 4C |. TEST ITEMLOC L| 000001E0: 41 53 54 20 46 49 52 53 54 20 3A 49 20 3D 20 28 |AST FIRST :I = (| 000001F0: 20 2D 20 31 20 29 0D 20 49 46 54 20 50 55 54 49 | - 1 ). IFT PUTI| 00000200: 54 45 4D 20 4C 41 53 54 20 46 49 52 53 54 20 3A |TEM LAST FIRST :| 00000210: 49 20 3A 52 4E 55 4D 0D 20 49 46 54 20 50 52 20 |I :RNUM. IFT PR | 00000220: 53 45 20 4C 41 53 54 20 46 49 52 53 54 20 3A 49 |SE LAST FIRST :I| 00000230: 20 22 44 52 4F 50 50 45 44 2E 0D 20 44 52 4F 50 | "DROPPED.. DROP| 00000240: 41 4C 4C 49 54 45 4D 53 20 42 46 20 3A 49 0D 45 |ALLITEMS BF :I.E| 00000250: 4E 44 0D 0D 54 4F 20 53 45 54 49 54 20 3A 54 48 |ND..TO SETIT :TH| 00000260: 49 4E 47 0D 20 4D 41 4B 45 20 22 49 54 20 3A 54 |ING. MAKE "IT :T| 00000270: 48 49 4E 47 0D 20 4F 50 20 3A 54 48 49 4E 47 0D |HING. OP :THING.| 00000280: 45 4E 44 0D 0D 54 4F 20 50 49 54 45 4D 53 32 20 |END..TO PITEMS2 | 00000290: 3A 4C 4F 43 20 3A 49 0D 20 49 46 20 3A 49 20 3D |:LOC :I. IF :I =| 000002A0: 20 5B 5D 20 53 54 4F 50 0D 20 49 46 20 46 49 52 | [] STOP. IF FIR| 000002B0: 53 54 20 46 49 52 53 54 20 3A 49 20 3D 20 3A 4C |ST FIRST :I = :L| 000002C0: 4F 43 20 50 52 49 4E 54 20 4C 41 53 54 20 46 49 |OC PRINT LAST FI| 000002D0: 52 53 54 20 3A 49 0D 20 50 49 54 45 4D 53 32 20 |RST :I. PITEMS2 | 000002E0: 3A 4C 4F 43 20 42 46 20 3A 49 0D 45 4E 44 0D 0D |:LOC BF :I.END..| 000002F0: 54 4F 20 45 0D 20 4D 4F 56 45 44 49 52 20 32 0D |TO E. MOVEDIR 2.| 00000300: 45 4E 44 0D 0D 54 4F 20 49 4E 49 54 49 54 45 4D |END..TO INITITEM| 00000310: 53 20 3A 49 20 3A 46 0D 20 49 46 20 3A 49 20 3D |S :I :F. IF :I =| 00000320: 20 5B 5D 20 53 54 4F 50 0D 20 54 45 53 54 20 3A | [] STOP. TEST :| 00000330: 46 20 3D 20 31 0D 20 49 46 54 20 44 45 46 49 4E |F = 1. IFT DEFIN| 00000340: 45 20 4C 41 53 54 20 46 49 52 53 54 20 3A 49 20 |E LAST FIRST :I | 00000350: 4C 50 55 54 20 4C 50 55 54 20 57 4F 52 44 20 22 |LPUT LPUT WORD "| 00000360: 22 20 4C 41 53 54 20 46 49 52 53 54 20 3A 49 20 |" LAST FIRST :I | 00000370: 5B 4F 50 20 53 45 54 49 54 5D 20 5B 5B 5D 5D 0D |[OP SETIT] [[]].| 00000380: 20 49 46 46 20 44 45 46 49 4E 45 20 4C 41 53 54 | IFF DEFINE LAST| 00000390: 20 46 49 52 53 54 20 3A 49 20 5B 5D 0D 20 49 4E | FIRST :I []. IN| 000003A0: 49 54 49 54 45 4D 53 20 42 46 20 3A 49 20 3A 46 |ITITEMS BF :I :F| 000003B0: 0D 45 4E 44 0D 0D 54 4F 20 49 4E 49 54 0D 20 4D |.END..TO INIT. M| 000003C0: 41 4B 45 20 22 49 54 45 4D 53 20 5B 5B 31 20 30 |AKE "ITEMS [[1 0| 000003D0: 20 53 57 4F 52 44 5D 20 5B 31 20 30 20 48 41 54 | SWORD] [1 0 HAT| 000003E0: 43 48 45 54 5D 20 5B 31 20 30 20 53 48 49 45 4C |CHET] [1 0 SHIEL| 000003F0: 44 5D 20 5B 32 20 31 30 30 20 47 4F 4C 44 5D 20 |D] [2 100 GOLD] | 00000400: 5B 32 20 31 30 30 20 44 49 41 4D 4F 4E 44 5D 20 |[2 100 DIAMOND] | 00000410: 5B 32 20 35 30 20 41 4D 55 4C 45 54 5D 20 5B 33 |[2 50 AMULET] [3| 00000420: 20 30 20 53 43 52 45 57 44 52 49 56 45 52 5D 20 | 0 SCREWDRIVER] | 00000430: 5B 34 20 30 20 4D 41 43 48 49 4E 45 5D 20 5B 30 |[4 0 MACHINE] [0| 00000440: 20 31 30 30 20 57 41 4E 44 5D 20 5B 35 20 32 30 | 100 WAND] [5 20| 00000450: 30 20 43 52 4F 57 4E 5D 5D 0D 20 4D 41 4B 45 20 |0 CROWN]]. MAKE | 00000460: 22 52 4D 4F 56 45 53 20 5B 5B 30 20 32 20 33 20 |"RMOVES [[0 2 3 | 00000470: 30 5D 20 5B 30 20 30 20 34 20 31 5D 20 5B 31 20 |0] [0 0 4 1] [1 | 00000480: 34 20 30 20 30 5D 20 5B 32 20 30 20 30 20 33 5D |4 0 0] [2 0 0 3]| 00000490: 20 5B 30 20 30 20 30 20 30 5D 5D 0D 20 4D 41 4B | [0 0 0 0]]. MAK| 000004A0: 45 20 22 52 4E 41 4D 45 53 20 5B 5B 59 4F 55 20 |E "RNAMES [[YOU | 000004B0: 41 52 45 20 49 4E 20 54 48 45 20 57 45 41 50 4F |ARE IN THE WEAPO| 000004C0: 4E 20 53 48 4F 50 2E 5D 20 5B 54 48 49 53 20 49 |N SHOP.] [THIS I| 000004D0: 53 20 54 48 45 20 56 41 55 4C 54 2E 5D 20 5B 54 |S THE VAULT.] [T| 000004E0: 48 49 53 20 52 4F 4F 4D 20 49 53 20 54 48 45 20 |HIS ROOM IS THE | 000004F0: 54 4F 4F 4C 53 48 45 44 2E 5D 20 5B 54 48 49 53 |TOOLSHED.] [THIS| 00000500: 20 49 53 20 54 48 45 20 41 4C 54 41 52 20 52 4F | IS THE ALTAR RO| 00000510: 4F 4D 2E 5D 20 5B 59 4F 55 20 41 52 45 20 49 4E |OM.] [YOU ARE IN| 00000520: 20 41 20 53 45 43 52 45 54 20 49 4E 43 41 4E 54 | A SECRET INCANT| 00000530: 49 4E 47 20 52 4F 4F 4D 2E 5D 5D 0D 20 4D 41 4B |ING ROOM.]]. MAK| 00000540: 45 20 22 52 4E 55 4D 20 31 0D 20 49 4E 49 54 49 |E "RNUM 1. INITI| 00000550: 54 45 4D 53 20 3A 49 54 45 4D 53 20 31 0D 45 4E |TEMS :ITEMS 1.EN| 00000560: 44 0D 0D 54 4F 20 54 41 4B 45 20 3A 54 48 49 4E |D..TO TAKE :THIN| 00000570: 47 0D 20 47 45 54 20 3A 54 48 49 4E 47 0D 45 4E |G. GET :THING.EN| 00000580: 44 0D 0D 54 4F 20 50 55 54 49 54 45 4D 20 3A 49 |D..TO PUTITEM :I| 00000590: 54 45 4D 20 3A 4C 4F 43 0D 20 4D 41 4B 45 20 22 |TEM :LOC. MAKE "| 000005A0: 49 54 45 4D 53 20 50 55 54 49 54 45 4D 32 20 3A |ITEMS PUTITEM2 :| 000005B0: 49 54 45 4D 20 3A 4C 4F 43 20 3A 49 54 45 4D 53 |ITEM :LOC :ITEMS| 000005C0: 0D 45 4E 44 0D 0D 54 4F 20 53 45 45 4E 4F 20 3A |.END..TO SEENO :| 000005D0: 49 0D 20 50 52 20 53 45 20 5B 49 20 53 45 45 20 |I. PR SE [I SEE | 000005E0: 4E 4F 5D 20 53 45 20 3A 49 20 22 48 45 52 45 21 |NO] SE :I "HERE!| 000005F0: 0D 20 43 4D 44 0D 45 4E 44 0D 0D 54 4F 20 47 45 |. CMD.END..TO GE| 00000600: 54 41 4C 4C 49 54 45 4D 53 20 3A 49 0D 20 49 46 |TALLITEMS :I. IF| 00000610: 20 3A 49 20 3D 20 5B 5D 20 43 4D 44 0D 20 54 45 | :I = [] CMD. TE| 00000620: 53 54 20 3A 52 4E 55 4D 20 3D 20 49 54 45 4D 4C |ST :RNUM = ITEML| 00000630: 4F 43 20 4C 41 53 54 20 46 49 52 53 54 20 3A 49 |OC LAST FIRST :I| 00000640: 0D 20 49 46 54 20 50 55 54 49 54 45 4D 20 4C 41 |. IFT PUTITEM LA| 00000650: 53 54 20 46 49 52 53 54 20 3A 49 20 28 20 2D 20 |ST FIRST :I ( - | 00000660: 31 20 29 0D 20 49 46 54 20 50 52 20 53 45 20 4C |1 ). IFT PR SE L| 00000670: 41 53 54 20 46 49 52 53 54 20 3A 49 20 22 54 41 |AST FIRST :I "TA| 00000680: 4B 45 4E 2E 0D 20 47 45 54 41 4C 4C 49 54 45 4D |KEN.. GETALLITEM| 00000690: 53 20 42 46 20 3A 49 0D 45 4E 44 0D 0D 54 4F 20 |S BF :I.END..TO | 000006A0: 45 56 45 52 59 54 48 49 4E 47 0D 20 4F 50 20 22 |EVERYTHING. OP "| 000006B0: 45 56 45 52 59 54 48 49 4E 47 0D 45 4E 44 0D 0D |EVERYTHING.END..| 000006C0: 54 4F 20 49 48 41 56 45 3F 20 3A 49 54 45 4D 0D |TO IHAVE? :ITEM.| 000006D0: 20 4F 50 20 2D 20 31 20 3D 20 49 54 45 4D 4C 4F | OP - 1 = ITEMLO| 000006E0: 43 20 3A 49 54 45 4D 0D 45 4E 44 0D 0D 54 4F 20 |C :ITEM.END..TO | 000006F0: 57 41 56 45 20 3A 49 54 45 4D 0D 20 49 46 20 4E |WAVE :ITEM. IF N| 00000700: 4F 54 20 49 48 41 56 45 3F 20 3A 49 54 45 4D 20 |OT IHAVE? :ITEM | 00000710: 50 52 20 53 45 20 5B 59 4F 55 20 41 52 45 20 48 |PR SE [YOU ARE H| 00000720: 4F 4C 44 49 4E 47 20 4E 4F 5D 20 50 45 52 49 4F |OLDING NO] PERIO| 00000730: 44 20 3A 49 54 45 4D 20 43 4D 44 0D 20 49 46 20 |D :ITEM CMD. IF | 00000740: 4E 4F 54 20 3A 49 54 45 4D 20 3D 20 22 57 41 4E |NOT :ITEM = "WAN| 00000750: 44 20 4E 4F 54 48 49 4E 47 0D 20 49 46 20 41 4C |D NOTHING. IF AL| 00000760: 4C 4F 46 20 4E 4F 54 20 3A 52 4E 55 4D 20 3D 20 |LOF NOT :RNUM = | 00000770: 34 20 4E 4F 54 20 3A 52 4E 55 4D 20 3D 20 35 20 |4 NOT :RNUM = 5 | 00000780: 50 52 20 5B 4E 4F 54 48 49 4E 47 20 48 41 50 50 |PR [NOTHING HAPP| 00000790: 45 4E 53 2E 5D 20 43 4D 44 0D 20 50 52 20 5B 50 |ENS.] CMD. PR [P| 000007A0: 4F 4F 46 21 20 54 48 45 20 53 43 45 4E 45 20 43 |OOF! THE SCENE C| 000007B0: 48 41 4E 47 45 53 21 5D 0D 20 49 46 20 3A 52 4E |HANGES!]. IF :RN| 000007C0: 55 4D 20 3D 20 34 20 4D 41 4B 45 20 22 52 4E 55 |UM = 4 MAKE "RNU| 000007D0: 4D 20 35 20 45 4C 53 45 20 4D 41 4B 45 20 22 52 |M 5 ELSE MAKE "R| 000007E0: 4E 55 4D 20 34 0D 20 4C 4F 4F 4B 0D 45 4E 44 0D |NUM 4. LOOK.END.| 000007F0: 0D 54 4F 20 46 49 58 20 3A 49 54 45 4D 0D 20 49 |.TO FIX :ITEM. I| 00000800: 46 20 49 48 41 56 45 3F 20 3A 49 54 45 4D 20 50 |F IHAVE? :ITEM P| 00000810: 52 20 5B 59 4F 55 20 48 41 56 45 20 54 4F 20 44 |R [YOU HAVE TO D| 00000820: 52 4F 50 20 49 54 20 54 4F 20 46 49 58 20 49 54 |ROP IT TO FIX IT| 00000830: 21 5D 20 43 4D 44 0D 20 49 46 20 4E 4F 54 20 48 |!] CMD. IF NOT H| 00000840: 45 52 45 3F 20 3A 49 54 45 4D 20 53 45 45 4E 4F |ERE? :ITEM SEENO| 00000850: 20 3A 49 54 45 4D 0D 20 49 46 20 4E 4F 54 20 3A | :ITEM. IF NOT :| 00000860: 49 54 45 4D 20 3D 20 22 4D 41 43 48 49 4E 45 20 |ITEM = "MACHINE | 00000870: 50 52 20 5B 59 4F 55 20 43 41 4E 27 54 20 46 49 |PR [YOU CAN'T FI| 00000880: 58 20 54 48 41 54 21 5D 20 43 4D 44 0D 20 49 46 |X THAT!] CMD. IF| 00000890: 20 4E 4F 54 20 49 54 45 4D 4C 4F 43 20 22 57 41 | NOT ITEMLOC "WA| 000008A0: 4E 44 20 3D 20 30 20 50 52 20 5B 54 48 45 20 4D |ND = 0 PR [THE M| 000008B0: 41 43 48 49 4E 45 20 49 53 20 4E 4F 54 20 42 52 |ACHINE IS NOT BR| 000008C0: 4F 4B 45 4E 21 5D 20 43 4D 44 0D 20 49 46 20 4E |OKEN!] CMD. IF N| 000008D0: 4F 54 20 49 48 41 56 45 3F 20 22 53 43 52 45 57 |OT IHAVE? "SCREW| 000008E0: 44 52 49 56 45 52 20 50 52 20 5B 59 4F 55 20 44 |DRIVER PR [YOU D| 000008F0: 4F 4E 27 54 20 48 41 56 45 20 54 48 45 20 50 52 |ON'T HAVE THE PR| 00000900: 50 50 45 52 20 54 4F 4F 4C 53 20 54 4F 5D 20 50 |PPER TOOLS TO] P| 00000910: 52 20 5B 46 49 58 20 49 54 5D 20 43 4D 44 0D 20 |R [FIX IT] CMD. | 00000920: 50 52 20 5B 59 4F 55 20 46 49 58 20 54 48 45 20 |PR [YOU FIX THE | 00000930: 4D 41 43 48 49 4E 45 20 57 49 54 48 20 59 4F 55 |MACHINE WITH YOU| 00000940: 52 20 54 52 55 53 54 59 5D 0D 20 50 52 20 5B 53 |R TRUSTY]. PR [S| 00000950: 43 52 45 57 44 52 49 56 45 52 2E 20 55 50 4F 4E |CREWDRIVER. UPON| 00000960: 20 42 45 49 4E 47 20 46 49 58 45 44 2C 20 54 48 | BEING FIXED, TH| 00000970: 45 5D 0D 20 50 52 20 5B 4D 41 43 48 49 4E 45 20 |E]. PR [MACHINE | 00000980: 53 54 41 52 54 53 20 55 50 20 41 4E 44 20 50 52 |STARTS UP AND PR| 00000990: 4F 44 55 43 45 53 20 41 20 57 41 4E 44 21 5D 0D |ODUCES A WAND!].| 000009A0: 20 50 55 54 49 54 45 4D 20 22 57 41 4E 44 20 34 | PUTITEM "WAND 4| 000009B0: 0D 20 43 4D 44 0D 45 4E 44 0D 0D 54 4F 20 49 54 |. CMD.END..TO IT| 000009C0: 45 4D 4C 4F 43 20 3A 49 54 45 4D 0D 20 4F 50 20 |EMLOC :ITEM. OP | 000009D0: 49 54 45 4D 4C 4F 43 32 20 3A 49 54 45 4D 20 3A |ITEMLOC2 :ITEM :| 000009E0: 49 54 45 4D 53 0D 45 4E 44 0D 0D 54 4F 20 50 45 |ITEMS.END..TO PE| 000009F0: 52 49 4F 44 20 3A 57 4F 52 44 0D 20 4F 50 20 57 |RIOD :WORD. OP W| 00000A00: 4F 52 44 20 3A 57 4F 52 44 20 22 2E 0D 45 4E 44 |ORD :WORD "..END| 00000A10: 0D 0D 54 4F 20 49 54 0D 20 4F 50 20 3A 49 54 0D |..TO IT. OP :IT.| 00000A20: 45 4E 44 0D 0D 54 4F 20 48 45 52 45 3F 20 3A 49 |END..TO HERE? :I| 00000A30: 54 45 4D 0D 20 4C 4F 43 41 4C 20 22 4C 4F 43 0D |TEM. LOCAL "LOC.| 00000A40: 20 4D 41 4B 45 20 22 4C 4F 43 20 49 54 45 4D 4C | MAKE "LOC ITEML| 00000A50: 4F 43 20 3A 49 54 45 4D 0D 20 4F 50 20 41 4E 59 |OC :ITEM. OP ANY| 00000A60: 4F 46 20 2D 20 31 20 3D 20 3A 4C 4F 43 20 3A 52 |OF - 1 = :LOC :R| 00000A70: 4E 55 4D 20 3D 20 3A 4C 4F 43 0D 45 4E 44 0D 0D |NUM = :LOC.END..| 00000A80: 54 4F 20 50 49 54 45 4D 53 20 3A 4C 4F 43 0D 20 |TO PITEMS :LOC. | 00000A90: 50 49 54 45 4D 53 32 20 3A 4C 4F 43 20 3A 49 54 |PITEMS2 :LOC :IT| 00000AA0: 45 4D 53 0D 45 4E 44 0D 0D 54 4F 20 4D 4F 56 45 |EMS.END..TO MOVE| 00000AB0: 44 49 52 20 3A 44 49 52 0D 20 4D 41 4B 45 20 22 |DIR :DIR. MAKE "| 00000AC0: 54 52 59 4D 4F 56 45 20 49 54 45 4D 20 3A 44 49 |TRYMOVE ITEM :DI| 00000AD0: 52 20 49 54 45 4D 20 3A 52 4E 55 4D 20 3A 52 4D |R ITEM :RNUM :RM| 00000AE0: 4F 56 45 53 0D 20 54 45 53 54 20 3A 54 52 59 4D |OVES. TEST :TRYM| 00000AF0: 4F 56 45 20 3D 20 30 0D 20 49 46 54 20 50 52 20 |OVE = 0. IFT PR | 00000B00: 5B 59 4F 55 20 43 41 4E 27 54 20 47 4F 20 54 48 |[YOU CAN'T GO TH| 00000B10: 41 54 20 57 41 59 2E 5D 0D 20 49 46 54 20 43 4D |AT WAY.]. IFT CM| 00000B20: 44 0D 20 50 52 20 22 4F 4B 2E 0D 20 4D 41 4B 45 |D. PR "OK.. MAKE| 00000B30: 20 22 52 4E 55 4D 20 3A 54 52 59 4D 4F 56 45 0D | "RNUM :TRYMOVE.| 00000B40: 20 4C 4F 4F 4B 0D 45 4E 44 0D 0D 54 4F 20 45 58 | LOOK.END..TO EX| 00000B50: 41 4D 49 4E 45 20 3A 49 54 45 4D 0D 20 49 46 20 |AMINE :ITEM. IF | 00000B60: 4E 4F 54 20 48 45 52 45 3F 20 3A 49 54 45 4D 20 |NOT HERE? :ITEM | 00000B70: 28 20 50 52 20 5B 49 20 53 45 45 20 4E 4F 5D 20 |( PR [I SEE NO] | 00000B80: 3A 49 54 45 4D 20 5B 48 45 52 45 21 5D 20 29 20 |:ITEM [HERE!] ) | 00000B90: 43 4D 44 0D 20 49 46 20 3A 49 54 45 4D 20 3D 20 |CMD. IF :ITEM = | 00000BA0: 22 57 41 4E 44 20 50 52 20 5B 49 54 20 42 45 41 |"WAND PR [IT BEA| 00000BB0: 52 53 20 41 20 46 41 44 45 44 20 49 4E 53 43 52 |RS A FADED INSCR| 00000BC0: 49 50 54 49 4F 4E 3A 5D 20 50 52 20 5B 22 3F 3F |IPTION:] PR ["??| 00000BD0: 56 45 20 4D 45 20 41 4E 44 20 59 4F 55 27 4C 4C |VE ME AND YOU'LL| 00000BE0: 20 42 45 20 47 4C 41 44 2E 22 5D 20 43 4D 44 0D | BE GLAD."] CMD.| 00000BF0: 20 49 46 20 4E 4F 54 20 3A 49 54 45 4D 20 3D 20 | IF NOT :ITEM = | 00000C00: 22 4D 41 43 48 49 4E 45 20 50 52 20 53 45 20 5B |"MACHINE PR SE [| 00000C10: 49 20 53 45 45 20 4E 4F 54 48 49 4E 47 20 53 50 |I SEE NOTHING SP| 00000C20: 45 43 49 41 4C 20 41 42 4F 55 54 20 54 48 45 5D |ECIAL ABOUT THE]| 00000C30: 20 50 45 52 49 4F 44 20 3A 49 54 45 4D 20 43 4D | PERIOD :ITEM CM| 00000C40: 44 0D 20 49 46 20 4E 4F 54 20 30 20 3D 20 49 54 |D. IF NOT 0 = IT| 00000C50: 45 4D 4C 4F 43 20 22 57 41 4E 44 20 50 52 20 5B |EMLOC "WAND PR [| 00000C60: 49 54 20 53 45 45 4D 53 20 54 4F 20 42 45 41 52 |IT SEEMS TO BEAR| 00000C70: 20 54 48 45 20 4D 41 52 4B 53 20 4F 46 20 41 20 | THE MARKS OF A | 00000C80: 48 41 53 54 59 5D 20 50 52 20 5B 52 45 50 41 49 |HASTY] PR [REPAI| 00000C90: 52 20 4A 4F 42 2E 5D 20 43 4D 44 0D 20 50 52 20 |R JOB.] CMD. PR | 00000CA0: 5B 49 54 20 49 53 20 42 52 4F 4B 45 4E 21 20 59 |[IT IS BROKEN! Y| 00000CB0: 4F 55 20 43 4F 55 4C 44 20 46 49 58 20 49 54 20 |OU COULD FIX IT | 00000CC0: 57 49 54 48 5D 0D 20 50 52 20 5B 54 48 45 20 52 |WITH]. PR [THE R| 00000CD0: 49 47 48 54 20 54 4F 4F 4C 2E 5D 0D 20 43 4D 44 |IGHT TOOL.]. CMD| 00000CE0: 0D 45 4E 44 0D 0D 54 4F 20 49 4E 56 45 4E 54 0D |.END..TO INVENT.| 00000CF0: 20 50 49 54 45 4D 53 20 2D 20 31 0D 20 43 4D 44 | PITEMS - 1. CMD| 00000D00: 0D 45 4E 44 0D 0D 54 4F 20 44 52 4F 50 20 3A 49 |.END..TO DROP :I| 00000D10: 54 45 4D 0D 20 54 45 53 54 20 3A 49 54 45 4D 20 |TEM. TEST :ITEM | 00000D20: 3D 20 22 45 56 45 52 59 54 48 49 4E 47 0D 20 49 |= "EVERYTHING. I| 00000D30: 46 54 20 44 52 4F 50 41 4C 4C 49 54 45 4D 53 20 |FT DROPALLITEMS | 00000D40: 3A 49 54 45 4D 53 0D 20 49 46 20 4E 4F 54 20 49 |:ITEMS. IF NOT I| 00000D50: 48 41 56 45 3F 20 3A 49 54 45 4D 20 50 52 20 53 |HAVE? :ITEM PR S| 00000D60: 45 20 5B 59 4F 55 27 52 45 20 4E 4F 54 20 43 41 |E [YOU'RE NOT CA| 00000D70: 52 59 49 4E 47 20 54 48 45 5D 20 57 4F 52 44 20 |RYING THE] WORD | 00000D80: 3A 49 54 45 4D 20 22 21 20 43 4D 44 0D 20 50 55 |:ITEM "! CMD. PU| 00000D90: 54 49 54 45 4D 20 3A 49 54 45 4D 20 3A 52 4E 55 |TITEM :ITEM :RNU| 00000DA0: 4D 20 50 52 20 53 45 20 3A 49 54 45 4D 20 22 44 |M PR SE :ITEM "D| 00000DB0: 52 4F 50 50 45 44 2E 0D 20 43 4D 44 0D 45 4E 44 |ROPPED.. CMD.END| 00000DC0: 0D 0D 54 4F 20 47 45 54 20 3A 49 54 45 4D 0D 20 |..TO GET :ITEM. | 00000DD0: 54 45 53 54 20 3A 49 54 45 4D 20 3D 20 22 45 56 |TEST :ITEM = "EV| 00000DE0: 45 52 59 54 48 49 4E 47 0D 20 49 46 54 20 47 45 |ERYTHING. IFT GE| 00000DF0: 54 41 4C 4C 49 54 45 4D 53 20 3A 49 54 45 4D 53 |TALLITEMS :ITEMS| 00000E00: 0D 20 49 46 20 49 48 41 56 45 3F 20 3A 49 54 45 |. IF IHAVE? :ITE| 00000E10: 4D 20 28 20 50 52 20 5B 59 4F 55 20 41 4C 52 45 |M ( PR [YOU ALRE| 00000E20: 41 44 59 20 48 41 56 45 5D 20 50 45 52 49 4F 44 |ADY HAVE] PERIOD| 00000E30: 20 3A 49 54 45 4D 20 29 20 43 4D 44 0D 20 49 46 | :ITEM ) CMD. IF| 00000E40: 20 4E 4F 54 20 48 45 52 45 3F 20 3A 49 54 45 4D | NOT HERE? :ITEM| 00000E50: 20 53 45 45 4E 4F 20 3A 49 54 45 4D 0D 20 50 55 | SEENO :ITEM. PU| 00000E60: 54 49 54 45 4D 20 3A 49 54 45 4D 20 28 20 2D 20 |TITEM :ITEM ( - | 00000E70: 31 20 29 0D 20 50 52 20 53 45 20 3A 49 54 45 4D |1 ). PR SE :ITEM| 00000E80: 20 22 54 41 4B 45 4E 2E 0D 20 43 4D 44 0D 45 4E | "TAKEN.. CMD.EN| 00000E90: 44 0D 0D 54 4F 20 4C 4F 4F 4B 0D 20 50 52 20 49 |D..TO LOOK. PR I| 00000EA0: 54 45 4D 20 3A 52 4E 55 4D 20 3A 52 4E 41 4D 45 |TEM :RNUM :RNAME| 00000EB0: 53 0D 20 50 49 54 45 4D 53 20 3A 52 4E 55 4D 0D |S. PITEMS :RNUM.| 00000EC0: 20 43 4D 44 0D 45 4E 44 0D 0D 54 4F 20 57 0D 20 | CMD.END..TO W. | 00000ED0: 4D 4F 56 45 44 49 52 20 34 0D 45 4E 44 0D 0D 54 |MOVEDIR 4.END..T| 00000EE0: 4F 20 48 45 4C 50 0D 20 50 52 20 5B 54 4F 20 4D |O HELP. PR [TO M| 00000EF0: 4F 56 45 2C 20 54 59 50 45 5D 0D 20 50 52 20 5B |OVE, TYPE]. PR [| 00000F00: 4E 2C 20 45 2C 20 53 2C 20 57 5D 0D 20 50 52 20 |N, E, S, W]. PR | 00000F10: 5B 46 4F 52 20 4E 4F 52 54 48 2C 20 53 4F 55 54 |[FOR NORTH, SOUT| 00000F20: 48 2C 20 45 41 53 54 2C 20 57 45 53 54 5D 0D 20 |H, EAST, WEST]. | 00000F30: 50 52 20 5B 5D 0D 20 50 52 20 5B 54 59 50 45 20 |PR []. PR [TYPE | 00000F40: 4C 4F 4F 4B 20 54 4F 20 53 45 45 20 57 48 41 54 |LOOK TO SEE WHAT| 00000F50: 20 52 4F 4F 4D 20 59 4F 55 5D 0D 20 50 52 20 5B | ROOM YOU]. PR [| 00000F60: 41 52 45 20 49 4E 2E 20 59 4F 55 20 43 41 4E 20 |ARE IN. YOU CAN | 00000F70: 47 45 54 20 41 4E 44 20 44 52 4F 50 20 49 54 45 |GET AND DROP ITE| 00000F80: 4D 53 2E 5D 0D 20 50 52 20 5B 49 4E 56 45 4E 54 |MS.]. PR [INVENT| 00000F90: 20 53 48 4F 57 53 20 59 4F 55 52 20 49 4E 56 45 | SHOWS YOUR INVE| 00000FA0: 4E 54 4F 52 59 2E 5D 0D 20 50 52 20 5B 54 48 45 |NTORY.]. PR [THE| 00000FB0: 20 57 4F 52 44 20 22 49 54 22 20 4D 45 41 4E 53 | WORD "IT" MEANS| 00000FC0: 20 54 48 45 20 4C 41 53 54 20 54 48 49 4E 47 20 | THE LAST THING | 00000FD0: 59 4F 55 5D 0D 20 50 52 20 5B 52 45 46 45 52 52 |YOU]. PR [REFERR| 00000FE0: 45 44 20 54 4F 2E 5D 0D 20 50 52 20 5B 5D 0D 20 |ED TO.]. PR []. | 00000FF0: 50 52 20 5B 54 48 45 52 45 20 41 52 45 20 53 4F |PR [THERE ARE SO| 00001000: 4D 45 20 53 50 45 43 49 41 4C 20 54 48 49 4E 47 |ME SPECIAL THING| 00001010: 53 20 59 4F 55 20 43 41 4E 5D 0D 20 50 52 20 5B |S YOU CAN]. PR [| 00001020: 44 4F 2C 20 4C 49 4B 45 20 53 41 59 49 4E 47 20 |DO, LIKE SAYING | 00001030: 45 58 41 4D 49 4E 45 20 53 4F 4D 45 54 48 49 4E |EXAMINE SOMETHIN| 00001040: 47 2E 5D 0D 20 50 52 20 5B 5D 0D 20 50 52 20 5B |G.]. PR []. PR [| 00001050: 54 59 50 45 20 53 43 4F 52 45 20 54 4F 20 53 45 |TYPE SCORE TO SE| 00001060: 45 20 59 4F 55 52 20 53 43 4F 52 45 2C 20 41 4E |E YOUR SCORE, AN| 00001070: 44 5D 0D 20 50 52 20 5B 44 4F 4E 45 20 54 4F 20 |D]. PR [DONE TO | 00001080: 51 55 49 54 2E 5D 0D 20 50 52 20 5B 47 4F 4F 44 |QUIT.]. PR [GOOD| 00001090: 20 4C 55 43 4B 21 5D 0D 20 43 4D 44 0D 45 4E 44 | LUCK!]. CMD.END| 000010A0: 0D 0D 54 4F 20 43 4D 44 0D 20 50 52 20 5B 5D 0D |..TO CMD. PR [].| 000010B0: 20 50 52 49 4E 54 31 20 22 43 4F 4D 4D 41 4E 44 | PRINT1 "COMMAND| 000010C0: 0D 20 54 4F 50 4C 45 56 45 4C 0D 45 4E 44 0D 0D |. TOPLEVEL.END..| 000010D0: 54 4F 20 53 43 4F 52 45 0D 20 50 52 20 28 20 53 |TO SCORE. PR ( S| 000010E0: 45 20 5B 59 4F 55 52 20 53 43 4F 52 45 20 49 53 |E [YOUR SCORE IS| 000010F0: 5D 20 53 43 4F 52 45 32 20 3A 49 54 45 4D 53 20 |] SCORE2 :ITEMS | 00001100: 5B 50 4F 49 4E 54 53 2E 5D 20 29 0D 20 43 4D 44 |[POINTS.] ). CMD| 00001110: 0D 45 4E 44 0D 0D 54 4F 20 4E 4F 54 48 49 4E 47 |.END..TO NOTHING| 00001120: 0D 20 50 52 20 5B 4E 4F 54 48 49 4E 47 20 48 41 |. PR [NOTHING HA| 00001130: 50 50 45 4E 53 2E 5D 0D 20 43 4D 44 0D 45 4E 44 |PPENS.]. CMD.END| 00001140: 0D 0D 54 4F 20 44 4F 4E 45 0D 20 49 46 20 4E 4F |..TO DONE. IF NO| 00001150: 54 20 3A 52 4E 55 4D 20 3D 20 35 20 4E 4F 54 48 |T :RNUM = 5 NOTH| 00001160: 49 4E 47 0D 20 4C 4F 43 41 4C 20 22 53 43 4F 52 |ING. LOCAL "SCOR| 00001170: 45 20 4D 41 4B 45 20 22 53 43 4F 52 45 20 53 43 |E MAKE "SCORE SC| 00001180: 4F 52 45 32 20 3A 49 54 45 4D 53 0D 20 49 46 20 |ORE2 :ITEMS. IF | 00001190: 3A 53 43 4F 52 45 20 3D 20 30 20 4E 4F 54 48 49 |:SCORE = 0 NOTHI| 000011A0: 4E 47 0D 20 50 52 20 53 45 20 5B 59 4F 55 52 20 |NG. PR SE [YOUR | 000011B0: 53 43 4F 52 45 20 49 53 5D 20 3A 53 43 4F 52 45 |SCORE IS] :SCORE| 000011C0: 0D 20 49 46 20 3A 53 43 4F 52 45 20 3D 20 35 35 |. IF :SCORE = 55| 000011D0: 30 20 50 52 20 5B 50 45 52 46 45 43 54 21 5D 20 |0 PR [PERFECT!] | 000011E0: 45 4C 53 45 20 50 52 49 4E 54 20 5B 54 48 45 52 |ELSE PRINT [THER| 000011F0: 45 27 53 20 4D 4F 52 45 20 54 52 45 41 53 55 52 |E'S MORE TREASUR| 00001200: 45 2C 20 54 48 4F 55 47 48 2E 5D 20 44 4F 4E 45 |E, THOUGH.] DONE| 00001210: 0D 45 4E 44 0D 0D 54 4F 20 53 43 4F 52 45 32 20 |.END..TO SCORE2 | 00001220: 3A 4C 49 53 54 0D 20 49 46 20 3A 4C 49 53 54 20 |:LIST. IF :LIST | 00001230: 3D 20 5B 5D 20 4F 50 20 30 0D 20 49 46 20 4E 4F |= [] OP 0. IF NO| 00001240: 54 20 46 49 52 53 54 20 46 49 52 53 54 20 3A 4C |T FIRST FIRST :L| 00001250: 49 53 54 20 3D 20 2D 20 31 20 4F 50 20 53 43 4F |IST = - 1 OP SCO| 00001260: 52 45 32 20 42 46 20 3A 4C 49 53 54 0D 20 4F 50 |RE2 BF :LIST. OP| 00001270: 20 28 20 49 54 45 4D 20 32 20 46 49 52 53 54 20 | ( ITEM 2 FIRST | 00001280: 3A 4C 49 53 54 20 29 20 2B 20 53 43 4F 52 45 32 |:LIST ) + SCORE2| 00001290: 20 42 46 20 3A 4C 49 53 54 0D 45 4E 44 0D 0D 54 | BF :LIST.END..T| 000012A0: 4F 20 41 44 56 45 4E 54 55 52 45 0D 20 4E 4F 44 |O ADVENTURE. NOD| 000012B0: 52 41 57 0D 20 50 52 20 5B 57 45 4C 43 4F 4D 45 |RAW. PR [WELCOME| 000012C0: 20 54 4F 20 4C 4F 47 4F 20 41 44 56 45 4E 54 55 | TO LOGO ADVENTU| 000012D0: 52 45 5D 0D 20 50 52 20 5B 57 52 49 54 54 45 4E |RE]. PR [WRITTEN| 000012E0: 20 42 59 20 44 4F 4E 20 48 4F 50 4B 49 4E 53 5D | BY DON HOPKINS]| 000012F0: 0D 20 50 52 20 5B 5D 0D 20 50 52 20 5B 54 59 50 |. PR []. PR [TYP| 00001300: 45 20 48 45 4C 50 20 46 4F 52 20 48 45 4C 50 5D |E HELP FOR HELP]| 00001310: 0D 20 50 52 20 5B 5D 0D 20 49 4E 49 54 0D 20 4C |. PR []. INIT. L| 00001320: 4F 4F 4B 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 53 |OOK.END..MAKE "S| 00001330: 54 41 52 54 55 50 20 5B 41 44 56 45 4E 54 55 52 |TARTUP [ADVENTUR| 00001340: 45 5D 0D 01 00 00 |E].... |
. TO GAME. OP "ADVSAVE.END..TO DROPALL. DROPALLITEMS :ITEMS.END..TO GETALL. GETA LLITEMS :ITEMS.END..TO S. MOVEDIR 3.END. .TO N. MOVEDIR 1.END..TO ITEMLOC2 :ITEM :I. IF :I = [] OP 0. IF LAST FIRST :I = :ITEM OP FIRST FIRST :I. OP ITEMLOC2 :IT EM BF :I.END..TO PUTITEM2 :ITEM :LOC :LI ST. IF :LIST = [] OP []. IF LAST FIRST : LIST = :ITEM OP FPUT FPUT :LOC BF FIRST :LIST BF :LIST. OP FPUT FIRST :LIST PUTI TEM2 :ITEM :LOC BF :LIST.END..TO DROPALL ITEMS :I. IF :I = [] CMD. TEST ITEMLOC L AST FIRST :I = ( - 1 ). IFT PUTITEM LAST FIRST :I :RNUM. IFT PR SE LAST FIRST :I "DROPPED.. DROPALLITEMS BF :I.END..TO S ETIT :THING. MAKE "IT :THING. OP :THING. END..TO PITEMS2 :LOC :I. IF :I = [] STOP . IF FIRST FIRST :I = :LOC PRINT LAST FI RST :I. PITEMS2 :LOC BF :I.END..TO E. MO VEDIR 2.END..TO INITITEMS :I :F. IF :I = [] STOP. TEST :F = 1. IFT DEFINE LAST F IRST :I LPUT LPUT WORD "" LAST FIRST :I [OP SETIT] [[]]. IFF DEFINE LAST FIRST : I []. INITITEMS BF :I :F.END..TO INIT. M AKE "ITEMS [[1 0 SWORD] [1 0 HATCHET] [1 0 SHIELD] [2 100 GOLD] [2 100 DIAMOND] [2 50 AMULET] [3 0 SCREWDRIVER] [4 0 MAC HINE] [0 100 WAND] [5 200 CROWN]]. MAKE "RMOVES [[0 2 3 0] [0 0 4 1] [1 4 0 0] [ 2 0 0 3] [0 0 0 0]]. MAKE "RNAMES [[YOU ARE IN THE WEAPON SHOP.] [THIS IS THE VA ULT.] [THIS ROOM IS THE TOOLSHED.] [THIS IS THE ALTAR ROOM.] [YOU ARE IN A SECRE T INCANTING ROOM.]]. MAKE "RNUM 1. INITI TEMS :ITEMS 1.END..TO TAKE :THING. GET : THING.END..TO PUTITEM :ITEM :LOC. MAKE " ITEMS PUTITEM2 :ITEM :LOC :ITEMS.END..TO SEENO :I. PR SE [I SEE NO] SE :I "HERE! . CMD.END..TO GETALLITEMS :I. IF :I = [] CMD. TEST :RNUM = ITEMLOC LAST FIRST :I . IFT PUTITEM LAST FIRST :I ( - 1 ). IFT PR SE LAST FIRST :I "TAKEN.. GETALLITEM S BF :I.END..TO EVERYTHING. OP "EVERYTHI NG.END..TO IHAVE? :ITEM. OP - 1 = ITEMLO C :ITEM.END..TO WAVE :ITEM. IF NOT IHAVE ? :ITEM PR SE [YOU ARE HOLDING NO] PERIO D :ITEM CMD. IF NOT :ITEM = "WAND NOTHIN G. IF ALLOF NOT :RNUM = 4 NOT :RNUM = 5 PR [NOTHING HAPPENS.] CMD. PR [POOF! THE SCENE CHANGES!]. IF :RNUM = 4 MAKE "RNU M 5 ELSE MAKE "RNUM 4. LOOK.END..TO FIX :ITEM. IF IHAVE? :ITEM PR [YOU HAVE TO D ROP IT TO FIX IT!] CMD. IF NOT HERE? :IT EM SEENO :ITEM. IF NOT :ITEM = "MACHINE PR [YOU CAN'T FIX THAT!] CMD. IF NOT ITE MLOC "WAND = 0 PR [THE MACHINE IS NOT BR OKEN!] CMD. IF NOT IHAVE? "SCREWDRIVER P R [YOU DON'T HAVE THE PRPPER TOOLS TO] P R [FIX IT] CMD. PR [YOU FIX THE MACHINE WITH YOUR TRUSTY]. PR [SCREWDRIVER. UPON BEING FIXED, THE]. PR [MACHINE STARTS U P AND PRODUCES A WAND!]. PUTITEM "WAND 4 . CMD.END..TO ITEMLOC :ITEM. OP ITEMLOC2 :ITEM :ITEMS.END..TO PERIOD :WORD. OP W ORD :WORD "..END..TO IT. OP :IT.END..TO HERE? :ITEM. LOCAL "LOC. MAKE "LOC ITEML OC :ITEM. OP ANYOF - 1 = :LOC :RNUM = :L OC.END..TO PITEMS :LOC. PITEMS2 :LOC :IT EMS.END..TO MOVEDIR :DIR. MAKE "TRYMOVE ITEM :DIR ITEM :RNUM :RMOVES. TEST :TRYM OVE = 0. IFT PR [YOU CAN'T GO THAT WAY.] . IFT CMD. PR "OK.. MAKE "RNUM :TRYMOVE. LOOK.END..TO EXAMINE :ITEM. IF NOT HERE ? :ITEM ( PR [I SEE NO] :ITEM [HERE!] ) CMD. IF :ITEM = "WAND PR [IT BEARS A FAD ED INSCRIPTION:] PR ["??VE ME AND YOU'LL BE GLAD."] CMD. IF NOT :ITEM = "MACHINE PR SE [I SEE NOTHING SPECIAL ABOUT THE] PERIOD :ITEM CMD. IF NOT 0 = ITEMLOC "W AND PR [IT SEEMS TO BEAR THE MARKS OF A HASTY] PR [REPAIR JOB.] CMD. PR [IT IS B ROKEN! YOU COULD FIX IT WITH]. PR [THE R IGHT TOOL.]. CMD.END..TO INVENT. PITEMS - 1. CMD.END..TO DROP :ITEM. TEST :ITEM = "EVERYTHING. IFT DROPALLITEMS :ITEMS. IF NOT IHAVE? :ITEM PR SE [YOU'RE NOT CA RYING THE] WORD :ITEM "! CMD. PUTITEM :I TEM :RNUM PR SE :ITEM "DROPPED.. CMD.END ..TO GET :ITEM. TEST :ITEM = "EVERYTHING . IFT GETALLITEMS :ITEMS. IF IHAVE? :ITE M ( PR [YOU ALREADY HAVE] PERIOD :ITEM ) CMD. IF NOT HERE? :ITEM SEENO :ITEM. PU TITEM :ITEM ( - 1 ). PR SE :ITEM "TAKEN. . CMD.END..TO LOOK. PR ITEM :RNUM :RNAME S. PITEMS :RNUM. CMD.END..TO W. MOVEDIR 4.END..TO HELP. PR [TO MOVE, TYPE]. PR [ N, E, S, W]. PR [FOR NORTH, SOUTH, EAST, WEST]. PR []. PR [TYPE LOOK TO SEE WHAT ROOM YOU]. PR [ARE IN. YOU CAN GET AND DROP ITEMS.]. PR [INVENT SHOWS YOUR INVE NTORY.]. PR [THE WORD "IT" MEANS THE LAS T THING YOU]. PR [REFERRED TO.]. PR []. PR [THERE ARE SOME SPECIAL THINGS YOU CA N]. PR [DO, LIKE SAYING EXAMINE SOMETHIN G.]. PR []. PR [TYPE SCORE TO SEE YOUR S CORE, AND]. PR [DONE TO QUIT.]. PR [GOOD LUCK!]. CMD.END..TO CMD. PR []. PRINT1 "COMMAND. TOPLEVEL.END..TO SCORE. PR ( S E [YOUR SCORE IS] SCORE2 :ITEMS [POINTS. ] ). CMD.END..TO NOTHING. PR [NOTHING HA PPENS.]. CMD.END..TO DONE. IF NOT :RNUM = 5 NOTHING. LOCAL "SCORE MAKE "SCORE SC ORE2 :ITEMS. IF :SCORE = 0 NOTHING. PR S E [YOUR SCORE IS] :SCORE. IF :SCORE = 55 0 PR [PERFECT!] ELSE PRINT [THERE'S MORE TREASURE, THOUGH.] DONE.END..TO SCORE2 :LIST. IF :LIST = [] OP 0. IF NOT FIRST FIRST :LIST = - 1 OP SCORE2 BF :LIST. OP ( ITEM 2 FIRST :LIST ) + SCORE2 BF :LIS T.END..TO ADVENTURE. NODRAW. PR [WELCOME TO LOGO ADVENTURE]. PR [WRITTEN BY DON HOPKINS]. PR []. PR [TYPE HELP FOR HELP] . PR []. INIT. LOOK.END..MAKE "STARTUP [ ADVENTURE]....
> CLICK IMAGE PREVIEW FOR FULL MODAL