COLLECTION KIT
FILE INFORMATION
FILENAME(S): COLLECTION KIT
FILE TYPE(S): PRG
FILE SIZE: 12.1K
FIRST SEEN: 2025-11-02 22:11:39
APPEARS ON: 2 disk(s)
FILE HASH
43e518e5b2ff1751b67b0e802afc50c3addc084260331ef79a1ceff524f70fa6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15715 46ER SH15 | COLLECTION KIT | PRG | Treasure Chest - ToGuMi | 29 | 6 | DOWNLOAD FILE |
| 15715 46ER SH15 | COLLECTION KIT | PRG | C64er | 29 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 01 00 8F 20 |*********.Q.... |
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 2A 00 79 08 02 00 8F 20 2A 20 20 54 48 45 20 53 |*.y.... * THE S|
00000060: 54 41 4D 50 49 4E 47 20 43 4F 4C 4C 45 43 54 49 |TAMPING COLLECTI|
00000070: 4F 4E 20 4B 49 54 20 20 2A 00 A1 08 03 00 8F 20 |ON KIT *...... |
00000080: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 2A 00 C9 08 04 00 8F 20 2A 20 20 28 43 29 20 49 |*...... * (C) I|
000000B0: 4E 20 31 39 38 36 20 20 42 59 20 41 52 4E 44 54 |N 1986 BY ARNDT|
000000C0: 20 47 41 4E 53 45 20 20 2A 00 F1 08 05 00 8F 20 | GANSE *...... |
000000D0: 2A 20 20 49 4E 20 44 45 4E 20 44 4F 52 4E 45 4E |* IN DEN DORNEN|
000000E0: 20 33 32 20 20 20 20 20 20 20 20 20 20 20 20 20 | 32 |
000000F0: 2A 00 19 09 06 00 8F 20 2A 20 20 35 38 31 30 20 |*...... * 5810 |
00000100: 57 49 54 54 45 4E 2D 41 4E 4E 45 4E 20 20 20 20 |WITTEN-ANNEN |
00000110: 20 20 20 20 20 20 20 20 2A 00 41 09 07 00 8F 20 | *.A.... |
00000120: 2A 20 20 54 45 4C 2E 20 30 32 33 30 32 2F 36 30 |* TEL. 02302/60|
00000130: 36 39 38 20 20 20 20 20 20 20 20 20 20 20 20 20 |698 |
00000140: 2A 00 69 09 08 00 8F 20 2A 20 20 20 20 20 20 20 |*.i.... * |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 2A 00 91 09 09 00 8F 20 | *...... |
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 00 D2 09 0A 00 97 35 33 32 38 30 2C 31 32 3A |*......53280,12:|
000001A0: 97 35 33 32 38 31 2C 31 32 3A 99 22 93 05 22 3A |.53281,12:."..":|
000001B0: 86 41 24 28 32 32 29 2C 52 56 24 28 32 32 29 2C |.A$(22),RV$(22),|
000001C0: 42 24 28 32 31 29 3A 51 B2 31 3A 5A B2 34 3A 53 |B$(21):Q.1:Z.4:S|
000001D0: B2 31 00 16 0A 14 00 81 49 B2 31 A4 34 30 3A 42 |.1......I.1.40:B|
000001E0: 31 24 B2 42 31 24 AA 22 20 22 3A 42 32 24 B2 42 |1$.B1$." ":B2$.B|
000001F0: 32 24 AA 22 C0 22 3A 82 3A 42 52 B2 31 32 3A 4C |2$.".":.:BR.12:L|
00000200: 47 B2 31 31 3A 96 A5 5A 42 28 58 29 B2 4C 47 AA |G.11:..ZB(X).LG.|
00000210: 5A 3A 49 43 B2 31 00 3A 0A 1E 00 96 A5 53 42 28 |Z:IC.1.:.....SB(|
00000220: 58 29 B2 53 AA C3 28 41 24 28 41 5A 29 29 AA 31 |X).S..(A$(AZ)).1|
00000230: 3A 53 41 B2 31 3A 49 51 B2 31 00 6F 0A 28 00 53 |:SA.1:IQ.1.o.(.S|
00000240: 5A B2 36 35 30 30 3A 53 57 B2 31 3A 81 49 B2 31 |Z.6500:SW.1:.I.1|
00000250: A4 34 30 3A 42 33 24 B2 42 33 24 AA 22 C3 22 3A |.40:B3$.B3$.".":|
00000260: 82 3A 8B 50 53 B2 31 A7 53 5A B2 34 35 30 30 00 |.:.PS.1.SZ.4500.|
00000270: B6 0A 29 00 46 46 24 28 31 29 B2 22 1D 4B 4F 45 |..).FF$(1).".KOE|
00000280: 4E 49 47 52 45 49 43 48 22 3A 46 46 24 28 32 29 |NIGREICH":FF$(2)|
00000290: B2 22 1D 47 52 4F 53 53 48 45 52 5A 4F 47 54 55 |.".GROSSHERZOGTU|
000002A0: 4D 22 3A 46 46 24 28 33 29 B2 22 1D 48 45 52 5A |M":FF$(3).".HERZ|
000002B0: 4F 47 54 55 4D 22 00 F7 0A 2A 00 46 46 24 28 34 |OGTUM"...*.FF$(4|
000002C0: 29 B2 22 1D 52 45 50 55 42 4C 49 4B 22 3A 46 46 |).".REPUBLIK":FF|
000002D0: 24 28 35 29 B2 22 1D 4B 41 49 53 45 52 52 45 49 |$(5).".KAISERREI|
000002E0: 43 48 22 3A 46 46 24 28 36 29 B2 22 1D 46 52 45 |CH":FF$(6).".FRE|
000002F0: 49 53 54 41 41 54 22 00 26 0B 2B 00 46 46 24 28 |ISTAAT".&.+.FF$(|
00000300: 37 29 B2 22 1D 46 55 45 52 53 54 45 4E 54 55 4D |7).".FUERSTENTUM|
00000310: 22 3A 46 46 24 28 38 29 B2 22 1D 56 4F 4C 4B 53 |":FF$(8).".VOLKS|
00000320: 53 54 41 41 54 22 00 30 0B 31 00 89 31 30 30 30 |STAAT".0.1..1000|
00000330: 00 36 0B 32 00 3A 00 4A 0B 3C 00 8F 20 53 54 41 |.6.2.:.J.<.. STA|
00000340: 4E 44 41 52 44 4D 41 53 4B 45 00 50 0B 46 00 3A |NDARDMASKE.P.F.:|
00000350: 00 82 0B 50 00 99 22 13 B3 AB AB AB AB AB AB AB |...P..".........|
00000360: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000370: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB B2 |................|
00000380: 22 3B 00 BB 0B 5A 00 99 22 CF B7 B7 B7 B7 B7 B7 |";...Z..".......|
00000390: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000003A0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000003B0: D0 22 3B 3A 81 44 B2 31 A4 32 31 00 EE 0B 64 00 |.";:.D.1.21...d.|
000003C0: 99 22 B4 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 20 AA 22 3B 3A 82 00 1F | .";:...|
000003F0: 0C 6E 00 99 22 CC AF AF AF AF AF AF AF AF AF AF |.n.."...........|
00000400: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000410: AF AF AF AF AF AF AF AF AF AF AF AF BA 22 3B 00 |.............";.|
00000420: 35 0C 6F 00 8B 50 53 B2 30 A7 99 22 20 50 41 52 |5.o..PS.0.." PAR|
00000430: 54 20 49 22 3B 00 4B 0C 70 00 8B 50 53 B2 31 A7 |T I";.K.p..PS.1.|
00000440: 99 22 20 50 41 52 54 20 5E 22 3B 00 5B 0C 71 00 |." PART ^";.[.q.|
00000450: 99 C8 28 42 31 24 2C 31 35 29 3B 00 7B 0C 72 00 |..(B1$,15);.{.r.|
00000460: 8B 55 25 B2 30 A7 99 22 20 44 41 54 41 20 42 41 |.U%.0.." DATA BA|
00000470: 4E 4B 20 43 4C 4F 53 45 44 13 22 00 9B 0C 73 00 |NK CLOSED."...s.|
00000480: 8B 55 25 B2 31 A7 99 22 20 20 20 44 41 54 41 20 |.U%.1.." DATA |
00000490: 42 41 4E 4B 20 4F 50 45 4E 13 22 00 A1 0C 77 00 |BANK OPEN."...w.|
000004A0: 8E 00 A7 0C 78 00 3A 00 BD 0C 82 00 8F 20 4D 45 |....x.:...... ME|
000004B0: 4E 55 45 45 52 53 54 45 4C 4C 55 4E 47 00 C3 0C |NUEERSTELLUNG...|
000004C0: 8C 00 3A 00 0D 0D 96 00 99 22 13 B3 AB AB 22 3B |..:......"....";|
000004D0: 58 24 28 31 29 3B 22 AB AB 22 3B 58 24 28 32 29 |X$(1);"..";X$(2)|
000004E0: 3B 22 AB AB 22 3B 58 24 28 33 29 3B 22 AB AB 22 |;"..";X$(3);".."|
000004F0: 3B 58 24 28 34 29 3B 22 AB AB 22 3B 58 24 28 35 |;X$(4);"..";X$(5|
00000500: 29 3B 22 AB AB 22 3B 58 24 28 36 29 3B 00 18 0D |);"..";X$(6);...|
00000510: 9B 00 99 22 AB AB B2 22 00 1E 0D A0 00 8E 00 24 |..."...".......$|
00000520: 0D AA 00 3A 00 37 0D B4 00 8F 20 4D 45 4E 55 45 |...:.7.... MENUE|
00000530: 41 55 53 57 41 48 4C 00 3D 0D BE 00 3A 00 55 0D |AUSWAHL.=...:.U.|
00000540: C8 00 56 59 B2 31 3A 4A B2 C2 28 35 36 33 32 30 |..VY.1:J..(56320|
00000550: 29 3A A1 58 24 00 79 0D D2 00 8B 28 4A AF 38 29 |):.X$.y....(J.8)|
00000560: B2 30 B0 58 24 B2 22 1D 22 A7 8B 49 51 B2 36 A7 |.0.X$."."..IQ.6.|
00000570: 49 51 B2 31 3A 89 32 36 30 00 A0 0D DC 00 8B 28 |IQ.1:.260......(|
00000580: 4A AF 38 29 B2 30 B0 58 24 B2 22 1D 22 A7 8B 49 |J.8).0.X$."."..I|
00000590: 51 B3 36 A7 49 51 B2 49 51 AA 31 3A 89 32 36 30 |Q.6.IQ.IQ.1:.260|
000005A0: 00 C4 0D E6 00 8B 28 4A AF 34 29 B2 30 B0 58 24 |......(J.4).0.X$|
000005B0: B2 22 9D 22 A7 8B 49 51 B2 31 A7 49 51 B2 36 3A |."."..IQ.1.IQ.6:|
000005C0: 89 32 36 30 00 EB 0D F0 00 8B 28 4A AF 34 29 B2 |.260......(J.4).|
000005D0: 30 B0 58 24 B2 22 9D 22 A7 8B 49 51 B1 31 A7 49 |0.X$."."..IQ.1.I|
000005E0: 51 B2 49 51 AB 31 3A 89 32 36 30 00 09 0E FA 00 |Q.IQ.1:.260.....|
000005F0: 8B 28 4A AF 31 36 29 B2 30 B0 58 24 B2 C7 28 31 |.(J.16).0.X$..(1|
00000600: 33 29 A7 56 59 B2 30 3A 8E 00 42 0E 04 01 81 49 |3).VY.0:..B....I|
00000610: B2 31 A4 36 3A 58 24 28 49 29 B2 22 92 22 AA C9 |.1.6:X$(I)."."..|
00000620: 28 58 24 28 49 29 2C 35 29 3A 82 3A 58 24 28 49 |(X$(I),5):.:X$(I|
00000630: 51 29 B2 22 12 22 AA C9 28 58 24 28 49 51 29 2C |Q)."."..(X$(IQ),|
00000640: 35 29 00 5B 0E 0E 01 8D 31 32 30 3A 8B 56 59 B2 |5).[....120:.VY.|
00000650: 31 A7 56 59 B2 30 3A 89 31 37 30 00 61 0E 18 01 |1.VY.0:.170.a...|
00000660: 8E 00 67 0E 22 01 3A 00 7C 0E 2C 01 8F 20 57 49 |..g.".:.|.,.. WI|
00000670: 4E 44 4F 57 2D 54 45 43 48 4E 49 4B 00 82 0E 36 |NDOW-TECHNIK...6|
00000680: 01 3A 00 A3 0E 40 01 8B 5A B1 28 32 31 AB 4C 47 |.:...@..Z.(21.LG|
00000690: 29 B0 53 B1 28 33 37 AB 42 52 29 A7 5A B2 32 3A |).S.(37.BR).Z.2:|
000006A0: 53 B2 32 00 DE 0E 4A 01 5A 31 B2 5A AA 31 3A 53 |S.2...J.Z1.Z.1:S|
000006B0: 31 B2 53 AA 31 3A 97 32 31 34 2C 5A 3A 97 32 31 |1.S.1:.214,Z:.21|
000006C0: 31 2C 53 3A 9E 35 38 37 33 32 3A 99 22 05 D5 22 |1,S:.58732:.".."|
000006D0: 3B C8 28 42 32 24 2C 42 52 29 3B 22 C9 22 00 16 |;.(B2$,BR);"."..|
000006E0: 0F 54 01 81 58 B2 31 A4 4C 47 3A 97 32 31 34 2C |.T..X.1.LG:.214,|
000006F0: 5A AA 58 3A 97 32 31 31 2C 53 3A 9E 35 38 37 33 |Z.X:.211,S:.5873|
00000700: 32 3A 99 22 DD 22 3B C8 28 42 31 24 2C 42 52 29 |2:.".";.(B1$,BR)|
00000710: 3B 22 C2 22 3A 82 00 4D 0F 5E 01 97 32 31 34 2C |;".":..M.^..214,|
00000720: 5A AA 58 3A 97 32 31 31 2C 53 3A 9E 35 38 37 33 |Z.X:.211,S:.5873|
00000730: 32 3A 99 22 CA 22 3B C8 28 42 33 24 2C 42 52 29 |2:.".";.(B3$,BR)|
00000740: 3B 22 CB 13 22 3A 81 49 B2 31 A4 41 5A 00 82 0F |;"..":.I.1.AZ...|
00000750: 68 01 97 32 31 34 2C 5A 31 3A 97 32 31 31 2C 53 |h..214,Z1:.211,S|
00000760: 31 3A 9E 35 38 37 33 32 3A 99 41 24 28 49 29 3A |1:.58732:.A$(I):|
00000770: 5A 31 B2 5A 31 AA 31 3A 82 3A 97 36 34 36 2C 31 |Z1.Z1.1:.:.646,1|
00000780: 3A 8E 00 88 0F 72 01 3A 00 9C 0F 7C 01 8F 20 49 |:....r.:...|.. I|
00000790: 4E 50 55 54 2D 52 4F 55 54 49 4E 45 00 A2 0F 86 |NPUT-ROUTINE....|
000007A0: 01 3A 00 AD 0F 90 01 97 31 39 38 2C 30 00 EA 0F |.:......198,0...|
000007B0: 9A 01 53 42 B2 A5 53 42 28 58 29 3A 5A 42 B2 A5 |..SB..SB(X):ZB..|
000007C0: 5A 42 28 58 29 3A 42 45 24 B2 22 22 3A 97 32 31 |ZB(X):BE$."":.21|
000007D0: 34 2C 5A 42 3A 97 32 31 31 2C 53 42 3A 9E 35 38 |4,ZB:.211,SB:.58|
000007E0: 37 33 32 3A 97 32 30 34 2C 30 00 15 10 A4 01 A1 |732:.204,0......|
000007F0: 58 24 3A 8B 58 24 B2 C7 28 31 33 29 AF C3 28 42 |X$:.X$..(13)..(B|
00000800: 45 24 29 B1 B2 4D 49 A7 97 32 30 34 2C 31 3A 99 |E$)..MI..204,1:.|
00000810: 22 20 22 3A 8E 00 24 10 AE 01 8B 58 24 B2 22 22 |" ":..$....X$.""|
00000820: A7 34 32 30 00 41 10 B8 01 58 B2 C6 28 58 24 29 |.420.A...X..(X$)|
00000830: 3A 8B 58 B2 32 30 AF 42 45 24 B2 22 22 A7 34 32 |:.X.20.BE$."".42|
00000840: 30 00 55 10 BD 01 8B 58 B2 31 33 33 AF 50 53 B2 |0.U....X.133.PS.|
00000850: 30 A7 38 35 30 00 73 10 BF 01 8B 58 B1 31 33 32 |0.850.s....X.132|
00000860: AF 58 B3 31 34 31 AF 50 53 B2 31 AF 53 B2 36 A7 |.X.141.PS.1.S.6.|
00000870: 39 34 30 00 9B 10 C2 01 8B 58 B2 32 30 A7 99 22 |940......X.20.."|
00000880: 9D 20 20 9D 9D 22 3B 3A 42 45 24 B2 C8 28 42 45 |. ..";:BE$..(BE|
00000890: 24 2C C3 28 42 45 24 29 AB 31 29 00 B9 10 CC 01 |$,.(BE$).1).....|
000008A0: 8B 58 B3 33 32 B0 58 B1 39 35 B0 C3 28 42 45 24 |.X.32.X.95..(BE$|
000008B0: 29 B1 B2 4D 41 A7 34 32 30 00 D9 10 D6 01 99 58 |)..MA.420......X|
000008C0: 24 3B 3A 8B 58 B2 33 32 A7 42 45 24 B2 42 45 24 |$;:.X.32.BE$.BE$|
000008D0: AA 22 1D 22 3A 89 34 32 30 00 ED 10 DB 01 42 45 |.".":.420.....BE|
000008E0: 24 B2 42 45 24 AA 58 24 3A 89 34 32 30 00 F3 10 |$.BE$.X$:.420...|
000008F0: E0 01 3A 00 0E 11 EA 01 8F 20 4D 45 4E 55 45 41 |..:...... MENUEA|
00000900: 55 53 57 41 48 4C 2D 52 4F 55 54 49 4E 45 00 14 |USWAHL-ROUTINE..|
00000910: 11 F4 01 3A 00 1F 11 FE 01 97 31 39 38 2C 30 00 |...:......198,0.|
00000920: 63 11 08 02 81 49 B2 31 A4 41 5A 3A 52 56 24 28 |c....I.1.AZ:RV$(|
00000930: 49 29 B2 22 92 22 3A 82 49 3A 51 B2 51 AA 28 28 |I).".":.I:Q.Q.((|
00000940: 51 B1 41 5A 29 AC 41 5A 29 3A 52 56 24 28 51 29 |Q.AZ).AZ):RV$(Q)|
00000950: B2 22 12 22 3A 5A 31 B2 5A AA 31 3A 81 49 B2 31 |.".":Z1.Z.1:.I.1|
00000960: A4 41 5A 00 9B 11 12 02 97 32 31 34 2C 5A 31 3A |.AZ......214,Z1:|
00000970: 97 32 31 31 2C 53 31 3A 9E 35 38 37 33 32 3A 99 |.211,S1:.58732:.|
00000980: 52 56 24 28 49 29 3B 41 24 28 49 29 3B 22 92 22 |RV$(I);A$(I);"."|
00000990: 3A 5A 31 B2 5A 31 AA 31 3A 82 49 00 AE 11 1C 02 |:Z1.Z1.1:.I.....|
000009A0: 4A B2 C2 28 35 36 33 32 30 29 3A A1 58 24 00 D2 |J..(56320):.X$..|
000009B0: 11 26 02 8B 28 4A AF 31 29 B2 30 B0 58 24 B2 22 |.&..(J.1).0.X$."|
000009C0: 91 22 A7 8B 51 B2 42 4E A7 51 B2 45 4E 3A 89 35 |."..Q.BN.Q.EN:.5|
000009D0: 32 30 00 F7 11 30 02 8B 28 4A AF 31 29 B2 30 B0 |20...0..(J.1).0.|
000009E0: 58 24 B2 22 91 22 A7 8B 51 B1 42 4E A7 51 B2 51 |X$."."..Q.BN.Q.Q|
000009F0: AB 31 3A 89 35 32 30 00 1B 12 3A 02 8B 28 4A AF |.1:.520...:..(J.|
00000A00: 32 29 B2 30 B0 58 24 B2 22 11 22 A7 8B 51 B2 45 |2).0.X$."."..Q.E|
00000A10: 4E A7 51 B2 42 4E 3A 89 35 32 30 00 40 12 44 02 |N.Q.BN:.520.@.D.|
00000A20: 8B 28 4A AF 32 29 B2 30 B0 58 24 B2 22 11 22 A7 |.(J.2).0.X$.".".|
00000A30: 8B 51 B3 45 4E A7 51 B2 51 AA 31 3A 89 35 32 30 |.Q.EN.Q.Q.1:.520|
00000A40: 00 59 12 4E 02 8B 28 4A AF 31 36 29 B2 30 B0 58 |.Y.N..(J.16).0.X|
00000A50: 24 B2 C7 28 31 33 29 A7 8E 00 62 12 58 02 89 35 |$..(13)...b.X..5|
00000A60: 32 30 00 68 12 BC 02 3A 00 83 12 C6 02 8F 20 5A |20.h...:...... Z|
00000A70: 45 49 47 45 52 20 50 4F 53 49 54 49 4F 4E 49 45 |EIGER POSITIONIE|
00000A80: 52 45 4E 00 89 12 D0 02 3A 00 C7 12 DA 02 48 42 |REN.....:.....HB|
00000A90: 25 B2 53 41 AD 32 35 36 3A 4C 42 25 B2 53 41 AB |%.SA.256:LB%.SA.|
00000AA0: 48 42 25 AC 32 35 36 3A 98 31 35 2C 22 50 22 3B |HB%.256:.15,"P";|
00000AB0: C7 28 33 29 3B C7 28 4C 42 25 29 3B C7 28 48 42 |.(3);.(LB%);.(HB|
00000AC0: 25 29 3B C7 28 31 29 00 CD 12 E4 02 8E 00 D3 12 |%);.(1).........|
00000AD0: EE 02 3A 00 EB 12 F8 02 8F 20 44 49 53 4B 20 55 |..:...... DISK U|
00000AE0: 45 42 45 52 50 46 55 45 46 45 4E 00 F1 12 02 03 |EBERPFUEFEN.....|
00000AF0: 3A 00 1F 13 0C 03 46 25 B2 C2 28 37 36 38 29 3A |:.....F%..(768):|
00000B00: 97 37 36 38 2C 31 38 35 3A 9F 31 2C 38 2C 31 35 |.768,185:.1,8,15|
00000B10: 2C 22 49 22 3A A0 31 3A 97 37 36 38 2C 46 25 00 |,"I":.1:.768,F%.|
00000B20: 2F 13 16 03 8B 53 54 B3 B1 AB 31 32 38 A7 8E 00 |/....ST...128...|
00000B30: 7D 13 20 03 41 5A B2 36 3A 41 24 28 31 29 B2 22 |}. .AZ.6:A$(1)."|
00000B40: 44 52 49 56 45 22 3A 41 24 28 32 29 B2 22 4E 4F |DRIVE":A$(2)."NO|
00000B50: 54 22 3A 41 24 28 33 29 B2 22 52 45 41 44 59 2E |T":A$(3)."READY.|
00000B60: 22 3A 41 24 28 34 29 B2 22 22 3A 41 24 28 35 29 |":A$(4)."":A$(5)|
00000B70: B2 22 50 52 45 53 53 22 3A 53 B2 31 30 00 AF 13 |."PRESS":S.10...|
00000B80: 2A 03 41 24 28 36 29 B2 22 42 55 54 54 4F 4E 22 |*.A$(6)."BUTTON"|
00000B90: 3A 5A B2 5A AA 32 3A 42 52 B2 36 3A 4C 47 B2 36 |:Z.Z.2:BR.6:LG.6|
00000BA0: 3A 8D 33 32 30 3A 8D 39 39 30 3A 89 37 38 30 00 |:.320:.990:.780.|
00000BB0: B5 13 34 03 3A 00 CA 13 3E 03 8F 20 49 4E 50 55 |..4.:...>.. INPU|
00000BC0: 54 20 5A 55 53 41 54 5A 20 49 00 D0 13 48 03 3A |T ZUSATZ I...H.:|
00000BD0: 00 ED 13 52 03 97 32 31 31 2C 53 42 3A 9E 35 38 |...R..211,SB:.58|
00000BE0: 37 33 32 3A 8B 53 B2 36 A7 44 53 B2 31 00 FC 13 |732:.S.6.DS.1...|
00000BF0: 5C 03 8B 53 B2 31 31 A7 44 53 B2 32 00 0B 14 66 |\..S.11.DS.2...f|
00000C00: 03 8B 53 B2 31 35 A7 44 53 B2 33 00 1A 14 70 03 |..S.15.DS.3...p.|
00000C10: 8B 53 B2 32 35 A7 44 53 B2 34 00 29 14 7A 03 8B |.S.25.DS.4.).z..|
00000C20: 53 B2 32 38 A7 44 53 B2 35 00 57 14 84 03 99 54 |S.28.DS.5.W....T|
00000C30: 52 24 28 44 53 29 3B 3A 42 45 24 B2 54 52 24 28 |R$(DS);:BE$.TR$(|
00000C40: 44 53 29 3A 97 31 39 38 2C 31 3A 97 36 33 31 2C |DS):.198,1:.631,|
00000C50: 31 33 3A 89 34 32 30 00 5D 14 8E 03 3A 00 73 14 |13:.420.]...:.s.|
00000C60: 98 03 8F 20 49 4E 50 55 54 20 5A 55 53 41 54 5A |... INPUT ZUSATZ|
00000C70: 20 49 49 00 79 14 A2 03 3A 00 96 14 AC 03 97 32 | II.y...:......2|
00000C80: 31 31 2C 53 42 3A 9E 35 38 37 33 32 3A 8B 53 B2 |11,SB:.58732:.S.|
00000C90: 36 A7 44 53 B2 31 00 CA 14 B6 03 99 46 46 24 28 |6.DS.1......FF$(|
00000CA0: 58 AB 31 33 32 29 3B 3A 42 45 24 B2 46 46 24 28 |X.132);:BE$.FF$(|
00000CB0: 58 AB 31 33 32 29 3A 97 31 39 38 2C 31 3A 97 36 |X.132):.198,1:.6|
00000CC0: 33 31 2C 31 33 3A 89 34 32 30 00 D0 14 C0 03 3A |31,13:.420.....:|
00000CD0: 00 EA 14 CA 03 8F 20 57 41 52 54 45 4E 20 41 55 |...... WARTEN AU|
00000CE0: 46 20 52 45 41 4B 54 49 4F 4E 00 F0 14 D4 03 3A |F REAKTION.....:|
00000CF0: 00 10 15 DE 03 A1 58 24 3A 8B C2 28 35 36 33 32 |......X$:..(5632|
00000D00: 30 29 AF 31 36 B2 30 A7 58 24 B2 C7 28 31 33 29 |0).16.0.X$..(13)|
00000D10: 00 20 15 E3 03 8B 58 24 B2 C7 28 31 33 29 A7 8E |. ....X$..(13)..|
00000D20: 00 29 15 E7 03 89 39 39 30 00 2F 15 E8 03 3A 00 |.)....990./...:.|
00000D30: 44 15 F2 03 8F 20 48 41 55 50 54 56 45 52 54 45 |D.... HAUPTVERTE|
00000D40: 49 4C 45 52 00 4A 15 FC 03 3A 00 94 15 06 04 58 |ILER.J...:.....X|
00000D50: 24 28 31 29 B2 22 43 52 54 45 92 22 3A 58 24 28 |$(1)."CRTE.":X$(|
00000D60: 32 29 B2 22 4F 50 45 4E 92 22 3A 58 24 28 33 29 |2)."OPEN.":X$(3)|
00000D70: B2 22 44 49 53 4B 92 22 3A 58 24 28 34 29 B2 22 |."DISK.":X$(4)."|
00000D80: 45 44 49 54 92 22 3A 58 24 28 35 29 B2 22 50 52 |EDIT.":X$(5)."PR|
00000D90: 4E 54 92 22 00 B9 15 10 04 58 24 28 36 29 B2 22 |NT.".....X$(6)."|
00000DA0: 45 58 49 54 92 22 3A 8D 38 30 3A 8D 32 36 30 3A |EXIT.":.80:.260:|
00000DB0: 8D 31 35 30 3A 8D 32 30 30 00 DF 15 1A 04 91 49 |.150:.200......I|
00000DC0: 51 89 33 30 30 30 2C 32 30 30 30 2C 34 30 30 30 |Q.3000,2000,4000|
00000DD0: 2C 37 30 30 30 2C 38 30 30 30 2C 36 30 30 30 00 |,7000,8000,6000.|
00000DE0: E5 15 24 04 80 00 EB 15 D0 07 3A 00 F6 15 DA 07 |..$.......:.....|
00000DF0: 8F 20 4F 50 45 4E 00 FC 15 E4 07 3A 00 11 16 EE |. OPEN.....:....|
00000E00: 07 8B 55 25 B2 30 A7 55 25 B2 31 3A 89 32 30 37 |..U%.0.U%.1:.207|
00000E10: 30 00 60 16 F8 07 41 5A B2 38 3A 41 24 28 31 29 |0.`...AZ.8:A$(1)|
00000E20: B2 22 59 4F 55 20 4D 55 53 54 22 3A 41 24 28 32 |."YOU MUST":A$(2|
00000E30: 29 B2 22 46 49 52 53 54 22 3A 41 24 28 33 29 B2 |)."FIRST":A$(3).|
00000E40: 22 43 4C 4F 53 45 22 3A 41 24 28 34 29 B2 22 54 |"CLOSE":A$(4)."T|
00000E50: 48 45 20 4C 41 53 54 22 3A 53 B2 35 3A 5A B2 32 |HE LAST":S.5:Z.2|
00000E60: 00 AB 16 02 08 41 24 28 35 29 B2 22 44 41 54 41 |.....A$(5)."DATA|
00000E70: 20 42 41 4E 4B 22 3A 41 24 28 36 29 B2 22 22 3A | BANK":A$(6)."":|
00000E80: 41 24 28 37 29 B2 22 50 52 45 53 53 22 3A 41 24 |A$(7)."PRESS":A$|
00000E90: 28 38 29 B2 22 42 55 54 54 4F 4E 22 3A 42 52 B2 |(8)."BUTTON":BR.|
00000EA0: 39 3A 4C 47 B2 38 3A 8D 33 32 30 00 BA 16 0C 08 |9:LG.8:.320.....|
00000EB0: 8D 39 39 30 3A 89 31 30 33 30 00 08 17 16 08 41 |.990:.1030.....A|
00000EC0: 5A B2 35 3A 41 24 28 31 29 B2 22 50 4C 45 41 53 |Z.5:A$(1)."PLEAS|
00000ED0: 45 22 3A 41 24 28 32 29 B2 22 45 4E 54 45 52 22 |E":A$(2)."ENTER"|
00000EE0: 3A 41 24 28 33 29 B2 22 4E 41 4D 45 22 3A 41 24 |:A$(3)."NAME":A$|
00000EF0: 28 34 29 B2 22 22 3A 41 24 28 35 29 B2 22 3A 22 |(4)."":A$(5).":"|
00000F00: 3A 53 B2 37 3A 5A B2 32 00 38 17 20 08 42 52 B2 |:S.7:Z.2.8. .BR.|
00000F10: 36 3A 4C 47 B2 35 3A 4D 49 B2 31 3A 4D 41 B2 35 |6:LG.5:MI.1:MA.5|
00000F20: 3A 8D 33 32 30 3A 8D 34 30 30 3A 8B 42 45 24 B2 |:.320:.400:.BE$.|
00000F30: 22 5F 22 A7 31 30 33 30 00 61 17 25 08 44 41 24 |"_".1030.a.%.DA$|
00000F40: B2 42 45 24 3A 41 5A B2 36 3A 41 24 28 31 29 B2 |.BE$:AZ.6:A$(1).|
00000F50: 22 50 4C 45 41 53 45 22 3A 53 B2 35 3A 42 52 B2 |"PLEASE":S.5:BR.|
00000F60: 39 00 A5 17 2A 08 41 24 28 32 29 B2 22 49 4E 53 |9...*.A$(2)."INS|
00000F70: 45 52 54 22 3A 41 24 28 33 29 B2 22 59 4F 55 52 |ERT":A$(3)."YOUR|
00000F80: 20 44 41 54 41 22 3A 41 24 28 34 29 B2 22 44 49 | DATA":A$(4)."DI|
00000F90: 53 4B 20 41 4E 44 22 3A 41 24 28 35 29 B2 22 50 |SK AND":A$(5)."P|
00000FA0: 52 45 53 53 22 00 D2 17 34 08 41 24 28 36 29 B2 |RESS"...4.A$(6).|
00000FB0: 22 42 55 54 54 4F 4E 22 3A 4C 47 B2 36 3A 5A B2 |"BUTTON":LG.6:Z.|
00000FC0: 5A AA 32 3A 8D 33 32 30 3A 8D 39 39 30 3A 8D 37 |Z.2:.320:.990:.7|
00000FD0: 38 30 00 F5 17 3E 08 9F 31 35 2C 38 2C 31 35 2C |80...>..15,8,15,|
00000FE0: 22 49 30 22 3A 9F 31 2C 38 2C 33 2C 44 41 24 3A |"I0":.1,8,3,DA$:|
00000FF0: 89 31 30 33 30 00 FB 17 B8 0B 3A 00 08 18 C2 0B |.1030.....:.....|
00001000: 8F 20 43 52 45 41 54 45 00 0E 18 CC 0B 3A 00 1E |. CREATE.....:..|
00001010: 18 D6 0B 8B 55 25 B3 B1 30 A7 32 30 33 30 00 6C |....U%..0.2030.l|
00001020: 18 E0 0B 41 5A B2 35 3A 41 24 28 31 29 B2 22 50 |...AZ.5:A$(1)."P|
00001030: 4C 45 41 53 45 22 3A 41 24 28 32 29 B2 22 45 4E |LEASE":A$(2)."EN|
00001040: 54 45 52 22 3A 41 24 28 33 29 B2 22 4E 41 4D 45 |TER":A$(3)."NAME|
00001050: 22 3A 41 24 28 34 29 B2 22 22 3A 41 24 28 35 29 |":A$(4)."":A$(5)|
00001060: B2 22 3A 22 3A 53 B2 31 3A 5A B2 32 00 9C 18 EA |.":":S.1:Z.2....|
00001070: 0B 42 52 B2 36 3A 4C 47 B2 35 3A 4D 49 B2 31 3A |.BR.6:LG.5:MI.1:|
00001080: 4D 41 B2 35 3A 8D 33 32 30 3A 8D 34 30 30 3A 8B |MA.5:.320:.400:.|
00001090: 42 45 24 B2 22 5F 22 A7 31 30 33 30 00 C5 18 EF |BE$."_".1030....|
000010A0: 0B 44 41 24 B2 42 45 24 3A 41 5A B2 36 3A 41 24 |.DA$.BE$:AZ.6:A$|
000010B0: 28 31 29 B2 22 50 4C 45 41 53 45 22 3A 53 B2 31 |(1)."PLEASE":S.1|
000010C0: 3A 42 52 B2 39 00 0B 19 F4 0B 41 24 28 32 29 B2 |:BR.9.....A$(2).|
000010D0: 22 49 4E 53 45 52 54 20 41 22 3A 41 24 28 33 29 |"INSERT A":A$(3)|
000010E0: B2 22 46 4F 52 4D 41 54 54 45 44 22 3A 41 24 28 |."FORMATTED":A$(|
000010F0: 34 29 B2 22 44 49 53 4B 20 41 4E 44 22 3A 41 24 |4)."DISK AND":A$|
00001100: 28 35 29 B2 22 50 52 45 53 53 22 00 47 19 FE 0B |(5)."PRESS".G...|
00001110: 41 24 28 36 29 B2 22 42 55 54 54 4F 4E 22 3A 4C |A$(6)."BUTTON":L|
00001120: 47 B2 36 3A 5A B2 5A AA 32 3A 8D 33 32 30 3A 8D |G.6:Z.Z.2:.320:.|
00001130: 39 39 30 3A 8D 37 38 30 3A 41 5A B2 35 3A 53 B2 |990:.780:AZ.5:S.|
00001140: 31 3A 5A B2 5A AA 32 00 95 19 08 0C 41 24 28 31 |1:Z.Z.2.....A$(1|
00001150: 29 B2 22 45 4E 54 45 52 22 3A 41 24 28 32 29 B2 |)."ENTER":A$(2).|
00001160: 22 4E 4F 2E 20 4F 46 22 3A 41 24 28 33 29 B2 22 |"NO. OF":A$(3)."|
00001170: 45 4E 54 52 49 45 53 22 3A 41 24 28 34 29 B2 22 |ENTRIES":A$(4)."|
00001180: 22 3A 41 24 28 35 29 B2 22 3A 22 3A 42 52 B2 37 |":A$(5).":":BR.7|
00001190: 3A 4C 47 B2 35 00 C2 19 12 0C 4D 49 B2 31 3A 4D |:LG.5.....MI.1:M|
000011A0: 41 B2 34 3A 8D 33 32 30 3A 8D 34 30 30 3A 53 5A |A.4:.320:.400:SZ|
000011B0: B2 C5 28 42 45 24 29 3A 8B 53 5A B3 31 A7 33 30 |..(BE$):.SZ.1.30|
000011C0: 39 30 00 D9 19 1C 0C 8B 50 53 B2 30 AF 53 5A B1 |90......PS.0.SZ.|
000011D0: 36 35 30 30 A7 33 30 39 30 00 F0 19 21 0C 8B 50 |6500.3090...!..P|
000011E0: 53 B2 31 AF 53 5A B1 34 35 30 30 A7 33 30 39 30 |S.1.SZ.4500.3090|
000011F0: 00 28 1A 26 0C 8B 50 53 B2 30 A7 53 4C B2 32 35 |.(.&..PS.0.SL.25|
00001200: 3A 48 42 B2 B5 28 53 5A AD 32 35 35 29 3A 4C 42 |:HB..(SZ.255):LB|
00001210: B2 53 5A AB 48 42 AC 32 35 35 3A 9F 31 35 2C 38 |.SZ.HB.255:.15,8|
00001220: 2C 31 35 2C 22 49 30 22 00 60 1A 2B 0C 8B 50 53 |,15,"I0".`.+..PS|
00001230: B2 31 A7 53 4C B2 33 31 3A 48 42 B2 B5 28 53 5A |.1.SL.31:HB..(SZ|
00001240: AD 32 35 35 29 3A 4C 42 B2 53 5A AB 48 42 AC 32 |.255):LB.SZ.HB.2|
00001250: 35 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |55:.15,8,15,"I0"|
00001260: 00 99 1A 30 0C 9F 31 2C 38 2C 33 2C 44 41 24 AA |...0..1,8,3,DA$.|
00001270: 22 2C 4C 2C 22 AA C7 28 53 4C 29 3A 98 31 35 2C |",L,"..(SL):.15,|
00001280: 22 50 22 3B C7 28 33 29 3B C7 28 4C 42 29 3B C7 |"P";.(3);.(LB);.|
00001290: 28 48 42 29 3B C7 28 31 29 00 B4 1A 3A 0C 98 31 |(HB);.(1)...:..1|
000012A0: 2C C7 28 32 35 35 29 3A A0 31 3A A0 31 35 3A 89 |,.(255):.1:.15:.|
000012B0: 31 30 33 30 00 BA 1A A0 0F 3A 00 CE 1A AA 0F 8F |1030.....:......|
000012C0: 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 00 D4 | DISK COMMANDS..|
000012D0: 1A B4 0F 3A 00 E4 1A BE 0F 8B 55 25 B3 B1 30 A7 |...:......U%..0.|
000012E0: 32 30 33 30 00 31 1B C8 0F 41 5A B2 35 3A 41 24 |2030.1...AZ.5:A$|
000012F0: 28 31 29 B2 22 22 3A 41 24 28 32 29 B2 22 44 49 |(1)."":A$(2)."DI|
00001300: 53 4B 20 43 4F 4D 4D 41 4E 44 53 22 3A 41 24 28 |SK COMMANDS":A$(|
00001310: 33 29 B2 22 44 49 52 45 43 54 4F 52 59 22 3A 53 |3)."DIRECTORY":S|
00001320: B2 39 3A 5A B2 32 3A 42 52 B2 31 34 3A 4C 47 B2 |.9:Z.2:BR.14:LG.|
00001330: 35 00 6D 1B D2 0F 41 24 28 34 29 B2 22 52 45 54 |5.m...A$(4)."RET|
00001340: 55 52 4E 20 54 4F 20 4D 45 4E 55 22 3A 41 24 28 |URN TO MENU":A$(|
00001350: 35 29 B2 22 22 3A 45 4E B2 34 3A 42 4E B2 32 3A |5)."":EN.4:BN.2:|
00001360: 51 B2 32 3A 8D 33 32 30 3A 8D 35 31 30 00 85 1B |Q.2:.320:.510...|
00001370: DC 0F 91 51 89 30 2C 34 30 37 30 2C 34 31 31 30 |...Q.0,4070,4110|
00001380: 2C 31 30 33 30 00 D3 1B E6 0F 41 5A B2 35 3A 41 |,1030.....AZ.5:A|
00001390: 24 28 31 29 B2 22 49 4E 53 45 52 54 20 44 49 53 |$(1)."INSERT DIS|
000013A0: 4B 22 3A 41 24 28 32 29 B2 22 49 4E 54 4F 20 44 |K":A$(2)."INTO D|
000013B0: 52 49 56 45 22 3A 41 24 28 33 29 B2 22 22 3A 41 |RIVE":A$(3)."":A|
000013C0: 24 28 34 29 B2 22 50 52 45 53 53 20 42 55 54 54 |$(4)."PRESS BUTT|
000013D0: 4F 4E 22 00 02 1C F0 0F 42 52 B2 31 32 3A 4C 47 |ON".....BR.12:LG|
000013E0: B2 34 3A 53 B2 53 AA 32 3A 5A B2 5A AA 32 3A 8D |.4:S.S.2:Z.Z.2:.|
000013F0: 33 32 30 3A 8D 39 39 30 3A 8D 37 38 30 3A 99 22 |320:.990:.780:."|
00001400: 93 22 00 40 1C FA 0F 4D 49 B2 31 3A 4D 41 B2 37 |.".@...MI.1:MA.7|
00001410: 39 3A 53 B2 30 3A 5A B2 30 3A 42 52 B2 30 3A 4C |9:S.0:Z.0:BR.0:L|
00001420: 47 B2 30 3A 8D 34 30 30 3A 9F 31 2C 38 2C 31 35 |G.0:.400:.1,8,15|
00001430: 2C 42 45 24 3A A0 31 3A 9F 31 35 2C 38 2C 31 35 |,BE$:.1:.15,8,15|
00001440: 00 75 1C 04 10 84 31 35 2C 41 2C 42 24 2C 43 2C |.u....15,A,B$,C,|
00001450: 44 3A A0 31 35 3A 99 41 2C 42 24 2C 43 2C 44 3A |D:.15:.A,B$,C,D:|
00001460: 99 22 11 50 52 45 53 53 20 46 49 52 45 20 42 55 |.".PRESS FIRE BU|
00001470: 54 54 4F 4E 22 00 84 1C 09 10 8D 39 39 30 3A 89 |TTON"......990:.|
00001480: 34 30 34 30 00 D2 1C 0E 10 41 5A B2 35 3A 41 24 |4040.....AZ.5:A$|
00001490: 28 31 29 B2 22 49 4E 53 45 52 54 20 44 49 53 4B |(1)."INSERT DISK|
000014A0: 22 3A 41 24 28 32 29 B2 22 49 4E 54 4F 20 44 52 |":A$(2)."INTO DR|
000014B0: 49 56 45 22 3A 41 24 28 33 29 B2 22 22 3A 41 24 |IVE":A$(3)."":A$|
000014C0: 28 34 29 B2 22 50 52 45 53 53 20 42 55 54 54 4F |(4)."PRESS BUTTO|
000014D0: 4E 22 00 01 1D 18 10 42 52 B2 31 32 3A 4C 47 B2 |N".....BR.12:LG.|
000014E0: 34 3A 53 B2 53 AA 32 3A 5A B2 5A AA 32 3A 8D 33 |4:S.S.2:Z.Z.2:.3|
000014F0: 32 30 3A 8D 39 39 30 3A 8D 37 38 30 3A 99 22 93 |20:.990:.780:.".|
00001500: 22 00 1A 1D 22 10 9F 31 2C 38 2C 30 2C 22 24 22 |"..."..1,8,0,"$"|
00001510: 3A A1 23 31 2C 41 24 2C 41 24 00 38 1D 2C 10 A1 |:.#1,A$,A$.8.,..|
00001520: 23 31 2C 41 24 2C 41 24 3A 8B 53 54 B2 36 34 A7 |#1,A$,A$:.ST.64.|
00001530: A0 31 3A 89 34 31 38 30 00 62 1D 36 10 A1 23 31 |.1:.4180.b.6..#1|
00001540: 2C 41 24 2C 42 24 3A 99 C6 28 41 24 AA C7 28 30 |,A$,B$:..(A$..(0|
00001550: 29 29 AA 32 35 36 AC C6 28 42 24 AA C7 28 30 29 |)).256..(B$..(0)|
00001560: 29 3B 00 7F 1D 40 10 A1 23 31 2C 41 24 3A 99 41 |);...@..#1,A$:.A|
00001570: 24 3B 3A 8B 41 24 B3 B1 22 22 A7 34 31 36 30 00 |$;:.A$.."".4160.|
00001580: 96 1D 4A 10 99 3A A1 58 24 3A 8B 58 24 B2 22 5F |..J..:.X$:.X$."_|
00001590: 22 A7 34 31 38 30 00 A0 1D 4F 10 89 34 31 34 30 |".4180...O..4140|
000015A0: 00 C6 1D 54 10 99 22 11 50 52 45 53 53 20 46 49 |...T..".PRESS FI|
000015B0: 52 45 20 42 55 54 54 4F 4E 2E 22 3A 8D 39 39 30 |RE BUTTON.":.990|
000015C0: 3A 89 34 30 34 30 00 CC 1D 70 17 3A 00 D7 1D 7A |:.4040...p.:...z|
000015D0: 17 8F 20 45 58 49 54 00 DD 1D 84 17 3A 00 21 1E |.. EXIT.....:.!.|
000015E0: 8E 17 A0 31 3A A0 31 35 3A 55 25 B2 30 3A 41 5A |...1:.15:U%.0:AZ|
000015F0: B2 35 3A 41 24 28 32 29 B2 22 52 45 54 55 52 4E |.5:A$(2)."RETURN|
00001600: 20 54 4F 20 4D 45 4E 55 22 3A 41 24 28 33 29 B2 | TO MENU":A$(3).|
00001610: 22 52 45 54 55 52 4E 20 54 4F 20 42 41 53 49 43 |"RETURN TO BASIC|
00001620: 22 00 6B 1E 98 17 41 24 28 31 29 B2 22 22 3A 41 |".k...A$(1)."":A|
00001630: 24 28 35 29 B2 22 22 3A 5A B2 32 3A 42 4E B2 32 |$(5)."":Z.2:BN.2|
00001640: 3A 45 4E B2 34 3A 42 52 B2 31 35 3A 4C 47 B2 35 |:EN.4:BR.15:LG.5|
00001650: 3A 8B 50 53 B2 30 A7 41 24 28 34 29 B2 22 45 4E |:.PS.0.A$(4)."EN|
00001660: 54 45 52 20 50 41 52 54 20 5E 22 00 8A 1E 9D 17 |TER PART ^".....|
00001670: 8B 50 53 B2 31 A7 41 24 28 34 29 B2 22 45 4E 54 |.PS.1.A$(4)."ENT|
00001680: 45 52 20 50 41 52 54 20 49 22 00 AB 1E A2 17 53 |ER PART I".....S|
00001690: B2 32 32 3A 51 B2 32 3A 8D 33 32 30 3A 8D 35 31 |.22:Q.2:.320:.51|
000016A0: 30 3A 8B 51 B2 32 A7 31 30 33 30 00 C2 1E AC 17 |0:.Q.2.1030.....|
000016B0: 8B 51 B2 34 AF 50 53 B2 31 A7 50 53 B2 30 3A 89 |.Q.4.PS.1.PS.0:.|
000016C0: 34 30 00 D9 1E B6 17 8B 51 B2 34 AF 50 53 B2 30 |40......Q.4.PS.0|
000016D0: A7 50 53 B2 31 3A 89 34 30 00 DF 1E C0 17 80 00 |.PS.1:.40.......|
000016E0: E5 1E 58 1B 3A 00 F0 1E 62 1B 8F 20 45 44 49 54 |..X.:...b.. EDIT|
000016F0: 00 F6 1E 6C 1B 3A 00 05 1F 76 1B 8B 55 25 B2 31 |...l.:...v..U%.1|
00001700: A7 37 30 36 35 00 49 1F 80 1B 41 5A B2 35 3A 41 |.7065.I...AZ.5:A|
00001710: 24 28 31 29 B2 22 59 4F 55 20 46 49 52 53 54 22 |$(1)."YOU FIRST"|
00001720: 3A 41 24 28 32 29 B2 22 48 41 56 45 20 54 4F 20 |:A$(2)."HAVE TO |
00001730: 4F 50 45 4E 22 3A 41 24 28 33 29 B2 22 41 20 44 |OPEN":A$(3)."A D|
00001740: 41 54 41 20 42 41 4E 4B 22 00 84 1F 8A 1B 41 24 |ATA BANK".....A$|
00001750: 28 34 29 B2 22 22 3A 41 24 28 35 29 B2 22 50 52 |(4)."":A$(5)."PR|
00001760: 45 53 53 20 42 55 54 54 4F 4E 22 3A 42 52 B2 31 |ESS BUTTON":BR.1|
00001770: 32 3A 4C 47 B2 35 3A 5A B2 32 3A 53 B2 31 36 3A |2:LG.5:Z.2:S.16:|
00001780: 8D 33 32 30 00 93 1F 94 1B 8D 39 39 30 3A 89 31 |.320......990:.1|
00001790: 30 33 30 00 A2 1F 99 1B 8B 50 53 B2 31 A7 39 30 |030......PS.1.90|
000017A0: 33 30 00 ED 1F 9E 1B 41 5A B2 37 3A 41 24 28 31 |30.....AZ.7:A$(1|
000017B0: 29 B2 22 52 45 41 44 20 44 41 54 41 20 42 41 4E |)."READ DATA BAN|
000017C0: 4B 22 3A 41 24 28 32 29 B2 22 45 44 49 54 20 44 |K":A$(2)."EDIT D|
000017D0: 41 54 41 20 42 41 4E 4B 22 3A 42 52 B2 31 34 3A |ATA BANK":BR.14:|
000017E0: 4C 47 B2 37 3A 5A B2 32 3A 53 B2 31 35 00 35 20 |LG.7:Z.2:S.15.5 |
000017F0: A8 1B 41 24 28 33 29 B2 22 53 45 41 52 43 48 20 |..A$(3)."SEARCH |
00001800: 41 4E 20 49 54 45 4D 22 3A 41 24 28 34 29 B2 22 |AN ITEM":A$(4)."|
00001810: 43 4F 55 4E 54 20 45 4E 54 52 49 45 53 22 3A 41 |COUNT ENTRIES":A|
00001820: 24 28 37 29 B2 22 52 45 54 55 52 4E 20 54 4F 20 |$(7)."RETURN TO |
00001830: 4D 45 4E 55 22 00 79 20 B2 1B 41 24 28 35 29 B2 |MENU".y ..A$(5).|
00001840: 22 53 41 56 45 20 45 4E 54 52 49 45 53 22 3A 41 |"SAVE ENTRIES":A|
00001850: 24 28 36 29 B2 22 45 44 49 54 20 44 41 54 41 20 |$(6)."EDIT DATA |
00001860: 4C 49 53 54 22 3A 42 4E B2 31 3A 45 4E B2 37 3A |LIST":BN.1:EN.7:|
00001870: 8D 33 32 30 3A 8D 35 31 30 00 A4 20 BC 1B 91 51 |.320:.510.. ...Q|
00001880: 89 37 31 31 30 2C 37 31 38 30 2C 37 34 32 30 2C |.7110,7180,7420,|
00001890: 37 33 32 30 2C 37 33 31 30 2C 31 30 30 33 30 2C |7320,7310,10030,|
000018A0: 31 30 33 30 00 EF 20 C6 1B 41 5A B2 36 3A 41 24 |1030.. ..AZ.6:A$|
000018B0: 28 31 29 B2 22 50 4C 45 41 53 45 20 45 4E 54 45 |(1)."PLEASE ENTE|
000018C0: 52 22 3A 41 24 28 32 29 B2 22 54 48 45 20 4E 55 |R":A$(2)."THE NU|
000018D0: 4D 42 45 52 22 3A 41 24 28 33 29 B2 22 59 4F 55 |MBER":A$(3)."YOU|
000018E0: 20 57 41 4E 54 20 54 4F 22 3A 53 B2 53 AA 32 00 | WANT TO":S.S.2.|
000018F0: 33 21 D0 1B 41 24 28 34 29 B2 22 53 45 45 2E 22 |3!..A$(4)."SEE."|
00001900: 3A 41 24 28 35 29 B2 22 22 3A 41 24 28 36 29 B2 |:A$(5)."":A$(6).|
00001910: 22 3A 22 3A 5A B2 5A AA 31 3A 42 52 B2 31 32 3A |":":Z.Z.1:BR.12:|
00001920: 4C 47 B2 36 3A 4D 49 B2 30 3A 4D 41 B2 34 3A 8D |LG.6:MI.0:MA.4:.|
00001930: 33 32 30 00 49 21 DA 1B 8D 34 30 30 3A 8B 42 45 |320.I!...400:.BE|
00001940: 24 B2 22 22 A7 37 31 34 35 00 5B 21 DF 1B 8B 42 |$."".7145.[!...B|
00001950: 45 24 B2 22 5F 22 A7 37 30 33 30 00 7D 21 E4 1B |E$."_".7030.}!..|
00001960: 53 41 B2 C5 28 42 45 24 29 3A 8B 53 41 AA 32 30 |SA..(BE$):.SA.20|
00001970: B1 53 5A B0 53 41 B3 31 A7 37 31 32 30 00 95 21 |.SZ.SA.1.7120..!|
00001980: E9 1B 8B 53 41 AA 32 30 B1 53 5A B0 53 41 B3 31 |...SA.20.SZ.SA.1|
00001990: A7 37 31 32 30 00 CA 21 EE 1B 8D 38 30 3A 8D 37 |.7120..!...80:.7|
000019A0: 33 30 3A 81 49 B2 31 A4 32 31 3A 84 31 2C 42 24 |30:.I.1.21:.1,B$|
000019B0: 28 49 29 3A 82 3A 99 22 13 22 3A 81 49 B2 31 A4 |(I):.:.".":.I.1.|
000019C0: 32 31 3A 57 24 B2 22 13 11 22 00 EC 21 F3 1B 81 |21:W$.".."..!...|
000019D0: 58 B2 31 A4 49 3A 57 24 B2 57 24 AA 22 11 22 3A |X.1.I:W$.W$.".":|
000019E0: 82 3A 99 57 24 3B 22 1D 22 3B 53 41 00 23 22 F8 |.:.W$;".";SA.#".|
000019F0: 1B 53 41 B2 53 41 AA 31 3A 82 3A 99 22 13 11 22 |.SA.SA.1:.:.".."|
00001A00: 3A 81 49 B2 31 A4 32 31 3A 57 24 B2 22 13 11 22 |:.I.1.21:W$.".."|
00001A10: 3A 81 58 B2 31 A4 49 3A 57 24 B2 57 24 AA 22 11 |:.X.1.I:W$.W$.".|
00001A20: 22 3A 82 00 42 22 FD 1B 99 57 24 3B 22 1D 1D 1D |":..B"...W$;"...|
00001A30: 1D 1D 1D 1D 22 3B 42 24 28 49 29 3A 82 3A 8D 39 |....";B$(I):.:.9|
00001A40: 39 30 00 4C 22 02 1C 89 37 31 31 30 00 97 22 0C |90.L"...7110..".|
00001A50: 1C 41 5A B2 36 3A 41 24 28 31 29 B2 22 50 4C 45 |.AZ.6:A$(1)."PLE|
00001A60: 41 53 45 20 45 4E 54 45 52 22 3A 41 24 28 32 29 |ASE ENTER":A$(2)|
00001A70: B2 22 54 48 45 20 4E 55 4D 42 45 52 22 3A 41 24 |."THE NUMBER":A$|
00001A80: 28 33 29 B2 22 59 4F 55 20 57 41 4E 54 20 54 4F |(3)."YOU WANT TO|
00001A90: 22 3A 53 B2 53 AA 32 00 DB 22 16 1C 41 24 28 34 |":S.S.2.."..A$(4|
00001AA0: 29 B2 22 45 44 49 54 22 3A 41 24 28 35 29 B2 22 |)."EDIT":A$(5)."|
00001AB0: 22 3A 41 24 28 36 29 B2 22 3A 22 3A 5A B2 5A AA |":A$(6).":":Z.Z.|
00001AC0: 31 3A 42 52 B2 31 32 3A 4C 47 B2 36 3A 4D 49 B2 |1:BR.12:LG.6:MI.|
00001AD0: 30 3A 4D 41 B2 34 3A 8D 33 32 30 00 F1 22 20 1C |0:MA.4:.320.." .|
00001AE0: 8D 34 30 30 3A 8B 42 45 24 B2 22 22 A7 37 32 31 |.400:.BE$."".721|
00001AF0: 35 00 03 23 25 1C 8B 42 45 24 B2 22 5F 22 A7 37 |5..#%..BE$."_".7|
00001B00: 30 33 30 00 2B 23 2A 1C 53 41 B2 C5 28 42 45 24 |030.+#*.SA..(BE$|
00001B10: 29 3A 53 57 B2 53 41 3A 8B 53 41 AA 32 31 B1 53 |):SW.SA:.SA.21.S|
00001B20: 5A B0 53 41 B3 31 A7 37 31 39 30 00 49 23 2F 1C |Z.SA.1.7190.I#/.|
00001B30: 53 57 B2 53 41 3A 8B 53 41 AA 32 31 B1 53 5A B0 |SW.SA:.SA.21.SZ.|
00001B40: 53 41 B3 31 A7 37 31 39 30 00 7E 23 34 1C 8D 38 |SA.1.7190.~#4..8|
00001B50: 30 3A 8D 37 33 30 3A 81 49 B2 31 A4 32 31 3A 84 |0:.730:.I.1.21:.|
00001B60: 31 2C 42 24 28 49 29 3A 82 3A 99 22 13 22 3A 81 |1,B$(I):.:.".":.|
00001B70: 49 B2 31 A4 32 31 3A 57 24 B2 22 13 11 22 00 A0 |I.1.21:W$.".."..|
00001B80: 23 39 1C 81 58 B2 31 A4 49 3A 57 24 B2 57 24 AA |#9..X.1.I:W$.W$.|
00001B90: 22 11 22 3A 82 3A 99 57 24 3B 22 1D 22 3B 53 57 |".":.:.W$;".";SW|
00001BA0: 00 D7 23 3E 1C 53 57 B2 53 57 AA 31 3A 82 3A 99 |..#>.SW.SW.1:.:.|
00001BB0: 22 13 11 22 3A 81 49 B2 31 A4 32 31 3A 57 24 B2 |"..":.I.1.21:W$.|
00001BC0: 22 13 11 22 3A 81 58 B2 31 A4 49 3A 57 24 B2 57 |"..":.X.1.I:W$.W|
00001BD0: 24 AA 22 11 22 3A 82 00 0D 24 43 1C 99 57 24 3B |$.".":...$C..W$;|
00001BE0: 22 1D 1D 1D 1D 1D 1D 1D 22 3B 42 24 28 49 29 3A |".......";B$(I):|
00001BF0: 82 3A 5A B2 31 3A 42 52 B2 30 3A 4C 47 B2 30 3A |.:Z.1:BR.0:LG.0:|
00001C00: 41 24 28 31 29 B2 22 22 3A 41 5A B2 31 00 2C 24 |A$(1)."":AZ.1.,$|
00001C10: 48 1C 81 49 B2 31 A4 32 31 3A 8B 55 49 B2 31 A7 |H..I.1.21:.UI.1.|
00001C20: 82 3A 55 49 B2 30 3A 89 37 31 38 30 00 6B 24 4B |.:UI.0:.7180.k$K|
00001C30: 1C 54 52 24 B2 22 22 3A 4D 49 B2 34 3A 4D 41 B2 |.TR$."":MI.4:MA.|
00001C40: 34 3A 53 B2 36 3A 5A B2 5A AA 31 3A 8D 34 30 30 |4:S.6:Z.Z.1:.400|
00001C50: 3A 54 52 24 B2 54 52 24 AA 42 45 24 AA 22 20 22 |:TR$.TR$.BE$." "|
00001C60: 3A 54 52 24 28 31 29 B2 42 45 24 00 8D 24 4D 1C |:TR$(1).BE$..$M.|
00001C70: 8B 42 45 24 B2 22 5F 5F 5F 5F 22 A7 55 49 B2 31 |.BE$."____".UI.1|
00001C80: 3A 82 3A 55 49 B2 30 3A 89 37 31 38 30 00 CB 24 |:.:UI.0:.7180..$|
00001C90: 52 1C 4D 49 B2 30 3A 4D 41 B2 33 3A 53 B2 31 31 |R.MI.0:MA.3:S.11|
00001CA0: 3A 8D 34 30 30 3A 54 52 24 B2 54 52 24 AA C8 28 |:.400:TR$.TR$..(|
00001CB0: 42 45 24 AA 22 20 20 20 22 2C 33 29 AA 22 20 22 |BE$." ",3)." "|
00001CC0: 3A 54 52 24 28 32 29 B2 42 45 24 00 0F 25 5C 1C |:TR$(2).BE$..%\.|
00001CD0: 4D 49 B2 30 3A 4D 41 B2 39 3A 53 B2 31 35 3A 8D |MI.0:MA.9:S.15:.|
00001CE0: 34 30 30 3A 54 52 24 B2 54 52 24 AA C8 28 42 45 |400:TR$.TR$..(BE|
00001CF0: 24 AA 22 20 20 20 20 20 20 20 20 20 22 2C 39 29 |$." ",9)|
00001D00: AA 22 20 22 3A 54 52 24 28 33 29 B2 42 45 24 00 |." ":TR$(3).BE$.|
00001D10: 4C 25 66 1C 4D 49 B2 31 3A 4D 41 B2 32 3A 53 B2 |L%f.MI.1:MA.2:S.|
00001D20: 32 35 3A 8D 34 30 30 3A 54 52 24 B2 54 52 24 AA |25:.400:TR$.TR$.|
00001D30: C8 28 42 45 24 AA 22 20 20 22 2C 32 29 AA 22 20 |.(BE$." ",2)." |
00001D40: 22 3A 54 52 24 28 34 29 B2 42 45 24 00 84 25 70 |":TR$(4).BE$..%p|
00001D50: 1C 4D 49 B2 31 3A 4D 41 B2 31 3A 53 B2 32 38 3A |.MI.1:MA.1:S.28:|
00001D60: 8D 34 30 30 3A 54 52 24 B2 54 52 24 AA C8 28 42 |.400:TR$.TR$..(B|
00001D70: 45 24 AA 22 20 22 2C 31 29 3A 54 52 24 28 35 29 |E$." ",1):TR$(5)|
00001D80: B2 42 45 24 00 9E 25 7A 1C 8D 37 33 30 3A 98 31 |.BE$..%z..730:.1|
00001D90: 2C 54 52 24 3A 53 41 B2 53 41 AA 31 3A 82 00 A8 |,TR$:SA.SA.1:...|
00001DA0: 25 84 1C 89 37 32 31 35 00 D2 25 8E 1C A0 31 3A |%...7215..%...1:|
00001DB0: A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 |.15:.15,8,15,"I0|
00001DC0: 22 3A 9F 31 2C 38 2C 33 2C 44 41 24 3A 89 37 30 |":.1,8,3,DA$:.70|
00001DD0: 33 30 00 14 26 98 1C 41 5A B2 35 3A 41 24 28 31 |30..&..AZ.5:A$(1|
00001DE0: 29 B2 22 43 4F 55 4E 54 49 4E 47 22 3A 81 49 B2 |)."COUNTING":.I.|
00001DF0: 32 A4 34 3A 41 24 28 49 29 B2 22 22 3A 82 3A 53 |2.4:A$(I)."":.:S|
00001E00: B2 53 AA 32 3A 5A B2 5A AA 32 3A 4C 47 B2 35 3A |.S.2:Z.Z.2:LG.5:|
00001E10: 42 52 B2 38 00 3D 26 A2 1C 41 24 28 35 29 B2 22 |BR.8.=&..A$(5)."|
00001E20: 53 54 41 4E 44 20 42 59 22 3A 8D 33 32 30 3A 4E |STAND BY":.320:N|
00001E30: 45 B2 30 3A 53 41 B2 31 3A 8D 37 33 30 00 5A 26 |E.0:SA.1:.730.Z&|
00001E40: AC 1C 84 31 2C 41 24 3A 42 24 B2 C9 28 41 24 2C |...1,A$:B$..(A$,|
00001E50: 31 29 3A 53 41 B2 53 41 AA 31 00 8A 26 B6 1C 97 |1):SA.SA.1..&...|
00001E60: 32 31 34 2C 5A AA 33 3A 97 32 31 31 2C 53 AA 32 |214,Z.3:.211,S.2|
00001E70: 3A 9E 35 38 37 33 32 3A 99 C9 28 22 20 20 20 20 |:.58732:..(" |
00001E80: 22 AA C4 28 53 41 29 2C 34 29 00 AC 26 C0 1C 8B |"..(SA),4)..&...|
00001E90: 42 24 B2 22 58 22 B0 42 24 B2 22 59 22 B0 42 24 |B$."X".B$."Y".B$|
00001EA0: B2 22 4A 22 A7 4E 45 B2 4E 45 AA 31 00 BE 26 CA |."J".NE.NE.1..&.|
00001EB0: 1C 8B 42 24 B3 B1 22 FF 22 A7 37 33 34 30 00 01 |..B$..".".7340..|
00001EC0: 27 D4 1C 53 41 B2 53 41 AB 31 3A 41 5A B2 36 3A |'..SA.SA.1:AZ.6:|
00001ED0: 5A B2 5A AA 32 3A 53 B2 53 AA 32 3A 42 52 B2 31 |Z.Z.2:S.S.2:BR.1|
00001EE0: 32 3A 4C 47 B2 36 3A 41 24 28 31 29 B2 44 41 24 |2:LG.6:A$(1).DA$|
00001EF0: 3A 41 24 28 32 29 B2 22 49 4E 43 4C 55 44 45 53 |:A$(2)."INCLUDES|
00001F00: 22 00 36 27 DE 1C 41 24 28 33 29 B2 C9 28 22 20 |".6'..A$(3)..(" |
00001F10: 20 20 20 22 AA C4 28 4E 45 29 2C 34 29 AA 22 20 | "..(NE),4)." |
00001F20: 4F 46 20 22 AA C9 28 22 20 20 20 20 22 AA C4 28 |OF "..(" "..(|
00001F30: 53 41 29 2C 34 29 00 73 27 E8 1C 41 24 28 34 29 |SA),4).s'..A$(4)|
00001F40: B2 22 45 4E 54 52 49 45 53 2E 22 3A 41 24 28 35 |."ENTRIES.":A$(5|
00001F50: 29 B2 22 22 3A 41 24 28 36 29 B2 22 50 52 45 53 |)."":A$(6)."PRES|
00001F60: 53 20 42 55 54 54 4F 4E 22 3A 8D 33 32 30 3A 8D |S BUTTON":.320:.|
00001F70: 39 39 30 00 7D 27 F2 1C 89 37 30 33 30 00 C7 27 |990.}'...7030..'|
00001F80: FC 1C 41 5A B2 35 3A 5A B2 5A AA 32 3A 53 B2 53 |..AZ.5:Z.Z.2:S.S|
00001F90: AA 32 3A 4C 47 B2 35 3A 42 52 B2 31 32 3A 41 24 |.2:LG.5:BR.12:A$|
00001FA0: 28 31 29 B2 22 50 4C 45 41 53 45 20 45 4E 54 45 |(1)."PLEASE ENTE|
00001FB0: 52 22 3A 41 24 28 32 29 B2 22 54 48 45 20 43 41 |R":A$(2)."THE CA|
00001FC0: 54 2E 20 4E 4F 2E 22 00 10 28 06 1D 41 24 28 33 |T. NO."..(..A$(3|
00001FD0: 29 B2 22 4F 46 20 54 48 45 20 49 54 45 4D 22 3A |)."OF THE ITEM":|
00001FE0: 41 24 28 34 29 B2 22 59 4F 55 20 57 41 4E 54 20 |A$(4)."YOU WANT |
00001FF0: 54 4F 22 3A 41 24 28 35 29 B2 22 46 49 4E 44 3A |TO":A$(5)."FIND:|
00002000: 22 3A 4D 49 B2 31 3A 4D 41 B2 34 3A 8D 33 32 30 |":MI.1:MA.4:.320|
00002010: 00 27 28 10 1D 8D 34 30 30 3A 8B 42 45 24 B2 22 |.'(...400:.BE$."|
00002020: 5F 22 A7 37 30 33 30 00 46 28 1A 1D 4E 4F B2 C5 |_".7030.F(..NO..|
00002030: 28 42 45 24 29 3A 8B 4E 4F B3 31 B0 4E 4F B1 53 |(BE$):.NO.1.NO.S|
00002040: 5A A7 37 34 33 30 00 54 28 24 1D 53 41 B2 31 3A |Z.7430.T($.SA.1:|
00002050: 8D 37 33 30 00 73 28 2E 1D 84 31 2C 41 24 3A 53 |.730.s(...1,A$:S|
00002060: 41 B2 53 41 AA 31 3A 8B 41 24 B2 22 FF 22 A7 37 |A.SA.1:.A$.".".7|
00002070: 35 30 30 00 90 28 38 1D 42 B2 C5 28 C8 28 41 24 |500..(8.B..(.(A$|
00002080: 2C 34 29 29 3A 8B 4E 4F B3 B1 42 A7 37 34 37 30 |,4)):.NO..B.7470|
00002090: 00 A2 28 42 1D 53 41 B2 53 41 AB 31 3A 89 37 31 |..(B.SA.SA.1:.71|
000020A0: 34 35 00 DE 28 4C 1D 41 5A B2 35 3A 4C 47 B2 35 |45..(L.AZ.5:LG.5|
000020B0: 3A 42 52 B2 31 34 3A 5A B2 5A AA 32 3A 53 B2 53 |:BR.14:Z.Z.2:S.S|
000020C0: AA 32 3A 41 24 28 31 29 B2 22 4E 4F 2E 22 AA C4 |.2:A$(1)."NO."..|
000020D0: 28 4E 4F 29 AA 22 20 49 53 20 4E 4F 54 22 00 23 |(NO)." IS NOT".#|
000020E0: 29 56 1D 41 24 28 32 29 B2 22 49 4E 43 4C 55 44 |)V.A$(2)."INCLUD|
000020F0: 45 44 20 49 4E 22 3A 41 24 28 33 29 B2 44 41 24 |ED IN":A$(3).DA$|
00002100: 3A 41 24 28 34 29 B2 22 22 3A 41 24 28 35 29 B2 |:A$(4)."":A$(5).|
00002110: 22 50 52 45 53 53 20 42 55 54 54 4F 4E 22 3A 8D |"PRESS BUTTON":.|
00002120: 33 32 30 00 32 29 60 1D 8D 39 39 30 3A 89 37 30 |320.2)`..990:.70|
00002130: 33 30 00 38 29 40 1F 3A 00 4C 29 4A 1F 8F 20 50 |30.8)@.:.L)J.. P|
00002140: 52 49 4E 54 2D 52 4F 55 54 49 4E 45 00 52 29 54 |RINT-ROUTINE.R)T|
00002150: 1F 3A 00 61 29 5E 1F 8B 55 25 B2 30 A7 37 30 34 |.:.a)^..U%.0.704|
00002160: 30 00 A5 29 68 1F 41 5A B2 35 3A 53 B2 32 32 3A |0..)h.AZ.5:S.22:|
00002170: 5A B2 32 3A 4C 47 B2 35 3A 42 52 B2 31 32 3A 41 |Z.2:LG.5:BR.12:A|
00002180: 24 28 31 29 B2 22 41 54 54 41 43 48 20 59 4F 55 |$(1)."ATTACH YOU|
00002190: 52 22 3A 41 24 28 32 29 B2 22 50 52 49 4E 54 45 |R":A$(2)."PRINTE|
000021A0: 52 20 54 4F 22 00 E1 29 72 1F 41 24 28 33 29 B2 |R TO"..)r.A$(3).|
000021B0: 22 54 48 45 20 43 4F 4D 50 55 54 45 52 22 3A 41 |"THE COMPUTER":A|
000021C0: 24 28 34 29 B2 22 22 3A 41 24 28 35 29 B2 22 50 |$(4)."":A$(5)."P|
000021D0: 52 45 53 53 20 42 55 54 54 4F 4E 22 3A 8D 33 32 |RESS BUTTON":.32|
000021E0: 30 00 0D 2A 7C 1F 8D 39 39 30 3A 46 25 B2 C2 28 |0..*|..990:F%..(|
000021F0: 37 36 38 29 3A 97 37 36 38 2C 31 38 35 3A 9F 34 |768):.768,185:.4|
00002200: 2C 34 3A A0 34 3A 97 37 36 38 2C 46 25 00 20 2A |,4:.4:.768,F%. *|
00002210: 86 1F 8B 53 54 B3 B1 AB 31 32 38 A7 38 30 35 30 |...ST...128.8050|
00002220: 00 3F 2A 90 1F 9F 34 2C 34 2C 37 3A 53 41 B2 31 |.?*...4,4,7:SA.1|
00002230: 3A 8D 37 33 30 3A 98 34 2C 44 41 24 3A 98 34 00 |:.730:.4,DA$:.4.|
00002240: 56 2A 9A 1F 84 31 2C 41 24 3A 8B 41 24 B2 22 FF |V*...1,A$:.A$.".|
00002250: 22 A7 38 31 32 30 00 6B 2A A4 1F A1 58 24 3A 8B |".8120.k*...X$:.|
00002260: 58 24 B2 22 5F 22 A7 38 31 32 30 00 7B 2A AE 1F |X$."_".8120.{*..|
00002270: 98 34 2C 41 24 3A 89 38 30 39 30 00 88 2A B8 1F |.4,A$:.8090..*..|
00002280: A0 34 3A 89 31 30 33 30 00 8E 2A 28 23 3A 00 A1 |.4:.1030..*(#:..|
00002290: 2A 32 23 8F 20 45 44 49 54 20 50 41 52 54 20 49 |*2#. EDIT PART I|
000022A0: 49 00 A7 2A 3C 23 3A 00 F2 2A 46 23 41 5A B2 37 |I..*<#:..*F#AZ.7|
000022B0: 3A 41 24 28 31 29 B2 22 52 45 41 44 20 44 41 54 |:A$(1)."READ DAT|
000022C0: 41 20 42 41 4E 4B 22 3A 41 24 28 32 29 B2 22 45 |A BANK":A$(2)."E|
000022D0: 44 49 54 20 44 41 54 41 20 42 41 4E 4B 22 3A 42 |DIT DATA BANK":B|
000022E0: 52 B2 31 34 3A 4C 47 B2 37 3A 5A B2 32 3A 53 B2 |R.14:LG.7:Z.2:S.|
000022F0: 31 35 00 3A 2B 50 23 41 24 28 33 29 B2 22 53 45 |15.:+P#A$(3)."SE|
00002300: 41 52 43 48 20 41 4E 20 49 54 45 4D 22 3A 41 24 |ARCH AN ITEM":A$|
00002310: 28 34 29 B2 22 43 4F 55 4E 54 20 45 4E 54 52 49 |(4)."COUNT ENTRI|
00002320: 45 53 22 3A 41 24 28 37 29 B2 22 52 45 54 55 52 |ES":A$(7)."RETUR|
00002330: 4E 20 54 4F 20 4D 45 4E 55 22 00 7E 2B 5A 23 41 |N TO MENU".~+Z#A|
00002340: 24 28 35 29 B2 22 53 41 56 45 20 45 4E 54 52 49 |$(5)."SAVE ENTRI|
00002350: 45 53 22 3A 41 24 28 36 29 B2 22 45 44 49 54 20 |ES":A$(6)."EDIT |
00002360: 44 41 54 41 20 4C 49 53 54 22 3A 42 4E B2 31 3A |DATA LIST":BN.1:|
00002370: 45 4E B2 37 3A 8D 33 32 30 3A 8D 35 31 30 00 A9 |EN.7:.320:.510..|
00002380: 2B 64 23 91 51 89 39 30 37 30 2C 39 31 38 30 2C |+d#.Q.9070,9180,|
00002390: 39 34 32 30 2C 39 33 32 30 2C 39 33 31 30 2C 31 |9420,9320,9310,1|
000023A0: 31 30 33 30 2C 31 30 33 30 00 F4 2B 6E 23 41 5A |1030,1030..+n#AZ|
000023B0: B2 36 3A 41 24 28 31 29 B2 22 50 4C 45 41 53 45 |.6:A$(1)."PLEASE|
000023C0: 20 45 4E 54 45 52 22 3A 41 24 28 32 29 B2 22 54 | ENTER":A$(2)."T|
000023D0: 48 45 20 4E 55 4D 42 45 52 22 3A 41 24 28 33 29 |HE NUMBER":A$(3)|
000023E0: B2 22 59 4F 55 20 57 41 4E 54 20 54 4F 22 3A 53 |."YOU WANT TO":S|
000023F0: B2 53 AA 32 00 38 2C 78 23 41 24 28 34 29 B2 22 |.S.2.8,x#A$(4)."|
00002400: 53 45 45 2E 22 3A 41 24 28 35 29 B2 22 22 3A 41 |SEE.":A$(5)."":A|
00002410: 24 28 36 29 B2 22 3A 22 3A 5A B2 5A AA 31 3A 42 |$(6).":":Z.Z.1:B|
00002420: 52 B2 31 32 3A 4C 47 B2 36 3A 4D 49 B2 30 3A 4D |R.12:LG.6:MI.0:M|
00002430: 41 B2 34 3A 8D 33 32 30 00 4E 2C 82 23 8D 34 30 |A.4:.320.N,.#.40|
00002440: 30 3A 8B 42 45 24 B2 22 22 A7 39 31 32 30 00 60 |0:.BE$."".9120.`|
00002450: 2C 8C 23 8B 42 45 24 B2 22 5F 22 A7 39 30 33 30 |,.#.BE$."_".9030|
00002460: 00 82 2C 96 23 53 41 B2 C5 28 42 45 24 29 3A 8B |..,.#SA..(BE$):.|
00002470: 53 41 AA 32 30 B1 53 5A B0 53 41 B3 31 A7 39 30 |SA.20.SZ.SA.1.90|
00002480: 38 30 00 9A 2C A0 23 8B 53 41 AA 32 30 B1 53 5A |80..,.#.SA.20.SZ|
00002490: B0 53 41 B3 31 A7 39 30 38 30 00 CF 2C AA 23 8D |.SA.1.9080..,.#.|
000024A0: 38 30 3A 8D 37 33 30 3A 81 5A B2 31 A4 32 31 3A |80:.730:.Z.1.21:|
000024B0: 84 31 2C 42 24 28 5A 29 3A 82 3A 99 22 13 22 3A |.1,B$(Z):.:.".":|
000024C0: 81 49 B2 31 A4 32 31 3A 57 24 B2 22 13 11 22 00 |.I.1.21:W$."..".|
000024D0: F1 2C B4 23 81 58 B2 31 A4 49 3A 57 24 B2 57 24 |.,.#.X.1.I:W$.W$|
000024E0: AA 22 11 22 3A 82 3A 99 57 24 3B 22 1D 22 3B 53 |.".":.:.W$;".";S|
000024F0: 41 00 28 2D BE 23 53 41 B2 53 41 AA 31 3A 82 3A |A.(-.#SA.SA.1:.:|
00002500: 99 22 13 11 22 3A 81 49 B2 31 A4 32 31 3A 57 24 |."..":.I.1.21:W$|
00002510: B2 22 13 11 22 3A 81 58 B2 31 A4 49 3A 57 24 B2 |."..":.X.1.I:W$.|
00002520: 57 24 AA 22 11 22 3A 82 00 47 2D C8 23 99 57 24 |W$.".":..G-.#.W$|
00002530: 3B 22 1D 1D 1D 1D 1D 1D 1D 22 3B 42 24 28 49 29 |;".......";B$(I)|
00002540: 3A 82 3A 8D 39 39 30 00 51 2D D2 23 89 39 30 37 |:.:.990.Q-.#.907|
00002550: 30 00 9C 2D DC 23 41 5A B2 36 3A 41 24 28 31 29 |0..-.#AZ.6:A$(1)|
00002560: B2 22 50 4C 45 41 53 45 20 45 4E 54 45 52 22 3A |."PLEASE ENTER":|
00002570: 41 24 28 32 29 B2 22 54 48 45 20 4E 55 4D 42 45 |A$(2)."THE NUMBE|
00002580: 52 22 3A 41 24 28 33 29 B2 22 59 4F 55 20 57 41 |R":A$(3)."YOU WA|
00002590: 4E 54 20 54 4F 22 3A 53 B2 53 AA 32 00 E0 2D E6 |NT TO":S.S.2..-.|
000025A0: 23 41 24 28 34 29 B2 22 45 44 49 54 22 3A 41 24 |#A$(4)."EDIT":A$|
000025B0: 28 35 29 B2 22 22 3A 41 24 28 36 29 B2 22 3A 22 |(5)."":A$(6).":"|
000025C0: 3A 5A B2 5A AA 31 3A 42 52 B2 31 32 3A 4C 47 B2 |:Z.Z.1:BR.12:LG.|
000025D0: 36 3A 4D 49 B2 30 3A 4D 41 B2 34 3A 8D 33 32 30 |6:MI.0:MA.4:.320|
000025E0: 00 F6 2D F0 23 8D 34 30 30 3A 8B 42 45 24 B2 22 |..-.#.400:.BE$."|
000025F0: 22 A7 39 32 31 35 00 08 2E F5 23 8B 42 45 24 B2 |".9215....#.BE$.|
00002600: 22 5F 22 A7 39 30 33 30 00 30 2E FA 23 53 41 B2 |"_".9030.0..#SA.|
00002610: C5 28 42 45 24 29 3A 53 57 B2 53 41 3A 8B 53 41 |.(BE$):SW.SA:.SA|
00002620: AA 32 31 B1 53 5A B0 53 41 B3 31 A7 39 31 39 30 |.21.SZ.SA.1.9190|
00002630: 00 4E 2E FF 23 53 57 B2 53 41 3A 8B 53 41 AA 32 |.N..#SW.SA:.SA.2|
00002640: 31 B1 53 5A B0 53 41 B3 31 A7 37 31 39 30 00 83 |1.SZ.SA.1.7190..|
00002650: 2E 04 24 8D 38 30 3A 8D 37 33 30 3A 81 49 B2 31 |..$.80:.730:.I.1|
00002660: A4 32 31 3A 84 31 2C 42 24 28 49 29 3A 82 3A 99 |.21:.1,B$(I):.:.|
00002670: 22 13 22 3A 81 49 B2 31 A4 32 31 3A 57 24 B2 22 |".":.I.1.21:W$."|
00002680: 13 11 22 00 A5 2E 09 24 81 58 B2 31 A4 49 3A 57 |.."....$.X.1.I:W|
00002690: 24 B2 57 24 AA 22 11 22 3A 82 3A 99 57 24 3B 22 |$.W$.".":.:.W$;"|
000026A0: 1D 22 3B 53 57 00 DC 2E 0E 24 53 57 B2 53 57 AA |.";SW....$SW.SW.|
000026B0: 31 3A 82 3A 99 22 13 11 22 3A 81 49 B2 31 A4 32 |1:.:."..":.I.1.2|
000026C0: 31 3A 57 24 B2 22 13 11 22 3A 81 58 B2 31 A4 49 |1:W$."..":.X.1.I|
000026D0: 3A 57 24 B2 57 24 AA 22 11 22 3A 82 00 12 2F 13 |:W$.W$.".":.../.|
000026E0: 24 99 57 24 3B 22 1D 1D 1D 1D 1D 1D 1D 22 3B 42 |$.W$;".......";B|
000026F0: 24 28 49 29 3A 82 3A 5A B2 31 3A 42 52 B2 30 3A |$(I):.:Z.1:BR.0:|
00002700: 4C 47 B2 30 3A 41 24 28 31 29 B2 22 22 3A 41 5A |LG.0:A$(1)."":AZ|
00002710: B2 31 00 31 2F 18 24 81 49 B2 31 A4 32 31 3A 8B |.1.1/.$.I.1.21:.|
00002720: 55 49 B2 31 A7 82 3A 55 49 B2 30 3A 89 39 31 38 |UI.1..:UI.0:.918|
00002730: 30 00 56 2F 1B 24 54 52 24 B2 22 22 3A 4D 49 B2 |0.V/.$TR$."":MI.|
00002740: 31 3A 4D 41 B2 32 35 3A 53 B2 36 3A 5A B2 5A AA |1:MA.25:S.6:Z.Z.|
00002750: 31 3A 8D 34 30 30 00 8B 2F 1C 24 54 52 24 B2 54 |1:.400../.$TR$.T|
00002760: 52 24 AA C8 28 42 45 24 AA 22 20 20 20 20 20 20 |R$..(BE$." |
00002770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002780: 20 20 22 2C 32 35 29 AA 22 20 22 00 AA 2F 1D 24 | ",25)." "../.$|
00002790: 8B 42 45 24 B2 22 5F 22 A7 55 49 B2 31 3A 82 3A |.BE$."_".UI.1:.:|
000027A0: 55 49 B2 30 3A 89 39 31 38 30 00 CE 2F 22 24 4D |UI.0:.9180../"$M|
000027B0: 49 B2 34 3A 4D 41 B2 34 3A 53 B2 33 32 3A 8D 34 |I.4:MA.4:S.32:.4|
000027C0: 30 30 3A 54 52 24 B2 54 52 24 AA 42 45 24 00 E8 |00:TR$.TR$.BE$..|
000027D0: 2F 4A 24 8D 37 33 30 3A 98 31 2C 54 52 24 3A 53 |/J$.730:.1,TR$:S|
000027E0: 41 B2 53 41 AA 31 3A 82 00 F2 2F 54 24 89 39 32 |A.SA.1:.../T$.92|
000027F0: 31 35 00 1C 30 5E 24 A0 31 3A A0 31 35 3A 9F 31 |15..0^$.1:.15:.1|
00002800: 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 31 2C 38 |5,8,15,"I0":.1,8|
00002810: 2C 33 2C 44 41 24 3A 89 39 30 33 30 00 5E 30 68 |,3,DA$:.9030.^0h|
00002820: 24 41 5A B2 35 3A 41 24 28 31 29 B2 22 43 4F 55 |$AZ.5:A$(1)."COU|
00002830: 4E 54 49 4E 47 22 3A 81 49 B2 32 A4 34 3A 41 24 |NTING":.I.2.4:A$|
00002840: 28 49 29 B2 22 22 3A 82 3A 53 B2 53 AA 32 3A 5A |(I)."":.:S.S.2:Z|
00002850: B2 5A AA 32 3A 4C 47 B2 35 3A 42 52 B2 38 00 87 |.Z.2:LG.5:BR.8..|
00002860: 30 72 24 41 24 28 35 29 B2 22 53 54 41 4E 44 20 |0r$A$(5)."STAND |
00002870: 42 59 22 3A 8D 33 32 30 3A 4E 45 B2 30 3A 53 41 |BY":.320:NE.0:SA|
00002880: B2 31 3A 8D 37 33 30 00 A4 30 7C 24 84 31 2C 41 |.1:.730..0|$.1,A|
00002890: 24 3A 42 24 B2 C9 28 41 24 2C 34 29 3A 53 41 B2 |$:B$..(A$,4):SA.|
000028A0: 53 41 AA 31 00 D4 30 86 24 97 32 31 34 2C 5A AA |SA.1..0.$.214,Z.|
000028B0: 33 3A 97 32 31 31 2C 53 AA 32 3A 9E 35 38 37 33 |3:.211,S.2:.5873|
000028C0: 32 3A 99 C9 28 22 20 20 20 20 22 AA C4 28 53 41 |2:..(" "..(SA|
000028D0: 29 2C 34 29 00 E4 30 90 24 4E 45 B2 4E 45 AA C5 |),4)..0.$NE.NE..|
000028E0: 28 42 24 29 00 F6 30 9A 24 8B 42 24 B3 B1 22 FF |(B$)..0.$.B$..".|
000028F0: 22 A7 39 33 34 30 00 39 31 A4 24 53 41 B2 53 41 |".9340.91.$SA.SA|
00002900: AB 31 3A 41 5A B2 35 3A 5A B2 5A AA 32 3A 53 B2 |.1:AZ.5:Z.Z.2:S.|
00002910: 53 AA 32 3A 42 52 B2 31 32 3A 4C 47 B2 35 3A 41 |S.2:BR.12:LG.5:A|
00002920: 24 28 31 29 B2 44 41 24 3A 41 24 28 32 29 B2 22 |$(1).DA$:A$(2)."|
00002930: 49 4E 43 4C 55 44 45 53 22 00 60 31 AE 24 41 24 |INCLUDES".`1.$A$|
00002940: 28 33 29 B2 C9 28 22 20 20 20 20 20 22 AA C4 28 |(3)..(" "..(|
00002950: 4E 45 29 2C 35 29 AA 22 20 53 54 41 4D 50 53 22 |NE),5)." STAMPS"|
00002960: 00 8C 31 B8 24 41 24 28 34 29 B2 22 22 3A 41 24 |..1.$A$(4)."":A$|
00002970: 28 35 29 B2 22 50 52 45 53 53 20 42 55 54 54 4F |(5)."PRESS BUTTO|
00002980: 4E 22 3A 8D 33 32 30 3A 8D 39 39 30 00 96 31 C2 |N":.320:.990..1.|
00002990: 24 89 39 30 33 30 00 E2 31 CC 24 41 5A B2 33 3A |$.9030..1.$AZ.3:|
000029A0: 5A B2 5A AA 32 3A 53 B2 53 AA 32 3A 4C 47 B2 33 |Z.Z.2:S.S.2:LG.3|
000029B0: 3A 42 52 B2 32 37 3A 41 24 28 31 29 B2 22 50 4C |:BR.27:A$(1)."PL|
000029C0: 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 4E |EASE ENTER THE N|
000029D0: 41 4D 45 20 4F 46 22 3A 4D 49 B2 31 3A 4D 41 B2 |AME OF":MI.1:MA.|
000029E0: 32 35 00 17 32 D6 24 41 24 28 32 29 B2 22 54 48 |25..2.$A$(2)."TH|
000029F0: 45 20 49 54 45 4D 20 59 4F 55 20 57 41 4E 54 20 |E ITEM YOU WANT |
00002A00: 54 4F 20 46 49 4E 44 22 3A 41 24 28 33 29 B2 22 |TO FIND":A$(3)."|
00002A10: 3A 22 3A 8D 33 32 30 00 2E 32 E0 24 8D 34 30 30 |:":.320..2.$.400|
00002A20: 3A 8B 42 45 24 B2 22 5F 22 A7 39 30 33 30 00 5B |:.BE$."_".9030.[|
00002A30: 32 EA 24 42 45 24 B2 C8 28 42 45 24 AA 22 20 20 |2.$BE$..(BE$." |
00002A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A50: 20 20 20 20 20 20 22 2C 32 35 29 00 69 32 F4 24 | ",25).i2.$|
00002A60: 53 41 B2 31 3A 8D 37 33 30 00 88 32 FE 24 84 31 |SA.1:.730..2.$.1|
00002A70: 2C 41 24 3A 53 41 B2 53 41 AA 31 3A 8B 41 24 B2 |,A$:SA.SA.1:.A$.|
00002A80: 22 FF 22 A7 39 35 30 30 00 A6 32 08 25 42 24 B2 |".".9500..2.%B$.|
00002A90: C8 28 41 24 2C 32 35 29 3A 8B 42 45 24 B3 B1 42 |.(A$,25):.BE$..B|
00002AA0: 24 A7 39 34 37 30 00 B8 32 12 25 53 41 B2 53 41 |$.9470..2.%SA.SA|
00002AB0: AB 31 3A 89 39 31 32 30 00 F0 32 1C 25 41 5A B2 |.1:.9120..2.%AZ.|
00002AC0: 35 3A 4C 47 B2 35 3A 42 52 B2 31 35 3A 5A B2 5A |5:LG.5:BR.15:Z.Z|
00002AD0: AA 32 3A 53 B2 53 AA 32 3A 41 24 28 31 29 B2 22 |.2:S.S.2:A$(1)."|
00002AE0: 54 48 45 20 4E 41 4D 45 20 49 53 20 4E 4F 54 22 |THE NAME IS NOT"|
00002AF0: 00 35 33 26 25 41 24 28 32 29 B2 22 49 4E 43 4C |.53&%A$(2)."INCL|
00002B00: 55 44 45 44 20 49 4E 22 3A 41 24 28 33 29 B2 44 |UDED IN":A$(3).D|
00002B10: 41 24 3A 41 24 28 34 29 B2 22 22 3A 41 24 28 35 |A$:A$(4)."":A$(5|
00002B20: 29 B2 22 50 52 45 53 53 20 42 55 54 54 4F 4E 22 |)."PRESS BUTTON"|
00002B30: 3A 8D 33 32 30 00 44 33 30 25 8D 39 39 30 3A 89 |:.320.D30%.990:.|
00002B40: 39 30 33 30 00 4A 33 10 27 3A 00 61 33 1A 27 8F |9030.J3.':.a3.'.|
00002B50: 20 45 44 49 54 20 44 41 54 41 20 4C 49 53 54 20 | EDIT DATA LIST |
00002B60: 49 00 67 33 24 27 3A 00 B2 33 2E 27 41 5A B2 36 |I.g3$':..3.'AZ.6|
00002B70: 3A 41 24 28 31 29 B2 22 50 4C 45 41 53 45 20 45 |:A$(1)."PLEASE E|
00002B80: 4E 54 45 52 22 3A 41 24 28 32 29 B2 22 54 48 45 |NTER":A$(2)."THE|
00002B90: 20 4E 55 4D 42 45 52 22 3A 41 24 28 33 29 B2 22 | NUMBER":A$(3)."|
00002BA0: 59 4F 55 20 57 41 4E 54 20 54 4F 22 3A 53 B2 53 |YOU WANT TO":S.S|
00002BB0: AA 32 00 F6 33 38 27 41 24 28 34 29 B2 22 45 44 |.2..38'A$(4)."ED|
00002BC0: 49 54 22 3A 41 24 28 35 29 B2 22 22 3A 41 24 28 |IT":A$(5)."":A$(|
00002BD0: 36 29 B2 22 3A 22 3A 5A B2 5A AA 31 3A 42 52 B2 |6).":":Z.Z.1:BR.|
00002BE0: 31 32 3A 4C 47 B2 36 3A 4D 49 B2 30 3A 4D 41 B2 |12:LG.6:MI.0:MA.|
00002BF0: 34 3A 8D 33 32 30 00 0D 34 42 27 8D 34 30 30 3A |4:.320..4B'.400:|
00002C00: 8B 42 45 24 B2 22 22 A7 31 30 30 38 30 00 1F 34 |.BE$."".10080..4|
00002C10: 4C 27 8B 42 45 24 B2 22 5F 22 A7 37 30 33 30 00 |L'.BE$."_".7030.|
00002C20: 47 34 56 27 53 41 B2 C5 28 42 45 24 29 3A 53 57 |G4V'SA..(BE$):SW|
00002C30: B2 53 41 3A 8B 53 41 AA 32 31 B1 53 5A B0 53 41 |.SA:.SA.21.SZ.SA|
00002C40: B3 31 A7 37 31 39 30 00 66 34 60 27 53 57 B2 53 |.1.7190.f4`'SW.S|
00002C50: 41 3A 8B 53 41 AA 32 31 B1 53 5A B0 53 41 B3 31 |A:.SA.21.SZ.SA.1|
00002C60: A7 31 30 31 39 30 00 9B 34 6A 27 8D 38 30 3A 8D |.10190..4j'.80:.|
00002C70: 37 33 30 3A 81 49 B2 31 A4 32 31 3A 84 31 2C 42 |730:.I.1.21:.1,B|
00002C80: 24 28 49 29 3A 82 3A 99 22 13 22 3A 81 49 B2 31 |$(I):.:.".":.I.1|
00002C90: A4 32 31 3A 57 24 B2 22 13 11 22 00 BD 34 74 27 |.21:W$.".."..4t'|
00002CA0: 81 58 B2 31 A4 49 3A 57 24 B2 57 24 AA 22 11 22 |.X.1.I:W$.W$."."|
00002CB0: 3A 82 3A 99 57 24 3B 22 1D 22 3B 53 57 00 F4 34 |:.:.W$;".";SW..4|
00002CC0: 7E 27 53 57 B2 53 57 AA 31 3A 82 3A 99 22 13 11 |~'SW.SW.1:.:."..|
00002CD0: 22 3A 81 49 B2 31 A4 32 31 3A 57 24 B2 22 13 11 |":.I.1.21:W$."..|
00002CE0: 22 3A 81 58 B2 31 A4 49 3A 57 24 B2 57 24 AA 22 |":.X.1.I:W$.W$."|
00002CF0: 11 22 3A 82 00 2A 35 88 27 99 57 24 3B 22 1D 1D |.":..*5.'.W$;"..|
00002D00: 1D 1D 1D 1D 1D 22 3B 42 24 28 49 29 3A 82 3A 5A |.....";B$(I):.:Z|
00002D10: B2 31 3A 42 52 B2 30 3A 4C 47 B2 30 3A 41 24 28 |.1:BR.0:LG.0:A$(|
00002D20: 31 29 B2 22 22 3A 41 5A B2 31 00 49 35 92 27 81 |1)."":AZ.1.I5.'.|
00002D30: 49 B2 31 A4 32 31 3A 8B 55 49 B2 31 A7 82 3A 55 |I.1.21:.UI.1..:U|
00002D40: 49 B2 30 3A 89 37 31 38 30 00 8E 35 9C 27 54 52 |I.0:.7180..5.'TR|
00002D50: 24 B2 C8 28 42 24 28 5A 29 2C 32 32 29 3A 4D 49 |$..(B$(Z),22):MI|
00002D60: B2 31 3A 4D 41 B2 31 3A 53 B2 32 38 3A 5A B2 5A |.1:MA.1:S.28:Z.Z|
00002D70: AA 31 3A 8D 34 30 30 3A 54 52 24 B2 54 52 24 AA |.1:.400:TR$.TR$.|
00002D80: 42 45 24 3A 54 52 24 28 31 29 B2 42 45 24 00 AE |BE$:TR$(1).BE$..|
00002D90: 35 A6 27 8B 42 45 24 B2 22 5F 22 A7 55 49 B2 31 |5.'.BE$."_".UI.1|
00002DA0: 3A 82 3A 55 49 B2 30 3A 89 31 30 30 34 30 00 C8 |:.:UI.0:.10040..|
00002DB0: 35 B0 27 8D 37 33 30 3A 98 31 2C 54 52 24 3A 53 |5.'.730:.1,TR$:S|
00002DC0: 41 B2 53 41 AA 31 3A 82 00 D3 35 BA 27 89 31 30 |A.SA.1:...5.'.10|
00002DD0: 30 38 30 00 D9 35 F8 2A 3A 00 F1 35 02 2B 8F 20 |080..5.*:..5.+. |
00002DE0: 45 44 49 54 20 44 41 54 41 20 4C 49 53 54 20 49 |EDIT DATA LIST I|
00002DF0: 49 00 F7 35 0C 2B 3A 00 42 36 16 2B 41 5A B2 36 |I..5.+:.B6.+AZ.6|
00002E00: 3A 41 24 28 31 29 B2 22 50 4C 45 41 53 45 20 45 |:A$(1)."PLEASE E|
00002E10: 4E 54 45 52 22 3A 41 24 28 32 29 B2 22 54 48 45 |NTER":A$(2)."THE|
00002E20: 20 4E 55 4D 42 45 52 22 3A 41 24 28 33 29 B2 22 | NUMBER":A$(3)."|
00002E30: 59 4F 55 20 57 41 4E 54 20 54 4F 22 3A 53 B2 53 |YOU WANT TO":S.S|
00002E40: AA 32 00 86 36 20 2B 41 24 28 34 29 B2 22 45 44 |.2..6 +A$(4)."ED|
00002E50: 49 54 22 3A 41 24 28 35 29 B2 22 22 3A 41 24 28 |IT":A$(5)."":A$(|
00002E60: 36 29 B2 22 3A 22 3A 5A B2 5A AA 31 3A 42 52 B2 |6).":":Z.Z.1:BR.|
00002E70: 31 32 3A 4C 47 B2 36 3A 4D 49 B2 30 3A 4D 41 B2 |12:LG.6:MI.0:MA.|
00002E80: 34 3A 8D 33 32 30 00 9D 36 2A 2B 8D 34 30 30 3A |4:.320..6*+.400:|
00002E90: 8B 42 45 24 B2 22 22 A7 31 31 30 38 30 00 AF 36 |.BE$."".11080..6|
00002EA0: 34 2B 8B 42 45 24 B2 22 5F 22 A7 37 30 33 30 00 |4+.BE$."_".7030.|
00002EB0: D7 36 3E 2B 53 41 B2 C5 28 42 45 24 29 3A 53 57 |.6>+SA..(BE$):SW|
00002EC0: B2 53 41 3A 8B 53 41 AA 32 31 B1 53 5A B0 53 41 |.SA:.SA.21.SZ.SA|
00002ED0: B3 31 A7 37 31 39 30 00 F6 36 48 2B 53 57 B2 53 |.1.7190..6H+SW.S|
00002EE0: 41 3A 8B 53 41 AA 32 31 B1 53 5A B0 53 41 B3 31 |A:.SA.21.SZ.SA.1|
00002EF0: A7 31 31 31 39 30 00 2B 37 52 2B 8D 38 30 3A 8D |.11190.+7R+.80:.|
00002F00: 37 33 30 3A 81 49 B2 31 A4 32 31 3A 84 31 2C 42 |730:.I.1.21:.1,B|
00002F10: 24 28 49 29 3A 82 3A 99 22 13 22 3A 81 49 B2 31 |$(I):.:.".":.I.1|
00002F20: A4 32 31 3A 57 24 B2 22 13 11 22 00 4D 37 5C 2B |.21:W$."..".M7\+|
00002F30: 81 58 B2 31 A4 49 3A 57 24 B2 57 24 AA 22 11 22 |.X.1.I:W$.W$."."|
00002F40: 3A 82 3A 99 57 24 3B 22 1D 22 3B 53 57 00 84 37 |:.:.W$;".";SW..7|
00002F50: 66 2B 53 57 B2 53 57 AA 31 3A 82 3A 99 22 13 11 |f+SW.SW.1:.:."..|
00002F60: 22 3A 81 49 B2 31 A4 32 31 3A 57 24 B2 22 13 11 |":.I.1.21:W$."..|
00002F70: 22 3A 81 58 B2 31 A4 49 3A 57 24 B2 57 24 AA 22 |":.X.1.I:W$.W$."|
00002F80: 11 22 3A 82 00 BA 37 70 2B 99 57 24 3B 22 1D 1D |.":...7p+.W$;"..|
00002F90: 1D 1D 1D 1D 1D 22 3B 42 24 28 49 29 3A 82 3A 5A |.....";B$(I):.:Z|
00002FA0: B2 31 3A 42 52 B2 30 3A 4C 47 B2 30 3A 41 24 28 |.1:BR.0:LG.0:A$(|
00002FB0: 31 29 B2 22 22 3A 41 5A B2 31 00 D9 37 7A 2B 81 |1)."":AZ.1..7z+.|
00002FC0: 49 B2 31 A4 32 31 3A 8B 55 49 B2 31 A7 82 3A 55 |I.1.21:.UI.1..:U|
00002FD0: 49 B2 30 3A 89 37 31 38 30 00 13 38 84 2B 54 52 |I.0:.7180..8.+TR|
00002FE0: 24 B2 C8 28 42 24 28 5A 29 2C 32 36 29 3A 4D 49 |$..(B$(Z),26):MI|
00002FF0: B2 34 3A 4D 41 B2 34 3A 53 B2 33 32 3A 5A B2 5A |.4:MA.4:S.32:Z.Z|
00003000: AA 31 3A 8D 34 30 30 3A 54 52 24 B2 54 52 24 AA |.1:.400:TR$.TR$.|
00003010: 42 45 24 00 36 38 8E 2B 8B 42 45 24 B2 22 5F 5F |BE$.68.+.BE$."__|
00003020: 5F 5F 22 A7 55 49 B2 31 3A 82 3A 55 49 B2 30 3A |__".UI.1:.:UI.0:|
00003030: 89 31 31 30 34 30 00 50 38 98 2B 8D 37 33 30 3A |.11040.P8.+.730:|
00003040: 98 31 2C 54 52 24 3A 53 41 B2 53 41 AA 31 3A 82 |.1,TR$:SA.SA.1:.|
00003050: 00 5B 38 A2 2B 89 31 31 30 38 30 00 00 00 |.[8.+.11080... |
..).... ********************************
*.Q.... *
*.Y.... * THE STAMPING COLLECTION KIT
*...... *
*.I.... * (C) IN 1986 BY ARNDT GANSE
*...... * IN DEN DORNEN 32
*...... * 5810 WITTEN-ANNEN
*.A.... * TEL. 02302/60698
*.I.... *
*...... ********************************
*.R....53280,12:.53281,12:."..":.A$(22),
RV$(22),B$(21):Q.1:Z.4:S.1......I.1.40:B
1$.B1$." ":B2$.B2$.".":.:BR.12:LG.11:..Z
B(X).LG.Z:IC.1.:.....SB(X).S.C(A$(AZ)).1
:SA.1:IQ.1.O.(.SZ.6500:SW.1:.I.1.40:B3$.
B3$."C":.:.PS.1.SZ.4500...).FF$(1).".KOE
NIGREICH":FF$(2).".GROSSHERZOGTUM":FF$(3
).".HERZOGTUM"...*.FF$(4).".REPUBLIK":FF
$(5).".KAISERREICH":FF$(6).".FREISTAAT".
&.+.FF$(7).".FUERSTENTUM":FF$(8).".VOLKS
STAAT".0.1..1000.6.2.:.J.<.. STANDARDMAS
KE.P.F.:...P..".........................
................";...Z.."O..............
........................P";:.D.1.21...D.
.".
.";:....N.."L..........................
.............";.5.O..PS.0.." PART I";.K.
P..PS.1.." PART ^";.[.Q..H(B1$,15);.{.R.
.U%.0.." DATA BANK CLOSED."...S..U%.1.."
DATA BANK OPEN."...W.....X.:...... ME
NUEERSTELLUNG.C...:......"....";X$(1);".
.";X$(2);"..";X$(3);"..";X$(4);"..";X$(5
);"..";X$(6);......"..."... ...$...:.7..
.. MENUEAUSWAHL.=...:.U.H.VY.1:J.B(56320
):.X$.Y.R..(J.8).0.X$."."..IQ.6.IQ.1:.26
0. ....(J.8).0.X$."."..IQ.6.IQ.IQ.1:.260
.D....(J.4).0.X$."."..IQ.1.IQ.6:.260....
..(J.4).0.X$."."..IQ.1.IQ.IQ.1:.260.....
.(J.16).0.X$.G(13).VY.0:..B....I.1.6:X$(
I).".".I(X$(I),5):.:X$(IQ).".".I(X$(IQ),
5).[....120:.VY.1.VY.0:.170.A.....G.".:.
|.,.. WINDOW-TECHNIK...6.:...@..Z.(21.LG
).S.(37.BR).Z.2:S.2...J.Z1.Z.1:S1.S.1:.2
14,Z:.211,S:.58732:.".U";H(B2$,BR);"I"..
.T..X.1.LG:.214,Z.X:.211,S:.58732:.".";H
(B1$,BR);"B":..M.^..214,Z.X:.211,S:.5873
2:."J";H(B3$,BR);"K.":.I.1.AZ...H..214,Z
1:.211,S1:.58732:.A$(I):Z1.Z1.1:.:.646,1
:....R.:...|.. INPUT-ROUTINE.....:......
198,0.....SB..SB(X):ZB..ZB(X):BE$."":.21
4,ZB:.211,SB:.58732:.204,0......X$:.X$.G
(13).C(BE$)..MI..204,1:." ":..$....X$.""
.420.A...X.F(X$):.X.20.BE$."".420.U....X
.133.PS.0.850.S....X.132.X.141.PS.1.S.6.
940...B..X.20..". ..";:BE$.H(BE$,C(BE$)
.1)...L..X.32.X.95.C(BE$)..MA.420.Y.V..X
$;:.X.32.BE$.BE$.".":.420.....BE$.BE$.X$
:.420.....:...... MENUEAUSWAHL-ROUTINE..
...:......198,0.C....I.1.AZ:RV$(I).".":.
I:Q.Q.((Q.AZ).AZ):RV$(Q).".":Z1.Z.1:.I.1
.AZ......214,Z1:.211,S1:.58732:.RV$(I);A
$(I);".":Z1.Z1.1:.I.....J.B(56320):.X$.R
.&..(J.1).0.X$."."..Q.BN.Q.EN:.520...0..
(J.1).0.X$."."..Q.BN.Q.Q.1:.520...:..(J.
2).0.X$."."..Q.EN.Q.BN:.520.@.D..(J.2).0
.X$."."..Q.EN.Q.Q.1:.520.Y.N..(J.16).0.X
$.G(13)...B.X..520.H...:...F.. ZEIGER PO
SITIONIEREN...P.:.G.Z.HB%.SA.256:LB%.SA.
HB%.256:.15,"P";G(3);G(LB%);G(HB%);G(1).
M.....S...:...... DISK UEBERPFUEFEN.....
:.....F%.B(768):.768,185:.1,8,15,"I": 1:
.768,F%./....ST...128...}. .AZ.6:A$(1)."
DRIVE":A$(2)."NOT":A$(3)."READY.":A$(4).
"":A$(5)."PRESS":S.10...*.A$(6)."BUTTON"
:Z.Z.2:BR.6:LG.6:.320:.990:.780...4.:.J.
>.. INPUT ZUSATZ I.P.H.:...R..211,SB:.58
732:.S.6.DS.1...\..S.11.DS.2...F..S.15.D
S.3...P..S.25.DS.4.).Z..S.28.DS.5.W....T
R$(DS);:BE$.TR$(DS):.198,1:.631,13:.420.
]...:.S.... INPUT ZUSATZ II.Y...:......2
11,SB:.58732:.S.6.DS.1.J....FF$(X.132);:
BE$.FF$(X.132):.198,1:.631,13:.420.P...:
...J.. WARTEN AUF REAKTION...T.:......X$
:.B(56320).16.0.X$.G(13). ....X$.G(13)..
.)....990./...:.D.... HAUPTVERTEILER.J..
.:.....X$(1)."CRTE.":X$(2)."OPEN.":X$(3)
."DISK.":X$(4)."EDIT.":X$(5)."PRNT."....
.X$(6)."EXIT.":.80:.260:.150:.200......I
Q.3000,2000,4000,7000,8000,6000...$.....
P.:...Z.. OPEN.....:......U%.0.U%.1:.207
0.`...AZ.8:A$(1)."YOU MUST":A$(2)."FIRST
":A$(3)."CLOSE":A$(4)."THE LAST":S.5:Z.2
.....A$(5)."DATA BANK":A$(6)."":A$(7)."P
RESS":A$(8)."BUTTON":BR.9:LG.8:.320.....
.990:.1030.....AZ.5:A$(1)."PLEASE":A$(2)
."ENTER":A$(3)."NAME":A$(4)."":A$(5).":"
:S.7:Z.2.8. .BR.6:LG.5:MI.1:MA.5:.320:.4
00:.BE$."_".1030.A.%.DA$.BE$:AZ.6:A$(1).
"PLEASE":S.5:BR.9...*.A$(2)."INSERT":A$(
3)."YOUR DATA":A$(4)."DISK AND":A$(5)."P
RESS".R.4.A$(6)."BUTTON":LG.6:Z.Z.2:.320
:.990:.780...>..15,8,15,"I0":.1,8,3,DA$:
.1030.....:...B.. CREATE...L.:...V..U%..
0.2030.L...AZ.5:A$(1)."PLEASE":A$(2)."EN
TER":A$(3)."NAME":A$(4)."":A$(5).":":S.1
:Z.2.....BR.6:LG.5:MI.1:MA.5:.320:.400:.
BE$."_".1030.E...DA$.BE$:AZ.6:A$(1)."PLE
ASE":S.1:BR.9.....A$(2)."INSERT A":A$(3)
."FORMATTED":A$(4)."DISK AND":A$(5)."PRE
SS".G...A$(6)."BUTTON":LG.6:Z.Z.2:.320:.
990:.780:AZ.5:S.1:Z.Z.2.....A$(1)."ENTER
":A$(2)."NO. OF":A$(3)."ENTRIES":A$(4)."
":A$(5).":":BR.7:LG.5.B...MI.1:MA.4:.320
:.400:SZ.E(BE$):.SZ.1.3090.Y....PS.0.SZ.
6500.3090...!..PS.1.SZ.4500.3090.(.&..PS
.0.SL.25:HB..(SZ.255):LB.SZ.HB.255:.15,8
,15,"I0".`.+..PS.1.SL.31:HB..(SZ.255):LB
.SZ.HB.255:.15,8,15,"I0"...0..1,8,3,DA$.
",L,".G(SL):.15,"P";G(3);G(LB);G(HB);G(1
)...:..1,G(255): 1: 15:.1030... .:.N....
DISK COMMANDS.T...:......U%..0.2030.1.H
.AZ.5:A$(1)."":A$(2)."DISK COMMANDS":A$(
3)."DIRECTORY":S.9:Z.2:BR.14:LG.5.M.R.A$
(4)."RETURN TO MENU":A$(5)."":EN.4:BN.2:
Q.2:.320:.510......Q.0,4070,4110,1030.S.
..AZ.5:A$(1)."INSERT DISK":A$(2)."INTO D
RIVE":A$(3)."":A$(4)."PRESS BUTTON".....
BR.12:LG.4:S.S.2:Z.Z.2:.320:.990:.780:."
.".@...MI.1:MA.79:S.0:Z.0:BR.0:LG.0:.400
:.1,8,15,BE$: 1:.15,8,15.U....15,A,B$,C,
D: 15:.A,B$,C,D:.".PRESS FIRE BUTTON"...
...990:.4040.R...AZ.5:A$(1)."INSERT DISK
":A$(2)."INTO DRIVE":A$(3)."":A$(4)."PRE
SS BUTTON".....BR.12:LG.4:S.S.2:Z.Z.2:.3
20:.990:.780:."."..."..1,8,0,"$":.#1,A$,
A$.8.,..#1,A$,A$:.ST.64. 1:.4180.B.6..#1
,A$,B$:.F(A$.G(0)).256.F(B$.G(0));..@..
#1,A$:.A$;:.A$.."".4160...J..:.X$:.X$."_
".4180. .O..4140.F.T..".PRESS FIRE BUTTO
N.":.990:.4040.L.P.:.W.Z.. EXIT.....:.!.
.. 1: 15:U%.0:AZ.5:A$(2)."RETURN TO MENU
":A$(3)."RETURN TO BASIC".K...A$(1)."":A
$(5)."":Z.2:BN.2:EN.4:BR.15:LG.5:.PS.0.A
$(4)."ENTER PART ^"......PS.1.A$(4)."ENT
ER PART I".....S.22:Q.2:.320:.510:.Q.2.1
030.B....Q.4.PS.1.PS.0:.40.Y....Q.4.PS.0
.PS.1:.40.........X.:...B.. EDIT...L.:..
.V..U%.1.7065.I...AZ.5:A$(1)."YOU FIRST"
:A$(2)."HAVE TO OPEN":A$(3)."A DATA BANK
".....A$(4)."":A$(5)."PRESS BUTTON":BR.1
2:LG.5:Z.2:S.16:.320......990:.1030.....
.PS.1.9030.....AZ.7:A$(1)."READ DATA BAN
K":A$(2)."EDIT DATA BANK":BR.14:LG.7:Z.2
:S.15.5 ..A$(3)."SEARCH AN ITEM":A$(4)."
COUNT ENTRIES":A$(7)."RETURN TO MENU".Y
..A$(5)."SAVE ENTRIES":A$(6)."EDIT DATA
LIST":BN.1:EN.7:.320:.510.. ...Q.7110,71
80,7420,7320,7310,10030,1030.. F.AZ.6:A$
(1)."PLEASE ENTER":A$(2)."THE NUMBER":A$
(3)."YOU WANT TO":S.S.2.3!P.A$(4)."SEE."
:A$(5)."":A$(6).":":Z.Z.1:BR.12:LG.6:MI.
0:MA.4:.320.I!Z..400:.BE$."".7145.[!...B
E$."_".7030.}!..SA.E(BE$):.SA.20.SZ.SA.1
.7120..!...SA.20.SZ.SA.1.7120.J!...80:.7
30:.I.1.21:.1,B$(I):.:.".":.I.1.21:W$.".
."..!...X.1.I:W$.W$.".":.:.W$;".";SA.#".
.SA.SA.1:.:."..":.I.1.21:W$."..":.X.1.I:
W$.W$.".":..B"...W$;".......";B$(I):.:.9
90.L"...7110.."..AZ.6:A$(1)."PLEASE ENTE
R":A$(2)."THE NUMBER":A$(3)."YOU WANT TO
":S.S.2.."..A$(4)."EDIT":A$(5)."":A$(6).
":":Z.Z.1:BR.12:LG.6:MI.0:MA.4:.320.." .
.400:.BE$."".7215..#%..BE$."_".7030.+#*.
SA.E(BE$):SW.SA:.SA.21.SZ.SA.1.7190.I#/.
SW.SA:.SA.21.SZ.SA.1.7190.~#4..80:.730:.
I.1.21:.1,B$(I):.:.".":.I.1.21:W$."..".
#9..X.1.I:W$.W$.".":.:.W$;".";SW.W#>.SW.
SW.1:.:."..":.I.1.21:W$."..":.X.1.I:W$.W
$.".":...$C..W$;".......";B$(I):.:Z.1:BR
.0:LG.0:A$(1)."":AZ.1.,$H..I.1.21:.UI.1.
.:UI.0:.7180.K$K.TR$."":MI.4:MA.4:S.6:Z.
Z.1:.400:TR$.TR$.BE$." ":TR$(1).BE$..$M.
.BE$."____".UI.1:.:UI.0:.7180.K$R.MI.0:M
A.3:S.11:.400:TR$.TR$.H(BE$." ",3)." "
:TR$(2).BE$..%\.MI.0:MA.9:S.15:.400:TR$.
TR$.H(BE$." ",9)." ":TR$(3).BE$.
L%F.MI.1:MA.2:S.25:.400:TR$.TR$.H(BE$."
",2)." ":TR$(4).BE$..%P.MI.1:MA.1:S.28:
.400:TR$.TR$.H(BE$." ",1):TR$(5).BE$..%Z
..730:.1,TR$:SA.SA.1:...%...7215.R%.. 1:
15:.15,8,15,"I0":.1,8,3,DA$:.7030..&..A
Z.5:A$(1)."COUNTING":.I.2.4:A$(I)."":.:S
.S.2:Z.Z.2:LG.5:BR.8.=&..A$(5)."STAND BY
":.320:NE.0:SA.1:.730.Z&...1,A$:B$.I(A$,
1):SA.SA.1..&...214,Z.3:.211,S.2:.58732:
.I(" ".D(SA),4)..&...B$."X".B$."Y".B$
."J".NE.NE.1..&J..B$..".".7340..'T.SA.SA
.1:AZ.6:Z.Z.2:S.S.2:BR.12:LG.6:A$(1).DA$
:A$(2)."INCLUDES".6'..A$(3).I(" ".D(N
E),4)." OF ".I(" ".D(SA),4).S'..A$(4)
."ENTRIES.":A$(5)."":A$(6)."PRESS BUTTON
":.320:.990.}'...7030.G'..AZ.5:Z.Z.2:S.S
.2:LG.5:BR.12:A$(1)."PLEASE ENTER":A$(2)
."THE CAT. NO."..(..A$(3)."OF THE ITEM":
A$(4)."YOU WANT TO":A$(5)."FIND:":MI.1:M
A.4:.320.'(...400:.BE$."_".7030.F(..NO.E
(BE$):.NO.1.NO.SZ.7430.T($.SA.1:.730.S(.
..1,A$:SA.SA.1:.A$.".".7500..(8.B.E(H(A$
,4)):.NO..B.7470..(B.SA.SA.1:.7145..(L.A
Z.5:LG.5:BR.14:Z.Z.2:S.S.2:A$(1)."NO.".D
(NO)." IS NOT".#)V.A$(2)."INCLUDED IN":A
$(3).DA$:A$(4)."":A$(5)."PRESS BUTTON":.
320.2)`..990:.7030.8)@.:.L)J.. PRINT-ROU
TINE.R)T.:.A)^..U%.0.7040..)H.AZ.5:S.22:
Z.2:LG.5:BR.12:A$(1)."ATTACH YOUR":A$(2)
."PRINTER TO"..)R.A$(3)."THE COMPUTER":A
$(4)."":A$(5)."PRESS BUTTON":.320..*|..9
90:F%.B(768):.768,185:.4,4: 4:.768,F%. *
...ST...128.8050.?*...4,4,7:SA.1:.730:.4
,DA$:.4.V*...1,A$:.A$.".".8120.K*...X$:.
X$."_".8120.{*...4,A$:.8090..*.. 4:.1030
..*(#:..*2#. EDIT PART II..*<#:..*F#AZ.7
:A$(1)."READ DATA BANK":A$(2)."EDIT DATA
BANK":BR.14:LG.7:Z.2:S.15.:+P#A$(3)."SE
ARCH AN ITEM":A$(4)."COUNT ENTRIES":A$(7
)."RETURN TO MENU".~+Z#A$(5)."SAVE ENTRI
ES":A$(6)."EDIT DATA LIST":BN.1:EN.7:.32
0:.510..+D#.Q.9070,9180,9420,9320,9310,1
1030,1030..+N#AZ.6:A$(1)."PLEASE ENTER":
A$(2)."THE NUMBER":A$(3)."YOU WANT TO":S
.S.2.8,X#A$(4)."SEE.":A$(5)."":A$(6).":"
:Z.Z.1:BR.12:LG.6:MI.0:MA.4:.320.N,.#.40
0:.BE$."".9120.`,.#.BE$."_".9030..,.#SA.
E(BE$):.SA.20.SZ.SA.1.9080.., #.SA.20.SZ
.SA.1.9080.O,.#.80:.730:.Z.1.21:.1,B$(Z)
:.:.".":.I.1.21:W$.".."..,.#.X.1.I:W$.W$
.".":.:.W$;".";SA.(-.#SA.SA.1:.:."..":.I
.1.21:W$."..":.X.1.I:W$.W$.".":..G-H#.W$
;".......";B$(I):.:.990.Q-R#.9070..-.#AZ
.6:A$(1)."PLEASE ENTER":A$(2)."THE NUMBE
R":A$(3)."YOU WANT TO":S.S.2..-.#A$(4)."
EDIT":A$(5)."":A$(6).":":Z.Z.1:BR.12:LG.
6:MI.0:MA.4:.320..-.#.400:.BE$."".9215..
..#.BE$."_".9030.0..#SA.E(BE$):SW.SA:.SA
.21.SZ.SA.1.9190.N..#SW.SA:.SA.21.SZ.SA.
1.7190....$.80:.730:.I.1.21:.1,B$(I):.:.
".":.I.1.21:W$.".."....$.X.1.I:W$.W$."."
:.:.W$;".";SW....$SW.SW.1:.:."..":.I.1.2
1:W$."..":.X.1.I:W$.W$.".":.../.$.W$;"..
.....";B$(I):.:Z.1:BR.0:LG.0:A$(1)."":AZ
.1.1/.$.I.1.21:.UI.1..:UI.0:.9180.V/.$TR
$."":MI.1:MA.25:S.6:Z.Z.1:.400../.$TR$.T
R$.H(BE$." ",25).
" "../.$.BE$."_".UI.1:.:UI.0:.9180.N/"$M
I.4:MA.4:S.32:.400:TR$.TR$.BE$../J$.730:
.1,TR$:SA.SA.1:.../T$.9215..0^$ 1: 15:.1
5,8,15,"I0":.1,8,3,DA$:.9030.^0H$AZ.5:A$
(1)."COUNTING":.I.2.4:A$(I)."":.:S.S.2:Z
.Z.2:LG.5:BR.8..0R$A$(5)."STAND BY":.320
:NE.0:SA.1:.730..0|$.1,A$:B$.I(A$,4):SA.
SA.1.T0.$.214,Z.3:.211,S.2:.58732:.I("
".D(SA),4)..0.$NE.NE.E(B$)..0.$.B$..".
".9340.91.$SA.SA.1:AZ.5:Z.Z.2:S.S.2:BR.1
2:LG.5:A$(1).DA$:A$(2)."INCLUDES".`1.$A$
(3).I(" ".D(NE),5)." STAMPS"..1.$A$(
4)."":A$(5)."PRESS BUTTON":.320:.990..1B
$.9030..1L$AZ.3:Z.Z.2:S.S.2:LG.3:BR.27:A
$(1)."PLEASE ENTER THE NAME OF":MI.1:MA.
25..2V$A$(2)."THE ITEM YOU WANT TO FIND"
:A$(3).":":.320..2.$.400:.BE$."_".9030.[
2.$BE$.H(BE$." ",
25).I2.$SA.1:.730..2.$.1,A$:SA.SA.1:.A$.
".".9500..2.%B$.H(A$,25):.BE$..B$.9470..
2.%SA.SA.1:.9120..2.%AZ.5:LG.5:BR.15:Z.Z
.2:S.S.2:A$(1)."THE NAME IS NOT".53&%A$(
2)."INCLUDED IN":A$(3).DA$:A$(4)."":A$(5
)."PRESS BUTTON":.320.D30%.990:.9030.J3.
':.A3.'. EDIT DATA LIST I.G3$':..3.'AZ.6
:A$(1)."PLEASE ENTER":A$(2)."THE NUMBER"
:A$(3)."YOU WANT TO":S.S.2..38'A$(4)."ED
IT":A$(5)."":A$(6).":":Z.Z.1:BR.12:LG.6:
MI.0:MA.4:.320..4B'.400:.BE$."".10080..4
L'.BE$."_".7030.G4V'SA.E(BE$):SW.SA:.SA.
21.SZ.SA.1.7190.F4`'SW.SA:.SA.21.SZ.SA.1
.10190..4J'.80:.730:.I.1.21:.1,B$(I):.:.
".":.I.1.21:W$.".."..4T'.X.1.I:W$.W$."."
:.:.W$;".";SW..4~'SW.SW.1:.:."..":.I.1.2
1:W$."..":.X.1.I:W$.W$.".":..*5.'.W$;"..
.....";B$(I):.:Z.1:BR.0:LG.0:A$(1)."":AZ
.1.I5.'.I.1.21:.UI.1..:UI.0:.7180..5.'TR
$.H(B$(Z),22):MI.1:MA.1:S.28:Z.Z.1:.400:
TR$.TR$.BE$:TR$(1).BE$..5.'.BE$."_".UI.1
:.:UI.0:.10040.H5.'.730:.1,TR$:SA.SA.1:.
.S5.'.10080.Y5.*:..5.+. EDIT DATA LIST I
I..5.+:.B6.+AZ.6:A$(1)."PLEASE ENTER":A$
(2)."THE NUMBER":A$(3)."YOU WANT TO":S.S
.2..6 +A$(4)."EDIT":A$(5)."":A$(6).":":Z
.Z.1:BR.12:LG.6:MI.0:MA.4:.320..6*+.400:
.BE$."".11080..64+.BE$."_".7030.W6>+SA.E
(BE$):SW.SA:.SA.21.SZ.SA.1.7190..6H+SW.S
A:.SA.21.SZ.SA.1.11190.+7R+.80:.730:.I.1
.21:.1,B$(I):.:.".":.I.1.21:W$."..".M7\+
.X.1.I:W$.W$.".":.:.W$;".";SW..7F+SW.SW.
1:.:."..":.I.1.21:W$."..":.X.1.I:W$.W$."
.":...7P+.W$;".......";B$(I):.:Z.1:BR.0:
LG.0:A$(1)."":AZ.1.Y7Z+.I.1.21:.UI.1..:U
I.0:.7180..8.+TR$.H(B$(Z),26):MI.4:MA.4:
S.32:Z.Z.1:.400:TR$.TR$.BE$.68.+.BE$."__
__".UI.1:.:UI.0:.11040.P8.+.730:.1,TR$:S
A.SA.1:..[8.+.11080...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL