POPP PROGRAM
FILE INFORMATION
FILENAME(S): POPP PROGRAM
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
47a106ba7968200dfddff88107bcebe4d752cb87ef18cbe9937b5c8f989c5d37
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C D U JUNE 90 | POPP PROGRAM | PRG | UK CD | 5 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 11 1C 0A 00 FE 1A 30 2C 30 2C 37 39 2C 32 |........0,0,79,2|
00000010: 34 00 23 1C 14 00 86 20 43 54 24 28 33 29 3A 55 |4.#.... CT$(3):U|
00000020: 4E B2 38 00 2A 1C 1E 00 FE 25 00 55 1C 28 00 54 |N.8.*....%.U.(.T|
00000030: 54 24 28 31 29 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E |T$(1).".........|
00000040: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000050: 2E 2E 2E 2E 22 00 80 1C 32 00 54 54 24 28 32 29 |...."...2.TT$(2)|
00000060: B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |."..............|
00000070: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 |..............."|
00000080: 00 AB 1C 3C 00 54 54 24 28 33 29 B2 22 2E 2E 2E |...<.TT$(3)."...|
00000090: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000000A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 D3 1C 46 00 |.........."...F.|
000000B0: 54 55 24 B2 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |TU$."...........|
000000C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000000D0: A4 A4 22 00 E3 1C 50 00 FE 1A 30 2C 30 2C 37 39 |.."...P...0,0,79|
000000E0: 2C 32 34 00 3C 1D 5A 00 99 22 9F 93 1D 11 12 20 |,24.<.Z.."..... |
000000F0: 20 50 45 52 53 4F 4E 4E 41 4C 20 4F 52 47 41 4E | PERSONNAL ORGAN|
00000100: 49 53 45 52 20 50 41 47 45 20 50 52 49 4E 54 45 |ISER PAGE PRINTE|
00000110: 52 20 56 31 2E 31 20 20 20 42 59 20 50 41 55 4C |R V1.1 BY PAUL|
00000120: 20 54 52 41 59 4E 4F 52 20 20 20 20 4F 43 54 4F | TRAYNOR OCTO|
00000130: 42 45 52 20 31 39 38 39 20 20 92 22 00 4C 1D 64 |BER 1989 .".L.d|
00000140: 00 99 22 05 1D 11 9E 4D 45 4E 55 22 00 69 1D 6E |.."....MENU".i.n|
00000150: 00 99 22 1D 11 05 31 2E 20 20 20 20 20 43 52 45 |.."...1. CRE|
00000160: 41 54 45 20 50 41 47 45 22 00 84 1D 78 00 99 22 |ATE PAGE"...x.."|
00000170: 1D 11 32 2E 20 20 20 20 20 50 52 49 4E 54 20 50 |..2. PRINT P|
00000180: 41 47 45 22 00 9E 1D 82 00 99 22 1D 11 33 2E 20 |AGE"......"..3. |
00000190: 20 20 20 20 56 49 45 57 20 50 41 47 45 22 00 BD | VIEW PAGE"..|
000001A0: 1D 8C 00 99 22 1D 11 34 2E 20 20 20 20 20 44 49 |...."..4. DI|
000001B0: 53 4B 20 46 55 4E 43 54 49 4F 4E 53 22 00 DA 1D |SK FUNCTIONS"...|
000001C0: 96 00 99 22 1D 11 35 2E 20 20 20 20 20 45 58 49 |..."..5. EXI|
000001D0: 54 20 50 52 4F 47 52 41 4D 22 00 F4 1D A0 00 85 |T PROGRAM"......|
000001E0: 22 1D 11 9E 53 45 4C 45 43 54 20 28 31 2D 35 29 |"...SELECT (1-5)|
000001F0: 9F 22 3B 59 00 0C 1E AA 00 8B 20 59 B1 35 20 B0 |.";Y...... Y.5 .|
00000200: 20 59 B3 31 20 A7 20 99 22 91 22 3B 00 2C 1E B4 | Y.1 . .".";.,..|
00000210: 00 91 20 59 20 89 20 32 30 30 2C 32 31 30 2C 32 |.. Y . 200,210,2|
00000220: 30 30 2C 31 32 36 30 2C 31 37 34 30 00 35 1E BE |00,1260,1740.5..|
00000230: 00 89 20 38 30 00 42 1E C8 00 58 B2 33 3A 89 32 |.. 80.B...X.3:.2|
00000240: 33 30 00 4A 1E D2 00 58 B2 34 00 62 1E DC 00 8B |30.J...X.4.b....|
00000250: 20 58 B2 34 20 A7 41 B2 35 3A 42 B2 36 3A 43 B2 | X.4 .A.5:B.6:C.|
00000260: 32 30 00 79 1E E6 00 8B 20 58 B2 33 20 A7 41 B2 |20.y.... X.3 .A.|
00000270: 31 3A 42 B2 31 3A 43 B2 36 00 8E 1E F0 00 9F 58 |1:B.1:C.6......X|
00000280: 2C 58 3A 8B 20 58 B2 33 20 A7 20 32 36 30 00 BC |,X:. X.3 . 260..|
00000290: 1E FA 00 98 58 2C C7 28 32 37 29 3B C7 28 36 35 |....X,.(27);.(65|
000002A0: 29 3B C7 28 37 29 3A 98 58 2C C7 28 32 37 29 3B |);.(7):.X,.(27);|
000002B0: C7 28 31 32 30 29 3B C7 28 34 39 29 00 C5 1E 04 |.(120);.(49)....|
000002C0: 01 99 22 93 22 00 F2 1E 0E 01 98 58 2C 22 B7 B7 |.."."......X,"..|
000002D0: B7 B7 CF B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000002E0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000002F0: D0 22 00 10 1F 18 01 98 58 2C 22 20 20 20 20 A5 |."......X," .|
00000300: 22 3B 4D 43 24 3B 54 54 24 28 31 29 3B 22 A7 22 |";MC$;TT$(1);"."|
00000310: 00 45 1F 22 01 8B 20 58 B2 34 20 A7 20 98 58 2C |.E.".. X.4 . .X,|
00000320: 22 20 20 20 20 A5 20 20 20 20 20 20 20 20 20 20 |" . |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 A7 22 00 5F 1F 2C 01 98 58 2C 22 20 20 | ."._.,..X," |
00000350: 20 20 A5 22 3B 54 54 24 28 32 29 3B 22 A7 22 00 | .";TT$(2);".".|
00000360: 85 1F 36 01 81 49 B2 31 A4 28 28 41 AB 31 29 AD |..6..I.1.((A.1).|
00000370: 32 29 3A 98 58 2C 22 20 20 20 20 A5 22 3B 54 55 |2):.X," .";TU|
00000380: 24 3B 22 A7 22 00 C5 1F 40 01 8B 20 58 20 B2 20 |$;"."...@.. X . |
00000390: 34 20 A7 20 98 58 2C 22 20 20 20 20 A5 20 20 20 |4 . .X," . |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 A7 22 3A 82 49 3A | .":.I:|
000003C0: D5 20 82 20 49 00 DE 1F 4A 01 98 58 2C 22 12 20 |. . I...J..X,". |
000003D0: 92 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 00 EE |. .";TU$;"."..|
000003E0: 1F 54 01 8B 20 58 B2 33 20 A7 20 33 37 30 00 26 |.T.. X.3 . 370.&|
000003F0: 20 5E 01 81 49 B2 31 A4 28 42 AD 32 29 3A 98 58 | ^..I.1.(B.2):.X|
00000400: 2C 22 20 20 20 20 A5 20 20 20 20 20 20 20 20 20 |," . |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 A7 22 00 45 20 68 01 98 58 2C 22 20 | .".E h..X," |
00000430: 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 3A 82 49 | .";TU$;".":.I|
00000440: 3A 89 33 39 30 00 66 20 72 01 81 49 B2 31 A4 42 |:.390.f r..I.1.B|
00000450: 3A 98 58 2C 22 20 20 20 20 A5 22 3B 54 55 24 3B |:.X," .";TU$;|
00000460: 22 A7 22 3A 82 49 00 76 20 7C 01 8B 20 58 B2 33 |".":.I.v |.. X.3|
00000470: 20 A7 20 34 31 30 00 A3 20 86 01 98 58 2C 22 A2 | . 410.. ...X,".|
00000480: 20 20 20 A5 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 A7 22 00 BF 20 90 01 98 58 2C 22 B8 20 20 20 | .".. ...X,". |
000004B0: A5 22 3B 54 55 24 3B 22 A7 22 3A 89 34 33 30 00 |.";TU$;".":.430.|
000004C0: D6 20 9A 01 98 58 2C 22 A2 20 20 20 A5 22 3B 54 |. ...X,". .";T|
000004D0: 55 24 3B 22 A7 22 00 F2 20 A4 01 98 58 2C 22 B8 |U$;".".. ...X,".|
000004E0: 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 3A 89 34 | .";TU$;".":.4|
000004F0: 35 30 00 2A 21 AE 01 81 49 B2 31 A4 28 42 AD 32 |50.*!...I.1.(B.2|
00000500: 29 3A 98 58 2C 22 20 20 20 20 A5 20 20 20 20 20 |):.X," . |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 A7 22 00 49 21 B8 01 98 | .".I!...|
00000530: 58 2C 22 20 20 20 20 A5 22 3B 54 55 24 3B 22 A7 |X," .";TU$;".|
00000540: 22 3A 82 49 3A 89 34 37 30 00 60 21 C2 01 98 58 |":.I:.470.`!...X|
00000550: 2C 22 20 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 |," .";TU$;"."|
00000560: 00 7E 21 CC 01 98 58 2C 22 12 20 92 20 20 20 A5 |.~!...X,". . .|
00000570: 22 3B 54 55 24 3B 22 A7 22 3A 89 34 38 30 00 AD |";TU$;".":.480..|
00000580: 21 D6 01 98 58 2C 22 12 20 92 20 20 20 A5 20 20 |!...X,". . . |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 A7 22 00 CF 21 | ."..!|
000005B0: E0 01 81 49 B2 31 A4 28 43 AD 32 29 3A 98 58 2C |...I.1.(C.2):.X,|
000005C0: 22 20 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 00 |" .";TU$;".".|
000005D0: 0F 22 EA 01 8B 20 58 20 B2 20 34 20 A7 20 98 58 |."... X . 4 . .X|
000005E0: 2C 22 20 20 20 20 A5 20 20 20 20 20 20 20 20 20 |," . |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 20 A7 22 3A 82 49 3A D5 20 82 20 49 00 | .":.I:. . I.|
00000610: 28 22 F4 01 98 58 2C 22 12 20 92 20 20 20 A5 22 |("...X,". . ."|
00000620: 3B 54 55 24 3B 22 A7 22 00 38 22 FE 01 8B 20 58 |;TU$;".".8"... X|
00000630: B2 33 20 A7 20 35 34 30 00 70 22 08 02 81 49 B2 |.3 . 540.p"...I.|
00000640: 31 A4 28 42 AD 32 29 3A 98 58 2C 22 20 20 20 20 |1.(B.2):.X," |
00000650: A5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A7 22 | ."|
00000670: 00 8F 22 12 02 98 58 2C 22 20 20 20 20 A5 22 3B |.."...X," .";|
00000680: 54 55 24 3B 22 A7 22 3A 82 49 3A 89 35 36 30 00 |TU$;".":.I:.560.|
00000690: B0 22 1C 02 81 49 B2 31 A4 42 3A 98 58 2C 22 20 |."...I.1.B:.X," |
000006A0: 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 3A 82 49 | .";TU$;".":.I|
000006B0: 00 C0 22 26 02 8B 20 58 B2 33 20 A7 20 35 38 30 |.."&.. X.3 . 580|
000006C0: 00 ED 22 30 02 98 58 2C 22 A2 20 20 20 A5 20 20 |.."0..X,". . |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 A7 22 00 09 23 | ."..#|
000006F0: 3A 02 98 58 2C 22 B8 20 20 20 A5 22 3B 54 55 24 |:..X,". .";TU$|
00000700: 3B 22 A7 22 3A 89 36 30 30 00 20 23 44 02 98 58 |;".":.600. #D..X|
00000710: 2C 22 A2 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 |,". .";TU$;"."|
00000720: 00 3C 23 4E 02 98 58 2C 22 B8 20 20 20 A5 22 3B |.<#N..X,". .";|
00000730: 54 55 24 3B 22 A7 22 3A 89 36 32 30 00 74 23 58 |TU$;".":.620.t#X|
00000740: 02 81 49 B2 31 A4 28 42 AD 32 29 3A 98 58 2C 22 |..I.1.(B.2):.X,"|
00000750: 20 20 20 20 A5 20 20 20 20 20 20 20 20 20 20 20 | . |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 20 20 A7 22 00 93 23 62 02 98 58 2C 22 20 20 20 | ."..#b..X," |
00000780: 20 A5 22 3B 54 55 24 3B 22 A7 22 3A 82 49 3A 89 | .";TU$;".":.I:.|
00000790: 36 34 30 00 B4 23 6C 02 81 49 B2 31 A4 42 3A 98 |640..#l..I.1.B:.|
000007A0: 58 2C 22 20 20 20 20 A5 22 3B 54 55 24 3B 22 A7 |X," .";TU$;".|
000007B0: 22 3A 82 49 00 D2 23 76 02 98 58 2C 22 12 20 92 |":.I..#v..X,". .|
000007C0: 20 20 20 A5 22 3B 54 55 24 3B 22 A7 22 3A 89 36 | .";TU$;".":.6|
000007D0: 35 30 00 01 24 80 02 98 58 2C 22 12 20 92 20 20 |50..$...X,". . |
000007E0: 20 A5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A7 | .|
00000800: 22 00 11 24 8A 02 8B 20 58 B2 33 20 A7 20 36 38 |"..$... X.3 . 68|
00000810: 30 00 33 24 94 02 81 49 B2 31 A4 28 42 AD 32 29 |0.3$...I.1.(B.2)|
00000820: 3A 98 58 2C 22 20 20 20 20 A5 22 3B 54 55 24 3B |:.X," .";TU$;|
00000830: 22 A7 22 00 68 24 9E 02 98 58 2C 22 20 20 20 20 |".".h$...X," |
00000840: A5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A7 22 | ."|
00000860: 3A 82 49 3A 89 36 39 30 00 8E 24 A8 02 81 49 B2 |:.I:.690..$...I.|
00000870: 31 A4 42 3A 98 58 2C 22 20 20 20 20 A5 22 3B 54 |1.B:.X," .";T|
00000880: 55 24 3B 22 A7 22 3A 82 49 3A 89 37 30 30 00 BB |U$;".":.I:.700..|
00000890: 24 B2 02 98 58 2C 22 20 20 20 20 A5 20 20 20 20 |$...X," . |
000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008B0: 20 20 20 20 20 20 20 20 20 A7 22 00 D9 24 BC 02 | ."..$..|
000008C0: 98 58 2C 22 20 20 20 20 A5 22 3B 46 43 24 3B 54 |.X," .";FC$;T|
000008D0: 54 24 28 33 29 3B 22 A7 22 00 06 25 C6 02 98 58 |T$(3);"."..%...X|
000008E0: 2C 22 A4 A4 A4 A4 CC A4 A4 A4 A4 A4 A4 A4 A4 A4 |,"..............|
000008F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000900: A4 A4 A4 A4 BA 22 00 0D 25 D0 02 A0 58 00 37 25 |....."..%...X.7%|
00000910: DA 02 8B 20 59 B1 31 20 A7 20 99 22 1D 11 50 52 |... Y.1 . ."..PR|
00000920: 45 53 53 20 41 4E 59 20 4B 45 59 22 3A A1 F9 41 |ESS ANY KEY":..A|
00000930: 41 24 3A 89 20 39 30 00 4A 25 E4 02 FE 1A 34 30 |A$:. 90.J%....40|
00000940: 2C 30 2C 37 39 2C 32 34 2C 31 00 6C 25 EE 02 99 |,0,79,24,1.l%...|
00000950: 22 1D 11 45 4E 54 45 52 20 4D 41 49 4E 20 54 49 |"..ENTER MAIN TI|
00000960: 54 4C 45 22 3A 85 54 54 24 28 31 29 00 93 25 F8 |TLE":.TT$(1)..%.|
00000970: 02 4D 41 B2 C3 28 54 54 24 28 31 29 29 3A 4D 42 |.MA..(TT$(1)):MB|
00000980: B2 32 39 AB 4D 41 3A 8B 20 4D 42 B2 30 20 A7 20 |.29.MA:. MB.0 . |
00000990: 38 30 30 00 9E 25 02 03 4D 43 24 B2 22 22 00 BC |800..%..MC$.""..|
000009A0: 25 0C 03 81 20 4D B2 31 20 A4 20 4D 42 3A 4D 43 |%... M.1 . MB:MC|
000009B0: 24 B2 4D 43 24 AA C7 28 31 36 30 29 00 C4 25 16 |$.MC$..(160)..%.|
000009C0: 03 82 20 4D 00 F3 25 20 03 99 22 1D 11 45 4E 54 |.. M..% .."..ENT|
000009D0: 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 43 4F 4C |ER NUMBER OF COL|
000009E0: 55 4D 4E 53 20 31 2C 20 32 20 4F 52 20 33 22 3A |UMNS 1, 2 OR 3":|
000009F0: 85 20 44 00 13 26 2A 03 8B 20 44 B3 31 20 B0 20 |. D..&*.. D.1 . |
00000A00: 44 B1 33 20 A7 20 99 22 91 91 91 22 3B 3A 89 20 |D.3 . ."...";:. |
00000A10: 38 30 30 00 1C 26 34 03 54 4C B2 30 00 30 26 3E |800..&4.TL.0.0&>|
00000A20: 03 81 20 4A B2 31 20 A4 20 44 3A 20 87 20 4D 24 |.. J.1 . D: . M$|
00000A30: 00 5B 26 48 03 99 22 11 45 4E 54 45 52 20 22 3B |.[&H..".ENTER ";|
00000A40: 4D 24 3B 22 20 43 4F 4C 55 4D 4E 20 54 49 54 4C |M$;" COLUMN TITL|
00000A50: 45 22 3A 85 20 43 54 24 28 4A 29 00 7B 26 52 03 |E":. CT$(J).{&R.|
00000A60: 43 4C 28 4A 29 B2 C3 28 43 54 24 28 4A 29 29 3A |CL(J)..(CT$(J)):|
00000A70: 54 4C B2 54 4C AA 43 4C 28 4A 29 00 83 26 5C 03 |TL.TL.CL(J)..&\.|
00000A80: 82 20 4A 00 9E 26 66 03 83 20 46 49 52 53 54 2C |. J..&f.. FIRST,|
00000A90: 53 45 43 4F 4E 44 2C 54 48 49 52 44 3A 8C 00 B7 |SECOND,THIRD:...|
00000AA0: 26 70 03 8B 20 54 4C 20 B3 B2 20 28 33 30 AB 31 |&p.. TL .. (30.1|
00000AB0: 29 20 A7 20 39 32 30 00 E1 26 7A 03 99 22 11 1D |) . 920..&z.."..|
00000AC0: 43 4F 4C 55 4D 4E 20 54 49 54 4C 45 53 20 54 4F |COLUMN TITLES TO|
00000AD0: 4F 20 4C 4F 4E 47 20 2D 20 41 4E 59 20 4B 45 59 |O LONG - ANY KEY|
00000AE0: 22 00 EB 26 84 03 A1 F9 41 41 24 00 03 27 8E 03 |"..&....AA$..'..|
00000AF0: FE 1A 34 30 2C 33 2C 37 39 2C 32 34 2C 31 3A 89 |..40,3,79,24,1:.|
00000B00: 38 30 30 00 12 27 98 03 41 50 B2 28 32 39 AB 54 |800..'..AP.(29.T|
00000B10: 4C 29 00 20 27 A2 03 47 41 B2 28 41 50 29 AD 32 |L). '..GA.(AP).2|
00000B20: 00 2D 27 AC 03 47 50 B2 B5 28 47 41 29 00 46 27 |.-'..GP..(GA).F'|
00000B30: B6 03 58 58 B2 B5 28 41 50 AD 32 29 3A 59 59 B2 |..XX..(AP.2):YY.|
00000B40: 28 41 50 AD 32 29 00 50 27 C0 03 48 24 B2 22 22 |(AP.2).P'..H$.""|
00000B50: 00 66 27 CA 03 8B 20 58 58 B3 B1 59 59 20 A7 20 |.f'... XX..YY . |
00000B60: 48 24 B2 22 20 22 00 70 27 D4 03 47 24 B2 22 22 |H$." ".p'..G$.""|
00000B70: 00 81 27 DE 03 81 20 47 20 B2 20 31 20 A4 20 47 |..'... G . 1 . G|
00000B80: 50 00 8F 27 E8 03 47 24 B2 47 24 AA 22 20 22 00 |P..'..G$.G$." ".|
00000B90: 96 27 F2 03 82 47 00 B9 27 FC 03 8B 20 44 B2 31 |.'...G..'... D.1|
00000BA0: 20 A7 20 54 54 24 28 32 29 B2 43 54 24 28 31 29 | . TT$(2).CT$(1)|
00000BB0: AA 47 24 AA 47 24 AA 48 24 00 E3 27 06 04 8B 20 |.G$.G$.H$..'... |
00000BC0: 44 B2 32 20 A7 20 54 54 24 28 32 29 B2 43 54 24 |D.2 . TT$(2).CT$|
00000BD0: 28 31 29 AA 47 24 AA 47 24 AA 43 54 24 28 32 29 |(1).G$.G$.CT$(2)|
00000BE0: AA 48 24 00 14 28 10 04 8B 20 44 B2 33 20 A7 20 |.H$..(... D.3 . |
00000BF0: 54 54 24 28 32 29 B2 43 54 24 28 31 29 AA 47 24 |TT$(2).CT$(1).G$|
00000C00: AA 43 54 24 28 32 29 AA 47 24 AA 43 54 24 28 33 |.CT$(2).G$.CT$(3|
00000C10: 29 AA 48 24 00 32 28 1A 04 99 22 1D 11 45 4E 54 |).H$.2(..."..ENT|
00000C20: 45 52 20 46 4F 4F 54 45 52 22 3A 85 54 54 24 28 |ER FOOTER":.TT$(|
00000C30: 33 29 00 5A 28 24 04 46 41 B2 C3 28 54 54 24 28 |3).Z($.FA..(TT$(|
00000C40: 33 29 29 3A 46 42 B2 32 39 AB 46 41 3A 8B 20 46 |3)):FB.29.FA:. F|
00000C50: 42 B2 30 20 A7 20 31 31 30 30 00 65 28 2E 04 46 |B.0 . 1100.e(..F|
00000C60: 43 24 B2 22 22 00 83 28 38 04 81 20 46 B2 31 20 |C$.""..(8.. F.1 |
00000C70: A4 20 46 42 3A 46 43 24 B2 46 43 24 AA C7 28 31 |. FB:FC$.FC$..(1|
00000C80: 36 30 29 00 8B 28 42 04 82 20 46 00 9F 28 4C 04 |60)..(B.. F..(L.|
00000C90: 8B 20 58 58 B3 B1 59 59 20 A7 20 55 48 B2 31 00 |. XX..YY . UH.1.|
00000CA0: AD 28 56 04 55 4C 24 28 31 29 B2 22 22 00 BB 28 |.(V.UL$(1).""..(|
00000CB0: 60 04 55 4C 24 28 32 29 B2 22 22 00 C9 28 6A 04 |`.UL$(2).""..(j.|
00000CC0: 55 4C 24 28 33 29 B2 22 22 00 00 29 74 04 8B 20 |UL$(3).""..)t.. |
00000CD0: 44 B2 31 20 A7 20 54 55 24 B2 22 A4 A4 A4 A4 A4 |D.1 . TU$.".....|
00000CE0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000CF0: A4 A4 A4 A4 A4 A4 A4 A4 22 3A 89 20 31 32 34 30 |........":. 1240|
00000D00: 00 17 29 7E 04 55 4C 28 31 29 B2 28 43 4C 28 31 |..)~.UL(1).(CL(1|
00000D10: 29 AA 47 50 29 AB 31 00 2E 29 88 04 55 4C 28 32 |).GP).1..)..UL(2|
00000D20: 29 B2 28 43 4C 28 32 29 AA 47 50 29 AB 31 00 40 |).(CL(2).GP).1.@|
00000D30: 29 92 04 55 4C 28 33 29 B2 28 43 4C 28 33 29 29 |)..UL(3).(CL(3))|
00000D40: 00 51 29 9C 04 81 20 4C 4C 20 B2 20 31 20 A4 20 |.Q)... LL . 1 . |
00000D50: 44 00 67 29 A6 04 81 20 4D 4D 20 B2 20 31 20 A4 |D.g)... MM . 1 .|
00000D60: 20 55 4C 28 4C 4C 29 00 7F 29 B0 04 55 4C 24 28 | UL(LL)..)..UL$(|
00000D70: 4C 4C 29 B2 55 4C 24 28 4C 4C 29 AA 22 A4 22 00 |LL).UL$(LL).".".|
00000D80: 88 29 BA 04 82 20 4D 4D 00 91 29 C4 04 82 20 4C |.)... MM..)... L|
00000D90: 4C 00 B9 29 CE 04 54 55 24 B2 55 4C 24 28 31 29 |L..)..TU$.UL$(1)|
00000DA0: AA 22 20 22 AA 55 4C 24 28 32 29 AA 22 20 22 AA |." ".UL$(2)." ".|
00000DB0: 55 4C 24 28 33 29 AA 48 24 00 C1 29 D8 04 89 38 |UL$(3).H$..)...8|
00000DC0: 30 00 C7 29 E2 04 3A 00 DA 29 EC 04 FE 1A 20 30 |0..)..:..).... 0|
00000DD0: 2C 32 2C 33 39 2C 32 34 2C 31 00 E3 29 F6 04 99 |,2,39,24,1..)...|
00000DE0: 22 93 22 00 FD 29 00 05 99 22 9E 1D 1D 11 44 49 |"."..)..."....DI|
00000DF0: 53 4B 20 46 55 4E 43 54 49 4F 4E 53 22 00 29 2A |SK FUNCTIONS".)*|
00000E00: 0A 05 99 22 1D 11 05 31 2E 20 44 45 56 49 43 45 |..."...1. DEVICE|
00000E10: 20 4E 55 4D 42 45 52 20 26 20 44 49 53 4B 20 44 | NUMBER & DISK D|
00000E20: 49 52 45 43 54 4F 52 59 22 00 3F 2A 14 05 99 22 |IRECTORY".?*..."|
00000E30: 1D 11 32 2E 20 53 41 56 45 20 50 41 47 45 22 00 |..2. SAVE PAGE".|
00000E40: 55 2A 1E 05 99 22 1D 11 33 2E 20 4C 4F 41 44 20 |U*..."..3. LOAD |
00000E50: 50 41 47 45 22 00 75 2A 28 05 99 22 1D 11 34 2E |PAGE".u*(.."..4.|
00000E60: 20 45 58 49 54 20 44 49 53 4B 20 46 55 4E 43 54 | EXIT DISK FUNCT|
00000E70: 49 4F 4E 53 22 00 9B 2A 32 05 99 22 9E 1D 1D 11 |IONS"..*2.."....|
00000E80: 53 45 4C 45 43 54 20 4F 50 54 49 4F 4E 20 28 31 |SELECT OPTION (1|
00000E90: 2D 34 29 9F 22 3B 3A 85 20 44 46 00 BA 2A 3C 05 |-4).";:. DF..*<.|
00000EA0: 91 20 44 46 20 89 20 31 33 36 30 2C 31 34 32 30 |. DF . 1360,1420|
00000EB0: 2C 31 35 36 30 2C 31 37 30 30 00 C4 2A 46 05 89 |,1560,1700..*F..|
00000EC0: 31 32 36 30 00 EE 2A 50 05 99 22 1D 11 45 4E 54 |1260..*P.."..ENT|
00000ED0: 45 52 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 |ER DEVICE NUMBER|
00000EE0: 20 20 38 9D 9D 9D 05 22 3B 3A 85 20 55 4E 00 02 | 8....";:. UN..|
00000EF0: 2B 5A 05 FE 1A 20 34 30 2C 32 2C 37 39 2C 32 34 |+Z... 40,2,79,24|
00000F00: 2C 31 00 0D 2B 64 05 D7 20 31 37 31 30 00 26 2B |,1..+d.. 1710.&+|
00000F10: 6E 05 99 22 11 22 3A EE 55 28 55 4E 29 2C 22 50 |n..".":.U(UN),"P|
00000F20: 4F 50 50 2E 2A 22 00 3A 2B 78 05 8B 20 44 53 B1 |OPP.*".:+x.. DS.|
00000F30: 30 20 A7 20 89 20 31 37 31 30 00 44 2B 82 05 89 |0 . . 1710.D+...|
00000F40: 31 32 36 30 00 57 2B 8C 05 FE 1A 20 30 2C 32 2C |1260.W+.... 0,2,|
00000F50: 33 39 2C 32 34 2C 31 00 60 2B 96 05 99 22 93 22 |39,24,1.`+..."."|
00000F60: 00 75 2B A0 05 99 22 9E 1D 1D 11 53 41 56 45 20 |.u+..."....SAVE |
00000F70: 50 41 47 45 22 00 97 2B AA 05 99 22 1D 11 05 45 |PAGE"..+..."...E|
00000F80: 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 22 |NTER FILE NAME "|
00000F90: 3B 3A 85 20 4E 46 24 00 BB 2B B4 05 9F 32 2C 28 |;:. NF$..+...2,(|
00000FA0: 55 4E 29 2C 32 2C 22 40 30 3A 50 4F 50 50 2E 22 |UN),2,"@0:POPP."|
00000FB0: AA 4E 46 24 AA 22 2C 53 2C 57 22 00 C9 2B BE 05 |.NF$.",S,W"..+..|
00000FC0: 98 32 2C 54 54 24 28 31 29 00 D7 2B C8 05 98 32 |.2,TT$(1)..+...2|
00000FD0: 2C 54 54 24 28 32 29 00 E5 2B D2 05 98 32 2C 54 |,TT$(2)..+...2,T|
00000FE0: 54 24 28 33 29 00 F0 2B DC 05 98 32 2C 4D 43 24 |T$(3)..+...2,MC$|
00000FF0: 00 FB 2B E6 05 98 32 2C 46 43 24 00 06 2C F0 05 |..+...2,FC$..,..|
00001000: 98 32 2C 54 55 24 00 0D 2C FA 05 A0 32 00 21 2C |.2,TU$..,...2.!,|
00001010: 04 06 8B 20 44 53 B1 30 20 A7 20 89 20 31 37 31 |... DS.0 . . 171|
00001020: 30 00 2B 2C 0E 06 89 31 32 36 30 00 3E 2C 18 06 |0.+,...1260.>,..|
00001030: FE 1A 20 30 2C 32 2C 33 39 2C 32 34 2C 31 00 47 |.. 0,2,39,24,1.G|
00001040: 2C 22 06 99 22 93 22 00 5C 2C 2C 06 99 22 9E 1D |,"..".".\,,.."..|
00001050: 1D 11 4C 4F 41 44 20 50 41 47 45 22 00 7E 2C 36 |..LOAD PAGE".~,6|
00001060: 06 99 22 1D 11 05 45 4E 54 45 52 20 46 49 4C 45 |.."...ENTER FILE|
00001070: 20 4E 41 4D 45 20 22 3B 3A 85 20 4E 46 24 00 A1 | NAME ";:. NF$..|
00001080: 2C 40 06 9F 32 2C 28 55 4E 29 2C 32 2C 22 30 3A |,@..2,(UN),2,"0:|
00001090: 50 4F 50 50 2E 22 AA 4E 46 24 AA 22 2C 53 2C 52 |POPP.".NF$.",S,R|
000010A0: 22 00 AF 2C 4A 06 84 32 2C 54 54 24 28 31 29 00 |"..,J..2,TT$(1).|
000010B0: BD 2C 54 06 84 32 2C 54 54 24 28 32 29 00 CB 2C |.,T..2,TT$(2)..,|
000010C0: 5E 06 84 32 2C 54 54 24 28 33 29 00 D6 2C 68 06 |^..2,TT$(3)..,h.|
000010D0: 84 32 2C 4D 43 24 00 E1 2C 72 06 84 32 2C 46 43 |.2,MC$..,r..2,FC|
000010E0: 24 00 EC 2C 7C 06 84 32 2C 54 55 24 00 F3 2C 86 |$..,|..2,TU$..,.|
000010F0: 06 A0 32 00 07 2D 90 06 8B 20 44 53 B1 30 20 A7 |..2..-... DS.0 .|
00001100: 20 89 20 31 37 31 30 00 11 2D 9A 06 89 31 32 36 | . 1710..-...126|
00001110: 30 00 19 2D A4 06 89 38 30 00 2F 2D AE 06 8F 20 |0..-...80./-... |
00001120: 44 49 53 4B 20 45 52 52 4F 52 20 54 52 41 50 00 |DISK ERROR TRAP.|
00001130: 3E 2D B8 06 99 22 93 11 1D 22 3B 44 53 24 00 61 |>-..."...";DS$.a|
00001140: 2D C2 06 99 22 11 1D 41 4E 59 20 4B 45 59 22 3A |-..."..ANY KEY":|
00001150: A1 F9 20 41 41 24 3A 99 22 93 22 3A 89 31 32 36 |.. AA$:.".":.126|
00001160: 30 00 98 2D CC 06 99 22 11 1D 45 58 49 54 2C 20 |0..-..."..EXIT, |
00001170: 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 28 59 |ARE YOU SURE? (Y|
00001180: 2F 4E 29 22 3B 3A 85 45 58 24 3A 8B 20 45 58 24 |/N)";:.EX$:. EX$|
00001190: B2 22 59 22 20 A7 20 80 00 A0 2D D6 06 89 38 30 |."Y" . ...-...80|
000011A0: 00 00 00 |... |
........0,0,79,24.#.... CT$(3):UN.8.*...
.%.U.(.TT$(1).".........................
...."...2.TT$(2)."......................
......."...<.TT$(3)."...................
..........".S.F.TU$."...................
.........."...P...0,0,79,24.<.Z..".....
PERSONNAL ORGANISER PAGE PRINTER V1.1
BY PAUL TRAYNOR OCTOBER 1989 .".L.D
.."....MENU".I.N.."...1. CREATE PAGE
"...X.."..2. PRINT PAGE"......"..3.
VIEW PAGE"......"..4. DISK FUNCT
IONS".Z...."..5. EXIT PROGRAM"... ..
"...SELECT (1-5).";Y...... Y.5 . Y.1 . .
".";.,.... Y . 200,210,200,1260,1740.5..
.. 80.B.H.X.3:.230.J.R.X.4.B.... X.4 .A.
5:B.6:C.20.Y.... X.3 .A.1:B.1:C.6......X
,X:. X.3 . 260......X,G(27);G(65);G(7):.
X,G(27);G(120);G(49).E...."."......X,"..
..O.............................P"......
X," .";MC$;TT$(1);".".E.".. X.4 . .X,
" . ."._.
,..X," .";TT$(2);"."...6..I.1.((A.1).
2):.X," .";TU$;".".E.@.. X . 4 . .X,"
. .":.I:
U . I...J..X,". . .";TU$;"."...T.. X.3
. 370.& ^..I.1.(B.2):.X," .
.".E H..X," .";TU
$;".":.I:.390.F R..I.1.B:.X," .";TU$;
".":.I.V |.. X.3 . 410.. ...X,". .
.".. ...X,".
.";TU$;".":.430.V ...X,". .";TU$;"."..
...X,". .";TU$;".":.450.*!...I.1.(B.2
):.X," .
.".I!...X," .";TU$;".":.I:.470.`!B..X
," .";TU$;".".~!L..X,". . .";TU$;".
":.480..!V..X,". . .
.".O!...I.1.(C.2):.X," .";
TU$;".".."... X . 4 . .X," .
.":.I:U . I.("...X,"
. . .";TU$;".".8"... X.3 . 540.P"...I.
1.(B.2):.X," .
.".."...X," .";TU$;".":.I:.560.
."...I.1.B:.X," .";TU$;".":.I.."&.. X
.3 . 580.."0..X,". .
."..#:..X,". .";TU$;".":.60
0. #D..X,". .";TU$;".".<#N..X,". .";
TU$;".":.620.T#X..I.1.(B.2):.X," .
."..#B..X,"
.";TU$;".":.I:.640..#L..I.1.B:.X," .
";TU$;".":.I.R#V..X,". . .";TU$;".":.6
50..$...X,". . .
."..$... X.3 . 680.3$...I.1.(B.2)
:.X," .";TU$;".".H$...X," .
.":.I:.690..$...I.
1.B:.X," .";TU$;".":.I:.700..$...X,"
. .".Y$..
.X," .";FC$;TT$(3);"."..%F..X,"....L.
............................."..%P. X.7%
Z.. Y.1 . ."..PRESS ANY KEY":..AA$:. 90.
J%....40,0,79,24,1.L%..."..ENTER MAIN TI
TLE":.TT$(1)..%..MA.C(TT$(1)):MB.29.MA:.
MB.0 . 800..%..MC$.""..%... M.1 . MB:MC
$.MC$.G(160).D%... M..% .."..ENTER NUMBE
R OF COLUMNS 1, 2 OR 3":. D..&*.. D.1 .
D.3 . ."...";:. 800..&4.TL.0.0&>.. J.1 .
D: . M$.[&H..".ENTER ";M$;" COLUMN TITL
E":. CT$(J).{&R.CL(J).C(CT$(J)):TL.TL.CL
(J)..&\.. J..&F.. FIRST,SECOND,THIRD:...
&P.. TL .. (30.1) . 920..&Z.."..COLUMN T
ITLES TOO LONG - ANY KEY"..&....AA$..'..
..40,3,79,24,1:.800..'..AP.(29.TL). '..G
A.(AP).2.-'..GP..(GA).F'..XX..(AP.2):YY.
(AP.2).P'..H$."".F'J.. XX..YY . H$." ".P
'T.G$.""..'... G . 1 . GP..'..G$.G$." ".
.'...G..'... D.1 . TT$(2).CT$(1).G$.G$.H
$..'... D.2 . TT$(2).CT$(1).G$.G$.CT$(2)
.H$..(... D.3 . TT$(2).CT$(1).G$.CT$(2).
G$.CT$(3).H$.2(..."..ENTER FOOTER":.TT$(
3).Z($.FA.C(TT$(3)):FB.29.FA:. FB.0 . 11
00.E(..FC$.""..(8.. F.1 . FB:FC$.FC$.G(1
60)..(B.. F..(L.. XX..YY . UH.1..(V.UL$(
1).""..(`.UL$(2)."".I(J.UL$(3).""..)T..
D.1 . TU$.".............................
":. 1240..)~.UL(1).(CL(1).GP).1..)..UL(2
).(CL(2).GP).1.@)..UL(3).(CL(3)).Q)... L
L . 1 . D.G)... MM . 1 . UL(LL).)..UL$(
LL).UL$(LL)."."..)... MM..)D.. LL..)N.TU
$.UL$(1)." ".UL$(2)." ".UL$(3).H$.A)X..8
0.G)..:.Z).... 0,2,39,24,1..)..."."..)..
."....DISK FUNCTIONS".)*..."...1. DEVICE
NUMBER & DISK DIRECTORY".?*..."..2. SAV
E PAGE".U*..."..3. LOAD PAGE".U*(.."..4.
EXIT DISK FUNCTIONS"..*2.."....SELECT O
PTION (1-4).";:. DF..*<.. DF . 1360,1420
,1560,1700.D*F..1260..*P.."..ENTER DEVIC
E NUMBER 8....";:. UN..+Z... 40,2,79,24
,1..+D.W 1710.&+N..".":.U(UN),"POPP.*".:
+X.. DS.0 . . 1710.D+...1260.W+.... 0,2,
39,24,1.`+...".".U+ .."....SAVE PAGE"..+
..."...ENTER FILE NAME ";:. NF$..+...2,(
UN),2,"@0:POPP.".NF$.",S,W".I+...2,TT$(1
).W+H..2,TT$(2)..+R..2,TT$(3)..+...2,MC$
..+...2,FC$..,...2,TU$..,.. 2.!,... DS.0
. . 1710.+,...1260.>,.... 0,2,39,24,1.G
,"..".".\,,.."....LOAD PAGE".~,6.."...EN
TER FILE NAME ";:. NF$..,@..2,(UN),2,"0:
POPP.".NF$.",S,R"..,J..2,TT$(1)..,T..2,T
T$(2).K,^..2,TT$(3).V,H..2,MC$..,R..2,FC
$..,|..2,TU$..,.. 2..-... DS.0 . . 1710.
.-...1260..-...80./-... DISK ERROR TRAP.
>-..."...";DS$.A-B.."..ANY KEY":.. AA$:.
".":.1260..-L.."..EXIT, ARE YOU SURE? (Y
/N)";:.EX$:. EX$."Y" . .. -V..80...
> CLICK IMAGE PREVIEW FOR FULL MODAL