EASY CATALOGUE
FILE INFORMATION
FILENAME(S): EASY CATALOGUE
FILE TYPE(S): PRG
FILE SIZE: 13.1K
FIRST SEEN: 2025-11-30 21:06:55
APPEARS ON: 2 disk(s)
FILE HASH
2792639bf3cf1e1026c8bd12ca50e70febd54912fb9d411c6ad1974c03085834
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DICK 12 | EASY CATALOGUE | PRG | DuncanTwain | 7 | 2 | DOWNLOAD FILE |
| C64 HULP 55 1 | EASY CATALOGUE | PRG | DuncanTwain | 24 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 64 00 8F 22 14 14 14 14 14 14 14 14 |../.d.."........|
00000010: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A | *******|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000030: 5D 08 6E 00 8F 22 14 14 14 14 14 14 14 14 20 20 |].n.."........ |
00000040: 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 | * |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 8B 08 | *...|
00000060: 78 00 8F 22 14 14 14 14 14 14 14 14 20 20 20 20 |x.."........ |
00000070: 20 20 20 20 20 2A 20 20 20 45 41 53 59 20 43 41 | * EASY CA|
00000080: 54 41 4C 4F 47 55 45 20 20 20 2A 00 B9 08 82 00 |TALOGUE *.....|
00000090: 8F 22 14 14 14 14 14 14 14 14 20 20 20 20 20 20 |."........ |
000000A0: 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 | * |
000000B0: 20 20 20 20 20 20 20 20 2A 00 F7 08 8C 00 8F 40 | *......@|
000000C0: 40 40 40 3A 52 45 4D 22 14 14 14 14 14 14 14 14 |@@@:REM"........|
000000D0: 14 14 14 14 14 14 14 14 20 20 20 20 20 20 20 20 |........ |
000000E0: 20 2A 20 20 20 20 20 20 20 20 20 42 59 20 20 20 | * BY |
000000F0: 20 20 20 20 20 20 2A 00 25 09 96 00 8F 22 14 14 | *.%...."..|
00000100: 14 14 14 14 14 14 20 20 20 20 20 20 20 20 20 2A |...... *|
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 2A 00 53 09 A0 00 8F 22 14 14 14 14 | *.S...."....|
00000130: 14 14 14 14 20 20 20 20 20 20 20 20 20 2A 20 20 |.... * |
00000140: 47 49 4F 52 47 49 4F 20 20 43 48 49 4F 5A 5A 49 |GIORGIO CHIOZZI|
00000150: 20 20 2A 00 81 09 AA 00 8F 22 14 14 14 14 14 14 | *......"......|
00000160: 14 14 20 20 20 20 20 20 20 20 20 2A 20 20 20 20 |.. * |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 2A 00 B1 09 B4 00 8F 22 14 14 14 14 14 14 14 14 |*......"........|
00000190: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A | *******|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 40 |***************@|
000001B0: 40 00 09 0A BE 00 8F 47 CF 33 37 35 0D 48 8A 48 |@......G.375.H.H|
000001C0: A2 06 86 C6 BD 62 13 9D 76 02 CA D0 F7 68 AA 68 |.....b..v....h.h|
000001D0: 4C 3A C4 A9 5E 8D 37 13 A9 C2 8D 14 03 A9 5A 8D |L:..^.7.......Z.|
000001E0: 18 03 A9 CB 8D 19 03 A2 06 86 C6 BD A0 13 9D 76 |...............v|
000001F0: 02 CA D0 F7 60 47 CF 31 31 30 0D 2D 2D 2D 2D 2D |....`G.110.-----|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 35 0A C8 00 97 31 |---------.5....1|
00000210: 35 37 2C 31 32 38 3A 86 41 24 28 31 30 30 30 29 |57,128:.A$(1000)|
00000220: 3A 97 36 35 30 2C 31 32 38 3A 3A 99 C7 28 31 34 |:.650,128::..(14|
00000230: 32 29 22 05 22 00 6C 0A D2 00 57 45 28 30 29 B2 |2)".".l...WE(0).|
00000240: 31 3A 57 45 28 31 29 B2 31 3A 57 45 28 33 29 B2 |1:WE(1).1:WE(3).|
00000250: 31 3A 57 45 28 34 29 B2 31 3A 57 45 28 35 29 B2 |1:WE(4).1:WE(5).|
00000260: 30 3A 51 4C B2 36 33 3A 89 34 34 30 00 76 0A DC |0:QL.63:.440.v..|
00000270: 00 8F 4C 4F 41 44 00 A7 0A E6 00 99 22 93 11 20 |..LOAD......".. |
00000280: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 12 4C | ********** .L|
00000290: 4F 41 44 20 20 46 49 4C 45 92 20 20 2A 2A 2A 2A |OAD FILE. ****|
000002A0: 2A 2A 2A 2A 2A 2A 22 00 C6 0A F0 00 99 A6 31 30 |******".......10|
000002B0: 29 22 11 11 50 52 45 53 53 20 27 40 27 20 54 4F |)"..PRESS '@' TO|
000002C0: 20 45 58 49 54 22 00 D9 0A FA 00 A1 41 24 3A 8B | EXIT"......A$:.|
000002D0: 41 24 B2 22 22 A7 32 35 30 00 E9 0A 04 01 8B 41 |A$."".250......A|
000002E0: 24 B2 22 40 22 A7 34 34 30 00 2D 0B 0E 01 99 22 |$."@".440.-...."|
000002F0: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 22 3A 85 22 1D 1D 1D 1D 1D 1D | ":."......|
00000320: 1D 46 49 4C 45 4E 41 4D 45 22 3B 46 24 00 5C 0B |.FILENAME";F$.\.|
00000330: 18 01 8B 53 24 B2 22 31 22 A7 9F 31 2C 31 2C 30 |...S$."1"..1,1,0|
00000340: 2C 46 24 3A 99 22 11 1D 1D 1D 1D 1D 1D 1D 4C 4F |,F$:."........LO|
00000350: 41 44 49 4E 47 11 22 3A 89 33 30 30 00 9F 0B 22 |ADING.":.300..."|
00000360: 01 9F 31 2C 38 2C 32 2C 46 24 AA 22 2C 52 2C 53 |..1,8,2,F$.",R,S|
00000370: 22 3A 99 22 11 1D 1D 1D 1D 1D 1D 1D 46 49 4C 45 |":."........FILE|
00000380: 3A 20 12 22 46 24 22 92 22 3A 9F 33 2C 38 2C 31 |: ."F$".":.3,8,1|
00000390: 35 3A 84 33 2C 41 2C 42 24 2C 43 24 2C 44 24 00 |5:.3,A,B$,C$,D$.|
000003A0: C2 0B 27 01 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 22 |..'.."........."|
000003B0: 41 3B 42 24 43 24 44 24 3A 8B 41 B3 B1 30 A7 33 |A;B$C$D$:.A..0.3|
000003C0: 32 30 00 DA 0B 28 01 99 3A 99 22 1D 1D 1D 1D 1D |20...(..:.".....|
000003D0: 1D 1D 4C 4F 41 44 49 4E 47 22 00 17 0C 2C 01 84 |..LOADING"...,..|
000003E0: 31 2C 4B 4D 24 2C 43 41 3A 81 4D B2 31 A4 43 41 |1,KM$,CA:.M.1.CA|
000003F0: 3A 84 31 2C 43 41 24 28 4D 29 3A 84 31 2C 44 44 |:.1,CA$(M):.1,DD|
00000400: 28 4D 29 3A 84 31 2C 4E 24 28 4D 29 3A 82 4D 3A |(M):.1,N$(M):.M:|
00000410: 57 45 28 30 29 B2 31 00 3B 0C 36 01 84 31 2C 59 |WE(0).1.;.6..1,Y|
00000420: 3A 57 45 28 31 29 B2 59 3A 81 49 B2 31 A4 59 3A |:WE(1).Y:.I.1.Y:|
00000430: 84 31 2C 41 24 28 49 29 3A 82 49 00 6F 0C 40 01 |.1,A$(I):.I.o.@.|
00000440: A0 31 3A 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 12 50 |.1:."..........P|
00000450: 52 45 53 53 20 52 45 54 55 52 4E 22 3A 92 31 39 |RESS RETURN":.19|
00000460: 37 2C 31 35 3A 8B 53 24 B2 22 32 22 A7 A0 33 00 |7,15:.S$."2"..3.|
00000470: 78 0C 4A 01 89 34 34 30 00 8B 0C 54 01 8B 59 B2 |x.J..440...T..Y.|
00000480: 30 A7 34 34 30 3A 8F 53 41 56 45 00 BE 0C 5E 01 |0.440:.SAVE...^.|
00000490: 99 22 93 11 12 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."...***********|
000004A0: 2A 2A 2A 20 20 53 41 56 45 20 20 46 49 4C 45 20 |*** SAVE FILE |
000004B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 07 | ************"..|
000004C0: 0D 68 01 85 22 11 11 11 12 1D 1D 1D 46 49 4C 45 |.h..".......FILE|
000004D0: 4E 41 4D 45 20 3A 92 20 22 3B 46 24 3A 99 22 13 |NAME :. ";F$:.".|
000004E0: 11 11 11 11 11 11 1D 1D 1D 53 41 56 45 20 3A 20 |.........SAVE : |
000004F0: 22 46 24 22 20 20 20 20 20 20 20 20 20 20 20 20 |"F$" |
00000500: 20 20 20 20 20 20 22 00 37 0D 72 01 8B 53 24 B2 | ".7.r..S$.|
00000510: 22 31 22 A7 99 22 11 1D 1D 1D 4F 50 45 4E 49 4E |"1".."....OPENIN|
00000520: 47 20 46 49 4C 45 11 22 3A 9F 31 2C 31 2C 31 2C |G FILE.":.1,1,1,|
00000530: 46 24 3A 89 34 30 30 00 60 0D 7C 01 9F 31 2C 38 |F$:.400.`.|..1,8|
00000540: 2C 32 2C 46 24 AA 22 2C 57 2C 53 22 3A 99 22 11 |,2,F$.",W,S":.".|
00000550: 1D 1D 1D 46 49 4C 45 3A 20 12 22 46 24 22 92 22 |...FILE: ."F$"."|
00000560: 00 95 0D 86 01 9F 33 2C 38 2C 31 35 3A 84 33 2C |......3,8,15:.3,|
00000570: 41 2C 42 24 2C 43 24 2C 44 24 3A 99 22 11 11 1D |A,B$,C$,D$:."...|
00000580: 1D 1D 22 41 3B 42 24 43 24 44 24 3A 8B 41 B3 B1 |.."A;B$C$D$:.A..|
00000590: 30 A7 34 32 35 00 B4 0D 90 01 99 22 11 1D 1D 1D |0.425......"....|
000005A0: 53 41 56 49 4E 47 20 3A 20 12 22 46 24 3A 98 31 |SAVING : ."F$:.1|
000005B0: 2C 4B 4D 24 00 E5 0D 9A 01 98 31 2C 43 41 3A 81 |,KM$......1,CA:.|
000005C0: 4D B2 31 A4 43 41 3A 98 31 2C 43 41 24 28 4D 29 |M.1.CA:.1,CA$(M)|
000005D0: 3A 98 31 2C 44 44 28 4D 29 3A 98 31 2C 4E 24 28 |:.1,DD(M):.1,N$(|
000005E0: 4D 29 3A 82 4D 00 01 0E A4 01 98 31 2C 59 3A 81 |M):.M......1,Y:.|
000005F0: 49 B2 31 A4 59 3A 98 31 2C 41 24 28 49 29 3A 82 |I.1.Y:.1,A$(I):.|
00000600: 49 00 25 0E A9 01 A0 31 3A 99 22 11 11 12 1D 1D |I.%....1:.".....|
00000610: 1D 50 52 45 53 53 20 52 45 54 55 52 4E 22 3A 92 |.PRESS RETURN":.|
00000620: 31 39 37 2C 31 00 34 0E AE 01 8B 53 24 B2 22 32 |197,1.4....S$."2|
00000630: 22 A7 A0 33 00 73 0E B8 01 97 35 33 32 38 30 2C |"..3.s....53280,|
00000640: 30 3A 97 35 33 32 38 31 2C 30 3A 99 22 93 11 20 |0:.53281,0:.".. |
00000650: 20 20 20 20 20 2D 2D 2D 2D 2D 20 12 45 41 53 59 | ----- .EASY|
00000660: 20 20 43 41 54 41 4C 4F 47 55 45 92 20 2D 2D 2D | CATALOGUE. ---|
00000670: 2D 2D 22 00 AA 0E B9 01 99 A6 31 39 29 22 11 42 |--".......19)".B|
00000680: 59 22 3A 99 22 11 20 20 20 20 20 20 2D 2D 2D 2D |Y":.". ----|
00000690: 2D 20 12 47 49 4F 52 47 49 4F 20 43 48 49 4F 5A |- .GIORGIO CHIOZ|
000006A0: 5A 49 92 20 2D 2D 2D 2D 2D 22 00 C8 0E C2 01 99 |ZI. -----"......|
000006B0: 3A 99 3A 99 C7 28 31 34 32 29 A6 31 36 29 22 08 |:.:..(142).16)".|
000006C0: 12 11 4D 45 4E 55 27 11 00 DF 0E CC 01 99 22 11 |..MENU'.......".|
000006D0: 1D 28 41 29 20 4E 45 57 20 46 49 4C 45 22 3B 00 |.(A) NEW FILE";.|
000006E0: F6 0E D6 01 99 A6 39 29 22 28 42 29 20 4F 4C 44 |......9)"(B) OLD|
000006F0: 20 46 49 4C 45 22 00 12 0F E0 01 99 22 1D 28 43 | FILE"......".(C|
00000700: 29 20 43 4F 52 52 45 43 54 20 52 45 43 4F 52 44 |) CORRECT RECORD|
00000710: 22 3B 00 2E 0F EA 01 99 A6 33 29 22 28 44 29 20 |";.......3)"(D) |
00000720: 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 22 00 48 |DISK COMMANDS".H|
00000730: 0F F4 01 99 22 1D 28 45 29 20 4C 49 53 54 20 52 |....".(E) LIST R|
00000740: 45 43 4F 52 44 53 22 3B 00 63 0F FE 01 99 A6 35 |ECORDS";.c.....5|
00000750: 29 22 28 46 29 20 46 49 4E 44 20 52 45 43 4F 52 |)"(F) FIND RECOR|
00000760: 44 53 22 00 7E 0F 08 02 99 22 1D 28 47 29 20 43 |DS".~....".(G) C|
00000770: 4C 45 41 52 20 52 45 43 4F 52 44 53 22 3B 00 9A |LEAR RECORDS";..|
00000780: 0F 12 02 99 A6 34 29 22 28 48 29 20 50 52 49 4E |.....4)"(H) PRIN|
00000790: 54 45 52 20 4D 45 4E 55 27 22 00 B6 0F 1C 02 99 |TER MENU'"......|
000007A0: 22 1D 28 49 29 20 49 4E 53 45 52 54 20 52 45 43 |".(I) INSERT REC|
000007B0: 4F 52 44 53 22 3B 00 CF 0F 26 02 99 A6 33 29 22 |ORDS";...&...3)"|
000007C0: 28 4A 29 20 42 59 54 45 53 20 46 52 45 45 22 00 |(J) BYTES FREE".|
000007D0: E6 0F 30 02 99 22 1D 28 4B 29 20 53 41 56 45 20 |..0..".(K) SAVE |
000007E0: 46 49 4C 45 22 3B 00 FE 0F 3A 02 99 A6 38 29 22 |FILE";...:...8)"|
000007F0: 28 4C 29 20 4C 4F 41 44 20 46 49 4C 45 22 00 15 |(L) LOAD FILE"..|
00000800: 10 3B 02 99 22 1D 28 4D 29 20 4C 49 4E 4B 20 46 |.;..".(M) LINK F|
00000810: 49 4C 45 22 3B 00 2D 10 3C 02 99 A6 38 29 22 28 |ILE";.-.<...8)"(|
00000820: 4E 29 20 53 4F 52 54 20 46 49 4C 45 22 00 59 10 |N) SORT FILE".Y.|
00000830: 44 02 99 22 1D 1D 1D 1D 11 12 46 49 45 4C 44 53 |D.."......FIELDS|
00000840: 3D 92 22 43 41 A6 31 30 29 22 12 52 45 43 4F 52 |=."CA.10)".RECOR|
00000850: 44 53 3D 92 22 59 22 91 91 00 6C 10 4E 02 A1 41 |DS=."Y"...l.N..A|
00000860: 24 3A 8B 41 24 B2 22 22 A7 35 39 30 00 83 10 58 |$:.A$."".590...X|
00000870: 02 8B 41 24 B3 22 41 22 B0 41 24 B1 22 4E 22 A7 |..A$."A".A$."N".|
00000880: 35 39 30 00 CB 10 62 02 91 C6 28 41 24 29 AB 36 |590...b...(A$).6|
00000890: 34 89 36 32 30 2C 37 36 30 2C 31 32 33 30 2C 32 |4.620,760,1230,2|
000008A0: 34 32 30 2C 31 30 32 30 2C 31 36 38 30 2C 32 37 |420,1020,1680,27|
000008B0: 36 30 2C 32 38 36 30 2C 32 37 30 30 2C 31 31 38 |60,2860,2700,118|
000008C0: 30 2C 32 36 36 30 2C 32 36 36 30 00 E3 10 63 02 |0,2660,2660...c.|
000008D0: 91 C6 28 41 24 29 AB 37 36 89 34 31 32 30 2C 34 |..(A$).76.4120,4|
000008E0: 30 30 30 00 F5 10 6C 02 59 B2 30 3A 8F 4E 45 57 |000...l.Y.0:.NEW|
000008F0: 20 46 49 4C 45 00 29 11 76 02 99 22 93 22 A6 39 | FILE.).v..".".9|
00000900: 29 22 11 12 11 2A 2A 2A 2A 20 20 46 49 4C 45 20 |)"...**** FILE |
00000910: 20 4E 41 4D 45 20 20 2A 2A 2A 2A 22 3A 8D 32 31 | NAME ****":.21|
00000920: 33 30 3A 4B 4D 24 B2 52 24 00 4E 11 80 02 99 22 |30:KM$.R$.N...."|
00000930: 93 22 A6 39 29 22 11 20 20 48 4F 57 20 4D 41 4E |.".9)". HOW MAN|
00000940: 59 20 46 49 45 4C 44 53 20 3F 9D 9D 22 3B 00 61 |Y FIELDS ?..";.a|
00000950: 11 8A 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 35 |....A$:.A$."".65|
00000960: 30 00 71 11 94 02 8B 41 24 B2 22 40 22 A7 34 34 |0.q....A$."@".44|
00000970: 30 00 8D 11 9E 02 43 41 B2 C5 28 41 24 29 3A 8B |0.....CA..(A$):.|
00000980: 43 41 B1 30 A7 99 43 41 3A 89 36 39 30 00 96 11 |CA.0..CA:.690...|
00000990: A8 02 89 36 34 30 00 BF 11 B2 02 99 22 11 12 1D |...640......"...|
000009A0: 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 46 49 45 4C 44 |........ FIELD|
000009B0: 20 20 20 20 20 20 4C 45 4E 2E 20 40 2F 4E 22 00 | LEN. @/N".|
000009C0: CB 11 BC 02 81 4B B2 31 A4 43 41 00 05 12 C6 02 |.....K.1.CA.....|
000009D0: 85 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 43 41 24 |.".........";CA$|
000009E0: 28 4B 29 3A 8B C3 28 43 41 24 28 4B 29 29 B1 39 |(K):..(CA$(K)).9|
000009F0: B0 43 41 24 28 4B 29 B2 22 22 A7 99 22 91 91 22 |.CA$(K).""..".."|
00000A00: 3A 89 37 31 30 00 42 12 D0 02 99 22 91 1D 1D 1D |:.710.B...."....|
00000A10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000A20: 1D 1D 1D 22 3B 3A 85 44 44 24 3A 8B C5 28 44 44 |...";:.DD$:..(DD|
00000A30: 24 29 B3 31 B0 C5 28 44 44 24 29 B1 34 34 A7 37 |$).1..(DD$).44.7|
00000A40: 32 30 00 53 12 DA 02 44 44 28 4B 29 B2 C5 28 44 |20.S...DD(K)..(D|
00000A50: 44 24 29 00 9A 12 E4 02 99 22 91 1D 1D 1D 1D 1D |D$)......"......|
00000A60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000A70: 1D 1D 1D 1D 1D 1D 22 3B 3A 85 4E 24 28 4B 29 3A |......";:.N$(K):|
00000A80: 8B 4E 24 28 4B 29 B3 B1 22 40 22 AF 4E 24 28 4B |.N$(K).."@".N$(K|
00000A90: 29 B3 B1 22 4E 22 A7 37 34 30 00 A0 12 EE 02 82 |).."N".740......|
00000AA0: 00 AE 12 F8 02 8B 43 41 B2 30 A7 34 34 30 00 E6 |......CA.0.440..|
00000AB0: 12 02 03 59 B2 59 AA 31 3A 57 45 28 31 29 B2 59 |...Y.Y.1:WE(1).Y|
00000AC0: 3A 49 B2 59 3A 99 22 93 22 A6 38 29 22 11 12 2A |:I.Y:.".".8)"..*|
00000AD0: 2A 2A 2A 2A 20 20 4E 45 57 20 46 49 4C 45 20 20 |**** NEW FILE |
00000AE0: 2A 2A 2A 2A 2A 22 00 27 13 0C 03 99 A6 31 31 29 |*****".'.....11)|
00000AF0: 22 11 50 52 45 53 53 20 27 40 27 20 54 4F 20 45 |".PRESS '@' TO E|
00000B00: 58 49 54 22 3A 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D |XIT":.".........|
00000B10: 41 4C 46 41 42 45 54 49 43 41 4C 20 20 4E 55 4D |ALFABETICAL NUM|
00000B20: 45 52 49 43 41 4C 22 00 3B 13 16 03 99 22 11 20 |ERICAL".;....". |
00000B30: 4E 55 4D 42 45 52 20 22 49 3A 99 00 7C 13 20 03 |NUMBER "I:..|. .|
00000B40: 41 24 28 49 29 B2 22 22 3A 81 4B B2 31 A4 43 41 |A$(I)."":.K.1.CA|
00000B50: 3A 81 4B 4A B2 31 32 33 32 A4 31 32 36 33 3A 97 |:.KJ.1232.1263:.|
00000B60: 4B 4A 2C C2 28 4B 4A 29 AF 36 33 3A 82 3A 8B 4E |KJ,.(KJ).63:.:.N|
00000B70: 24 28 4B 29 B2 22 4E 22 A7 38 32 30 00 A3 13 2A |$(K)."N".820...*|
00000B80: 03 81 4B 4A B2 31 32 33 32 A4 31 32 34 32 3A 97 |..KJ.1232.1242:.|
00000B90: 4B 4A 2C C2 28 4B 4A 29 B0 31 32 38 3A 82 3A 89 |KJ,.(KJ).128:.:.|
00000BA0: 38 33 30 00 C5 13 34 03 81 4B 4A B2 31 32 34 35 |830...4..KJ.1245|
00000BB0: A4 31 32 36 33 3A 97 4B 4A 2C C2 28 4B 4A 29 B0 |.1263:.KJ,.(KJ).|
00000BC0: 31 32 38 3A 82 00 FC 13 3E 03 99 22 12 22 43 41 |128:....>.."."CA|
00000BD0: 24 28 4B 29 22 92 22 3A 99 22 91 1D 1D 1D 1D 1D |$(K)".":."......|
00000BE0: 1D 1D 1D 1D 1D 1D 22 3B 3A 81 45 B2 31 A4 44 44 |......";:.E.1.DD|
00000BF0: 28 4B 29 3A 99 22 2D 22 3B 3A 82 45 00 16 14 48 |(K):."-";:.E...H|
00000C00: 03 81 55 B2 31 A4 44 44 28 4B 29 AA 32 3A 99 22 |..U.1.DD(K).2:."|
00000C10: 9D 22 3B 3A 82 55 00 5C 14 52 03 85 41 42 24 28 |.";:.U.\.R..AB$(|
00000C20: 4B 29 3A 8B C3 28 41 42 24 28 4B 29 29 B3 44 44 |K):..(AB$(K)).DD|
00000C30: 28 4B 29 A7 81 54 B2 31 A4 44 44 28 4B 29 AB C3 |(K)..T.1.DD(K)..|
00000C40: 28 41 42 24 28 4B 29 29 3A 41 42 24 28 4B 29 B2 |(AB$(K)):AB$(K).|
00000C50: 41 42 24 28 4B 29 AA 22 2D 22 3A 82 00 7C 14 5C |AB$(K)."-":..|.\|
00000C60: 03 8B C8 28 41 42 24 28 4B 29 2C 31 29 B2 22 40 |...(AB$(K),1)."@|
00000C70: 22 A7 59 B2 59 AB 31 3A 89 34 34 30 00 95 14 66 |".Y.Y.1:.440...f|
00000C80: 03 8B C3 28 41 42 24 28 4B 29 29 B1 44 44 28 4B |...(AB$(K)).DD(K|
00000C90: 29 A7 38 33 30 00 AF 14 70 03 8D 32 32 30 30 3A |).830...p..2200:|
00000CA0: 8B 4E 24 28 4B 29 B3 B1 22 4E 22 A7 39 31 30 00 |.N$(K).."N".910.|
00000CB0: E0 14 7A 03 55 24 B2 41 42 24 28 4B 29 3A 55 24 |..z.U$.AB$(K):U$|
00000CC0: B2 C4 28 C5 28 55 24 29 29 3A 81 50 B2 31 A4 44 |..(.(U$)):.P.1.D|
00000CD0: 44 28 4B 29 3A 55 24 B2 22 20 22 AA 55 24 3A 82 |D(K):U$." ".U$:.|
00000CE0: 00 F7 14 84 03 41 42 24 28 4B 29 B2 C9 28 55 24 |.....AB$(K)..(U$|
00000CF0: 2C 44 44 28 4B 29 29 00 0E 15 8E 03 41 24 28 49 |,DD(K)).....A$(I|
00000D00: 29 B2 41 24 28 49 29 AA 41 42 24 28 4B 29 00 1A |).A$(I).AB$(K)..|
00000D10: 15 98 03 82 4B 3A 89 37 36 30 00 27 15 A2 03 8F |....K:.760.'....|
00000D20: 4C 49 53 54 49 4E 47 00 59 15 AC 03 99 22 11 12 |LISTING.Y...."..|
00000D30: 1D 43 3D 43 4F 52 52 45 43 54 20 4B 3D 4E 45 58 |.C=CORRECT K=NEX|
00000D40: 54 20 52 45 43 20 4D 3D 4D 45 4E 55 20 49 3D 49 |T REC M=MENU I=I|
00000D50: 4E 53 54 20 52 45 43 92 22 00 6C 15 B6 03 A1 41 |NST REC.".l....A|
00000D60: 24 3A 8B 41 24 B2 22 22 A7 39 35 30 00 7D 15 C0 |$:.A$."".950.}..|
00000D70: 03 8B 41 24 B2 22 49 22 A7 32 37 30 30 00 8E 15 |..A$."I".2700...|
00000D80: CA 03 8B 41 24 B2 22 43 22 A7 31 32 33 30 00 9E |...A$."C".1230..|
00000D90: 15 D4 03 8B 41 24 B2 22 4D 22 A7 34 34 30 00 B8 |....A$."M".440..|
00000DA0: 15 DE 03 8B 41 24 B2 22 4B 22 B0 41 24 B2 C7 28 |....A$."K".A$..(|
00000DB0: 31 33 29 A7 31 30 31 30 00 C1 15 E8 03 89 39 35 |13).1010......95|
00000DC0: 30 00 D4 15 F2 03 47 B2 30 3A 99 22 93 22 3A 89 |0.....G.0:.".":.|
00000DD0: 31 31 33 30 00 FD 15 FC 03 99 22 93 12 1D 1D 1D |1130......".....|
00000DE0: 1D 1D 1D 1D 1D 1D 2A 2A 20 20 52 45 43 4F 52 44 |......** RECORD|
00000DF0: 20 4C 49 53 54 49 4E 47 20 20 2A 2A 22 00 28 16 | LISTING **".(.|
00000E00: 06 04 47 B2 30 3A 85 22 11 11 1D 1D 1D 1D 1D 1D |..G.0:."........|
00000E10: 1D 1D 46 49 52 53 54 20 52 45 43 4F 52 44 20 20 |..FIRST RECORD |
00000E20: 31 9D 9D 9D 22 3B 45 46 00 59 16 10 04 85 22 11 |1...";EF.Y....".|
00000E30: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 53 54 45 50 20 20 |..........STEP |
00000E40: 32 9D 9D 9D 22 3B 47 47 3A 99 22 93 22 3A 81 49 |2...";GG:.".":.I|
00000E50: B2 45 46 A4 59 3A 53 B2 31 00 6B 16 1A 04 8B 57 |.EF.Y:S.1.k....W|
00000E60: 45 28 33 29 B2 30 A7 31 31 30 30 00 7F 16 24 04 |E(3).0.1100...$.|
00000E70: 99 22 91 52 45 43 4F 52 44 20 4E 2E 12 22 3B 00 |.".RECORD N..";.|
00000E80: 8F 16 2E 04 8B 49 B3 31 30 A7 99 22 20 22 3B 00 |.....I.10.." ";.|
00000E90: A0 16 38 04 8B 49 B3 31 30 30 A7 99 22 20 22 3B |..8..I.100.." ";|
00000EA0: 00 A9 16 42 04 99 49 3A 99 00 D7 16 4C 04 81 4D |...B..I:....L..M|
00000EB0: B2 31 A4 43 41 3A 41 42 24 28 4D 29 B2 CA 28 41 |.1.CA:AB$(M)..(A|
00000EC0: 24 28 49 29 2C 53 2C 44 44 28 4D 29 29 3A 53 B2 |$(I),S,DD(M)):S.|
00000ED0: 53 AA 44 44 28 4D 29 00 FC 16 56 04 99 22 12 1D |S.DD(M)...V.."..|
00000EE0: 1D 1D 22 43 41 24 28 4D 29 22 20 92 22 3A 99 A6 |.."CA$(M)" .":..|
00000EF0: 31 33 29 22 91 22 41 42 24 28 4D 29 00 13 17 60 |13)"."AB$(M)...`|
00000F00: 04 82 4D 3A 47 B2 47 AA 31 3A 8B 47 B2 47 47 A7 |..M:G.G.1:.G.GG.|
00000F10: 39 34 30 00 1F 17 6A 04 99 22 11 22 3A 82 49 00 |940...j..".":.I.|
00000F20: 56 17 74 04 99 A6 31 31 29 22 11 11 12 2A 2A 20 |V.t...11)"...** |
00000F30: 45 4E 44 20 4F 46 20 46 49 4C 45 20 2A 2A 22 3A |END OF FILE **":|
00000F40: 99 A6 31 33 29 22 11 11 50 52 45 53 53 20 20 52 |..13)"..PRESS R|
00000F50: 45 54 55 52 4E 22 00 6A 17 7E 04 A1 41 24 3A 8B |ETURN".j.~..A$:.|
00000F60: 41 24 B2 22 22 A7 31 31 35 30 00 7C 17 88 04 8B |A$."".1150.|....|
00000F70: 41 24 B2 C7 28 31 33 29 A7 34 34 30 00 86 17 92 |A$..(13).440....|
00000F80: 04 89 31 31 35 30 00 99 17 9C 04 8F 2A 2A 20 4D |..1150......** M|
00000F90: 45 4D 4F 52 49 41 20 2A 2A 00 AE 17 A6 04 97 35 |EMORIA **......5|
00000FA0: 33 32 38 30 2C 36 3A 46 52 B2 B8 28 30 29 00 E0 |3280,6:FR..(0)..|
00000FB0: 17 B0 04 99 22 93 11 11 11 11 11 11 11 11 1D 1D |...."...........|
00000FC0: 1D 1D 1D 1D 1D 1D 1D 1D 22 46 52 22 42 59 54 45 |........"FR"BYTE|
00000FD0: 53 20 46 52 45 45 22 3A 97 35 33 32 38 30 2C 30 |S FREE":.53280,0|
00000FE0: 00 F4 17 BA 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000FF0: 31 32 31 30 00 FD 17 C4 04 89 34 34 30 00 22 18 |1210......440.".|
00001000: CE 04 99 22 93 11 22 A6 39 29 22 12 2A 2A 20 43 |..."..".9)".** C|
00001010: 4F 52 52 45 43 54 20 20 52 45 43 4F 52 44 53 20 |ORRECT RECORDS |
00001020: 2A 2A 00 5D 18 D8 04 8B 59 B2 30 A7 99 22 1D 1D |**.]....Y.0.."..|
00001030: 1D 1D 1D 1D 1D 1D 1D 11 11 11 54 48 45 52 45 20 |..........THERE |
00001040: 41 52 45 20 4E 4F 20 52 45 43 4F 52 44 53 20 21 |ARE NO RECORDS !|
00001050: 22 3A 92 31 39 37 2C 31 3A 89 34 34 30 00 86 18 |":.197,1:.440...|
00001060: E2 04 49 B2 30 3A 85 22 11 11 11 4E 55 4D 2E 20 |..I.0:."...NUM. |
00001070: 52 45 43 4F 52 44 22 3B 49 24 3A 8B 49 24 B2 22 |RECORD";I$:.I$."|
00001080: 40 22 A7 34 34 30 00 A0 18 EC 04 49 B2 C5 28 49 |@".440.....I..(I|
00001090: 24 29 3A 8B 49 B1 59 B0 49 B3 31 A7 31 32 33 30 |$):.I.Y.I.1.1230|
000010A0: 00 C8 18 F6 04 44 43 24 B2 22 22 3A 53 B2 31 3A |.....DC$."":S.1:|
000010B0: 99 22 12 11 4E 55 4D 42 45 52 22 49 22 11 11 22 |."..NUMBER"I".."|
000010C0: 3A 81 4D B2 31 A4 43 41 00 F9 18 00 05 99 22 12 |:.M.1.CA......".|
000010D0: 22 43 41 24 28 4D 29 22 92 22 A3 31 31 29 CA 28 |"CA$(M)".".11).(|
000010E0: 41 24 28 49 29 2C 53 2C 44 44 28 4D 29 29 3B 3A |A$(I),S,DD(M));:|
000010F0: 53 B2 53 AA 44 44 28 4D 29 00 31 19 0A 05 81 55 |S.S.DD(M).1....U|
00001100: B2 31 A4 44 44 28 4D 29 AA 32 3A 99 22 9D 22 3B |.1.DD(M).2:.".";|
00001110: 3A 82 55 3A 85 41 42 24 28 4D 29 3A 8B C3 28 41 |:.U:.AB$(M):..(A|
00001120: 42 24 28 4D 29 29 B2 44 44 28 4D 29 A7 31 33 32 |B$(M)).DD(M).132|
00001130: 30 00 52 19 14 05 8B C3 28 41 42 24 28 4D 29 29 |0.R.....(AB$(M))|
00001140: B1 44 44 28 4D 29 A7 99 22 91 91 22 3A 89 31 32 |.DD(M).."..":.12|
00001150: 38 30 00 7F 19 1E 05 81 48 B2 31 A4 44 44 28 4D |80......H.1.DD(M|
00001160: 29 AB C3 28 41 42 24 28 4D 29 29 3A 41 42 24 28 |)..(AB$(M)):AB$(|
00001170: 4D 29 B2 41 42 24 28 4D 29 AA 22 2D 22 3A 82 00 |M).AB$(M)."-":..|
00001180: 9E 19 28 05 4B B2 4D 3A 8D 32 32 30 30 3A 8B 4E |..(.K.M:.2200:.N|
00001190: 24 28 4D 29 B3 B1 22 4E 22 A7 31 33 37 30 00 A8 |$(M).."N".1370..|
000011A0: 19 32 05 89 31 33 35 30 00 DE 19 3C 05 82 3A 41 |.2..1350...<..:A|
000011B0: 24 28 49 29 B2 44 43 24 3A 99 22 11 11 12 1D 1D |$(I).DC$:.".....|
000011C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 41 4E 4F 54 48 |...........ANOTH|
000011D0: 45 52 20 4F 4E 45 3F 22 3A 89 31 33 38 30 00 1B |ER ONE?":.1380..|
000011E0: 1A 46 05 55 52 24 B2 22 20 20 20 20 20 20 20 20 |.F.UR$." |
000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 AA C4 | "..|
00001210: 28 C5 28 41 42 24 28 4D 29 29 29 00 33 1A 50 05 |(.(AB$(M))).3.P.|
00001220: 41 42 24 28 4D 29 B2 C9 28 55 52 24 2C 44 44 28 |AB$(M)..(UR$,DD(|
00001230: 4D 29 29 00 4C 1A 5A 05 44 43 24 B2 44 43 24 AA |M)).L.Z.DC$.DC$.|
00001240: 41 42 24 28 4D 29 3A 89 31 33 34 30 00 60 1A 64 |AB$(M):.1340.`.d|
00001250: 05 A1 42 24 3A 8B 42 24 B2 22 22 A7 31 33 38 30 |..B$:.B$."".1380|
00001260: 00 70 1A 6E 05 8B 42 24 B2 22 4E 22 A7 34 34 30 |.p.n..B$."N".440|
00001270: 00 81 1A 78 05 8B 41 24 B2 22 4B 22 A7 32 37 30 |...x..A$."K".270|
00001280: 30 00 8B 1A 82 05 89 31 32 33 30 00 98 1A 8C 05 |0......1230.....|
00001290: 8F 50 52 49 4E 54 45 52 00 B1 1A 96 05 9F 34 2C |.PRINTER......4,|
000012A0: 34 3A 8D 32 30 31 30 3A 54 59 B2 30 3A 4B 4F B2 |4:.2010:TY.0:KO.|
000012B0: 30 00 C8 1A A0 05 81 49 B2 57 45 28 30 29 A4 57 |0......I.WE(0).W|
000012C0: 45 28 31 29 3A 53 B2 31 00 E4 1A A5 05 99 A6 31 |E(1):S.1.......1|
000012D0: 33 29 22 11 46 29 20 44 49 53 4B 20 56 41 4C 49 |3)".F) DISK VALI|
000012E0: 44 41 54 45 00 FC 1A AA 05 8D 31 35 30 30 3A 8B |DATE......1500:.|
000012F0: 57 45 28 35 29 B2 30 A7 31 34 38 30 00 0E 1B B4 |WE(5).0.1480....|
00001300: 05 81 44 B2 31 A4 57 45 28 35 29 3A 98 34 00 2A |..D.1.WE(5):.4.*|
00001310: 1B BE 05 8B 57 45 28 34 29 B2 31 A7 8D 33 32 37 |....WE(4).1..327|
00001320: 30 3A 82 44 3A 89 31 34 39 30 00 3D 1B C8 05 8B |0:.D:.1490.=....|
00001330: 57 45 28 34 29 B2 31 A7 8D 33 32 37 30 00 51 1B |WE(4).1..3270.Q.|
00001340: D2 05 82 3A 8D 33 34 34 30 3A A0 34 3A 89 34 34 |...:.3440:.4:.44|
00001350: 30 00 70 1B DC 05 8B 57 45 28 33 29 B2 30 A7 98 |0.p....WE(3).0..|
00001360: 34 2C 22 20 20 20 20 20 22 3B 3A 89 31 35 34 30 |4," ";:.1540|
00001370: 00 8A 1B E6 05 8B 49 B3 31 30 A7 98 34 2C 22 20 |......I.10..4," |
00001380: 20 22 49 3B 3A 89 31 35 34 30 00 A4 1B F0 05 8B | "I;:.1540......|
00001390: 49 B3 31 30 30 A7 98 34 2C 22 20 22 49 3B 3A 89 |I.100..4," "I;:.|
000013A0: 31 35 34 30 00 AE 1B FA 05 98 34 2C 49 3B 00 DC |1540......4,I;..|
000013B0: 1B 04 06 81 4D B2 31 A4 43 41 3A 41 42 24 28 4D |....M.1.CA:AB$(M|
000013C0: 29 B2 CA 28 41 24 28 49 29 2C 53 2C 44 44 28 4D |)..(A$(I),S,DD(M|
000013D0: 29 29 3A 53 B2 53 AA 44 44 28 4D 29 00 EE 1B 0E |)):S.S.DD(M)....|
000013E0: 06 98 34 2C C8 28 44 43 24 2C 44 44 29 3B 00 FD |..4,.(DC$,DD);..|
000013F0: 1B 18 06 98 34 2C 41 42 24 28 4D 29 3B 00 0F 1C |....4,AB$(M);...|
00001400: 22 06 98 34 2C C8 28 44 43 24 2C 44 44 29 3B 00 |"..4,.(DC$,DD);.|
00001410: 1E 1C 2C 06 82 4D 3A 98 34 2C 22 22 3A 8E 00 27 |..,..M:.4,"":..'|
00001420: 1C 36 06 9F 34 2C 34 00 37 1C 40 06 98 34 2C C7 |.6..4,4.7.@..4,.|
00001430: 28 31 34 29 4B 4D 24 00 44 1C 4A 06 98 34 2C C7 |(14)KM$.D.J..4,.|
00001440: 28 31 35 29 00 53 1C 54 06 81 49 B2 31 A4 59 3A |(15).S.T..I.1.Y:|
00001450: 53 B2 31 00 68 1C 5E 06 98 34 2C 22 20 20 20 44 |S.1.h.^..4," D|
00001460: 41 54 41 20 4E 2E 22 49 00 96 1C 68 06 81 4D B2 |ATA N."I...h..M.|
00001470: 31 A4 43 41 3A 41 42 24 28 4D 29 B2 CA 28 41 24 |1.CA:AB$(M)..(A$|
00001480: 28 49 29 2C 53 2C 44 44 28 4D 29 29 3A 53 B2 53 |(I),S,DD(M)):S.S|
00001490: AA 44 44 28 4D 29 00 A5 1C 72 06 98 34 2C 43 41 |.DD(M)...r..4,CA|
000014A0: 24 28 4D 29 3B 00 BE 1C 7C 06 98 34 2C C7 28 31 |$(M);...|..4,.(1|
000014B0: 36 29 22 32 30 3A 20 22 41 42 24 28 4D 29 00 D5 |6)"20: "AB$(M)..|
000014C0: 1C 86 06 82 3A 98 34 2C 22 22 3A 82 49 3A A0 34 |....:.4,"":.I:.4|
000014D0: 3A 89 34 34 30 00 DF 1C 90 06 8F 46 49 4E 44 00 |:.440......FIND.|
000014E0: 12 1D 9A 06 97 35 33 32 38 30 2C 39 3A 99 22 93 |.....53280,9:.".|
000014F0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 2A 2A 2A 20 20 |...........*** |
00001500: 46 49 4E 44 20 52 45 43 4F 52 44 53 20 20 2A 2A |FIND RECORDS **|
00001510: 2A 22 00 3D 1D A4 06 4A 4A B2 30 3A 99 22 11 1D |*".=...JJ.0:."..|
00001520: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 52 45 53 53 20 |..........PRESS |
00001530: 12 40 92 20 54 4F 20 50 52 49 4E 54 22 00 51 1D |.@. TO PRINT".Q.|
00001540: AE 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 37 31 |...A$:.A$."".171|
00001550: 30 00 62 1D B8 06 8B 41 24 B2 22 40 22 A7 31 39 |0.b....A$."@".19|
00001560: 32 30 00 A4 1D C2 06 85 22 12 11 1D 1D 1D 1D 1D |20......".......|
00001570: 1D 1D 1D 1D 44 41 54 41 3A 92 22 3B 41 57 24 3A |....DATA:.";AW$:|
00001580: 48 47 B2 30 3A 81 49 B2 31 A4 43 41 3A 48 47 B2 |HG.0:.I.1.CA:HG.|
00001590: 48 47 AA 44 44 28 49 29 3A 82 3A 41 57 B2 C3 28 |HG.DD(I):.:AW..(|
000015A0: 41 57 24 29 00 BE 1D CC 06 81 49 B2 31 A4 59 3A |AW$)......I.1.Y:|
000015B0: 81 4A B2 31 A4 48 47 AB C3 28 41 57 24 29 00 DA |.J.1.HG..(AW$)..|
000015C0: 1D D6 06 8B 41 57 24 B2 CA 28 41 24 28 49 29 2C |....AW$..(A$(I),|
000015D0: 4A 2C 41 57 29 A7 31 38 31 30 00 E1 1D E0 06 82 |J,AW).1810......|
000015E0: 4A 00 E8 1D EA 06 82 49 00 0F 1E F4 06 99 22 11 |J......I......".|
000015F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 45 4E |..............EN|
00001600: 44 20 4F 46 20 52 45 43 4F 52 44 22 3A A0 34 00 |D OF RECORD":.4.|
00001610: 23 1E FE 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |#....A$:.A$."".1|
00001620: 37 39 30 00 2C 1E 08 07 89 34 34 30 00 52 1E 12 |790.,....440.R..|
00001630: 07 53 B2 31 3A 99 22 11 20 4E 55 4D 2E 22 3B 3A |.S.1:.". NUM.";:|
00001640: 8B 49 B3 31 30 A7 99 22 20 20 22 3B 3A 89 31 38 |.I.10.." ";:.18|
00001650: 33 30 00 63 1E 1C 07 8B 49 B3 31 30 30 A7 99 22 |30.c....I.100.."|
00001660: 20 22 3B 00 96 1E 26 07 99 49 3A 99 3A 81 4E B2 | ";...&..I:.:.N.|
00001670: 31 A4 43 41 3A 41 42 24 28 4E 29 B2 CA 28 41 24 |1.CA:AB$(N)..(A$|
00001680: 28 49 29 2C 53 2C 44 44 28 4E 29 29 3A 53 B2 53 |(I),S,DD(N)):S.S|
00001690: AA 44 44 28 4E 29 00 CD 1E 30 07 99 22 12 1D 1D |.DD(N)...0.."...|
000016A0: 1D 22 43 41 24 28 4E 29 22 20 92 22 3A 99 A6 31 |."CA$(N)" .":..1|
000016B0: 33 29 22 91 22 41 42 24 28 4E 29 3A 82 4E 3A 8B |3)"."AB$(N):.N:.|
000016C0: 4A 4A B2 39 39 39 A7 3A 89 31 39 34 30 00 DE 1E |JJ.999.:.1940...|
000016D0: 3A 07 8B 4A 4A B2 39 39 39 A7 31 37 37 30 00 F9 |:..JJ.999.1770..|
000016E0: 1E 44 07 49 B2 49 3A 53 52 B2 53 52 AA 31 3A 8B |.D.I.I:SR.SR.1:.|
000016F0: 53 52 B2 32 A7 31 38 38 30 00 03 1F 4E 07 89 31 |SR.2.1880...N..1|
00001700: 37 37 30 00 27 1F 58 07 99 22 11 1D 1D 1D 1D 1D |770.'.X.."......|
00001710: 1D 1D 1D 1D 1D 1D 1D 12 20 50 52 45 53 53 20 41 |........ PRESS A|
00001720: 4E 59 20 4B 45 59 22 00 3B 1F 62 07 A1 41 24 3A |NY KEY".;.b..A$:|
00001730: 8B 41 24 B2 22 22 A7 31 38 39 30 00 54 1F 67 07 |.A$."".1890.T.g.|
00001740: 8B 41 24 B2 22 40 22 A7 A0 34 3A 53 52 B2 30 3A |.A$."@"..4:SR.0:|
00001750: 89 34 34 30 00 7F 1F 6C 07 99 22 93 11 1D 1D 1D |.440...l..".....|
00001760: 1D 1D 1D 1D 1D 1D 12 20 20 53 45 41 52 43 48 49 |....... SEARCHI|
00001770: 4E 47 20 46 4F 52 20 44 41 54 41 20 20 92 22 00 |NG FOR DATA .".|
00001780: 8E 1F 76 07 53 52 B2 30 3A 89 31 38 37 30 00 A4 |..v.SR.0:.1870..|
00001790: 1F 80 07 9F 34 2C 34 3A 4A 4A B2 39 39 39 3A 8D |....4,4:JJ.999:.|
000017A0: 32 30 31 30 00 AE 1F 8A 07 89 31 37 33 30 00 CC |2010......1730..|
000017B0: 1F 94 07 8B 57 45 28 33 29 B2 30 A7 98 34 2C 22 |....WE(3).0..4,"|
000017C0: 20 20 20 20 22 3B 3A 89 31 39 38 30 00 E6 1F 9E | ";:.1980....|
000017D0: 07 8B 49 B3 31 30 A7 98 34 2C 22 20 20 22 49 3B |..I.10..4," "I;|
000017E0: 3A 89 31 39 38 30 00 00 20 A8 07 8B 49 B3 31 30 |:.1980.. ...I.10|
000017F0: 30 A7 98 34 2C 22 20 22 49 3B 3A 89 31 39 38 30 |0..4," "I;:.1980|
00001800: 00 0A 20 B2 07 98 34 2C 49 3B 00 3D 20 BC 07 81 |.. ...4,I;.= ...|
00001810: 4D B2 31 A4 43 41 3A 98 34 2C C8 28 44 43 24 2C |M.1.CA:.4,.(DC$,|
00001820: 44 44 29 3B 3A 98 34 2C 41 42 24 28 4D 29 3B 3A |DD);:.4,AB$(M);:|
00001830: 98 34 2C C8 28 44 43 24 2C 44 44 29 3B 00 49 20 |.4,.(DC$,DD);.I |
00001840: C6 07 82 3A 98 34 2C 22 22 00 53 20 D0 07 89 31 |...:.4,"".S ...1|
00001850: 38 35 30 00 87 20 DA 07 44 41 B2 30 3A 44 42 B2 |850.. ..DA.0:DB.|
00001860: 30 3A 81 4D B2 31 A4 43 41 3A 44 41 B2 44 41 AA |0:.M.1.CA:DA.DA.|
00001870: C3 28 43 41 24 28 4D 29 29 3A 44 42 B2 44 42 AA |.(CA$(M)):DB.DB.|
00001880: 44 44 28 4D 29 3A 82 00 97 20 E4 07 8B 44 41 B1 |DD(M):... ...DA.|
00001890: 37 35 A7 31 35 39 30 00 A7 20 EE 07 8B 44 42 B1 |75.1590.. ...DB.|
000018A0: 37 35 A7 31 35 39 30 00 BE 20 F8 07 44 43 B2 B5 |75.1590.. ..DC..|
000018B0: 28 28 37 35 AB 44 41 29 AD 43 41 AD 32 29 00 15 |((75.DA).CA.2)..|
000018C0: 21 02 08 44 44 B2 B5 28 28 37 35 AB 44 42 29 AD |!..DD..((75.DB).|
000018D0: 43 41 AD 32 29 3A 44 43 24 B2 22 20 20 20 20 20 |CA.2):DC$." |
000018E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001910: 20 20 20 20 22 00 25 21 0C 08 98 34 2C C7 28 31 | ".%!...4,.(1|
00001920: 34 29 4B 4D 24 00 32 21 16 08 98 34 2C C7 28 31 |4)KM$.2!...4,.(1|
00001930: 35 29 00 59 21 20 08 98 34 2C 22 20 20 20 20 20 |5).Y! ..4," |
00001940: 22 3B 3A 81 47 48 B2 31 A4 43 41 3A 98 34 2C C8 |";:.GH.1.CA:.4,.|
00001950: 28 44 43 24 2C 44 44 29 3B 00 A5 21 2A 08 98 34 |(DC$,DD);..!*..4|
00001960: 2C C8 28 43 41 24 28 47 48 29 AA 22 20 20 20 20 |,.(CA$(GH)." |
00001970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001990: 20 20 20 20 20 20 20 20 20 20 20 22 2C 44 44 28 | ",DD(|
000019A0: 47 48 29 29 3B 00 BC 21 34 08 98 34 2C C8 28 44 |GH));..!4..4,.(D|
000019B0: 43 24 2C 44 44 29 3B 3A 82 3A 98 34 00 D5 21 3E |C$,DD);:.:.4..!>|
000019C0: 08 81 46 B2 31 A4 37 39 3A 98 34 2C 22 C0 22 3B |..F.1.79:.4,".";|
000019D0: 3A 82 3A 98 34 00 DB 21 48 08 8E 00 EA 21 52 08 |:.:.4..!H....!R.|
000019E0: 54 41 B2 30 3A 52 24 B2 22 22 00 00 22 5C 08 99 |TA.0:R$."".."\..|
000019F0: 22 13 11 11 11 11 22 A3 54 41 29 22 A2 9D 22 3B |".....".TA)"..";|
00001A00: 00 1D 22 66 08 A1 41 24 3A 8B 41 24 B2 22 22 B0 |.."f..A$:.A$."".|
00001A10: 41 24 B2 C7 28 33 34 29 A7 32 31 35 30 00 2D 22 |A$..(34).2150.-"|
00001A20: 70 08 8B 41 24 B2 C7 28 31 33 29 A7 8E 00 68 22 |p..A$..(13)...h"|
00001A30: 7A 08 8B 41 24 B2 C7 28 32 30 29 AF 54 41 B1 30 |z..A$..(20).TA.0|
00001A40: A7 54 41 B2 54 41 AB 31 3A 52 24 B2 C8 28 52 24 |.TA.TA.1:R$..(R$|
00001A50: 2C C3 28 52 24 29 AB 31 29 3A 99 22 9D A2 20 9D |,.(R$).1):.".. .|
00001A60: 22 3B 3A 89 32 31 34 30 00 95 22 84 08 8B C6 28 |";:.2140.."....(|
00001A70: 41 24 29 B3 33 32 B0 C6 28 41 24 29 B1 31 32 38 |A$).32..(A$).128|
00001A80: AF C6 28 41 24 29 B3 31 36 30 B0 54 41 B1 33 39 |..(A$).160.TA.39|
00001A90: A7 32 31 34 30 00 B5 22 8E 08 54 41 B2 54 41 AA |.2140.."..TA.TA.|
00001AA0: 31 3A 99 41 24 3B 3A 52 24 B2 52 24 AA 41 24 3A |1:.A$;:R$.R$.A$:|
00001AB0: 89 32 31 34 30 00 D0 22 98 08 51 B2 C3 28 41 42 |.2140.."..Q..(AB|
00001AC0: 24 28 4B 29 29 3A 81 50 4C B2 51 A4 31 A9 AB 31 |$(K)):.PL.Q.1..1|
00001AD0: 00 EA 22 A2 08 8B CA 28 41 42 24 28 4B 29 2C 50 |.."....(AB$(K),P|
00001AE0: 4C 2C 31 29 B2 22 2D 22 A7 82 00 36 23 AC 08 8B |L,1)."-"...6#...|
00001AF0: 50 4C B2 30 A7 41 42 24 28 4B 29 B2 C8 28 22 20 |PL.0.AB$(K)..(" |
00001B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 44 44 | ",DD|
00001B30: 28 4B 29 29 3A 8E 00 72 23 B6 08 41 42 24 28 4B |(K)):..r#..AB$(K|
00001B40: 29 B2 C8 28 41 42 24 28 4B 29 2C 50 4C 29 AA C9 |)..(AB$(K),PL)..|
00001B50: 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |(" |
00001B60: 20 20 20 20 20 20 20 20 20 22 2C 51 AB 50 4C 29 | ",Q.PL)|
00001B70: 3A 8E 00 AA 23 C0 08 99 22 93 22 A6 38 29 22 11 |:...#...".".8)".|
00001B80: 12 2A 2A 2A 20 44 49 53 4B 20 44 49 52 45 43 54 |.*** DISK DIRECT|
00001B90: 4F 52 59 20 2A 2A 2A 11 11 22 3A 9F 31 2C 38 2C |ORY ***..":.1,8,|
00001BA0: 30 2C 22 24 22 3A 46 4F B2 31 00 B8 23 CA 08 A1 |0,"$":FO.1..#...|
00001BB0: 23 31 2C 41 24 2C 42 24 00 C6 23 D4 08 A1 23 31 |#1,A$,B$..#...#1|
00001BC0: 2C 41 24 2C 42 24 00 D4 23 DE 08 A1 23 31 2C 41 |,A$,B$..#...#1,A|
00001BD0: 24 2C 42 24 00 DC 23 E8 08 43 B2 30 00 F0 23 F2 |$,B$..#..C.0..#.|
00001BE0: 08 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 |..A$.."".C..(A$)|
00001BF0: 00 0A 24 FC 08 8B 42 24 B3 B1 22 22 A7 43 B2 43 |..$...B$.."".C.C|
00001C00: AA C6 28 42 24 29 AC 32 35 36 00 34 24 06 09 99 |..(B$).256.4$...|
00001C10: 22 1D 1D 1D 1D 1D 1D 1D 12 22 CA 28 C4 28 43 29 |"........".(.(C)|
00001C20: 2C 32 29 A3 31 30 29 3B 3A 8B 46 4F B2 30 A7 99 |,2).10);:.FO.0..|
00001C30: 22 92 22 3B 00 50 24 10 09 46 4F B2 30 3A A1 23 |".";.P$..FO.0:.#|
00001C40: 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 32 34 30 30 |1,B$:.ST..0.2400|
00001C50: 00 64 24 1A 09 8B 42 24 B3 B1 C7 28 33 34 29 A7 |.d$...B$...(34).|
00001C60: 32 33 32 30 00 85 24 24 09 A1 23 31 2C 42 24 3A |2320..$$..#1,B$:|
00001C70: 8B 42 24 B3 B1 C7 28 33 34 29 A7 99 42 24 3B 3A |.B$...(34)..B$;:|
00001C80: 89 32 33 34 30 00 9F 24 2E 09 A1 23 31 2C 42 24 |.2340..$...#1,B$|
00001C90: 3A 8B 42 24 B2 C7 28 33 32 29 A7 32 33 35 30 00 |:.B$..(32).2350.|
00001CA0: B0 24 38 09 99 A3 32 37 29 3B 3A 43 24 B2 22 22 |.$8...27);:C$.""|
00001CB0: 00 D1 24 42 09 43 24 B2 43 24 AA 42 24 3A A1 23 |..$B.C$.C$.B$:.#|
00001CC0: 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 32 33 37 |1,B$:.B$.."".237|
00001CD0: 30 00 E1 24 4C 09 99 22 12 22 C8 28 43 24 2C 33 |0..$L..".".(C$,3|
00001CE0: 29 00 F0 24 56 09 8B 53 54 B2 30 A7 32 32 36 30 |)..$V..ST.0.2260|
00001CF0: 00 07 25 60 09 99 22 20 42 4C 4F 43 4B 53 20 46 |..%`.." BLOCKS F|
00001D00: 52 45 45 22 3A A0 31 00 29 25 6A 09 97 35 33 32 |REE":.1.)%j..532|
00001D10: 38 30 2C 36 3A 92 31 39 37 2C 31 3A 97 35 33 32 |80,6:.197,1:.532|
00001D20: 38 30 2C 30 3A 89 34 34 30 00 5A 25 74 09 97 35 |80,0:.440.Z%t..5|
00001D30: 33 32 38 30 2C 36 3A 99 22 93 11 11 11 22 A6 39 |3280,6:."....".9|
00001D40: 29 22 12 2A 2A 2A 20 20 44 49 53 4B 20 43 4F 4D |)".*** DISK COM|
00001D50: 4D 41 4E 44 53 20 2A 2A 2A 22 00 8C 25 7E 09 99 |MANDS ***"..%~..|
00001D60: A6 31 32 29 22 11 11 11 41 29 20 44 49 52 45 43 |.12)"...A) DIREC|
00001D70: 54 4F 52 59 22 3A 99 A6 31 32 29 22 11 42 29 20 |TORY":..12)".B) |
00001D80: 44 49 53 4B 20 53 54 41 54 55 53 22 00 A8 25 83 |DISK STATUS"..%.|
00001D90: 09 99 A6 31 32 29 22 11 43 29 20 46 49 4C 45 20 |...12)".C) FILE |
00001DA0: 53 43 52 41 54 43 48 22 00 DA 25 88 09 99 A6 31 |SCRATCH"..%....1|
00001DB0: 32 29 22 11 44 29 20 46 49 4C 45 20 52 45 4E 41 |2)".D) FILE RENA|
00001DC0: 4D 45 22 3A 99 A6 31 32 29 22 11 45 29 20 44 49 |ME":..12)".E) DI|
00001DD0: 53 4B 20 46 4F 52 4D 41 54 22 00 08 26 92 09 99 |SK FORMAT"..&...|
00001DE0: A6 31 32 29 22 11 46 29 20 56 41 4C 49 44 41 54 |.12)".F) VALIDAT|
00001DF0: 45 22 3A 99 A6 31 32 29 22 11 47 29 20 4D 41 49 |E":..12)".G) MAI|
00001E00: 4E 20 4D 45 4E 55 27 22 00 24 26 9C 09 A1 41 24 |N MENU'".$&...A$|
00001E10: 3A 8B 41 24 B3 22 41 22 B0 41 24 B1 22 47 22 A7 |:.A$."A".A$."G".|
00001E20: 32 34 36 30 00 54 26 A6 09 91 C6 28 41 24 29 AB |2460.T&....(A$).|
00001E30: 36 34 89 32 32 34 30 2C 32 34 38 30 2C 32 35 30 |64.2240,2480,250|
00001E40: 30 2C 32 35 33 30 2C 32 35 36 30 2C 32 36 31 30 |0,2530,2560,2610|
00001E50: 2C 34 34 30 00 83 26 B0 09 99 22 93 22 A6 38 29 |,440..&...".".8)|
00001E60: 22 11 12 2A 2A 2A 2A 20 44 49 53 4B 20 20 53 54 |"..**** DISK ST|
00001E70: 41 54 55 53 20 2A 2A 2A 2A 22 3A 9F 31 35 2C 38 |ATUS ****":.15,8|
00001E80: 2C 31 35 00 B2 26 BA 09 84 31 35 2C 41 24 2C 42 |,15..&...15,A$,B|
00001E90: 24 2C 43 24 2C 44 24 3A 99 22 11 11 22 A6 38 29 |$,C$,D$:."..".8)|
00001EA0: 41 24 42 24 43 24 44 24 3A A0 31 35 3A 89 32 34 |A$B$C$D$:.15:.24|
00001EB0: 31 30 00 DA 26 C4 09 99 22 93 22 A6 38 29 22 11 |10..&...".".8)".|
00001EC0: 12 2A 2A 2A 20 20 46 49 4C 45 20 53 43 52 41 54 |.*** FILE SCRAT|
00001ED0: 43 48 20 20 2A 2A 2A 11 11 11 00 04 27 CE 09 85 |CH ***.....'...|
00001EE0: 22 41 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 |"ARE YOU SURE (Y|
00001EF0: 2F 4E 29 22 3B 59 24 3A 8B 59 24 B3 B1 22 59 22 |/N)";Y$:.Y$.."Y"|
00001F00: A7 34 34 30 00 3F 27 D8 09 85 22 11 11 46 49 4C |.440.?'..."..FIL|
00001F10: 45 20 54 4F 20 42 45 20 53 43 52 41 54 43 48 45 |E TO BE SCRATCHE|
00001F20: 44 22 3B 53 43 24 3A 9F 31 35 2C 38 2C 31 35 2C |D";SC$:.15,8,15,|
00001F30: 22 53 30 3A 22 AA 53 43 24 3A 89 32 34 39 30 00 |"S0:".SC$:.2490.|
00001F40: 65 27 E2 09 99 22 93 22 A6 39 29 22 11 12 2A 2A |e'...".".9)"..**|
00001F50: 2A 20 20 46 49 4C 45 20 20 52 45 4E 41 4D 45 20 |* FILE RENAME |
00001F60: 20 2A 2A 2A 22 00 9C 27 EC 09 85 22 11 11 46 49 | ***"..'..."..FI|
00001F70: 4C 45 20 54 4F 20 42 45 20 52 45 4E 41 4D 45 44 |LE TO BE RENAMED|
00001F80: 22 3B 53 43 24 3A 85 22 11 11 4E 45 57 20 46 49 |";SC$:."..NEW FI|
00001F90: 4C 45 20 4E 41 4D 45 22 3B 4E 46 24 00 C1 27 F6 |LE NAME";NF$..'.|
00001FA0: 09 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A 22 AA |..15,8,15,"R0:".|
00001FB0: 4E 46 24 AA 22 3D 22 AA 53 43 24 3A 89 32 34 39 |NF$."=".SC$:.249|
00001FC0: 30 00 EA 27 00 0A 99 22 93 22 A6 39 29 22 11 12 |0..'...".".9)"..|
00001FD0: 2A 2A 2A 2A 20 44 49 53 4B 20 20 46 4F 52 4D 41 |**** DISK FORMA|
00001FE0: 54 20 2A 2A 2A 2A 11 11 11 22 00 05 28 05 0A 99 |T ****..."..(...|
00001FF0: A6 31 33 29 22 50 52 45 53 53 20 40 20 54 4F 20 |.13)"PRESS @ TO |
00002000: 45 58 49 54 22 00 46 28 0A 0A 99 A6 31 30 29 22 |EXIT".F(....10)"|
00002010: 11 11 49 4E 53 45 52 54 20 4E 45 57 20 20 44 49 |..INSERT NEW DI|
00002020: 53 4B 45 54 54 45 22 3A 99 A6 32 30 29 22 11 26 |SKETTE":..20)".&|
00002030: 11 22 3A 99 A6 31 34 29 22 50 52 45 53 53 20 52 |.":..14)"PRESS R|
00002040: 45 54 55 52 4E 22 00 66 28 14 0A A1 41 24 3A 8B |ETURN".f(...A$:.|
00002050: 41 24 B3 B1 C7 28 31 33 29 AF 41 24 B3 B1 22 40 |A$...(13).A$.."@|
00002060: 22 A7 32 35 38 30 00 77 28 19 0A 8B 41 24 B2 22 |".2580.w(...A$."|
00002070: 40 22 A7 32 34 32 30 00 A9 28 1E 0A 99 22 11 11 |@".2420..(..."..|
00002080: 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 22 3A 85 |NEW DISK NAME":.|
00002090: 22 11 22 3B 53 43 24 3A 85 22 11 49 44 20 4E 55 |".";SC$:.".ID NU|
000020A0: 4D 42 45 52 22 3B 49 44 24 00 E5 28 28 0A 99 22 |MBER";ID$..((.."|
000020B0: 11 11 1D 1D 1D 1D 1D 50 4C 45 41 53 45 20 57 41 |.......PLEASE WA|
000020C0: 49 54 21 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 4E |IT!":.15,8,15,"N|
000020D0: 30 3A 22 AA 53 43 24 AA 22 2C 22 AA 49 44 24 3A |0:".SC$.",".ID$:|
000020E0: 89 32 34 39 30 00 0B 29 32 0A 99 22 93 22 A6 39 |.2490..)2..".".9|
000020F0: 29 22 11 12 2A 2A 2A 20 44 49 53 4B 20 56 41 4C |)"..*** DISK VAL|
00002100: 49 44 41 54 45 20 20 2A 2A 2A 22 00 47 29 3C 0A |IDATE ***".G)<.|
00002110: 99 A6 31 31 29 22 11 11 11 49 4E 53 45 52 54 20 |..11)"...INSERT |
00002120: 44 49 53 4B 20 54 4F 20 42 45 22 3A 99 A6 31 30 |DISK TO BE":..10|
00002130: 29 22 11 56 41 4C 49 44 41 54 45 44 20 41 4E 44 |)".VALIDATED AND|
00002140: 20 50 52 45 53 53 22 00 5C 29 3D 0A 99 A6 31 36 | PRESS".\)=...16|
00002150: 29 22 11 52 45 54 55 52 4E 20 21 22 00 7C 29 46 |)".RETURN !".|)F|
00002160: 0A A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 AF |..A$:.A$...(13).|
00002170: 41 24 B3 B1 22 40 22 A7 32 36 33 30 00 8D 29 4B |A$.."@".2630..)K|
00002180: 0A 8B 41 24 B2 22 40 22 A7 32 34 32 30 00 B6 29 |..A$."@".2420..)|
00002190: 50 0A 99 22 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |P.."............|
000021A0: 1D 1D 1D 1D 1D 1D 1D 1D 50 4C 45 41 53 45 20 57 |........PLEASE W|
000021B0: 41 49 54 20 21 22 00 CE 29 5A 0A 9F 31 35 2C 38 |AIT !"..)Z..15,8|
000021C0: 2C 31 35 2C 22 56 30 22 3A 89 32 34 39 30 00 13 |,15,"V0":.2490..|
000021D0: 2A 64 0A 99 22 93 22 A6 39 29 22 11 3F 3F 3F 3F |*d..".".9)".????|
000021E0: 3F 3F 3F 12 20 44 45 56 49 43 45 20 92 3F 3F 3F |???. DEVICE .???|
000021F0: 3F 3F 3F 3F 22 3A 99 A6 31 30 29 22 11 11 28 31 |????":..10)"..(1|
00002200: 3D 54 41 50 45 29 20 20 28 32 3D 46 4C 4F 50 50 |=TAPE) (2=FLOPP|
00002210: 59 29 22 00 54 2A 6E 0A 85 22 13 11 11 11 11 11 |Y)".T*n.."......|
00002220: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002230: 1D 31 2F 32 20 20 32 9D 9D 9D 22 3B 53 24 3A 8B |.1/2 2...";S$:.|
00002240: 53 24 B3 B1 22 31 22 AF 53 24 B3 B1 22 32 22 A7 |S$.."1".S$.."2".|
00002250: 32 36 37 30 00 64 2A 78 0A 8B 41 24 B2 22 4C 22 |2670.d*x..A$."L"|
00002260: A7 32 32 30 00 74 2A 82 0A 8B 41 24 B2 22 4B 22 |.220.t*...A$."K"|
00002270: A7 33 34 30 00 9A 2A 8C 0A 99 22 93 22 A6 38 29 |.340..*...".".8)|
00002280: 22 11 12 2A 2A 2A 20 49 4E 53 45 52 54 20 20 52 |"..*** INSERT R|
00002290: 45 43 4F 52 44 20 2A 2A 2A 22 00 CB 2A 96 0A 85 |ECORD ***"..*...|
000022A0: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 52 45 43 4F |"...........RECO|
000022B0: 52 44 20 4E 55 4D 42 45 52 22 3B 4E 52 24 3A 8B |RD NUMBER";NR$:.|
000022C0: 4E 52 24 B2 22 40 22 A7 34 34 30 00 0F 2B A0 0A |NR$."@".440..+..|
000022D0: 4E 52 B2 C5 28 4E 52 24 29 3A 8B 4E 52 B3 31 A7 |NR..(NR$):.NR.1.|
000022E0: 99 22 1D 1D 1D 1D 1D 1D 11 11 20 45 52 52 4F 52 |."........ ERROR|
000022F0: 20 21 22 3A 92 31 39 37 2C 36 34 3A 92 31 39 37 | !":.197,64:.197|
00002300: 2C 31 3A 97 31 39 38 2C 30 3A 89 32 37 30 30 00 |,1:.198,0:.2700.|
00002310: 4D 2B AA 0A 8B 4E 52 B1 59 A7 99 22 11 1D 1D 1D |M+...NR.Y.."....|
00002320: 1D 1D 1D 1D 54 48 45 52 45 20 49 53 4E 27 54 20 |....THERE ISN'T |
00002330: 54 48 41 54 20 52 45 43 4F 52 44 22 3A 81 54 B2 |THAT RECORD":.T.|
00002340: 30 A4 31 30 30 30 3A 82 3A 89 34 34 30 00 85 2B |0.1000:.:.440..+|
00002350: B4 0A 81 54 B2 59 AA 31 A4 4E 52 AA 31 A9 AB 31 |...T.Y.1.NR.1..1|
00002360: 3A 41 24 28 54 29 B2 41 24 28 54 AB 31 29 3A 82 |:A$(T).A$(T.1):.|
00002370: 3A 49 B2 4E 52 3A 59 B2 59 AA 31 3A 41 24 28 4E |:I.NR:Y.Y.1:A$(N|
00002380: 52 29 B2 22 22 00 BB 2B BE 0A 81 54 B2 31 A4 43 |R).""..+...T.1.C|
00002390: 41 3A 81 54 54 B2 31 A4 44 44 28 54 29 3A 41 24 |A:.TT.1.DD(T):A$|
000023A0: 28 4E 52 29 B2 41 24 28 4E 52 29 AA 22 2D 22 3A |(NR).A$(NR)."-":|
000023B0: 82 54 54 2C 54 3A 89 31 32 37 30 00 E1 2B C8 0A |.TT,T:.1270..+..|
000023C0: 99 22 93 22 A6 39 29 22 11 12 2A 2A 2A 20 43 4C |.".".9)"..*** CL|
000023D0: 45 41 52 20 20 52 45 43 4F 52 44 53 20 2A 2A 2A |EAR RECORDS ***|
000023E0: 22 00 25 2C D2 0A 8B 59 B2 30 A7 99 A6 39 29 22 |".%,...Y.0...9)"|
000023F0: 11 11 11 54 48 45 52 45 20 41 52 45 20 4E 4F 20 |...THERE ARE NO |
00002400: 52 45 43 4F 52 44 53 20 21 22 3A 92 31 39 37 2C |RECORDS !":.197,|
00002410: 36 34 3A 92 31 39 37 2C 31 3A 97 31 39 38 2C 30 |64:.197,1:.198,0|
00002420: 3A 89 34 34 30 00 4E 2C DC 0A 99 22 11 11 11 1D |:.440.N,..."....|
00002430: 1D 1D 1D 1D 1D 1D 1D 1D 1D 41 52 45 20 59 4F 55 |.........ARE YOU|
00002440: 20 53 55 52 45 3F 20 28 59 2F 4E 29 22 3B 00 62 | SURE? (Y/N)";.b|
00002450: 2C E6 0A A1 41 24 3A 8B 41 24 B2 22 22 A7 32 37 |,...A$:.A$."".27|
00002460: 39 30 00 77 2C F0 0A 99 41 24 3A 8B 41 24 B3 B1 |90.w,...A$:.A$..|
00002470: 22 59 22 A7 34 34 30 00 BC 2C FA 0A 99 22 11 11 |"Y".440..,..."..|
00002480: 11 1D 1D 1D 1D 57 52 49 54 45 20 54 48 45 20 52 |.....WRITE THE R|
00002490: 45 43 4F 52 44 20 54 4F 20 42 45 20 43 4C 45 41 |ECORD TO BE CLEA|
000024A0: 52 45 44 22 3A 85 22 11 11 1D 1D 1D 1D 1D 1D 1D |RED":.".........|
000024B0: 1D 1D 52 45 43 4F 52 44 22 3B 52 43 00 E8 2C 04 |..RECORD";RC..,.|
000024C0: 0B 8B 52 43 B1 59 A7 99 22 1D 1D 1D 1D 1D 1D 1D |..RC.Y..".......|
000024D0: 1D 1D 1D 1D 1D 1D 1D 12 45 52 52 4F 52 20 21 22 |........ERROR !"|
000024E0: 3A 92 31 39 37 2C 36 34 00 FE 2C 0E 0B 8B 52 43 |:.197,64..,...RC|
000024F0: B1 59 A7 92 31 39 37 2C 31 3A 89 34 34 30 00 25 |.Y..197,1:.440.%|
00002500: 2D 18 0B 81 49 B2 52 43 A4 59 3A 41 24 28 49 29 |-...I.RC.Y:A$(I)|
00002510: B2 41 24 28 49 AA 31 29 3A 82 3A 59 B2 59 AB 31 |.A$(I.1):.:Y.Y.1|
00002520: 3A 89 34 34 30 00 3B 2D 22 0B 81 49 B2 31 A4 31 |:.440.;-"..I.1.1|
00002530: 35 3A A0 49 3A 82 3A 89 34 34 30 00 81 2D 2C 0B |5:.I:.:.440..-,.|
00002540: 97 33 36 38 37 39 2C 31 32 3A 99 22 93 22 A6 39 |.36879,12:.".".9|
00002550: 29 22 11 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |)".*************|
00002560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 99 A6 31 33 29 |*********":..13)|
00002570: 22 12 11 50 52 49 4E 54 45 52 20 4D 45 4E 55 27 |"..PRINTER MENU'|
00002580: 22 00 A3 2D 31 0B 99 A6 39 29 22 11 2A 2A 2A 2A |"..-1...9)".****|
00002590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025A0: 2A 2A 22 00 E0 2D 36 0B 99 3A 99 3A 99 A6 31 31 |**"..-6..:.:..11|
000025B0: 29 22 11 41 29 20 55 53 45 20 54 48 45 20 50 52 |)".A) USE THE PR|
000025C0: 49 4E 54 45 52 22 3A 99 A6 31 31 29 22 11 11 42 |INTER":..11)"..B|
000025D0: 29 20 53 45 4C 45 43 54 20 4F 50 54 49 4F 4E 53 |) SELECT OPTIONS|
000025E0: 00 1C 2E 40 0B 99 A6 31 31 29 22 11 11 43 29 20 |...@...11)"..C) |
000025F0: 43 48 41 4E 47 45 20 46 49 4C 45 4E 41 4D 45 22 |CHANGE FILENAME"|
00002600: 3A 99 A6 31 31 29 22 11 11 44 29 20 53 45 54 20 |:..11)"..D) SET |
00002610: 50 41 47 45 20 4C 45 4E 47 54 48 22 00 36 2E 45 |PAGE LENGTH".6.E|
00002620: 0B 99 A6 31 31 29 22 11 11 45 29 20 4D 41 49 4E |...11)"..E) MAIN|
00002630: 20 4D 45 4E 55 27 00 52 2E 4A 0B A1 41 24 3A 8B | MENU'.R.J..A$:.|
00002640: 41 24 B3 22 41 22 B0 41 24 B1 22 45 22 A7 32 38 |A$."A".A$."E".28|
00002650: 39 30 00 62 2E 54 0B 8B 41 24 B2 22 45 22 A7 34 |90.b.T..A$."E".4|
00002660: 34 30 00 A6 2E 5E 0B 8B 41 24 B2 22 41 22 A7 99 |40...^..A$."A"..|
00002670: 22 93 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |"...............|
00002680: 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 4C 45 41 53 45 20 |.........PLEASE |
00002690: 57 41 49 54 21 22 3A 97 33 36 38 37 39 2C 31 35 |WAIT!":.36879,15|
000026A0: 3A 89 31 34 32 30 00 B7 2E 68 0B 8B 41 24 B2 22 |:.1420...h..A$."|
000026B0: 42 22 A7 32 39 38 30 00 C8 2E 72 0B 8B 41 24 B2 |B".2980...r..A$.|
000026C0: 22 44 22 A7 33 35 30 30 00 F6 2E 7C 0B 97 33 36 |"D".3500...|..36|
000026D0: 38 37 39 2C 31 34 3A 99 22 93 1D 1D 1D 1D 1D 1D |879,14:.".......|
000026E0: 1D 1D 1D 1D 1D 1D 1D 1D 12 11 4E 45 57 20 46 49 |..........NEW FI|
000026F0: 4C 45 4E 41 4D 45 00 22 2F 86 0B 99 A6 31 34 29 |LENAME."/....14)|
00002700: 22 11 11 11 11 11 11 11 11 12 4F 4C 44 20 46 49 |".........OLD FI|
00002710: 4C 45 4E 41 4D 45 22 3A 99 3A 99 3A 99 3A 99 4B |LENAME":.:.:.:.K|
00002720: 4D 24 00 62 2F 90 0B 99 22 11 11 11 1D 1D 1D 1D |M$.b/...".......|
00002730: 1D 52 45 54 55 52 4E 20 54 4F 20 47 45 54 20 54 |.RETURN TO GET T|
00002740: 48 45 20 4F 4C 44 20 46 49 4C 45 4E 41 4D 45 22 |HE OLD FILENAME"|
00002750: 3A 8D 32 31 33 30 3A 8B 52 24 B2 22 22 A7 32 38 |:.2130:.R$."".28|
00002760: 36 30 00 73 2F 9A 0B 4B 4D 24 B2 52 24 3A 89 32 |60.s/..KM$.R$:.2|
00002770: 38 36 30 00 AE 2F A4 0B 99 22 13 11 11 11 11 11 |860../..."......|
00002780: 11 11 1D 1D 1D 1D 22 3A 81 49 B2 30 A4 31 33 3A |......":.I.0.13:|
00002790: 99 A6 31 31 29 22 20 20 20 20 20 20 20 20 20 20 |..11)" |
000027A0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 00 D9 | ":...|
000027B0: 2F AE 0B 99 22 13 11 11 11 11 11 11 11 11 11 11 |/..."...........|
000027C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 4F |...............O|
000027D0: 50 54 49 4F 4E 53 20 3A 11 00 17 30 B8 0B 99 A6 |PTIONS :...0....|
000027E0: 39 29 22 31 29 1D 53 45 4C 45 43 54 20 31 BE 26 |9)"1).SELECT 1.&|
000027F0: 4C 41 53 54 20 52 45 43 2E 22 3A 99 A6 39 29 22 |LAST REC.":..9)"|
00002800: 32 29 1D 43 4F 4D 50 55 54 45 20 4E 55 4D 2E 20 |2).COMPUTE NUM. |
00002810: 46 49 45 4C 44 53 22 00 55 30 C2 0B 99 A6 39 29 |FIELDS".U0....9)|
00002820: 22 33 29 1D 52 45 43 2E 20 4E 55 4D 42 45 52 20 |"3).REC. NUMBER |
00002830: 44 49 53 50 4C 41 59 22 3A 99 A6 39 29 22 34 29 |DISPLAY":..9)"4)|
00002840: 1D 53 45 4C 45 43 54 20 50 41 47 45 20 46 4F 52 |.SELECT PAGE FOR|
00002850: 4D 41 54 54 22 00 77 30 C3 0B 99 A6 39 29 22 35 |MATT".w0....9)"5|
00002860: 29 1D 53 45 4C 45 43 54 20 50 52 49 4E 54 45 52 |).SELECT PRINTER|
00002870: 20 53 50 41 43 45 22 00 88 30 CC 0B 99 A6 39 29 | SPACE"..0....9)|
00002880: 22 36 29 20 45 58 49 54 00 A4 30 D6 0B A1 41 24 |"6) EXIT..0...A$|
00002890: 3A 8B 41 24 B3 22 31 22 B0 41 24 B1 22 36 22 A7 |:.A$."1".A$."6".|
000028A0: 33 30 33 30 00 CD 30 E0 0B 91 C5 28 41 24 29 89 |3030..0....(A$).|
000028B0: 33 30 35 30 2C 33 33 30 30 2C 33 31 33 30 2C 33 |3050,3300,3130,3|
000028C0: 31 38 30 2C 33 32 34 30 2C 32 38 36 30 00 DB 30 |180,3240,2860..0|
000028D0: EA 0B 8B 59 B2 30 A7 32 38 36 30 00 1E 31 F4 0B |...Y.0.2860..1..|
000028E0: 99 22 93 22 A6 39 29 22 11 11 12 2A 2A 2A 2A 2A |.".".9)"...*****|
000028F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002900: 2A 11 22 3A 99 A6 31 30 29 22 49 4E 53 45 52 54 |*.":..10)"INSERT|
00002910: 20 31 20 20 26 20 4C 41 53 54 20 52 45 43 00 41 | 1 & LAST REC.A|
00002920: 31 F9 0B 99 A6 39 29 22 11 12 2A 2A 2A 2A 2A 2A |1....9)"..******|
00002930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002940: 22 00 6A 31 FE 0B 99 22 11 11 11 1D 1D 1D 1D 1D |".j1..."........|
00002950: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002960: 1D 1D 1D 22 3B 57 45 28 30 29 00 90 31 08 0C 85 |...";WE(0)..1...|
00002970: 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 31 BE 20 52 45 |"..........1. RE|
00002980: 43 2E 20 4E 55 4D 42 45 52 22 3B 57 45 28 30 29 |C. NUMBER";WE(0)|
00002990: 00 B9 31 12 0C 99 22 11 11 11 1D 1D 1D 1D 1D 1D |..1...".........|
000029A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000029B0: 1D 1D 22 3B 57 45 28 31 29 00 DF 31 1C 0C 85 22 |..";WE(1)..1..."|
000029C0: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 32 BE 20 52 45 43 |..........2. REC|
000029D0: 2E 20 4E 55 4D 42 45 52 22 3B 57 45 28 31 29 00 |. NUMBER";WE(1).|
000029E0: 05 32 26 0C 8B 57 45 28 31 29 B3 57 45 28 30 29 |.2&..WE(1).WE(0)|
000029F0: B0 57 45 28 31 29 B3 30 B0 57 45 28 30 29 B1 59 |.WE(1).0.WE(0).Y|
00002A00: A7 33 31 30 30 00 14 32 30 0C 99 22 93 22 3A 89 |.3100..20..".":.|
00002A10: 32 38 36 30 00 4E 32 3A 0C 99 22 13 11 11 11 11 |2860.N2:..".....|
00002A20: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002A30: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 52 45 43 2E |............REC.|
00002A40: 20 44 49 53 50 4C 41 59 49 4E 47 20 22 3B 00 6F | DISPLAYING ";.o|
00002A50: 32 44 0C 99 CA 28 22 4F 4E 20 4F 46 46 22 2C 31 |2D...("ON OFF",1|
00002A60: AB 33 AC 28 57 45 28 33 29 B2 30 29 2C 33 29 00 |.3.(WE(3).0),3).|
00002A70: 86 32 4E 0C A1 41 24 3A 8B 41 24 B2 C7 28 31 33 |.2N..A$:.A$..(13|
00002A80: 29 A7 33 32 33 30 00 96 32 58 0C 8B 41 24 B2 22 |).3230..2X..A$."|
00002A90: 22 A7 33 31 35 30 00 B1 32 62 0C 57 45 28 33 29 |".3150..2b.WE(3)|
00002AA0: B2 AB 28 57 45 28 33 29 B2 30 29 3A 89 33 31 33 |..(WE(3).0):.313|
00002AB0: 30 00 EB 32 6C 0C 99 22 13 11 11 11 11 11 11 11 |0..2l.."........|
00002AC0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D |................|
00002AD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 41 47 45 20 46 4F |.........PAGE FO|
00002AE0: 52 4D 41 54 54 49 4E 47 20 22 3B 00 0C 33 76 0C |RMATTING ";..3v.|
00002AF0: 99 CA 28 22 4F 4E 20 4F 46 46 22 2C 31 AB 33 AC |..("ON OFF",1.3.|
00002B00: 28 57 45 28 34 29 B2 30 29 2C 33 29 00 23 33 80 |(WE(4).0),3).#3.|
00002B10: 0C A1 41 24 3A 8B 41 24 B2 C7 28 31 33 29 A7 33 |..A$:.A$..(13).3|
00002B20: 32 33 30 00 33 33 8A 0C 8B 41 24 B2 22 22 A7 33 |230.33...A$."".3|
00002B30: 32 30 30 00 4E 33 94 0C 57 45 28 34 29 B2 AB 28 |200.N3..WE(4)..(|
00002B40: 57 45 28 34 29 B2 30 29 3A 89 33 31 38 30 00 9A |WE(4).0):.3180..|
00002B50: 33 9E 0C 99 22 13 11 11 11 11 11 11 11 11 11 11 |3..."...........|
00002B60: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... |
00002B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B90: 20 20 20 22 3A 89 32 39 39 30 00 D9 33 A8 0C 99 | ":.2990..3...|
00002BA0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00002BB0: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002BC0: 1D 1D 1D 1D 1D 4E BE 20 53 50 41 43 45 53 22 57 |.....N. SPACES"W|
00002BD0: 45 28 35 29 22 9D 9D 22 3B 00 F5 33 B2 0C A1 41 |E(5)"..";..3...A|
00002BE0: 24 3A 8B 41 24 B3 22 30 22 B0 41 24 B1 22 39 22 |$:.A$."0".A$."9"|
00002BF0: A7 33 32 35 30 00 1A 34 BC 0C 99 41 24 3A 57 45 |.3250..4...A$:WE|
00002C00: 28 35 29 B2 C5 28 41 24 29 3A 81 49 B2 30 A4 35 |(5)..(A$):.I.0.5|
00002C10: 30 30 3A 82 3A 89 33 32 33 30 00 32 34 C6 0C 4B |00:.:.3230.24..K|
00002C20: 4F B2 4B 4F AA 31 3A 8B 4B 4F B3 51 4C AB 31 31 |O.KO.1:.KO.QL.11|
00002C30: A7 8E 00 70 34 D0 0C 8D 33 34 39 30 3A 4B 4F B2 |...p4...3490:KO.|
00002C40: 30 3A 54 59 B2 54 59 AA 31 3A 81 47 48 B2 31 A4 |0:TY.TY.1:.GH.1.|
00002C50: 33 3A 98 34 3A 82 3A 98 34 2C C7 28 31 34 29 A6 |3:.4:.:.4,.(14).|
00002C60: 31 37 29 22 2D 22 54 59 22 2D 22 C7 28 31 35 29 |17)"-"TY"-".(15)|
00002C70: 00 89 34 DA 0C 81 47 48 B2 31 A4 38 3A 98 34 3A |..4...GH.1.8:.4:|
00002C80: 82 3A 8D 32 30 38 30 3A 8E 00 97 34 E4 0C 8B 59 |.:.2080:...4...Y|
00002C90: B2 30 A7 32 38 36 30 00 C0 34 EE 0C 99 22 93 1D |.0.2860..4..."..|
00002CA0: 1D 1D 1D 1D 1D 1D 1D 1D 11 43 4F 4D 50 55 54 45 |.........COMPUTE|
00002CB0: 20 4E 55 4D 45 52 49 43 2E 46 49 45 4C 44 53 22 | NUMERIC.FIELDS"|
00002CC0: 00 EC 34 F8 0C 85 22 11 11 11 1D 1D 1D 1D 1D 1D |..4...".........|
00002CD0: 1D 1D 1D 1D 1D 1D 46 49 52 53 54 20 52 45 43 4F |......FIRST RECO|
00002CE0: 52 44 20 20 31 9D 9D 9D 22 3B 57 30 00 11 35 02 |RD 1...";W0..5.|
00002CF0: 0D 99 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00002D00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00002D10: 59 00 35 35 0C 0D 85 22 91 1D 1D 1D 1D 1D 1D 1D |Y.55..."........|
00002D20: 1D 1D 1D 1D 1D 4C 41 53 54 20 52 45 43 4F 52 44 |.....LAST RECORD|
00002D30: 20 22 3B 57 31 00 65 35 16 0D 99 22 93 22 A6 39 | ";W1.e5...".".9|
00002D40: 29 22 11 12 2A 2A 2A 2A 2A 20 43 4F 4D 50 55 54 |)"..***** COMPUT|
00002D50: 49 4E 47 20 20 2A 2A 2A 2A 2A 11 11 11 11 22 3A |ING *****....":|
00002D60: 8D 33 34 31 30 00 97 35 20 0D 8B 43 54 B2 30 A7 |.3410..5 ..CT.0.|
00002D70: 99 A6 39 29 22 4E 4F 20 4E 55 4D 45 52 49 43 41 |..9)"NO NUMERICA|
00002D80: 4C 20 46 49 45 4C 44 53 20 21 22 3A 92 31 39 37 |L FIELDS !":.197|
00002D90: 2C 31 3A 89 34 34 30 00 B4 35 2A 0D 81 50 B2 31 |,1:.440..5*..P.1|
00002DA0: A4 43 41 3A 8B 4E 24 28 50 29 B2 22 4E 22 A7 99 |.CA:.N$(P)."N"..|
00002DB0: 22 12 22 3B 00 D5 35 34 0D 99 22 1D 1D 1D 1D 1D |".";..54..".....|
00002DC0: 1D 1D 1D 1D 1D 22 43 41 24 28 50 29 A3 32 31 29 |....."CA$(P).21)|
00002DD0: 56 41 28 50 29 00 DB 35 3E 0D 99 00 F7 35 48 0D |VA(P)..5>....5H.|
00002DE0: 82 3A 97 33 36 38 37 39 2C 31 31 3A 92 31 39 37 |.:.36879,11:.197|
00002DF0: 2C 31 3A 89 34 34 30 00 18 36 52 0D 43 54 B2 30 |,1:.440..6R.CT.0|
00002E00: 3A 81 50 B2 31 A4 43 41 3A 8B 4E 24 28 50 29 B3 |:.P.1.CA:.N$(P).|
00002E10: B1 22 4E 22 A7 82 3A 8E 00 40 36 5C 0D 43 54 B2 |."N"..:..@6\.CT.|
00002E20: AB 31 3A 42 45 B2 31 3A 81 50 31 B2 31 A4 50 3A |.1:BE.1:.P1.1.P:|
00002E30: 42 45 B2 42 45 AA 44 44 28 50 31 AB 31 29 3A 82 |BE.BE.DD(P1.1):.|
00002E40: 00 80 36 66 0D 56 41 28 50 29 B2 30 3A 81 50 31 |..6f.VA(P).0:.P1|
00002E50: B2 57 30 A4 57 31 3A 56 41 28 50 29 B2 56 41 28 |.W0.W1:VA(P).VA(|
00002E60: 50 29 AA C5 28 CA 28 41 24 28 50 31 29 2C 42 45 |P)..(.(A$(P1),BE|
00002E70: 2C 44 44 28 50 29 29 29 3A 82 50 31 2C 50 3A 8E |,DD(P))):.P1,P:.|
00002E80: 00 8C 36 70 0D 8B 4B 4F B2 31 A7 8E 00 A7 36 7A |..6p..KO.1....6z|
00002E90: 0D 8D 33 34 39 30 3A 8D 33 34 39 30 3A 8B 57 45 |..3490:.3490:.WE|
00002EA0: 28 34 29 B2 30 A7 8E 00 B9 36 84 0D 8B 4B 4F B1 |(4).0....6...KO.|
00002EB0: 51 4C AB 39 A7 33 34 38 30 00 CE 36 8E 0D 4B 4F |QL.9.3480..6..KO|
00002EC0: B2 4B 4F AA 31 3A 98 34 3A 89 33 34 36 30 00 04 |.KO.1:.4:.3460..|
00002ED0: 37 98 0D 98 34 2C C7 28 31 34 29 22 20 20 20 20 |7...4,.(14)" |
00002EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 22 54 | -"T|
00002EF0: 59 AA 31 22 2D 22 3A 81 49 B2 30 A4 36 3A 98 34 |Y.1"-":.I.0.6:.4|
00002F00: 3A 82 3A 8E 00 1D 37 A2 0D 81 47 54 B2 30 A4 37 |:.:...7...GT.0.7|
00002F10: 39 3A 98 34 2C 22 C0 22 3B 3A 82 3A 8E 00 42 37 |9:.4,".";:.:..B7|
00002F20: AC 0D 99 22 93 22 A6 39 29 22 11 3D 3D 20 53 45 |...".".9)".== SE|
00002F30: 54 20 20 50 41 47 45 20 4C 45 4E 47 48 54 20 3D |T PAGE LENGHT =|
00002F40: 3D 22 00 84 37 B6 0D 99 A6 32 33 29 22 11 11 11 |="..7....23)"...|
00002F50: 22 51 4C 3A 85 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |"QL:."..........|
00002F60: 1D 1D 50 41 47 45 20 4C 45 4E 47 48 54 22 3B 51 |..PAGE LENGHT";Q|
00002F70: 4C 3A 8B 51 4C B3 31 35 B0 51 4C B1 35 30 30 A7 |L:.QL.15.QL.500.|
00002F80: 33 35 30 30 00 8E 37 C0 0D 89 32 38 36 30 00 B0 |3500..7...2860..|
00002F90: 37 A0 0F 97 35 33 32 38 30 2C 35 3A 99 22 93 22 |7...53280,5:."."|
00002FA0: A3 31 34 29 22 12 53 4F 52 54 20 46 49 4C 45 22 |.14)".SORT FILE"|
00002FB0: 00 D4 37 A1 0F 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |..7...".........|
00002FC0: 1D 1D 1D 1D 50 52 45 53 53 20 40 20 54 4F 20 45 |....PRESS @ TO E|
00002FD0: 58 49 54 22 00 E8 37 A2 0F A1 41 24 3A 8B 41 24 |XIT"..7...A$:.A$|
00002FE0: B2 22 22 89 34 30 30 32 00 F8 37 A3 0F 8B 41 24 |."".4002..7...A$|
00002FF0: B2 22 40 22 A7 34 34 30 00 22 38 A5 0F 99 22 13 |."@".440."8...".|
00003000: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 52 45 43 4F |............RECO|
00003010: 52 44 53 20 49 4E 20 4D 45 4D 4F 52 59 20 3A 20 |RDS IN MEMORY : |
00003020: 22 59 00 56 38 AA 0F 8B 59 B2 30 A7 99 22 11 11 |"Y.V8...Y.0.."..|
00003030: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 48 45 52 45 20 |..........THERE |
00003040: 41 52 45 20 4E 4F 20 52 45 43 4F 44 53 20 21 22 |ARE NO RECODS !"|
00003050: 3A 89 34 32 32 30 00 99 38 B4 0F 99 22 13 11 11 |:.4220..8..."...|
00003060: 11 11 11 1D 1D 1D 42 41 53 49 4E 47 20 4F 4E 20 |......BASING ON |
00003070: 57 48 49 43 48 20 46 49 45 4C 44 20 28 31 2F 22 |WHICH FIELD (1/"|
00003080: 43 41 22 9D 29 22 3B 3A 85 46 3A 8B 46 B1 43 41 |CA".)";:.F:.F.CA|
00003090: B0 46 B3 31 A7 34 30 32 30 00 CB 38 BE 0F 49 31 |.F.1.4020..8..I1|
000030A0: B2 31 3A 49 32 B2 59 3A 85 22 11 11 1D 1D 1D 46 |.1:I2.Y:.".....F|
000030B0: 49 52 53 54 20 41 4E 44 20 4C 41 53 54 20 52 45 |IRST AND LAST RE|
000030C0: 43 4F 52 44 22 3B 49 31 2C 49 32 00 17 39 C8 0F |CORD";I1,I2..9..|
000030D0: 99 22 93 11 11 11 11 11 11 11 22 A3 37 29 22 53 |."........".7)"S|
000030E0: 4F 52 54 49 4E 47 20 4F 4E 20 46 49 45 4C 44 20 |ORTING ON FIELD |
000030F0: 22 43 41 24 28 46 29 3A 99 22 13 11 11 11 11 11 |"CA$(F):."......|
00003100: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 52 45 43 |.............REC|
00003110: 4F 52 44 20 3A 20 22 00 40 39 D2 0F 54 31 B2 31 |ORD : ".@9..T1.1|
00003120: 3A 81 49 B2 30 A4 46 AB 31 3A 54 31 B2 54 31 AA |:.I.0.F.1:T1.T1.|
00003130: 44 44 28 49 29 3A 82 3A 54 32 B2 44 44 28 49 29 |DD(I):.:T2.DD(I)|
00003140: 00 70 39 DC 0F 81 50 55 B2 49 31 A4 49 32 3A 99 |.p9...PU.I1.I2:.|
00003150: 22 13 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D |"...............|
00003160: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 50 55 |............."PU|
00003170: 00 AE 39 E6 0F 42 42 24 B2 CA 28 41 24 28 50 55 |..9..BB$..(A$(PU|
00003180: 29 2C 54 31 2C 54 32 29 3A 81 58 B2 31 A4 50 55 |),T1,T2):.X.1.PU|
00003190: AB 31 3A 8B 42 42 24 B1 CA 28 41 24 28 58 29 2C |.1:.BB$..(A$(X),|
000031A0: 54 31 2C 54 32 29 A7 82 3A 89 34 31 30 30 00 D7 |T1,T2)..:.4100..|
000031B0: 39 F0 0F 44 24 B2 41 24 28 50 55 29 3A 81 5A B2 |9..D$.A$(PU):.Z.|
000031C0: 50 55 A4 58 A9 AB 31 3A 41 24 28 5A 29 B2 41 24 |PU.X..1:A$(Z).A$|
000031D0: 28 5A AB 31 29 3A 82 00 E4 39 FA 0F 41 24 28 58 |(Z.1):...9..A$(X|
000031E0: 29 B2 44 24 00 EC 39 04 10 82 50 55 00 F6 39 0E |).D$..9...PU..9.|
000031F0: 10 89 34 32 32 30 00 18 3A 18 10 97 35 33 32 38 |..4220..:...5328|
00003200: 30 2C 38 3A 99 22 93 22 A3 31 33 29 22 4C 49 4E |0,8:.".".13)"LIN|
00003210: 4B 20 46 49 4C 45 53 22 00 3C 3A 19 10 99 22 11 |K FILES".<:...".|
00003220: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 52 45 53 |............PRES|
00003230: 53 20 40 20 54 4F 20 45 58 49 54 22 00 50 3A 1A |S @ TO EXIT".P:.|
00003240: 10 A1 41 24 3A 8B 41 24 B2 22 22 89 34 31 32 32 |..A$:.A$."".4122|
00003250: 00 60 3A 1B 10 8B 41 24 B2 22 40 22 A7 34 34 30 |.`:...A$."@".440|
00003260: 00 94 3A 1C 10 8B 59 B2 30 A7 99 22 11 11 11 1D |..:...Y.0.."....|
00003270: 1D 1D 1D 1D 1D 1D 1D 1D 54 48 45 52 45 20 41 52 |........THERE AR|
00003280: 45 20 4E 4F 20 52 45 43 4F 44 53 20 21 22 3A 89 |E NO RECODS !":.|
00003290: 34 32 32 30 00 D3 3A 22 10 85 22 13 11 11 11 1D |4220..:"..".....|
000032A0: 1D 1D 1D 1D 1D 1D 1D 46 4C 4F 50 50 59 20 4F 52 |.......FLOPPY OR|
000032B0: 20 43 41 53 53 45 54 54 45 22 3B 41 24 3A 8B 41 | CASSETTE";A$:.A|
000032C0: 24 B3 B1 22 46 22 AF 41 24 B3 B1 22 43 22 A7 34 |$.."F".A$.."C".4|
000032D0: 31 33 30 00 F8 3A 2C 10 85 22 13 11 11 11 11 11 |130..:,.."......|
000032E0: 11 1D 1D 1D 1D 1D 1D 1D 1D 46 49 4C 45 20 4E 41 |.........FILE NA|
000032F0: 4D 45 22 3B 46 24 3A 99 00 12 3B 36 10 97 31 35 |ME";F$:...;6..15|
00003300: 37 2C 31 32 38 3A 8B 41 24 B2 22 43 22 89 34 31 |7,128:.A$."C".41|
00003310: 37 30 00 5B 3B 40 10 9F 31 35 2C 38 2C 31 35 2C |70.[;@..15,8,15,|
00003320: 22 49 30 22 3A 9F 31 2C 38 2C 32 2C 46 24 AA 22 |"I0":.1,8,2,F$."|
00003330: 2C 53 2C 52 22 3A 84 31 35 2C 41 2C 42 24 2C 43 |,S,R":.15,A,B$,C|
00003340: 2C 44 3A 99 22 1D 1D 1D 1D 1D 1D 1D 22 41 3B 42 |,D:."......."A;B|
00003350: 24 3B 43 3B 44 3A 89 34 31 37 35 00 6F 3B 4A 10 |$;C;D:.4175.o;J.|
00003360: 9F 31 2C 31 2C 30 2C 46 24 3A 89 34 31 38 30 00 |.1,1,0,F$:.4180.|
00003370: 7E 3B 4F 10 8B 41 B3 B1 30 A7 34 32 32 30 00 98 |~;O..A..0.4220..|
00003380: 3B 54 10 99 3A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 4C |;T..:."........L|
00003390: 49 4E 4B 49 4E 47 11 22 00 BE 3B 5E 10 84 31 2C |INKING."..;^..1,|
000033A0: 4D 24 2C 4D 3A 81 49 B2 31 A4 4D 3A 84 31 2C 48 |M$,M:.I.1.M:.1,H|
000033B0: 24 2C 48 2C 48 24 3A 82 3A 84 31 2C 59 31 00 D9 |$,H,H$:.:.1,Y1..|
000033C0: 3B 68 10 81 49 B2 59 AA 31 A4 59 AA 59 31 3A 84 |;h..I.Y.1.Y.Y1:.|
000033D0: 31 2C 41 24 28 49 29 3A 82 00 0D 3C 72 10 59 B2 |1,A$(I):...<r.Y.|
000033E0: 59 AA 59 31 3A A0 31 3A 8B 41 24 B2 22 46 22 A7 |Y.Y1:.1:.A$."F".|
000033F0: 84 31 35 2C 41 2C 42 24 2C 43 2C 44 3A 99 A6 37 |.15,A,B$,C,D:..7|
00003400: 29 41 3B 42 24 3B 43 3B 44 3A A0 31 35 00 30 3C |)A;B$;C;D:.15.0<|
00003410: 7C 10 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D ||.."............|
00003420: 1D 1D 1D 50 52 45 53 53 20 52 45 54 55 52 4E 22 |...PRESS RETURN"|
00003430: 00 48 3C 86 10 A1 41 24 3A 8B 41 24 B3 B1 C7 28 |.H<...A$:.A$...(|
00003440: 31 33 29 89 34 32 33 30 00 51 3C 90 10 89 34 34 |13).4230.Q<...44|
00003450: 30 00 00 00 FD AB A8 FF |0....... |
../.D.."........ ***************
*******.].N.."........ *
*...X.."........ *
EASY CATALOGUE *......"........
* *......@@@@:REM"
................ * BY
*.%...."........ *
*.S. .."........ *
GIORGIO CHIOZZI *......"........
* *......"........
**********************@@......G
O375.H.H...F.B..V.JP.H.HL:D.^.7..B....Z.
...K......F. ..V.JP.`GO110.-------------
-.5.H..157,128:.A$(1000):.650,128::.G(14
2)".".L.R.WE(0).1:WE(1).1:WE(3).1:WE(4).
1:WE(5).0:QL.63:.440.V....LOAD......"..
********** .LOAD FILE. **********".
F.....10)"..PRESS '@' TO EXIT".Y....A$:.
A$."".250......A$."@".440.-....".
":."......
.FILENAME";F$.\....S$."1"..1,1,0,F$:."..
......LOADING.":.300..."..1,8,2,F$.",R,S
":."........FILE: ."F$".":.3,8,15:.3,A,B
$,C$,D$.B.'.."........."A;B$C$D$:.A..0.3
20.Z.(..:.".......LOADING"...,..1,KM$,CA
:.M.1.CA:.1,CA$(M):.1,DD(M):.1,N$(M):.M:
WE(0).1.;.6..1,Y:WE(1).Y:.I.1.Y:.1,A$(I)
:.I.O.@. 1:."..........PRESS RETURN":.19
7,15:.S$."2". 3.X.J..440...T..Y.0.440:.S
AVE...^.."...************** SAVE FILE
************"...H..".......FILENAME :.
";F$:."..........SAVE : "F$"
".7.R..S$."1".."....OPENING FILE."
:.1,1,1,F$:.400.`.|..1,8,2,F$.",W,S":.".
...FILE: ."F$"."......3,8,15:.3,A,B$,C$,
D$:."....."A;B$C$D$:.A..0.425......"....
SAVING : ."F$:.1,KM$......1,CA:.M.1.CA:.
1,CA$(M):.1,DD(M):.1,N$(M):.M......1,Y:.
I.1.Y:.1,A$(I):.I.%... 1:."......PRESS R
ETURN":.197,1.4....S$."2". 3.S....53280,
0:.53281,0:.".. ----- .EASY CATALO
GUE. -----".......19)".BY":.". ----
- .GIORGIO CHIOZZI. -----".H.B..:.:.G(14
2).16)"...MENU'....L.."..(A) NEW FILE";.
..V...9)"(B) OLD FILE"......".(C) CORREC
T RECORD";.......3)"(D) DISK COMMANDS".H
....".(E) LIST RECORDS";.C.....5)"(F) FI
ND RECORDS".~....".(G) CLEAR RECORDS";..
.....4)"(H) PRINTER MENU'"......".(I) IN
SERT RECORDS";.O.&...3)"(J) BYTES FREE".
..0..".(K) SAVE FILE";...:...8)"(L) LOAD
FILE"...;..".(M) LINK FILE";.-.<...8)"(
N) SORT FILE".Y.D.."......FIELDS=."CA.10
)".RECORDS=."Y"...L.N..A$:.A$."".590...X
..A$."A".A$."N".590.K.B..F(A$).64.620,76
0,1230,2420,1020,1680,2760,2860,2700,118
0,2660,2660...C..F(A$).76.4120,4000...L.
Y.0:.NEW FILE.).V..".".9)"...**** FILE
NAME ****":.2130:KM$.R$.N....".".9)".
HOW MANY FIELDS ?..";.A....A$:.A$."".65
0.Q....A$."@".440.....CA.E(A$):.CA.0..CA
:.690......640......"........... FIELD
LEN. @/N".K....K.1.CA...F.."......
...";CA$(K):.C(CA$(K)).9.CA$(K).""..".."
:.710.B.P..".......................";:.D
D$:.E(DD$).1.E(DD$).44.720.S.Z.DD(K).E(D
D$)......"............................";
:.N$(K):.N$(K).."@".N$(K).."N".740. ....
......CA.0.440.....Y.Y.1:WE(1).Y:I.Y:.".
".8)"..***** NEW FILE *****".'.....11)
".PRESS '@' TO EXIT":.".........ALFABETI
CAL NUMERICAL".;....". NUMBER "I:..|. .
A$(I)."":.K.1.CA:.KJ.1232.1263:.KJ,B(KJ)
.63:.:.N$(K)."N".820...*..KJ.1232.1242:.
KJ,B(KJ).128:.:.830.E.4..KJ.1245.1263:.K
J,B(KJ).128:....>.."."CA$(K)".":."......
......";:.E.1.DD(K):."-";:.E...H..U.1.DD
(K).2:.".";:.U.\.R..AB$(K):.C(AB$(K)).DD
(K)..T.1.DD(K).C(AB$(K)):AB$(K).AB$(K)."
-":..|.\..H(AB$(K),1)."@".Y.Y.1:.440...F
..C(AB$(K)).DD(K).830...P..2200:.N$(K)..
"N".910...Z.U$.AB$(K):U$.D(E(U$)):.P.1.D
D(K):U$." ".U$:......AB$(K).I(U$,DD(K)).
....A$(I).A$(I).AB$(K)......K:.760.'....
LISTING.Y...."...C=CORRECT K=NEXT REC M=
MENU I=INST REC.".L....A$:.A$."".950.}..
..A$."I".2700...J..A$."C".1230...T..A$."
M".440......A$."K".A$.G(13).1010.A....95
0.T...G.0:.".":.1130......"...........**
RECORD LISTING **".(...G.0:."........
..FIRST RECORD 1...";EF.Y....".........
..STEP 2...";GG:.".":.I.EF.Y:S.1.K....W
E(3).0.1100..$..".RECORD N..";......I.1
0.." ";. .8..I.100.." ";...B..I:..W.L..M
.1.CA:AB$(M).J(A$(I),S,DD(M)):S.S.DD(M).
..V.."...."CA$(M)" .":..13)"."AB$(M)...`
..M:G.G.1:.G.GG.940...J..".":.I.V.T...11
)"...** END OF FILE **":..13)"..PRESS R
ETURN".J.~..A$:.A$."".1150.|....A$.G(13)
.440......1150......** MEMORIA **......5
3280,6:FR..(0)......"...................
"FR"BYTES FREE":.53280,0......A$:.A$."".
1210...D..440.".N.."..".9)".** CORRECT
RECORDS **.].X..Y.0.."............THERE
ARE NO RECORDS !":.197,1:.440.....I.0:."
...NUM. RECORD";I$:.I$."@".440. ...I.E(I
$):.I.Y.I.1.1230.H...DC$."":S.1:."..NUMB
ER"I"..":.M.1.CA......"."CA$(M)".".11)J(
A$(I),S,DD(M));:S.S.DD(M).1....U.1.DD(M)
.2:.".";:.U:.AB$(M):.C(AB$(M)).DD(M).132
0.R....C(AB$(M)).DD(M).."..":.1280.....
H.1.DD(M).C(AB$(M)):AB$(M).AB$(M)."-":..
..(.K.M:.2200:.N$(M).."N".1370...2..1350
...<..:A$(I).DC$:."................ANOTH
ER ONE?":.1380...F.UR$."
".D(E(AB$(M))).3.P.
AB$(M).I(UR$,DD(M)).L.Z.DC$.DC$.AB$(M):.
1340.`.D..B$:.B$."".1380.P.N..B$."N".440
...X..A$."K".2700......1230......PRINTER
......4,4:.2010:TY.0:KO.0.H. ..I.WE(0).W
E(1):S.1.......13)".F) DISK VALIDATE....
..1500:.WE(5).0.1480......D.1.WE(5):.4.*
....WE(4).1..3270:.D:.1490.=.H..WE(4).1.
.3270.Q.R..:.3440: 4:.440.P....WE(3).0..
4," ";:.1540......I.10..4," "I;:.15
40......I.100..4," "I;:.1540......4,I;..
....M.1.CA:AB$(M).J(A$(I),S,DD(M)):S.S.D
D(M)......4,H(DC$,DD);......4,AB$(M);...
"..4,H(DC$,DD);...,..M:.4,"":..'.6..4,4.
7.@..4,G(14)KM$.D.J..4,G(15).S.T..I.1.Y:
S.1.H.^..4," DATA N."I...H..M.1.CA:AB$
(M).J(A$(I),S,DD(M)):S.S.DD(M)...R..4,CA
$(M);...|..4,G(16)"20: "AB$(M).U....:.4,
"":.I: 4:.440......FIND......53280,9:.".
...........*** FIND RECORDS ***".=...J
J.0:."............PRESS .@. TO PRINT".Q.
...A$:.A$."".1710.B....A$."@".1920...B..
"...........DATA:.";AW$:HG.0:.I.1.CA:HG.
HG.DD(I):.:AW.C(AW$)...L..I.1.Y:.J.1.HG.
C(AW$).Z.V..AW$.J(A$(I),J,AW).1810......
J......I......"...............END OF REC
ORD": 4.#....A$:.A$."".1790.,....440.R..
.S.1:.". NUM.";:.I.10.." ";:.1830.C....
I.100.." ";...&..I:.:.N.1.CA:AB$(N).J(A$
(I),S,DD(N)):S.S.DD(N).M.0.."...."CA$(N)
" .":..13)"."AB$(N):.N:.JJ.999.:.1940...
:..JJ.999.1770...D.I.I:SR.SR.1:.SR.2.188
0...N..1770.'.X..".............. PRESS A
NY KEY".;.B..A$:.A$."".1890.T.G..A$."@".
4:SR.0:.440..L.."............ SEARCHI
NG FOR DATA ."...V.SR.0:.1870......4,4:
JJ.999:.2010......1730.L....WE(3).0..4,"
";:.1980......I.10..4," "I;:.1980..
...I.100..4," "I;:.1980.. ...4,I;.= ...
M.1.CA:.4,H(DC$,DD);:.4,AB$(M);:.4,H(DC$
,DD);.I F..:.4,"".S P..1850.. Z.DA.0:DB.
0:.M.1.CA:DA.DA.C(CA$(M)):DB.DB.DD(M):..
. ...DA.75.1590.. ...DB.75.1590.. ..DC..
((75.DA).CA.2)..!..DD..((75.DB).CA.2):DC
$."
".%!...4,G(14)KM$.2!
...4,G(15).Y! ..4," ";:.GH.1.CA:.4,H
(DC$,DD);..!*..4,H(CA$(GH)."
",DD(
GH));..!4..4,H(DC$,DD);:.:.4.U!>..F.1.79
:.4,".";:.:.4..!H....!R.TA.0:R$."".."\..
".....".TA)"..";.."F..A$:.A$."".A$.G(34)
.2150.-"P..A$.G(13)...H"Z..A$.G(20).TA.0
.TA.TA.1:R$.H(R$,C(R$).1):.".. .";:.2140
.."...F(A$).32.F(A$).128.F(A$).160.TA.39
.2140.."..TA.TA.1:.A$;:R$.R$.A$:.2140.P"
..Q.C(AB$(K)):.PL.Q.1..1.."...J(AB$(K),P
L,1)."-"...6#...PL.0.AB$(K).H("
",DD
(K)):..R#..AB$(K).H(AB$(K),PL).I("
",Q.PL):...#...".".8)".
.*** DISK DIRECTORY ***..":.1,8,0,"$":FO
.1..#J..#1,A$,B$.F#T..#1,A$,B$.T#...#1,A
$,B$..#..C.0..#...A$.."".C.F(A$)..$...B$
.."".C.C.F(B$).256.4$..."........"J(D(C)
,2).10);:.FO.0..".";.P$..FO.0:.#1,B$:.ST
..0.2400.D$...B$..G(34).2320..$$..#1,B$:
.B$..G(34)..B$;:.2340..$...#1,B$:.B$.G(3
2).2350..$8...27);:C$."".Q$B.C$.C$.B$:.#
1,B$:.B$.."".2370..$L.."."H(C$,3)..$V..S
T.0.2260..%`.." BLOCKS FREE": 1.)%J..532
80,6:.197,1:.53280,0:.440.Z%T..53280,6:.
"....".9)".*** DISK COMMANDS ***"..%~..
.12)"...A) DIRECTORY":..12)".B) DISK STA
TUS"..%....12)".C) FILE SCRATCH".Z%....1
2)".D) FILE RENAME":..12)".E) DISK FORMA
T"..&....12)".F) VALIDATE":..12)".G) MAI
N MENU'".$&...A$:.A$."A".A$."G".2460.T&.
..F(A$).64.2240,2480,2500,2530,2560,2610
,440..&...".".8)"..**** DISK STATUS ***
*":.15,8,15..&...15,A$,B$,C$,D$:."..".8)
A$B$C$D$: 15:.2410.Z&D..".".8)"..*** FI
LE SCRATCH ***.....'N.."ARE YOU SURE (Y
/N)";Y$:.Y$.."Y".440.?'X.."..FILE TO BE
SCRATCHED";SC$:.15,8,15,"S0:".SC$:.2490.
E'...".".9)"..*** FILE RENAME ***"..'
..."..FILE TO BE RENAMED";SC$:."..NEW FI
LE NAME";NF$.A'...15,8,15,"R0:".NF$."=".
SC$:.2490..'...".".9)"..**** DISK FORMA
T ****..."..(....13)"PRESS @ TO EXIT".F(
....10)"..INSERT NEW DISKETTE":..20)".&
.":..14)"PRESS RETURN".F(...A$:.A$..G(13
).A$.."@".2580.W(...A$."@".2420..(..."..
NEW DISK NAME":.".";SC$:.".ID NUMBER";ID
$..((..".......PLEASE WAIT!":.15,8,15,"N
0:".SC$.",".ID$:.2490..)2..".".9)"..***
DISK VALIDATE ***".G)<...11)"...INSERT
DISK TO BE":..10)".VALIDATED AND PRESS".
\)=...16)".RETURN !".|)F..A$:.A$..G(13).
A$.."@".2630..)K..A$."@".2420..)P.."....
................PLEASE WAIT !".N)Z..15,8
,15,"V0":.2490..*D..".".9)".???????. DEV
ICE .???????":..10)"..(1=TAPE) (2=FLOPP
Y)".T*N..".......................1/2 2.
..";S$:.S$.."1".S$.."2".2670.D*X..A$."L"
.220.T*...A$."K".340..*...".".8)"..*** I
NSERT RECORD ***".K*..."...........RECO
RD NUMBER";NR$:.NR$."@".440..+ .NR.E(NR$
):.NR.1.."........ ERROR !":.197,64:.197
,1:.198,0:.2700.M+...NR.Y.."........THER
E ISN'T THAT RECORD":.T.0.1000:.:.440..+
...T.Y.1.NR.1..1:A$(T).A$(T.1):.:I.NR:Y.
Y.1:A$(NR).""..+...T.1.CA:.TT.1.DD(T):A$
(NR).A$(NR)."-":.TT,T:.1270..+H..".".9)"
..*** CLEAR RECORDS ***".%,R..Y.0...9)"
...THERE ARE NO RECORDS !":.197,64:.197,
1:.198,0:.440.N,...".............ARE YOU
SURE? (Y/N)";.B,...A$:.A$."".2790.W,...
A$:.A$.."Y".440..,...".......WRITE THE R
ECORD TO BE CLEARED":."...........RECORD
";RC..,...RC.Y.."...............ERROR !"
:.197,64..,...RC.Y..197,1:.440.%-...I.RC
.Y:A$(I).A$(I.1):.:Y.Y.1:.440.;-"..I.1.1
5: I:.:.440..-,..36879,12:.".".9)".*****
*****************":..13)"..PRINTER MENU'
"..-1...9)".**********************"..-6.
.:.:..11)".A) USE THE PRINTER":..11)"..B
) SELECT OPTIONS...@...11)"..C) CHANGE F
ILENAME":..11)"..D) SET PAGE LENGTH".6.E
...11)"..E) MAIN MENU'.R.J..A$:.A$."A".A
$."E".2890.B.T..A$."E".440...^..A$."A"..
"........................PLEASE WAIT!":.
36879,15:.1420...H..A$."B".2980.H.R..A$.
"D".3500...|..36879,14:."...............
..NEW FILENAME."/....14)".........OLD FI
LENAME":.:.:.:.KM$.B/..."........RETURN
TO GET THE OLD FILENAME":.2130:.R$."".28
60.S/..KM$.R$:.2860../..."............":
.I.0.13:..11)" ":..Y
/..."..........................OPTIONS :
...0....9)"1).SELECT 1.&LAST REC.":..9)"
2).COMPUTE NUM. FIELDS".U0B...9)"3).REC.
NUMBER DISPLAY":..9)"4).SELECT PAGE FOR
MATT".W0C...9)"5).SELECT PRINTER SPACE".
.0L...9)"6) EXIT..0V..A$:.A$."1".A$."6".
3030.M0...E(A$).3050,3300,3130,3180,3240
,2860..0...Y.0.2860..1...".".9)"...*****
*****************.":..10)"INSERT 1 & LA
ST REC.A1....9)"..**********************
".J1..."...........................";WE(
0)..1..."..........1. REC. NUMBER";WE(0)
..1..."...........................";WE(1
)..1..."..........2. REC. NUMBER";WE(1).
.2&..WE(1).WE(0).WE(1).0.WE(0).Y.3100..2
0..".":.2860.N2:..".....................
............REC. DISPLAYING ";.O2D..J("O
N OFF",1.3.(WE(3).0),3)..2N..A$:.A$.G(13
).3230..2X..A$."".3150..2B.WE(3)..(WE(3)
.0):.3130..2L.."........................
.........PAGE FORMATTING ";..3V..J("ON O
FF",1.3.(WE(4).0),3).#3...A$:.A$.G(13).3
230.33...A$."".3200.N3..WE(4)..(WE(4).0)
:.3180..3..."......................
":.29
90.Y3..."...............................
.....N. SPACES"WE(5)"..";..3...A$:.A$."0
".A$."9".3250..4...A$:WE(5).E(A$):.I.0.5
00:.:.3230.24F.KO.KO.1:.KO.QL.11...P4P..
3490:KO.0:TY.TY.1:.GH.1.3:.4:.:.4,G(14).
17)"-"TY"-"G(15)..4Z..GH.1.8:.4:.:.2080:
...4...Y.0.2860..4..."...........COMPUTE
NUMERIC.FIELDS"..4..."...............FI
RST RECORD 1...";W0..5...".............
..............."Y.55...".............LAS
T RECORD ";W1.E5...".".9)"..***** COMPUT
ING *****....":.3410..5 ..CT.0...9)"NO
NUMERICAL FIELDS !":.197,1:.440..5*..P.1
.CA:.N$(P)."N"..".";.U54..".........."CA
$(P).21)VA(P)..5>....5H..:.36879,11:.197
,1:.440..6R.CT.0:.P.1.CA:.N$(P).."N"..:.
.@6\.CT..1:BE.1:.P1.1.P:BE.BE.DD(P1.1):.
..6F.VA(P).0:.P1.W0.W1:VA(P).VA(P).E(J(A
$(P1),BE,DD(P))):.P1,P:...6P..KO.1....6Z
..3490:.3490:.WE(4).0....6...KO.QL.9.348
0.N6..KO.KO.1:.4:.3460..7...4,G(14)"
-"TY.1"-":.I.0.6:.4:.:...7.
..GT.0.79:.4,".";:.:..B7...".".9)".== SE
T PAGE LENGHT =="..7....23)"..."QL:."..
..........PAGE LENGHT";QL:.QL.15.QL.500.
3500..7...2860..7 ..53280,5:.".".14)".SO
RT FILE".T7...".............PRESS @ TO E
XIT"..7...A$:.A$."".4002..7...A$."@".440
."8...".............RECORDS IN MEMORY :
"Y.V8...Y.0.."............THERE ARE NO R
ECODS !":.4220..8...".........BASING ON
WHICH FIELD (1/"CA".)";:.F:.F.CA.F.1.402
0.K8..I1.1:I2.Y:.".....FIRST AND LAST RE
CORD";I1,I2..9H.."........".7)"SORTING O
N FIELD "CA$(F):."...................REC
ORD : ".@9R.T1.1:.I.0.F.1:T1.T1.DD(I):.:
T2.DD(I).P9...PU.I1.I2:."...............
............."PU..9..BB$.J(A$(PU),T1,T2)
:.X.1.PU.1:.BB$.J(A$(X),T1,T2)..:.4100.W
9..D$.A$(PU):.Z.PU.X..1:A$(Z).A$(Z.1):..
.9..A$(X).D$..9...PU..9...4220..:...5328
0,8:.".".13)"LINK FILES".<:...".........
....PRESS @ TO EXIT".P:...A$:.A$."".4122
.`:...A$."@".440..:...Y.0.."............
THERE ARE NO RECODS !":.4220.S:"..".....
.......FLOPPY OR CASSETTE";A$:.A$.."F".A
$.."C".4130..:,.."...............FILE NA
ME";F$:...;6..157,128:.A$."C".4170.[;@..
15,8,15,"I0":.1,8,2,F$.",S,R":.15,A,B$,C
,D:."......."A;B$;C;D:.4175.O;J..1,1,0,F
$:.4180.~;O..A..0.4220..;T..:."........L
INKING."..;^..1,M$,M:.I.1.M:.1,H$,H,H$:.
:.1,Y1.Y;H..I.Y.1.Y.Y1:.1,A$(I):...<R.Y.
Y.Y1: 1:.A$."F"..15,A,B$,C,D:..7)A;B$;C;
D: 15.0<|.."...............PRESS RETURN"
.H<...A$:.A$..G(13).4230.Q<...440.......
> CLICK IMAGE PREVIEW FOR FULL MODAL