POGO V7
FILE INFORMATION
FILENAME(S): POGO V7
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-10-20 14:30:17
APPEARS ON: 1 disk(s)
FILE HASH
87c198c77d142f4c29a1814c85c1b03e07c410baac0bc7d188c9dd98a0446fcd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | POGO V7 | PRG | Treasure Chest - Klaus Der Suhler | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1F 04 0A 00 8F 20 50 4F 47 4F 20 2D 20 4C |....... POGO - L| 00000010: 4F 47 4F 20 46 4F 52 20 54 48 45 20 50 45 54 00 |OGO FOR THE PET.| 00000020: 3A 04 14 00 8F 20 43 45 4E 54 45 52 42 52 4F 4F |:.... CENTERBROO| 00000030: 4B 20 53 4F 46 54 57 41 52 45 00 40 04 1E 00 3A |K SOFTWARE.@...:| 00000040: 00 53 04 28 00 99 22 93 22 3A 97 35 39 34 36 38 |.S.(..".":.59468| 00000050: 2C 31 32 00 77 04 32 00 44 24 B2 22 13 11 11 11 |,12.w.2.D$."....| 00000060: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000070: 11 11 11 11 11 11 22 00 9C 04 3C 00 48 50 B2 33 |......"...<.HP.3| 00000080: 33 32 36 38 3A 50 50 B2 48 50 3A 50 44 B2 31 3A |3268:PP.HP:PD.1:| 00000090: 50 54 B2 31 36 30 3A 43 48 B2 33 32 00 A7 04 46 |PT.160:CH.32...F| 000000A0: 00 97 50 50 2C 38 31 00 C5 04 50 00 50 43 24 B2 |..PP,81...P.PC$.| 000000B0: 22 46 52 4C 45 4D 43 53 58 4E 57 3F 21 51 50 3E |"FRLEMCSXNW?!QP>| 000000C0: 3C 40 48 3D 22 00 CF 04 5A 00 8D 37 30 30 30 00 |<@H="...Z..7000.| 000000D0: 10 05 64 00 86 53 24 28 31 30 30 29 2C 4D 24 28 |..d..S$(100),M$(| 000000E0: 32 30 29 3A 45 24 B2 22 13 20 20 20 20 20 20 20 |20):E$.". | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000110: 00 16 05 6E 00 3A 00 25 05 78 00 99 45 24 3A 44 |...n.:.%.x..E$:D| 00000120: 43 24 B2 22 22 00 64 05 82 00 99 22 12 53 54 45 |C$."".d....".STE| 00000130: 50 3D 22 53 4E 22 4D 41 43 52 4F 3D 22 4E 4D 22 |P="SN"MACRO="NM"| 00000140: 53 54 4F 52 45 3D 22 53 46 22 44 49 52 3D 20 22 |STORE="SF"DIR= "| 00000150: 3B 3A 8B 50 44 B2 31 A7 99 22 45 41 53 54 92 20 |;:.PD.1.."EAST. | 00000160: 20 20 20 22 00 7C 05 8C 00 8B 50 44 B2 AB 31 A7 | ".|....PD..1.| 00000170: 99 22 57 45 53 54 92 20 20 20 20 22 00 94 05 96 |."WEST. "....| 00000180: 00 8B 50 44 B2 AB 34 30 A7 99 22 4E 4F 52 54 48 |..PD..40.."NORTH| 00000190: 92 20 20 22 00 AB 05 A0 00 8B 50 44 B2 34 30 A7 |. "......PD.40.| 000001A0: 99 22 53 4F 55 54 48 92 20 20 22 00 C3 05 AA 00 |."SOUTH. ".....| 000001B0: 8B 50 44 B2 AB 33 39 A7 99 22 4E 27 45 41 53 54 |.PD..39.."N'EAST| 000001C0: 92 20 22 00 DB 05 B4 00 8B 50 44 B2 AB 34 31 A7 |. "......PD..41.| 000001D0: 99 22 4E 27 57 45 53 54 92 20 22 00 F2 05 BE 00 |."N'WEST. ".....| 000001E0: 8B 50 44 B2 34 31 A7 99 22 53 27 45 41 53 54 92 |.PD.41.."S'EAST.| 000001F0: 20 22 00 09 06 C8 00 8B 50 44 B2 33 39 A7 99 22 | "......PD.39.."| 00000200: 53 27 57 45 53 54 92 20 22 00 23 06 D2 00 85 22 |S'WEST. ".#...."| 00000210: 13 43 4D 44 22 3B 43 44 24 3A 8D 32 32 30 3A 89 |.CMD";CD$:.220:.| 00000220: 31 32 30 00 4C 06 DC 00 81 49 B2 31 A4 C3 28 50 |120.L....I.1..(P| 00000230: 43 24 29 3A 8B C8 28 43 44 24 2C 31 29 B2 CA 28 |C$):..(CD$,1)..(| 00000240: 50 43 24 2C 49 2C 31 29 A7 32 34 30 00 5D 06 E6 |PC$,I,1).240.]..| 00000250: 00 82 3A 8B 43 44 24 B2 22 2A 22 A7 80 00 63 06 |..:.CD$."*"...c.| 00000260: EB 00 8E 00 9E 06 F0 00 91 49 8D 31 30 30 30 2C |.........I.1000,| 00000270: 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 |2000,3000,4000,5| 00000280: 30 30 30 2C 36 30 30 30 2C 38 30 30 30 2C 39 30 |000,6000,8000,90| 00000290: 30 30 2C 31 30 30 30 30 2C 31 31 30 30 30 00 AC |00,10000,11000..| 000002A0: 06 FA 00 8B 49 B3 31 31 A7 32 37 30 00 EB 06 04 |....I.11.270....| 000002B0: 01 91 49 AB 31 30 8D 31 32 30 30 30 2C 31 32 35 |..I.10.12000,125| 000002C0: 30 30 2C 31 33 30 30 30 2C 31 33 35 30 30 2C 31 |00,13000,13500,1| 000002D0: 34 30 30 30 2C 31 34 31 30 30 2C 31 35 30 30 30 |4000,14100,15000| 000002E0: 2C 36 30 31 35 2C 31 34 35 30 30 00 19 07 0E 01 |,6015,14500.....| 000002F0: 8B 53 46 B2 30 B0 44 43 24 B2 22 58 22 B0 43 44 |.SF.0.DC$."X".CD| 00000300: 24 B2 22 3E 22 B0 43 44 24 B2 22 3C 22 B0 43 44 |$.">".CD$."<".CD| 00000310: 24 B2 22 40 22 A7 33 31 30 00 59 07 18 01 8B 43 |$."@".310.Y....C| 00000320: 44 24 B2 22 22 B0 43 44 24 B2 22 53 22 B0 43 44 |D$."".CD$."S".CD| 00000330: 24 B2 22 58 22 B0 43 44 24 B2 22 4E 22 B0 43 44 |$."X".CD$."N".CD| 00000340: 24 B2 22 51 22 B0 43 44 24 B2 22 50 22 B0 43 44 |$."Q".CD$."P".CD| 00000350: 24 B2 22 3F 22 A7 33 31 30 00 8F 07 22 01 8B 53 |$."?".310..."..S| 00000360: 4E B2 39 A7 99 22 13 11 20 20 20 20 20 20 20 20 |N.9..".. | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00000390: A6 07 2C 01 53 4E B2 53 4E AA 31 3A 53 24 28 53 |..,.SN.SN.1:S$(S| 000003A0: 4E 29 B2 43 44 24 00 AC 07 36 01 8E 00 B2 07 40 |N).CD$...6.....@| 000003B0: 01 3A 00 C0 07 E8 03 8F 20 46 4F 52 57 41 52 44 |.:...... FORWARD| 000003C0: 00 D2 07 F2 03 44 B2 C5 28 CA 28 43 44 24 2C 32 |.....D..(.(CD$,2| 000003D0: 29 29 00 DE 07 FC 03 81 5A 49 B2 31 A4 44 00 EE |))......ZI.1.D..| 000003E0: 07 01 04 43 48 B2 C2 28 50 50 AA 50 44 29 00 04 |...CH..(PP.PD)..| 000003F0: 08 06 04 8B C2 28 50 50 AA 50 44 29 B2 39 36 A7 |.....(PP.PD).96.| 00000400: 31 30 39 30 00 11 08 10 04 50 50 B2 50 50 AA 50 |1090.....PP.PP.P| 00000410: 44 00 1C 08 1A 04 97 50 50 2C 38 31 00 2A 08 2E |D......PP,81.*..| 00000420: 04 97 50 50 AB 50 44 2C 50 54 00 32 08 38 04 82 |..PP.PD,PT.2.8..| 00000430: 5A 49 00 38 08 42 04 8E 00 3E 08 4C 04 3A 00 4F |ZI.8.B...>.L.:.O| 00000440: 08 D0 07 8F 20 52 49 47 48 54 20 54 55 52 4E 00 |.... RIGHT TURN.| 00000450: 61 08 D5 07 54 B2 C5 28 CA 28 43 44 24 2C 32 29 |a...T..(.(CD$,2)| 00000460: 29 00 6D 08 D6 07 81 5A 49 B2 31 A4 54 00 83 08 |).m....ZI.1.T...| 00000470: DA 07 8B 50 44 B2 31 A7 50 44 B2 34 31 3A 89 32 |...PD.1.PD.41:.2| 00000480: 30 35 30 00 9A 08 DF 07 8B 50 44 B2 34 31 A7 50 |050......PD.41.P| 00000490: 44 B2 34 30 3A 89 32 30 35 30 00 B1 08 E4 07 8B |D.40:.2050......| 000004A0: 50 44 B2 34 30 A7 50 44 B2 33 39 3A 89 32 30 35 |PD.40.PD.39:.205| 000004B0: 30 00 C8 08 E9 07 8B 50 44 B2 33 39 A7 50 44 B2 |0......PD.39.PD.| 000004C0: AB 31 3A 89 32 30 35 30 00 E0 08 F0 07 8B 50 44 |.1:.2050......PD| 000004D0: B2 AB 31 A7 50 44 B2 AB 34 31 3A 89 32 30 35 30 |..1.PD..41:.2050| 000004E0: 00 F9 08 F2 07 8B 50 44 B2 AB 34 31 A7 50 44 B2 |......PD..41.PD.| 000004F0: AB 34 30 3A 89 32 30 35 30 00 12 09 F4 07 8B 50 |.40:.2050......P| 00000500: 44 B2 AB 34 30 A7 50 44 B2 AB 33 39 3A 89 32 30 |D..40.PD..39:.20| 00000510: 35 30 00 23 09 F8 07 8B 50 44 B2 AB 33 39 A7 50 |50.#....PD..39.P| 00000520: 44 B2 31 00 2B 09 02 08 82 5A 49 00 31 09 34 08 |D.1.+....ZI.1.4.| 00000530: 8E 00 37 09 3E 08 3A 00 47 09 B8 0B 8F 20 4C 45 |..7.>.:.G.... LE| 00000540: 46 54 20 54 55 52 4E 00 59 09 BD 0B 54 B2 C5 28 |FT TURN.Y...T..(| 00000550: CA 28 43 44 24 2C 32 29 29 00 65 09 BE 0B 81 5A |.(CD$,2)).e....Z| 00000560: 49 B2 31 A4 54 00 7C 09 C2 0B 8B 50 44 B2 31 A7 |I.1.T.|....PD.1.| 00000570: 50 44 B2 AB 33 39 3A 89 33 30 35 30 00 95 09 C7 |PD..39:.3050....| 00000580: 0B 8B 50 44 B2 AB 33 39 A7 50 44 B2 AB 34 30 3A |..PD..39.PD..40:| 00000590: 89 33 30 35 30 00 AC 09 CC 0B 8B 50 44 B2 34 30 |.3050......PD.40| 000005A0: A7 50 44 B2 34 31 3A 89 33 30 35 30 00 C2 09 D1 |.PD.41:.3050....| 000005B0: 0B 8B 50 44 B2 34 31 A7 50 44 B2 31 3A 89 33 30 |..PD.41.PD.1:.30| 000005C0: 35 30 00 D9 09 D6 0B 8B 50 44 B2 AB 31 A7 50 44 |50......PD..1.PD| 000005D0: B2 33 39 3A 89 33 30 35 30 00 F0 09 DB 0B 8B 50 |.39:.3050......P| 000005E0: 44 B2 33 39 A7 50 44 B2 34 30 3A 89 33 30 35 30 |D.39.PD.40:.3050| 000005F0: 00 08 0A E0 0B 8B 50 44 B2 AB 34 31 A7 50 44 B2 |......PD..41.PD.| 00000600: AB 31 3A 89 33 30 35 30 00 1B 0A E5 0B 8B 50 44 |.1:.3050......PD| 00000610: B2 AB 34 30 A7 50 44 B2 AB 34 31 00 23 0A EA 0B |..40.PD..41.#...| 00000620: 82 5A 49 00 29 0A 1C 0C 8E 00 2F 0A 26 0C 3A 00 |.ZI.)...../.&.:.| 00000630: 3B 0A A0 0F 8F 20 45 52 41 53 45 00 45 0A AA 0F |;.... ERASE.E...| 00000640: 50 54 B2 33 32 00 57 0A B4 0F 44 B2 C5 28 CA 28 |PT.32.W...D..(.(| 00000650: 43 44 24 2C 32 29 29 00 63 0A BE 0F 81 5A 49 B2 |CD$,2)).c....ZI.| 00000660: 31 A4 44 00 73 0A C3 0F 43 48 B2 C2 28 50 50 AA |1.D.s...CH..(PP.| 00000670: 50 44 29 00 89 0A C8 0F 8B C2 28 50 50 AA 50 44 |PD).......(PP.PD| 00000680: 29 B2 39 36 A7 34 30 39 30 00 96 0A D2 0F 50 50 |).96.4090.....PP| 00000690: B2 50 50 AA 50 44 00 A1 0A DC 0F 97 50 50 2C 38 |.PP.PD......PP,8| 000006A0: 31 00 AF 0A E6 0F 97 50 50 AB 50 44 2C 50 54 00 |1......PP.PD,PT.| 000006B0: B7 0A F0 0F 82 5A 49 00 C4 0A FA 0F 50 54 B2 31 |.....ZI.....PT.1| 000006C0: 36 30 3A 8E 00 CA 0A 04 10 3A 00 D5 0A 88 13 8F |60:......:......| 000006D0: 20 4D 4F 56 45 00 E7 0A 92 13 44 B2 C5 28 CA 28 | MOVE.....D..(.(| 000006E0: 43 44 24 2C 32 29 29 00 F3 0A 9C 13 81 5A 49 B2 |CD$,2))......ZI.| 000006F0: 31 A4 44 00 09 0B A1 13 8B C2 28 50 50 AA 50 44 |1.D.......(PP.PD| 00000700: 29 B2 39 36 A7 35 30 38 35 00 14 0B A6 13 97 50 |).96.5085......P| 00000710: 50 2C 43 48 00 21 0B B0 13 50 50 B2 50 50 AA 50 |P,CH.!...PP.PP.P| 00000720: 44 00 2E 0B B5 13 43 48 B2 C2 28 50 50 29 00 39 |D.....CH..(PP).9| 00000730: 0B BA 13 97 50 50 2C 38 31 00 41 0B D8 13 82 5A |....PP,81.A....Z| 00000740: 49 00 4C 0B DD 13 50 54 B2 31 36 30 00 52 0B E2 |I.L...PT.160.R..| 00000750: 13 8E 00 58 0B EC 13 3A 00 64 0B 70 17 8F 20 43 |...X...:.d.p.. C| 00000760: 4C 45 41 52 00 79 0B 7A 17 99 22 93 22 3A 8D 37 |LEAR.y.z..".":.7| 00000770: 30 30 30 3A 89 36 30 32 30 00 85 0B 7F 17 97 50 |000:.6020......P| 00000780: 50 2C 31 36 30 00 9E 0B 84 17 50 50 B2 33 33 32 |P,160.....PP.332| 00000790: 36 38 3A 50 54 B2 31 36 30 3A 50 44 B2 31 00 AB |68:PT.160:PD.1..| 000007A0: 0B 8E 17 97 50 50 2C 38 31 3A 8E 00 B1 0B 98 17 |....PP,81:......| 000007B0: 3A 00 BE 0B 58 1B 8F 20 42 4F 52 44 45 52 00 DB |:...X.. BORDER..| 000007C0: 0B 5D 1B 81 5A 49 B2 33 32 38 34 38 A4 33 32 38 |.]..ZI.32848.328| 000007D0: 38 37 3A 97 5A 49 2C 39 36 3A 82 00 FB 0B 62 1B |87:.ZI,96:....b.| 000007E0: 81 5A 49 B2 33 32 38 38 37 A4 33 33 37 36 37 A9 |.ZI.32887.33767.| 000007F0: 34 30 3A 97 5A 49 2C 39 36 3A 82 00 1B 0C 6C 1B |40:.ZI,96:....l.| 00000800: 81 5A 49 B2 33 33 37 36 37 A4 33 33 37 32 38 A9 |.ZI.33767.33728.| 00000810: AB 31 3A 97 5A 49 2C 39 36 3A 82 00 3C 0C 76 1B |.1:.ZI,96:..<.v.| 00000820: 81 5A 49 B2 33 33 37 32 38 A4 33 32 38 34 38 A9 |.ZI.33728.32848.| 00000830: AB 34 30 3A 97 5A 49 2C 39 36 3A 82 00 42 0C 80 |.40:.ZI,96:..B..| 00000840: 1B 8E 00 48 0C 8A 1B 3A 00 56 0C 40 1F 8F 20 53 |...H...:.V.@.. S| 00000850: 54 4F 52 41 47 45 00 67 0C 4A 1F 8B 53 46 B2 30 |TORAGE.g.J..SF.0| 00000860: A7 53 46 B2 31 3A 8E 00 78 0C 54 1F 8B 53 46 B2 |.SF.1:..x.T..SF.| 00000870: 31 A7 53 46 B2 30 3A 8E 00 7E 0C 5E 1F 3A 00 94 |1.SF.0:..~.^.:..| 00000880: 0C 28 23 8F 20 45 58 45 43 55 54 45 20 50 52 4F |.(#. EXECUTE PRO| 00000890: 47 52 41 4D 00 B4 0C 3C 23 46 46 B2 53 46 3A 44 |GRAM...<#FF.SF:D| 000008A0: 43 24 B2 22 58 22 3A 53 46 B2 30 3A 81 45 49 B2 |C$."X":SF.0:.EI.| 000008B0: 31 A4 53 4E 00 C8 0C 46 23 43 44 24 B2 53 24 28 |1.SN...F#CD$.S$(| 000008C0: 45 49 29 3A 8D 32 32 30 00 D8 0C 50 23 82 45 49 |EI):.220...P#.EI| 000008D0: 3A 53 46 B2 46 46 3A 8E 00 DE 0C 5A 23 3A 00 F0 |:SF.FF:....Z#:..| 000008E0: 0C 10 27 8F 20 4E 45 57 20 50 52 4F 47 52 41 4D |..'. NEW PROGRAM| 000008F0: 00 0F 0D 1A 27 85 22 13 41 52 45 20 59 4F 55 20 |....'.".ARE YOU | 00000900: 53 55 52 45 20 28 59 2F 4E 29 22 3B 53 50 24 00 |SURE (Y/N)";SP$.| 00000910: 22 0D 24 27 8B 53 50 24 B2 22 4E 22 A7 99 45 24 |".$'.SP$."N"..E$| 00000920: 3A 8E 00 4A 0D 2E 27 85 22 13 43 4C 45 41 52 20 |:..J..'.".CLEAR | 00000930: 50 52 47 20 53 54 45 50 53 20 20 20 20 20 20 9D |PRG STEPS .| 00000940: 9D 9D 9D 9D 9D 22 3B 53 50 24 00 71 0D 38 27 8B |.....";SP$.q.8'.| 00000950: 53 50 24 B2 22 59 22 A7 81 5A 49 B2 31 A4 53 4E |SP$."Y"..ZI.1.SN| 00000960: 3A 53 24 28 5A 49 29 B2 22 22 3A 82 3A 53 4E B2 |:S$(ZI)."":.:SN.| 00000970: 30 00 9A 0D 42 27 85 22 13 43 4C 45 41 52 20 41 |0...B'.".CLEAR A| 00000980: 4C 4C 20 4D 41 43 52 4F 53 20 20 20 20 20 20 9D |LL MACROS .| 00000990: 9D 9D 9D 9D 9D 22 3B 53 50 24 00 C1 0D 4C 27 8B |.....";SP$...L'.| 000009A0: 53 50 24 B2 22 59 22 A7 81 5A 49 B2 31 A4 4E 4D |SP$."Y"..ZI.1.NM| 000009B0: 3A 4D 24 28 5A 49 29 B2 22 22 3A 82 3A 4E 4D B2 |:M$(ZI)."":.:NM.| 000009C0: 30 00 CD 0D 56 27 8D 36 30 30 30 3A 8E 00 D3 0D |0...V'.6000:....| 000009D0: 60 27 3A 00 DE 0D F8 2A 8F 20 57 41 49 54 00 F0 |`':....*. WAIT..| 000009E0: 0D 02 2B 57 B2 C5 28 CA 28 43 44 24 2C 32 29 29 |..+W..(.(CD$,2))| 000009F0: 00 04 0E 0C 2B 81 57 57 B2 31 A4 57 AC 31 30 30 |....+.WW.1.W.100| 00000A00: 3A 82 3A 8E 00 0A 0E 16 2B 3A 00 1D 0E E0 2E 8F |:.:.....+:......| 00000A10: 20 44 45 46 49 4E 45 20 4D 41 43 52 4F 00 29 0E | DEFINE MACRO.).| 00000A20: EA 2E 4E 4D B2 4E 4D AA 31 00 3A 0E F4 2E 81 5A |..NM.NM.1.:....Z| 00000A30: 49 B2 33 A4 C3 28 43 44 24 29 00 4D 0E FE 2E 4C |I.3..(CD$).M...L| 00000A40: 24 B2 CA 28 43 44 24 2C 5A 49 2C 31 29 00 5F 0E |$..(CD$,ZI,1)._.| 00000A50: 08 2F 8B 4C 24 B2 22 20 22 A7 31 32 31 30 30 00 |./.L$." ".12100.| 00000A60: 75 0E 12 2F 54 43 24 B2 54 43 24 AA 4C 24 3A 89 |u../TC$.TC$.L$:.| 00000A70: 31 32 32 30 30 00 8F 0E 44 2F 8B C3 28 54 43 24 |12200...D/..(TC$| 00000A80: 29 B2 31 A7 54 43 24 B2 54 43 24 AA 22 31 22 00 |).1.TC$.TC$."1".| 00000A90: B7 0E 46 2F 8B C3 28 54 43 24 29 B3 33 A7 54 43 |..F/..(TC$).3.TC| 00000AA0: 24 B2 C8 28 54 43 24 2C 31 29 AA 22 30 22 AA C9 |$..(TC$,1)."0"..| 00000AB0: 28 54 43 24 2C 31 29 00 CD 0E 49 2F 4D 24 28 4E |(TC$,1)...I/M$(N| 00000AC0: 4D 29 B2 4D 24 28 4E 4D 29 AA 54 43 24 00 D8 0E |M).M$(NM).TC$...| 00000AD0: 4E 2F 54 43 24 B2 22 22 00 E0 0E A8 2F 82 5A 49 |N/TC$.""..../.ZI| 00000AE0: 00 FA 0E AA 2F 8B C3 28 54 43 24 29 B2 31 A7 54 |..../..(TC$).1.T| 00000AF0: 43 24 B2 54 43 24 AA 22 31 22 00 22 0F AB 2F 8B |C$.TC$."1"."../.| 00000B00: C3 28 54 43 24 29 B3 33 A7 54 43 24 B2 C8 28 54 |.(TC$).3.TC$..(T| 00000B10: 43 24 2C 31 29 AA 22 30 22 AA C9 28 54 43 24 2C |C$,1)."0"..(TC$,| 00000B20: 31 29 00 40 0F AD 2F 4D 24 28 4E 4D 29 B2 4D 24 |1).@../M$(NM).M$| 00000B30: 28 4E 4D 29 AA 54 43 24 3A 43 44 24 B2 22 3F 22 |(NM).TC$:CD$."?"| 00000B40: 00 4D 0F BC 2F 54 43 24 B2 22 22 3A 8E 00 53 0F |.M../TC$."":..S.| 00000B50: C6 2F 3A 00 67 0F D4 30 8F 20 45 58 45 43 55 54 |./:.g..0. EXECUT| 00000B60: 45 20 4D 41 43 52 4F 00 79 0F DE 30 43 43 24 B2 |E MACRO.y..0CC$.| 00000B70: 43 44 24 3A 46 53 B2 53 46 00 8E 0F E8 30 4D 45 |CD$:FS.SF....0ME| 00000B80: B2 C5 28 CA 28 43 43 24 2C 32 2C 31 29 29 00 BF |..(.(CC$,2,1))..| 00000B90: 0F ED 30 8B 53 46 B2 31 A7 53 4E B2 53 4E AA 31 |..0.SF.1.SN.SN.1| 00000BA0: 3A 53 24 28 53 4E 29 B2 22 21 22 AA C9 28 C4 28 |:S$(SN)."!"..(.(| 00000BB0: 4D 45 29 2C C3 28 C4 28 4D 45 29 29 AB 31 29 00 |ME),.(.(ME)).1).| 00000BC0: DA 0F F2 30 53 46 B2 30 3A 81 45 4A B2 31 A4 C3 |...0SF.0:.EJ.1..| 00000BD0: 28 4D 24 28 4D 45 29 29 A9 33 00 F6 0F FC 30 43 |(M$(ME)).3....0C| 00000BE0: 44 24 B2 CA 28 4D 24 28 4D 45 29 2C 45 4A 2C 33 |D$..(M$(ME),EJ,3| 00000BF0: 29 3A 8D 32 32 30 00 04 10 06 31 82 45 4A 3A 53 |):.220....1.EJ:S| 00000C00: 46 B2 46 53 00 11 10 10 31 43 44 24 B2 22 22 3A |F.FS....1CD$."":| 00000C10: 8E 00 17 10 1A 31 3A 00 24 10 C8 32 8F 20 53 54 |.....1:.$..2. ST| 00000C20: 41 54 55 53 00 2E 10 D2 32 99 22 13 22 3B 00 3F |ATUS....2.".";.?| 00000C30: 10 E7 32 8B 53 4E B3 B1 30 A7 31 33 30 34 30 00 |..2.SN..0.13040.| 00000C40: 5F 10 EB 32 99 45 24 3A 99 22 13 12 4E 4F 20 53 |_..2.E$:."..NO S| 00000C50: 54 45 50 53 20 52 45 43 4F 52 44 45 44 92 22 00 |TEPS RECORDED.".| 00000C60: 76 10 EC 32 A1 53 50 24 3A 8B 53 50 24 B2 22 22 |v..2.SP$:.SP$.""| 00000C70: A7 31 33 30 33 36 00 81 10 ED 32 89 31 33 30 37 |.13036....2.1307| 00000C80: 35 00 C8 10 F0 32 81 4C 4A B2 31 A4 53 4E 3A 99 |5....2.LJ.1.SN:.| 00000C90: 22 13 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D |". ......| 00000CA0: 9D 9D 53 54 45 50 22 4C 4A 22 20 12 22 53 24 28 |..STEP"LJ" ."S$(| 00000CB0: 4C 4A 29 22 92 20 20 20 20 20 20 20 20 20 20 20 |LJ)". | 00000CC0: 20 20 20 20 20 20 20 22 00 DF 10 FA 32 A1 53 50 | "....2.SP| 00000CD0: 24 3A 8B 53 50 24 B2 22 22 A7 31 33 30 35 30 00 |$:.SP$."".13050.| 00000CE0: F3 10 04 33 8B 53 50 24 B3 B1 22 20 22 A7 31 33 |...3.SP$.." ".13| 00000CF0: 30 37 35 00 FB 10 0E 33 82 4C 4A 00 0C 11 13 33 |075....3.LJ....3| 00000D00: 8B 4E 4D B3 B1 30 A7 31 33 30 38 30 00 2D 11 14 |.NM..0.13080.-..| 00000D10: 33 99 45 24 3A 99 22 13 12 4E 4F 20 4D 41 43 52 |3.E$:."..NO MACR| 00000D20: 4F 53 20 52 45 43 4F 52 44 45 44 92 22 00 44 11 |OS RECORDED.".D.| 00000D30: 15 33 A1 53 50 24 3A 8B 53 50 24 B2 22 22 A7 31 |.3.SP$:.SP$."".1| 00000D40: 33 30 37 37 00 4F 11 16 33 89 31 33 31 32 30 00 |3077.O..3.13120.| 00000D50: 79 11 18 33 81 4C 4A B2 31 A4 4E 4D 3A 99 45 24 |y..3.LJ.1.NM:.E$| 00000D60: 3A 99 22 13 4D 41 43 52 4F 22 4C 4A 22 20 12 22 |:.".MACRO"LJ" ."| 00000D70: 4D 24 28 4C 4A 29 22 92 22 00 90 11 22 33 A1 53 |M$(LJ)"."..."3.S| 00000D80: 50 24 3A 8B 53 50 24 B2 22 22 A7 31 33 30 39 30 |P$:.SP$."".13090| 00000D90: 00 A4 11 2C 33 8B 53 50 24 B3 B1 22 20 22 A7 31 |...,3.SP$.." ".1| 00000DA0: 33 31 32 30 00 AC 11 36 33 82 4C 4A 00 B2 11 40 |3120...63.LJ...@| 00000DB0: 33 8E 00 B8 11 4A 33 3A 00 CE 11 BC 34 8F 20 4C |3....J3:....4. L| 00000DC0: 49 53 54 20 54 4F 20 50 52 49 4E 54 45 52 00 D7 |IST TO PRINTER..| 00000DD0: 11 C6 34 9F 34 2C 34 00 ED 11 D0 34 98 34 2C 22 |..4.4,4....4.4,"| 00000DE0: 50 52 47 20 53 54 45 50 53 22 3A 98 34 00 F9 11 |PRG STEPS":.4...| 00000DF0: DA 34 81 4A B2 31 A4 53 4E 00 0B 12 E4 34 98 34 |.4.J.1.SN....4.4| 00000E00: 2C 4A 22 20 20 22 53 24 28 4A 29 00 11 12 EE 34 |,J" "S$(J)....4| 00000E10: 82 00 27 12 F8 34 98 34 3A 98 34 2C 22 4D 41 43 |..'..4.4:.4,"MAC| 00000E20: 52 4F 53 22 3A 98 34 00 33 12 02 35 81 4A B2 31 |ROS":.4.3..5.J.1| 00000E30: A4 4E 4D 00 45 12 0C 35 98 34 2C 4A 22 20 20 22 |.NM.E..5.4,J" "| 00000E40: 4D 24 28 4A 29 00 50 12 16 35 82 3A A0 34 3A 8E |M$(J).P..5.:.4:.| 00000E50: 00 56 12 20 35 3A 00 67 12 B0 36 8F 20 52 45 43 |.V. 5:.g..6. REC| 00000E60: 4F 52 44 20 50 52 47 00 7F 12 BA 36 85 22 13 4E |ORD PRG....6.".N| 00000E70: 41 4D 45 20 4F 46 20 46 49 4C 45 22 3B 46 24 00 |AME OF FILE";F$.| 00000E80: A0 12 BC 36 99 45 24 3A 85 22 13 12 54 92 41 50 |...6.E$:."..T.AP| 00000E90: 45 20 4F 52 20 12 44 92 49 53 4B 22 3B 44 56 24 |E OR .D.ISK";DV$| 00000EA0: 00 B4 12 BE 36 8B 44 56 24 B3 B1 22 54 22 A7 31 |....6.DV$.."T".1| 00000EB0: 34 30 32 30 00 DF 12 C0 36 99 22 13 50 52 45 53 |4020....6.".PRES| 00000EC0: 53 20 50 4C 41 59 20 26 20 52 45 43 4F 52 44 20 |S PLAY & RECORD | 00000ED0: 26 20 48 49 54 20 12 52 45 54 55 52 4E 92 22 00 |& HIT .RETURN.".| 00000EE0: F6 12 C1 36 A1 53 50 24 3A 8B 53 50 24 B2 22 22 |...6.SP$:.SP$.""| 00000EF0: A7 31 34 30 31 37 00 0F 13 C2 36 99 45 24 3A 9F |.14017....6.E$:.| 00000F00: 31 2C 31 2C 31 2C 46 24 3A 89 31 34 30 36 32 00 |1,1,1,F$:.14062.| 00000F10: 2C 13 C4 36 99 45 24 3A 85 22 13 44 52 49 56 45 |,..6.E$:.".DRIVE| 00000F20: 20 4E 55 4D 42 45 52 22 3B 44 4E 24 00 4A 13 CE | NUMBER";DN$.J..| 00000F30: 36 9F 31 2C 38 2C 31 34 2C 44 4E 24 AA 22 3A 22 |6.1,8,14,DN$.":"| 00000F40: AA 46 24 AA 22 2C 53 2C 57 22 00 68 13 D8 36 98 |.F$.",S,W".h..6.| 00000F50: 31 2C 53 4E 3B C7 28 31 33 29 3B 3A 98 31 2C 4E |1,SN;.(13);:.1,N| 00000F60: 4D 3B C7 28 31 33 29 3B 00 89 13 E2 36 81 5A 49 |M;.(13);....6.ZI| 00000F70: B2 31 A4 53 4E 3A 98 31 2C 53 24 28 5A 49 29 C7 |.1.SN:.1,S$(ZI).| 00000F80: 28 31 33 29 3B 3A 82 5A 49 00 B4 13 EC 36 81 5A |(13);:.ZI....6.Z| 00000F90: 49 B2 31 A4 4E 4D 3A 98 31 2C 4D 24 28 5A 49 29 |I.1.NM:.1,M$(ZI)| 00000FA0: C7 28 31 33 29 3B 3A 82 5A 49 3A 98 31 3A 89 31 |.(13);:.ZI:.1:.1| 00000FB0: 34 30 37 30 00 C4 13 EE 36 98 31 2C 53 4E 3A 98 |4070....6.1,SN:.| 00000FC0: 31 2C 4E 4D 00 DF 13 F0 36 81 5A 49 B2 31 A4 53 |1,NM....6.ZI.1.S| 00000FD0: 4E 3A 98 31 2C 53 24 28 5A 49 29 3A 82 5A 49 00 |N:.1,S$(ZI):.ZI.| 00000FE0: FA 13 F2 36 81 5A 49 B2 31 A4 4E 4D 3A 98 31 2C |...6.ZI.1.NM:.1,| 00000FF0: 4D 24 28 5A 49 29 3A 82 5A 49 00 03 14 F6 36 A0 |M$(ZI):.ZI....6.| 00001000: 31 3A 8E 00 09 14 00 37 3A 00 18 14 14 37 8F 20 |1:.....7:....7. | 00001010: 4C 4F 41 44 20 50 52 47 00 30 14 1E 37 85 22 13 |LOAD PRG.0..7.".| 00001020: 4E 41 4D 45 20 4F 46 20 46 49 4C 45 22 3B 46 24 |NAME OF FILE";F$| 00001030: 00 51 14 20 37 99 45 24 3A 85 22 13 12 54 92 41 |.Q. 7.E$:."..T.A| 00001040: 50 45 20 4F 52 20 12 44 92 49 53 4B 22 3B 44 56 |PE OR .D.ISK";DV| 00001050: 24 00 65 14 22 37 8B 44 56 24 B3 B1 22 54 22 A7 |$.e."7.DV$.."T".| 00001060: 31 34 31 32 30 00 87 14 24 37 99 22 13 50 52 45 |14120...$7.".PRE| 00001070: 53 53 20 50 4C 41 59 20 26 20 48 49 54 20 12 52 |SS PLAY & HIT .R| 00001080: 45 54 55 52 4E 92 22 00 9E 14 25 37 A1 53 50 24 |ETURN."...%7.SP$| 00001090: 3A 8B 53 50 24 B2 22 22 A7 31 34 31 31 37 00 B7 |:.SP$."".14117..| 000010A0: 14 26 37 99 45 24 3A 9F 31 2C 31 2C 30 2C 46 24 |.&7.E$:.1,1,0,F$| 000010B0: 3A 89 31 34 31 34 30 00 D4 14 28 37 99 45 24 3A |:.14140...(7.E$:| 000010C0: 85 22 13 44 52 49 56 45 20 4E 55 4D 42 45 52 22 |.".DRIVE NUMBER"| 000010D0: 3B 44 4E 24 00 F2 14 32 37 9F 31 2C 38 2C 31 34 |;DN$...27.1,8,14| 000010E0: 2C 44 4E 24 AA 22 3A 22 AA 46 24 AA 22 2C 53 2C |,DN$.":".F$.",S,| 000010F0: 52 22 00 FF 14 3C 37 84 31 2C 53 4E 2C 4E 4D 00 |R"...<7.1,SN,NM.| 00001100: 1A 15 46 37 81 5A 49 B2 31 A4 53 4E 3A 84 31 2C |..F7.ZI.1.SN:.1,| 00001110: 53 24 28 5A 49 29 3A 82 5A 49 00 35 15 50 37 81 |S$(ZI):.ZI.5.P7.| 00001120: 5A 49 B2 31 A4 4E 4D 3A 84 31 2C 4D 24 28 5A 49 |ZI.1.NM:.1,M$(ZI| 00001130: 29 3A 82 5A 49 00 3E 15 5A 37 A0 31 3A 8E 00 44 |):.ZI.>.Z7.1:..D| 00001140: 15 64 37 3A 00 5B 15 A4 38 8F 20 43 48 41 4E 47 |.d7:.[..8. CHANG| 00001150: 45 20 43 48 41 52 41 43 54 45 52 00 76 15 AE 38 |E CHARACTER.v..8| 00001160: 8B CA 28 43 44 24 2C 32 2C 31 29 B3 B1 22 3D 22 |..(CD$,2,1).."="| 00001170: A7 31 34 35 33 30 00 9F 15 B8 38 50 54 24 B2 C9 |.14530....8PT$..| 00001180: 28 43 44 24 2C C3 28 43 44 24 29 AB 32 29 3A 50 |(CD$,.(CD$).2):P| 00001190: 54 B2 C5 28 50 54 24 29 3A 89 31 34 36 30 30 00 |T..(PT$):.14600.| 000011A0: D0 15 C2 38 50 54 B2 C6 28 C9 28 43 44 24 2C 31 |...8PT..(.(CD$,1| 000011B0: 29 29 3A 8B 50 54 B1 36 33 AF 50 54 B3 31 39 32 |)):.PT.63.PT.192| 000011C0: A7 50 54 B2 50 54 AB 36 34 3A 89 31 34 36 30 30 |.PT.PT.64:.14600| 000011D0: 00 ED 15 CC 38 8B 50 54 B1 31 39 31 AF 50 54 B3 |....8.PT.191.PT.| 000011E0: 32 35 36 A7 50 54 B2 50 54 AB 31 32 38 00 F3 15 |256.PT.PT.128...| 000011F0: 08 39 8E 00 F9 15 12 39 3A 00 08 16 98 3A 8F 20 |.9.....9:....:. | 00001200: 45 44 49 54 20 50 52 47 00 15 16 A2 3A 81 5A 49 |EDIT PRG....:.ZI| 00001210: B2 31 A4 53 4E 00 1D 16 AC 3A 99 45 24 00 32 16 |.1.SN....:.E$.2.| 00001220: B6 3A 99 22 13 22 5A 49 22 20 20 22 53 24 28 5A |.:."."ZI" "S$(Z| 00001230: 49 29 00 49 16 C0 3A A1 53 50 24 3A 8B 53 50 24 |I).I..:.SP$:.SP$| 00001240: B2 22 22 A7 31 35 30 34 30 00 5C 16 CA 3A 8B 53 |."".15040.\..:.S| 00001250: 50 24 B2 22 20 22 A7 31 35 32 30 30 00 6F 16 D4 |P$." ".15200.o..| 00001260: 3A 8B 53 50 24 B2 22 5E 22 A7 31 35 31 30 30 00 |:.SP$."^".15100.| 00001270: 82 16 D9 3A 8B 53 50 24 B2 22 3E 22 A7 31 35 31 |...:.SP$.">".151| 00001280: 33 30 00 96 16 DE 3A 8B 53 50 24 B3 B1 22 3C 22 |30....:.SP$.."<"| 00001290: A7 31 35 32 30 30 00 B2 16 E8 3A 4E 43 B2 30 3A |.15200....:NC.0:| 000012A0: 53 24 28 5A 49 29 B2 22 22 3A 81 5A 4A B2 31 A4 |S$(ZI)."":.ZJ.1.| 000012B0: 53 4E 00 D8 16 EA 3A 8B 53 24 28 5A 4A 29 B3 B1 |SN....:.S$(ZJ)..| 000012C0: 22 22 A7 4E 43 B2 4E 43 AA 31 3A 53 24 28 4E 43 |"".NC.NC.1:S$(NC| 000012D0: 29 B2 53 24 28 5A 4A 29 00 F6 16 EC 3A 82 5A 4A |).S$(ZJ)....:.ZJ| 000012E0: 3A 53 4E B2 53 4E AB 31 3A 8B 5A 49 B3 B2 53 4E |:SN.SN.1:.ZI..SN| 000012F0: A7 31 35 30 32 30 00 01 17 EE 3A 89 31 35 32 31 |.15020....:.1521| 00001300: 30 00 09 17 FC 3A 99 45 24 00 1E 17 06 3B 85 22 |0....:.E$....;."| 00001310: 13 4E 45 57 20 53 54 45 50 22 3B 53 50 24 00 34 |.NEW STEP";SP$.4| 00001320: 17 10 3B 53 24 28 5A 49 29 B2 53 50 24 3A 89 31 |..;S$(ZI).SP$:.1| 00001330: 35 32 30 30 00 4E 17 1A 3B 4E 43 B2 30 3A 81 5A |5200.N..;NC.0:.Z| 00001340: 4A B2 53 4E AA 31 A4 5A 49 AA 31 A9 AB 31 00 62 |J.SN.1.ZI.1..1.b| 00001350: 17 1C 3B 53 24 28 5A 4A 29 B2 53 24 28 5A 4A AB |..;S$(ZJ).S$(ZJ.| 00001360: 31 29 00 6A 17 1E 3B 82 5A 4A 00 82 17 20 3B 85 |1).j..;.ZJ... ;.| 00001370: 22 13 49 4E 53 45 52 54 20 53 54 45 50 22 3B 53 |".INSERT STEP";S| 00001380: 50 24 00 99 17 22 3B 53 24 28 5A 49 29 B2 53 50 |P$...";S$(ZI).SP| 00001390: 24 3A 53 4E B2 53 4E AA 31 00 AA 17 60 3B 8B 5A |$:SN.SN.1...`;.Z| 000013A0: 49 B2 53 4E A7 31 35 32 31 30 00 B2 17 65 3B 82 |I.SN.15210...e;.| 000013B0: 5A 49 00 C2 17 6A 3B 8B 4E 4D B2 30 A7 31 35 34 |ZI...j;.NM.0.154| 000013C0: 31 30 00 CF 17 6F 3B 81 5A 49 B2 31 A4 4E 4D 00 |10...o;.ZI.1.NM.| 000013D0: FE 17 74 3B 99 22 13 20 20 20 20 20 20 20 20 20 |..t;.". | 000013E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 13 | "..| 00001400: 18 7E 3B 99 22 13 22 5A 49 22 20 20 22 4D 24 28 |.~;."."ZI" "M$(| 00001410: 5A 49 29 00 2A 18 88 3B A1 53 50 24 3A 8B 53 50 |ZI).*..;.SP$:.SP| 00001420: 24 B2 22 22 A7 31 35 32 34 30 00 3D 18 92 3B 8B |$."".15240.=..;.| 00001430: 53 50 24 B2 22 20 22 A7 31 35 34 30 30 00 50 18 |SP$." ".15400.P.| 00001440: 9C 3B 8B 53 50 24 B2 22 5E 22 A7 31 35 33 30 30 |.;.SP$."^".15300| 00001450: 00 64 18 A6 3B 8B 53 50 24 B3 B1 22 3C 22 A7 31 |.d..;.SP$.."<".1| 00001460: 35 34 30 30 00 80 18 B0 3B 4E 43 B2 30 3A 4D 24 |5400....;NC.0:M$| 00001470: 28 5A 49 29 B2 22 22 3A 81 5A 4A B2 31 A4 4E 4D |(ZI)."":.ZJ.1.NM| 00001480: 00 A6 18 B2 3B 8B 4D 24 28 5A 4A 29 B3 B1 22 22 |....;.M$(ZJ)..""| 00001490: A7 4E 43 B2 4E 43 AA 31 3A 4D 24 28 4E 43 29 B2 |.NC.NC.1:M$(NC).| 000014A0: 4D 24 28 5A 4A 29 00 BD 18 B4 3B 82 5A 4A 3A 4E |M$(ZJ)....;.ZJ:N| 000014B0: 4D B2 4E 4D AB 31 3A 89 31 35 32 32 30 00 C8 18 |M.NM.1:.15220...| 000014C0: B6 3B 89 31 35 34 30 30 00 F7 18 C4 3B 99 22 13 |.;.15400....;.".| 000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014F0: 20 20 20 20 20 20 22 00 0D 19 CE 3B 85 22 13 4E | "....;.".N| 00001500: 45 57 20 4D 41 43 52 4F 22 3B 53 50 24 00 1C 19 |EW MACRO";SP$...| 00001510: D8 FF 4D 24 28 5A 49 29 B2 53 50 24 00 2D 19 28 |..M$(ZI).SP$.-.(| 00001520: 3C 8B 5A 49 B2 4E 4D A7 31 35 34 31 30 00 35 19 |<.ZI.NM.15410.5.| 00001530: 2D 3C 82 5A 49 00 3B 19 32 3C 8E 00 00 00 |-<.ZI.;.2<.... |
....... POGO - LOGO FOR THE PET.:.... CE
NTERBROOK SOFTWARE.@...:.S.(..".":.59468
,12.W.2.D$."..........................".
..<.HP.33268:PP.HP:PD.1:PT.160:CH.32...F
..PP,81.E.P.PC$."FRLEMCSXNW?!QP><@H=".O.
Z..7000...D..S$(100),M$(20):E$.".
"...N.:.%
.X..E$:DC$."".D....".STEP="SN"MACRO="NM"
STORE="SF"DIR= ";:.PD.1.."EAST. ".|..
..PD..1.."WEST. "......PD..40.."NORTH
. "... ..PD.40.."SOUTH. ".C....PD..39.
."N'EAST. "......PD..41.."N'WEST. ".....
.PD.41.."S'EAST. "...H..PD.39.."S'WEST.
".#.R..".CMD";CD$:.220:.120.L....I.1.C(P
C$):.H(CD$,1).J(PC$,I,1).240.]....:.CD$.
"*"...C..........I.1000,2000,3000,4000,5
000,6000,8000,9000,10000,11000......I.11
.270......I.10.12000,12500,13000,13500,1
4000,14100,15000,6015,14500......SF.0.DC
$."X".CD$.">".CD$."<".CD$."@".310.Y....C
D$."".CD$."S".CD$."X".CD$."N".CD$."Q".CD
$."P".CD$."?".310..."..SN.9.."..
"...,.SN.S
N.1:S$(SN).CD$...6.....@.:...... FORWARD
.R...D.E(J(CD$,2))......ZI.1.D.....CH.B(
PP.PD)......B(PP.PD).96.1090.....PP.PP.P
D......PP,81.*....PP.PD,PT.2.8..ZI.8.B..
.>.L.:.O.P.. RIGHT TURN.A.U.T.E(J(CD$,2)
).M.V..ZI.1.T...Z..PD.1.PD.41:.2050.....
.PD.41.PD.40:.2050......PD.40.PD.39:.205
0.H....PD.39.PD..1:.2050......PD..1.PD..
41:.2050......PD..41.PD..40:.2050......P
D..40.PD..39:.2050.#....PD..39.PD.1.+...
.ZI.1.4...7.>.:.G.... LEFT TURN.Y...T.E(
J(CD$,2)).E....ZI.1.T.|.B..PD.1.PD..39:.
3050...G..PD..39.PD..40:.3050...L..PD.40
.PD.41:.3050.B.Q..PD.41.PD.1:.3050.Y.V..
PD..1.PD.39:.3050......PD.39.PD.40:.3050
......PD..41.PD..1:.3050......PD..40.PD.
.41.#....ZI.)...../.&.:.;. .. ERASE.E...
PT.32.W...D.E(J(CD$,2)).C....ZI.1.D.S.C.
CH.B(PP.PD)...H..B(PP.PD).96.4090...R.PP
.PP.PD......PP,81......PP.PD,PT......ZI.
D...PT.160:..J...:.U.... MOVE.....D.E(J(
CD$,2))......ZI.1.D......B(PP.PD).96.508
5......PP,CH.!...PP.PP.PD.....CH.B(PP).9
....PP,81.A.X..ZI.L...PT.160.R.....X...:
.D.P.. CLEAR.Y.Z..".":.7000:.6020.....P
P,160.....PP.33268:PT.160:PD.1......PP,8
1:......:...X.. BORDER...]..ZI.32848.328
87:.ZI,96:....B..ZI.32887.33767.40:.ZI,9
6:....L..ZI.33767.33728..1:.ZI,96:..<.V.
.ZI.33728.32848..40:.ZI,96:..B.....H...:
.V.@.. STORAGE.G.J..SF.0.SF.1:..X.T..SF.
1.SF.0:..~.^.:...(#. EXECUTE PROGRAM...<
#FF.SF:DC$."X":SF.0:.EI.1.SN.H.F#CD$.S$(
EI):.220.X.P#.EI:SF.FF:....Z#:....'. NEW
PROGRAM....'.".ARE YOU SURE (Y/N)";SP$.
".$'.SP$."N"..E$:..J..'.".CLEAR PRG STEP
S ......";SP$.Q.8'.SP$."Y"..ZI.1.SN
:S$(ZI)."":.:SN.0...B'.".CLEAR ALL MACRO
S ......";SP$.A.L'.SP$."Y"..ZI.1.NM
:M$(ZI)."":.:NM.0.M.V'.6000:..S.`':....*
. WAIT....+W.E(J(CD$,2))....+.WW.1.W.100
:.:.....+:...... DEFINE MACRO.)...NM.NM.
1.:....ZI.3.C(CD$).M...L$.J(CD$,ZI,1)._.
./.L$." ".12100.U../TC$.TC$.L$:.12200...
D/.C(TC$).1.TC$.TC$."1"...F/.C(TC$).3.TC
$.H(TC$,1)."0".I(TC$,1).M.I/M$(NM).M$(NM
).TC$.X.N/TC$.""..../.ZI..../.C(TC$).1.T
C$.TC$."1"."../.C(TC$).3.TC$.H(TC$,1)."0
".I(TC$,1).@../M$(NM).M$(NM).TC$:CD$."?"
.M../TC$."":..S.F/:.G.T0. EXECUTE MACRO.
Y..0CC$.CD$:FS.SF....0ME.E(J(CC$,2,1))..
..0.SF.1.SN.SN.1:S$(SN)."!".I(D(ME),C(D(
ME)).1).Z..0SF.0:.EJ.1.C(M$(ME)).3....0C
D$.J(M$(ME),EJ,3):.220....1.EJ:SF.FS....
1CD$."":.....1:.$.H2. STATUS...R2.".";.?
..2.SN..0.13040._..2.E$:."..NO STEPS REC
ORDED.".V..2.SP$:.SP$."".13036....2.1307
5.H..2.LJ.1.SN:.". ........STEP"L
J" ."S$(LJ)". "....2.SP
$:.SP$."".13050....3.SP$.." ".13075....3
.LJ....3.NM..0.13080.-..3.E$:."..NO MACR
OS RECORDED.".D..3.SP$:.SP$."".13077.O..
3.13120.Y..3.LJ.1.NM:.E$:.".MACRO"LJ" ."
M$(LJ)"."..."3.SP$:.SP$."".13090...,3.SP
$.." ".13120...63.LJ...@3....J3:.N..4. L
IST TO PRINTER.W.F4.4,4...P4.4,"PRG STEP
S":.4...Z4.J.1.SN....4.4,J" "S$(J)....4
..'..4.4:.4,"MACROS":.4.3..5.J.1.NM.E..5
.4,J" "M$(J).P..5.: 4:..V. 5:.G..6. REC
ORD PRG...6.".NAME OF FILE";F$. ..6.E$:
."..T.APE OR .D.ISK";DV$....6.DV$.."T".1
4020....6.".PRESS PLAY & RECORD & HIT .R
ETURN."...A6.SP$:.SP$."".14017...B6.E$:.
1,1,1,F$:.14062.,.D6.E$:.".DRIVE NUMBER"
;DN$.J.N6.1,8,14,DN$.":".F$.",S,W".H.X6.
1,SN;G(13);:.1,NM;G(13);....6.ZI.1.SN:.1
,S$(ZI)G(13);:.ZI....6.ZI.1.NM:.1,M$(ZI)
G(13);:.ZI:.1:.14070.D..6.1,SN:.1,NM....
6.ZI.1.SN:.1,S$(ZI):.ZI....6.ZI.1.NM:.1,
M$(ZI):.ZI....6 1:.....7:....7. LOAD PRG
.0..7.".NAME OF FILE";F$.Q. 7.E$:."..T.A
PE OR .D.ISK";DV$.E."7.DV$.."T".14120...
$7.".PRESS PLAY & HIT .RETURN."...%7.SP$
:.SP$."".14117...&7.E$:.1,1,0,F$:.14140.
T.(7.E$:.".DRIVE NUMBER";DN$...27.1,8,14
,DN$.":".F$.",S,R"...<7.1,SN,NM...F7.ZI.
1.SN:.1,S$(ZI):.ZI.5.P7.ZI.1.NM:.1,M$(ZI
):.ZI.>.Z7 1:..D.D7:.[..8. CHANGE CHARAC
TER.V..8.J(CD$,2,1).."=".14530....8PT$.I
(CD$,C(CD$).2):PT.E(PT$):.14600.P.B8PT.F
(I(CD$,1)):.PT.63.PT.192.PT.PT.64:.14600
...L8.PT.191.PT.256.PT.PT.128....9.....9
:....:. EDIT PRG....:.ZI.1.SN....:.E$.2.
.:."."ZI" "S$(ZI).I..:.SP$:.SP$."".1504
0.\.J:.SP$." ".15200.O.T:.SP$."^".15100.
..Y:.SP$.">".15130....:.SP$.."<".15200..
..:NC.0:S$(ZI)."":.ZJ.1.SN.X..:.S$(ZJ)..
"".NC.NC.1:S$(NC).S$(ZJ)....:.ZJ:SN.SN.1
:.ZI..SN.15020....:.15210....:.E$....;."
.NEW STEP";SP$.4..;S$(ZI).SP$:.15200.N..
;NC.0:.ZJ.SN.1.ZI.1..1.B..;S$(ZJ).S$(ZJ.
1).J..;.ZJ... ;.".INSERT STEP";SP$...";S
$(ZI).SP$:SN.SN.1...`;.ZI.SN.15210...E;.
ZI.B.J;.NM.0.15410.O.O;.ZI.1.NM...T;.".
"..
.~;."."ZI" "M$(ZI).*..;.SP$:.SP$."".152
40.=..;.SP$." ".15400.P..;.SP$."^".15300
.D..;.SP$.."<".15400....;NC.0:M$(ZI)."":
.ZJ.1.NM....;.M$(ZJ).."".NC.NC.1:M$(NC).
M$(ZJ)....;.ZJ:NM.NM.1:.15220.H..;.15400
...D;.".
"...N;.".NEW MACRO";SP$...X.M$(ZI)
.SP$.-.(<.ZI.NM.15410.5.-<.ZI.;.2<....
> CLICK IMAGE PREVIEW FOR FULL MODAL