FORM WRITER 64
FILE INFORMATION
FILENAME(S): FORM WRITER 64
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-12-01 02:03:31
APPEARS ON: 1 disk(s)
FILE HASH
112eb22fcf75126e6e1d7a0cba315b03c82bccea14797bfb5e2022bd04f72e8b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DANIEL | FORM WRITER 64 | PRG | hedning, pewp | 19 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 2E 1C 14 00 97 35 33 32 38 31 2C 31 3A 97 |.......53281,1:.|
00000010: 35 33 32 38 30 2C 31 3A 8B C2 28 37 38 37 29 B2 |53280,1:..(787).|
00000020: 31 32 33 A7 8D 31 32 35 30 3A 89 36 31 30 00 58 |123..1250:.610.X|
00000030: 1C 1E 00 8B C2 28 37 38 37 29 B2 32 33 34 A7 97 |.....(787).234..|
00000040: 37 38 37 2C 31 32 33 3A 43 36 B2 C2 28 31 30 32 |787,123:C6..(102|
00000050: 33 29 3A 89 31 39 38 30 00 7D 1C 28 00 97 31 30 |3):.1980.}.(..10|
00000060: 32 33 2C 43 36 3A 8B 28 43 36 B2 30 29 A7 97 35 |23,C6:.(C6.0)..5|
00000070: 35 2C 30 3A 97 35 36 2C 31 35 34 3A 9C 00 87 1C |5,0:.56,154:....|
00000080: 32 00 89 31 31 38 30 00 A6 1C 3C 00 83 20 37 32 |2..1180...<.. 72|
00000090: 2C 36 39 2C 37 36 2C 37 36 2C 37 39 2C 30 2C 30 |,69,76,76,79,0,0|
000000A0: 2C 30 2C 30 2C 30 00 C7 1C 46 00 8C 3A 81 58 B2 |,0,0,0...F..:.X.|
000000B0: 30 A4 39 3A 87 41 3A 97 28 4D 4C AA 32 35 AA 58 |0.9:.A:.(ML.25.X|
000000C0: 29 2C 41 3A 82 3A 8E 00 EF 1C 50 00 58 B2 C2 28 |),A:.:....P.X..(|
000000D0: 35 33 32 38 31 29 3A 97 35 33 32 38 31 2C 30 3A |53281):.53281,0:|
000000E0: 99 22 93 22 3A 97 35 33 32 38 31 2C 58 3A 8E 00 |.".":.53281,X:..|
000000F0: 11 1D 5A 00 99 3A 99 22 11 48 49 54 20 41 4E 59 |..Z..:.".HIT ANY|
00000100: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000110: 22 00 24 1D 64 00 A1 41 24 3A 8B 41 24 B2 22 22 |".$.d..A$:.A$.""|
00000120: A7 31 30 30 00 2A 1D 6E 00 8E 00 60 1D 78 00 99 |.100.*.n...`.x..|
00000130: 22 93 9F 22 AA C7 28 31 34 32 29 22 20 20 20 20 |".."..(142)" |
00000140: D5 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 |................|
00000150: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 |................|
00000160: 00 8D 1D 82 00 99 22 20 20 20 20 DD 20 20 20 20 |......" . |
00000170: 20 20 20 20 DD 20 1F B0 C0 C0 C0 C0 C0 C0 C0 C0 | . ..........|
00000180: C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 9F 20 DD 00 BE 1D |........... ....|
00000190: 8C 00 99 22 20 20 20 20 DD 20 20 20 20 20 20 20 |..." . |
000001A0: 20 DD 1F B0 BD 1C 12 20 20 20 20 20 20 20 20 20 | ...... |
000001B0: 20 20 20 20 20 20 20 20 92 1F AD AE 9F DD 00 EF | ........|
000001C0: 1D 96 00 99 22 20 20 20 20 DD 20 20 20 20 20 20 |...." . |
000001D0: 20 20 DD 1F DD 1C 12 20 20 20 20 20 20 20 20 20 | ..... |
000001E0: 20 20 20 20 20 20 20 20 20 20 92 1F DD 9F DD 00 | ......|
000001F0: 20 1E A0 00 99 22 20 20 20 20 DD 20 20 20 20 20 | ...." . |
00000200: 20 20 20 DD 1F AD AE 1C 12 20 20 20 20 20 20 20 | ...... |
00000210: 20 20 20 20 20 20 20 20 20 20 92 1F B0 BD 9F DD | ......|
00000220: 00 4D 1E AA 00 99 22 20 20 20 20 DD 20 20 20 20 |.M...." . |
00000230: 20 20 20 20 DD 20 1F AD C0 C0 C0 C0 C0 C0 C0 C0 | . ..........|
00000240: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 9F 20 DD 00 7C 1E |........... ..|.|
00000250: B4 00 99 22 20 20 20 20 CA C0 C0 C0 C0 C0 C0 C0 |..." ........|
00000260: C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000270: C0 C0 C0 C0 C0 C0 C0 CB 90 22 3A 8E 00 87 1E BE |.........":.....|
00000280: 00 49 4E 24 B2 22 22 00 B6 1E C8 00 99 22 A2 9D |.IN$.""......"..|
00000290: 22 3B 3A 8D 31 30 30 3A 41 B2 C6 28 41 24 29 3A |";:.100:A..(A$):|
000002A0: 42 B2 C3 28 49 4E 24 29 3A 8B 41 B2 31 33 A7 99 |B..(IN$):.A.13..|
000002B0: 22 20 9D 22 3A 8E 00 DF 1E D2 00 8B 41 B2 32 30 |" .":.......A.20|
000002C0: A7 8B 42 A7 99 22 20 9D 9D 22 3B 3A 49 4E 24 B2 |..B.." ..";:IN$.|
000002D0: C8 28 49 4E 24 2C 42 AB 31 29 3A 89 32 30 30 00 |.(IN$,B.1):.200.|
000002E0: FB 1E DC 00 8B 28 41 20 AF 31 32 37 29 B3 33 32 |.....(A .127).32|
000002F0: B0 28 42 B1 49 4C 29 A7 32 30 30 00 14 1F E6 00 |.(B.IL).200.....|
00000300: 99 41 24 3B 3A 49 4E 24 B2 49 4E 24 AA 41 24 3A |.A$;:IN$.IN$.A$:|
00000310: 89 32 30 30 00 25 1F F0 00 8B 44 55 25 B3 37 A7 |.200.%....DU%.7.|
00000320: 44 55 25 B2 38 00 38 1F FA 00 A0 31 35 3A 9F 31 |DU%.8.8....15:.1|
00000330: 35 2C 44 55 25 2C 31 35 00 60 1F 04 01 8B 28 43 |5,DU%,15.`....(C|
00000340: 36 29 A7 FE 02 30 3A 8D 32 37 30 3A FE 02 31 35 |6)...0:.270:..15|
00000350: 3A 8E 3A 8F 20 43 2D 31 32 38 20 4F 4E 4C 59 21 |:.:. C-128 ONLY!|
00000360: 00 75 1F 0E 01 51 58 25 B2 C2 28 53 43 AA 31 30 |.u...QX%..(SC.10|
00000370: 32 33 29 3A 8E 00 88 1F 18 01 8D 33 30 30 3A 8B |23):.......300:.|
00000380: 28 45 30 29 A7 34 31 30 00 8E 1F 22 01 8E 00 A5 |(E0).410..."....|
00000390: 1F 2C 01 84 31 35 2C 45 30 2C 45 31 24 2C 45 32 |.,..15,E0,E1$,E2|
000003A0: 2C 45 33 3A 8E 00 C7 1F 36 01 48 49 B2 B5 28 51 |,E3:....6.HI..(Q|
000003B0: 52 AD 32 35 36 29 3A 4C 4F B2 51 52 AB 28 48 49 |R.256):LO.QR.(HI|
000003C0: AC 32 35 36 29 3A 8E 00 DD 1F 40 01 97 32 35 35 |.256):....@..255|
000003D0: 2C 46 46 3A 8B 28 43 36 29 A7 33 34 30 00 F1 1F |,FF:.(C6).340...|
000003E0: 4A 01 41 24 B2 49 4E 24 3A 9E 34 39 31 35 38 3A |J.A$.IN$:.49158:|
000003F0: 8E 00 1D 20 54 01 51 52 B2 CE 0A 28 49 4E 24 29 |... T.QR...(IN$)|
00000400: 3A 8D 33 31 30 3A 97 32 35 34 2C 48 49 3A 97 32 |:.310:.254,HI:.2|
00000410: 35 33 2C 4C 4F 3A 9E 34 38 37 30 3A 8E 00 2A 20 |53,LO:.4870:..* |
00000420: 5E 01 97 32 35 35 2C 44 55 25 00 41 20 68 01 41 |^..255,DU%.A h.A|
00000430: 24 B2 49 4E 24 3A 9E 34 39 31 37 30 3A 89 32 38 |$.IN$:.49170:.28|
00000440: 30 00 56 20 72 01 99 22 93 11 11 46 49 4C 45 4E |0.V r.."...FILEN|
00000450: 41 4D 45 3A 22 3B 00 74 20 7C 01 49 4C B2 31 36 |AME:";.t |.IL.16|
00000460: 3A 8D 31 39 30 3A 8B 49 4E 24 B2 22 22 A7 45 30 |:.190:.IN$."".E0|
00000470: B2 31 3A 8E 00 8C 20 86 01 8B 49 4E 24 B2 22 24 |.1:... ...IN$."$|
00000480: 22 A7 8D 31 37 32 30 3A 89 33 37 30 00 AC 20 90 |"..1720:.370.. .|
00000490: 01 9F 38 2C 44 55 25 2C 38 2C 49 4E 24 AA 22 2C |..8,DU%,8,IN$.",|
000004A0: 53 2C 22 AA 54 46 24 3A 89 32 38 30 00 EB 20 9A |S,".TF$:.280.. .|
000004B0: 01 99 4A 24 22 44 49 53 4B 20 45 52 52 4F 52 3A |..J$"DISK ERROR:|
000004C0: 20 22 AA C4 28 45 30 29 AA 22 2C 20 22 AA 45 31 | "..(E0).", ".E1|
000004D0: 24 AA 22 2C 20 22 AA C4 28 45 32 29 AA 22 2C 20 |$.", "..(E2).", |
000004E0: 22 AA C4 28 45 33 29 3A 89 39 30 00 F5 20 A4 01 |"..(E3):.90.. ..|
000004F0: 8D 20 34 34 30 00 37 21 AE 01 41 B2 4E 46 25 AA |. 440.7!..A.NF%.|
00000500: 31 3A 86 20 46 46 24 28 41 29 2C 4E 46 24 28 41 |1:. FF$(A),NF$(A|
00000510: 29 2C 46 54 25 28 41 29 2C 46 4C 25 28 41 29 2C |),FT%(A),FL%(A),|
00000520: 4E 50 25 28 41 29 2C 46 43 24 28 35 31 29 2C 51 |NP%(A),FC$(51),Q|
00000530: 24 28 35 31 29 3A 8E 00 57 21 B8 01 8B 28 43 36 |$(51):..W!...(C6|
00000540: 29 A7 97 35 31 2C C2 28 34 39 29 3A 97 35 32 2C |)..51,.(49):.52,|
00000550: C2 28 35 30 29 3A 8E 00 71 21 C2 01 97 34 39 2C |.(50):..q!...49,|
00000560: C2 28 34 37 29 3A 97 35 30 2C C2 28 34 38 29 3A |.(47):.50,.(48):|
00000570: 8E 00 7A 21 CC 01 8D 35 37 30 00 AA 21 D6 01 81 |..z!...570..!...|
00000580: 58 B2 31 A4 4E 50 25 3A 59 B2 4E 50 25 28 58 29 |X.1.NP%:Y.NP%(X)|
00000590: 3A 99 20 4E 46 24 28 59 29 AA 22 20 3A 22 AA 46 |:. NF$(Y)." :".F|
000005A0: 46 24 28 59 29 3A 82 58 3A 8E 00 C5 21 E0 01 54 |F$(Y):.X:...!..T|
000005B0: 46 24 B2 22 52 22 3A 8D 35 35 30 3A 8B 28 45 30 |F$."R":.550:.(E0|
000005C0: 29 A7 35 34 30 00 F2 21 EA 01 99 3A 8D 34 36 30 |).540..!...:.460|
000005D0: 3A A0 38 3A 85 22 11 11 1C 49 53 20 54 48 49 53 |:.8:."...IS THIS|
000005E0: 20 49 54 3F 90 20 4E 20 9D 9D 9D 9D 22 3B 41 24 | IT?. N ....";A$|
000005F0: 3A 8E 00 26 22 F4 01 A0 38 3A 9F 38 2C 44 55 25 |:..&"...8:.8,DU%|
00000600: 2C 38 2C 22 2F 22 AA 44 42 24 AA 22 2C 53 2C 52 |,8,"/".DB$.",S,R|
00000610: 22 3A 8D 32 38 30 3A 8B 45 30 A7 44 42 24 B2 22 |":.280:.E0.DB$."|
00000620: 22 3A 89 35 34 30 00 3D 22 FE 01 84 38 2C 4E 46 |":.540.="...8,NF|
00000630: 25 3A 84 38 2C 4E 50 25 3A 8D 34 33 30 00 72 22 |%:.8,NP%:.430.r"|
00000640: 08 02 81 58 B2 30 A4 4E 46 25 3A 84 38 2C 4E 46 |...X.0.NF%:.8,NF|
00000650: 24 28 58 29 3A 84 38 2C 46 54 25 28 58 29 3A 84 |$(X):.8,FT%(X):.|
00000660: 38 2C 46 4C 25 28 58 29 3A 84 38 2C 4E 50 25 28 |8,FL%(X):.8,NP%(|
00000670: 58 29 00 79 22 12 02 82 58 00 82 22 1C 02 A0 38 |X).y"...X.."...8|
00000680: 3A 8E 00 A5 22 26 02 99 22 93 0E 11 11 1C 44 4F |:..."&..".....DO|
00000690: 43 55 4D 45 4E 54 20 4E 41 4D 45 3A 20 90 22 3B |CUMENT NAME: .";|
000006A0: 3A 89 33 38 30 00 D0 22 30 02 81 58 B2 31 A4 4E |:.380.."0..X.1.N|
000006B0: 50 25 3A 59 B2 4E 50 25 28 58 29 3A 98 38 2C C7 |P%:Y.NP%(X):.8,.|
000006C0: 28 33 34 29 AA 46 46 24 28 59 29 3A 82 58 3A 8E |(34).FF$(Y):.X:.|
000006D0: 00 F5 22 3A 02 81 58 B2 31 A4 4E 50 25 3A 59 B2 |..":..X.1.NP%:Y.|
000006E0: 4E 50 25 28 58 29 3A 84 38 2C 46 46 24 28 59 29 |NP%(X):.8,FF$(Y)|
000006F0: 3A 82 58 3A 8E 00 24 23 44 02 FE 11 28 49 4E 24 |:.X:..$#D...(IN$|
00000700: 29 2C 42 30 2C 55 28 44 55 25 29 2C 50 33 39 39 |),B0,U(DU%),P399|
00000710: 33 36 3A FE 02 31 35 3A 8F 20 43 2D 31 32 38 20 |36:..15:. C-128 |
00000720: 4F 4E 4C 59 00 4D 23 4E 02 9E 28 4D 4C AA 31 35 |ONLY.M#N..(ML.15|
00000730: 29 3A 4E 46 25 B2 C2 28 32 35 35 29 3A 8B 28 4E |):NF%..(255):.(N|
00000740: 46 25 29 A7 4E 46 25 B2 4E 46 25 AB 31 00 53 23 |F%).NF%.NF%.1.S#|
00000750: 58 02 8E 00 8C 23 62 02 50 24 B2 C7 28 31 33 29 |X....#b.P$..(13)|
00000760: AA 22 20 20 20 20 20 20 20 20 22 3A 8D 32 34 30 |." ":.240|
00000770: 3A 8D 31 32 30 3A 99 22 13 22 3A 99 22 20 20 20 |:.120:.".":." |
00000780: 20 1D 12 20 20 46 4F 52 4D 20 20 92 00 A2 23 6C | .. FORM ...#l|
00000790: 02 99 22 20 20 20 20 1D 12 20 57 52 49 54 45 52 |.." .. WRITER|
000007A0: 20 92 00 CB 23 76 02 99 22 20 20 20 20 1D 12 20 | ...#v.." .. |
000007B0: 20 20 20 20 20 20 20 92 1D 1D 1D 1C 12 20 20 20 | ...... |
000007C0: 20 4D 41 49 4E 20 4D 45 4E 55 90 00 E1 23 80 02 | MAIN MENU...#..|
000007D0: 99 22 20 20 20 20 1D 12 20 20 20 42 59 20 20 20 |." .. BY |
000007E0: 92 00 FA 23 8A 02 99 22 20 20 20 20 1D 12 54 2E |...#..." ..T.|
000007F0: 20 42 52 4F 57 4E 92 11 11 22 00 30 24 94 02 99 | BROWN...".0$...|
00000800: 50 24 22 3C 20 31 20 3E 20 20 3D 20 20 46 4F 52 |P$"< 1 > = FOR|
00000810: 4D 20 45 44 49 54 4F 52 22 50 24 22 11 3C 20 32 |M EDITOR"P$".< 2|
00000820: 20 3E 20 20 3D 20 20 44 41 54 41 20 42 41 53 45 | > = DATA BASE|
00000830: 00 63 24 9E 02 99 50 24 22 3C 20 33 20 3E 20 20 |.c$...P$"< 3 > |
00000840: 3D 20 20 50 52 49 4E 54 45 52 22 50 24 22 11 3C |= PRINTER"P$".<|
00000850: 20 34 20 3E 20 20 3D 20 20 44 49 53 4B 20 44 52 | 4 > = DISK DR|
00000860: 49 56 45 00 8C 24 A8 02 46 46 B2 30 3A 8D 31 30 |IVE..$..FF.0:.10|
00000870: 30 3A 91 28 C5 28 41 24 29 29 20 89 39 35 30 2C |0:.(.(A$)) .950,|
00000880: 31 30 34 30 2C 37 31 30 2C 38 36 30 00 95 24 B2 |1040,710,860..$.|
00000890: 02 89 36 31 30 00 9B 24 BC 02 90 00 BB 24 C6 02 |..610..$.....$..|
000008A0: 8D 31 32 30 3A 99 22 13 22 3A 99 22 20 20 20 20 |.120:.".":." |
000008B0: 1D 12 20 20 20 20 20 20 20 20 92 00 D3 24 D0 02 |.. ...$..|
000008C0: 99 22 20 20 20 20 1D 12 20 92 3A 20 20 20 20 3A |." .. .: :|
000008D0: 12 20 92 00 00 25 DA 02 99 22 20 20 20 20 1D 12 |. ...%..." ..|
000008E0: 20 92 3A 20 20 20 20 3A 12 20 92 1D 1D 1D 1C 12 | .: :. ......|
000008F0: 20 20 50 52 49 4E 54 45 52 20 20 4D 45 4E 55 90 | PRINTER MENU.|
00000900: 00 18 25 E4 02 99 22 20 20 20 20 1D 12 AB 92 B9 |..%..." .....|
00000910: B9 B9 B9 B9 B9 12 B3 92 00 31 25 EE 02 99 22 20 |.........1%..." |
00000920: 20 20 20 1D 12 AD C0 C0 C0 C0 C0 C0 BD 92 11 11 | .............|
00000930: 22 00 41 25 F8 02 8B 44 42 24 B2 22 22 A7 38 34 |".A%...DB$."".84|
00000940: 30 00 5B 25 02 03 8D 32 36 30 3A 8B 28 51 58 25 |0.[%...260:.(QX%|
00000950: B3 B1 31 32 33 29 A7 31 39 30 30 00 79 25 0C 03 |..123).1900.y%..|
00000960: 99 22 11 1C 43 55 52 52 45 4E 54 20 44 42 41 53 |."..CURRENT DBAS|
00000970: 45 3A 20 9C 22 AA 44 42 24 00 BB 25 16 03 99 50 |E: .".DB$..%...P|
00000980: 24 22 9D 9D 90 3C 20 31 20 3E 20 20 3D 20 20 43 |$"...< 1 > = C|
00000990: 48 41 4E 47 45 20 44 41 54 41 20 42 41 53 45 22 |HANGE DATA BASE"|
000009A0: 50 24 22 11 9D 9D 3C 20 32 20 3E 20 20 3D 20 20 |P$"...< 2 > = |
000009B0: 4C 4F 41 44 20 41 20 46 4F 52 4D 00 06 26 20 03 |LOAD A FORM..& .|
000009C0: 99 50 24 22 9D 9D 3C 20 33 20 3E 20 20 3D 20 20 |.P$"..< 3 > = |
000009D0: 46 49 4C 4C 20 46 52 4F 4D 20 44 41 54 41 20 42 |FILL FROM DATA B|
000009E0: 41 53 45 22 50 24 22 11 9D 9D 3C 20 34 20 3E 20 |ASE"P$"...< 4 > |
000009F0: 20 3D 20 20 46 49 4C 4C 20 46 52 4F 4D 20 4B 45 | = FILL FROM KE|
00000A00: 59 42 4F 41 52 44 00 4F 26 2A 03 99 50 24 22 9D |YBOARD.O&*..P$".|
00000A10: 9D 3C 20 35 20 3E 20 20 3D 20 20 50 52 49 4E 54 |.< 5 > = PRINT|
00000A20: 20 41 20 42 4C 41 4E 4B 20 46 4F 52 4D 22 50 24 | A BLANK FORM"P$|
00000A30: 22 11 9D 9D 3C 20 36 20 3E 20 20 3D 20 20 53 45 |"...< 6 > = SE|
00000A40: 54 20 50 52 49 4E 54 45 52 20 43 4F 44 45 53 00 |T PRINTER CODES.|
00000A50: 80 26 34 03 8D 31 30 30 3A 91 28 C5 28 41 24 29 |.&4..100:.(.(A$)|
00000A60: 29 20 89 31 32 37 30 2C 31 39 30 30 2C 31 32 38 |) .1270,1900,128|
00000A70: 30 2C 31 33 31 30 2C 31 33 32 30 2C 31 33 33 30 |0,1310,1320,1330|
00000A80: 00 89 26 3E 03 89 36 31 30 00 9F 26 48 03 8D 32 |..&>..610..&H..2|
00000A90: 33 35 30 3A 8B 44 42 24 B2 22 22 A7 36 31 30 00 |350:.DB$."".610.|
00000AA0: A8 26 52 03 89 37 31 30 00 C8 26 5C 03 8D 31 32 |.&R..710..&\..12|
00000AB0: 30 3A 99 22 13 22 3A 99 22 20 20 20 20 1D 12 20 |0:.".":." .. |
00000AC0: 20 20 20 20 20 20 AC 92 00 DE 26 66 03 99 22 20 | ....&f.." |
00000AD0: 20 20 20 1D 12 20 20 20 D5 C9 20 20 20 92 00 0D | .. .. ...|
00000AE0: 27 70 03 99 22 20 20 20 20 1D 12 20 20 20 CA CB |'p.." .. ..|
00000AF0: 20 20 20 92 1D 1D 1C 12 20 20 44 49 53 4B 20 44 | ..... DISK D|
00000B00: 52 49 56 45 20 4D 45 4E 55 20 20 92 90 00 25 27 |RIVE MENU ...%'|
00000B10: 7A 03 99 22 20 20 20 20 1D 12 20 20 20 92 A1 12 |z.." .. ...|
00000B20: A1 20 20 20 92 00 3E 27 84 03 99 22 20 20 20 20 |. ..>'..." |
00000B30: 1D 12 20 20 20 BC BE 20 20 20 92 11 11 22 00 77 |.. .. ...".w|
00000B40: 27 8E 03 99 50 24 22 3C 20 31 20 3E 20 20 3D 20 |'...P$"< 1 > = |
00000B50: 20 44 49 52 45 43 54 4F 52 59 20 22 50 24 22 11 | DIRECTORY "P$".|
00000B60: 3C 20 32 20 3E 20 20 3D 20 20 44 4F 53 20 43 4F |< 2 > = DOS CO|
00000B70: 4D 4D 41 4E 44 53 22 00 98 27 98 03 99 50 24 22 |MMANDS"..'...P$"|
00000B80: 3C 20 33 20 3E 20 20 3D 20 20 45 52 52 4F 52 20 |< 3 > = ERROR |
00000B90: 43 48 41 4E 4E 45 4C 22 00 BA 27 A2 03 8D 31 30 |CHANNEL"..'...10|
00000BA0: 30 3A 91 28 C5 28 41 24 29 29 20 89 31 37 31 30 |0:.(.(A$)) .1710|
00000BB0: 2C 31 37 35 30 2C 31 37 38 30 00 C3 27 AC 03 89 |,1750,1780..'...|
00000BC0: 36 31 30 00 E3 27 B6 03 8D 31 32 30 3A 99 22 13 |610..'...120:.".|
00000BD0: 22 3A 99 22 20 20 20 20 1D 12 20 B0 C0 C0 C0 AE |":." .. .....|
00000BE0: 20 20 92 00 F9 27 C0 03 99 22 20 20 20 20 1D 12 | ...'..." ..|
00000BF0: 20 DD 20 20 20 AB AE 20 92 00 29 28 CA 03 99 22 | . .. ..)(..."|
00000C00: 20 20 20 20 1D 12 20 DD 20 20 20 DD DD 20 92 1D | .. . .. ..|
00000C10: 1D 1C 12 20 46 4F 52 4D 2F 46 49 45 4C 44 20 45 |... FORM/FIELD E|
00000C20: 44 49 54 4F 52 20 92 90 22 00 3F 28 D4 03 99 22 |DITOR ..".?(..."|
00000C30: 20 20 20 20 1D 12 20 AD B2 C0 C0 BD DD 20 92 00 | .. ...... ..|
00000C40: 58 28 DE 03 99 22 20 20 20 20 1D 12 20 20 AD C0 |X(..." .. ..|
00000C50: C0 C0 BD 20 92 11 11 22 00 97 28 E8 03 99 50 24 |... ..."..(...P$|
00000C60: 22 3C 20 31 20 3E 20 20 3D 20 20 43 52 45 41 54 |"< 1 > = CREAT|
00000C70: 45 20 4E 45 57 20 46 4F 52 4D 22 50 24 22 11 3C |E NEW FORM"P$".<|
00000C80: 20 32 20 3E 20 20 3D 20 20 45 44 49 54 20 4F 4C | 2 > = EDIT OL|
00000C90: 44 20 46 4F 52 4D 22 00 D0 28 F2 03 99 50 24 22 |D FORM"..(...P$"|
00000CA0: 3C 20 33 20 3E 20 20 3D 20 20 4C 4F 41 44 20 41 |< 3 > = LOAD A|
00000CB0: 20 46 4F 52 4D 22 50 24 22 11 3C 20 34 20 3E 20 | FORM"P$".< 4 > |
00000CC0: 20 3D 20 20 53 41 56 45 20 41 20 46 4F 52 4D 22 | = SAVE A FORM"|
00000CD0: 00 FC 28 FC 03 46 4C B2 31 3A 8D 31 30 30 3A 91 |..(..FL.1:.100:.|
00000CE0: 28 C5 28 41 24 29 29 20 89 31 38 30 30 2C 31 38 |(.(A$)) .1800,18|
00000CF0: 31 30 2C 31 39 32 30 2C 31 38 37 30 00 05 29 06 |10,1920,1870..).|
00000D00: 04 89 36 31 30 00 25 29 10 04 8D 31 32 30 3A 99 |..610.%)...120:.|
00000D10: 22 13 22 3A 99 22 20 20 20 20 1D 12 B0 C0 AE 20 |".":." ..... |
00000D20: 20 20 20 20 92 00 3B 29 1A 04 99 22 20 20 20 20 | ..;)..." |
00000D30: 1D 12 DD 20 AB AE 20 B0 C0 AE 92 00 6A 29 24 04 |... .. .....j)$.|
00000D40: 99 22 20 20 20 20 1D 12 AD B2 BD DD 5F DD D7 DD |." ......_...|
00000D50: 92 1D 1D 1C 12 20 20 20 44 41 54 41 20 42 41 53 |..... DATA BAS|
00000D60: 45 20 4D 45 4E 55 20 20 92 90 00 80 29 2E 04 99 |E MENU ....)...|
00000D70: 22 20 20 20 20 1D 12 20 AD C0 BD 20 AD B1 BD 92 |" .. ... ....|
00000D80: 00 98 29 38 04 99 22 20 20 20 20 1D 12 20 20 20 |..)8.." .. |
00000D90: 20 20 20 20 20 92 11 11 00 A9 29 42 04 8B 44 42 | .....)B..DB|
00000DA0: 24 B2 22 22 A7 31 31 36 30 00 C7 29 4C 04 99 22 |$."".1160..)L.."|
00000DB0: 11 1C 43 55 52 52 45 4E 54 20 44 42 41 53 45 3A |..CURRENT DBASE:|
00000DC0: 20 9C 22 AA 44 42 24 00 08 2A 56 04 99 50 24 22 | .".DB$..*V..P$"|
00000DD0: 90 11 3C 20 31 20 3E 20 20 3D 20 20 4F 50 45 4E |..< 1 > = OPEN|
00000DE0: 20 41 20 44 41 54 41 20 42 41 53 45 22 50 24 22 | A DATA BASE"P$"|
00000DF0: 11 3C 20 32 20 3E 20 20 3D 20 20 41 44 44 20 41 |.< 2 > = ADD A|
00000E00: 20 52 45 43 4F 52 44 22 00 49 2A 60 04 99 50 24 | RECORD".I*`..P$|
00000E10: 22 3C 20 33 20 3E 20 20 3D 20 20 44 45 4C 45 54 |"< 3 > = DELET|
00000E20: 45 20 41 20 52 45 43 4F 52 44 22 50 24 22 11 3C |E A RECORD"P$".<|
00000E30: 20 34 20 3E 20 20 3D 20 20 43 48 41 4E 47 45 20 | 4 > = CHANGE |
00000E40: 41 20 52 45 43 4F 52 44 22 00 6A 2A 6A 04 99 50 |A RECORD".j*j..P|
00000E50: 24 22 3C 20 35 20 3E 20 20 3D 20 20 56 49 45 57 |$"< 5 > = VIEW|
00000E60: 20 41 20 52 45 43 4F 52 44 22 00 96 2A 74 04 8D | A RECORD"..*t..|
00000E70: 31 30 30 3A 91 28 C5 28 41 24 29 29 20 89 32 33 |100:.(.(A$)) .23|
00000E80: 34 30 2C 32 33 39 30 2C 32 34 31 30 2C 32 34 33 |40,2390,2410,243|
00000E90: 30 2C 32 34 37 30 00 9F 2A 7E 04 89 36 31 30 00 |0,2470..*~..610.|
00000EA0: B5 2A 88 04 8D 32 33 35 30 3A 8B 44 42 24 B2 22 |.*...2350:.DB$."|
00000EB0: 22 A7 36 31 30 00 BF 2A 92 04 89 31 30 34 30 00 |".610..*...1040.|
00000EC0: DF 2A 9C 04 49 4C B2 32 3A 99 22 93 90 11 11 4D |.*..IL.2:."....M|
00000ED0: 4F 4E 54 48 20 28 31 2D 31 32 29 3A 20 22 3B 00 |ONTH (1-12): ";.|
00000EE0: 03 2B A6 04 8D 31 39 30 3A 4D 4F B2 C5 28 49 4E |.+...190:MO..(IN|
00000EF0: 24 29 3A 8B 4D 4F B3 31 B0 4D 4F B1 31 32 A7 4D |$):.MO.1.MO.12.M|
00000F00: 4F B2 31 00 3A 2B B0 04 99 22 11 11 44 41 59 20 |O.1.:+..."..DAY |
00000F10: 28 31 2D 33 31 29 3A 20 22 3B 3A 8D 31 39 30 3A |(1-31): ";:.190:|
00000F20: 44 41 B2 C5 28 49 4E 24 29 3A 8B 44 41 B3 31 B0 |DA..(IN$):.DA.1.|
00000F30: 44 41 B1 33 31 A7 44 41 B2 31 00 5B 2B BA 04 97 |DA.31.DA.1.[+...|
00000F40: 31 30 32 31 2C 4D 4F 3A 97 31 30 32 32 2C 44 41 |1021,MO:.1022,DA|
00000F50: 3A 44 55 25 B2 C2 28 31 38 36 29 00 68 2B C4 04 |:DU%..(186).h+..|
00000F60: 97 37 38 37 2C 31 32 33 00 A0 2B CE 04 8B 28 43 |.787,123..+...(C|
00000F70: 36 29 A7 FE 11 22 45 44 49 54 4F 52 2E 31 32 38 |6)..."EDITOR.128|
00000F80: 20 4D 4C 22 2C 55 28 44 55 25 29 3A FE 02 31 35 | ML",U(DU%):..15|
00000F90: 3A 89 32 30 3A 8F 20 43 31 32 38 20 4F 4E 4C 59 |:.20:. C128 ONLY|
00000FA0: 00 BA 2B D8 04 93 22 45 44 49 54 4F 52 2E 36 34 |..+..."EDITOR.64|
00000FB0: 20 4D 4C 22 2C 44 55 25 2C 31 00 F4 2B E2 04 44 | ML",DU%,1..+..D|
00000FC0: 55 25 B2 C2 28 31 38 36 29 3A 4D 4C B2 34 39 31 |U%..(186):ML.491|
00000FD0: 35 32 3A 53 43 B2 33 39 39 33 36 3A 43 36 B2 C2 |52:SC.39936:C6..|
00000FE0: 28 31 30 32 33 29 3A 8B 28 43 36 29 A7 4D 4C B2 |(1023):.(C6).ML.|
00000FF0: 34 38 36 34 00 2A 2C EC 04 4D 4F B2 C2 28 31 30 |4864.*,..MO..(10|
00001000: 32 31 29 3A 44 41 B2 C2 28 31 30 32 32 29 3A 50 |21):DA..(1022):P|
00001010: 44 B2 34 3A 50 53 B2 37 3A 50 54 B2 35 3A 4A 24 |D.4:PS.7:PT.5:J$|
00001020: B2 C7 28 31 33 29 3A 89 36 30 00 39 2C F6 04 8D |..(13):.60.9,...|
00001030: 32 33 35 30 3A 89 37 31 30 00 57 2C 00 05 8D 34 |2350:.710.W,...4|
00001040: 38 30 3A 8B 28 45 30 29 B0 28 41 24 B3 B1 22 59 |80:.(E0).(A$.."Y|
00001050: 22 29 A7 31 33 30 30 00 6D 2C 0A 05 8D 32 34 39 |").1300.m,...249|
00001060: 30 3A 8D 32 36 35 30 3A 89 32 36 39 30 00 79 2C |0:.2650:.2690.y,|
00001070: 14 05 A0 38 3A 89 37 31 30 00 AA 2C 1E 05 99 22 |...8:.710..,..."|
00001080: 93 0E 12 46 49 4C 4C 20 4F 55 54 20 46 4F 52 4D |...FILL OUT FORM|
00001090: 3A 22 3A 8D 32 32 38 30 3A 8D 32 34 39 30 3A 8D |:":.2280:.2490:.|
000010A0: 32 36 35 30 3A 89 32 36 39 30 00 D2 2C 28 05 99 |2650:.2690..,(..|
000010B0: 22 93 0E 50 52 49 4E 54 20 41 20 42 4C 41 4E 4B |"..PRINT A BLANK|
000010C0: 20 46 4F 52 4D 22 3A 8D 32 36 33 30 3A 89 32 36 | FORM":.2630:.26|
000010D0: 39 30 00 F3 2C 32 05 8D 31 32 30 3A 99 22 13 1E |90..,2..120:."..|
000010E0: 22 3A 99 22 20 20 20 20 1D 12 20 20 20 20 20 20 |":." .. |
000010F0: 20 20 92 00 0B 2D 3C 05 99 22 20 20 20 20 1D 12 | ...-<.." ..|
00001100: 20 92 3A 20 20 20 20 3A 12 20 92 00 38 2D 46 05 | .: :. ..8-F.|
00001110: 99 22 20 20 20 20 1D 12 20 92 3A 20 20 20 20 3A |." .. .: :|
00001120: 12 20 92 1D 1D 1D 1C 12 20 20 20 53 45 54 20 50 |. ...... SET P|
00001130: 52 49 4E 54 45 52 20 1E 00 50 2D 50 05 99 22 20 |RINTER ..P-P.." |
00001140: 20 20 20 1D 12 AB 92 B9 B9 B9 B9 B9 B9 12 B3 92 | .............|
00001150: 00 6A 2D 5A 05 99 22 20 20 20 20 1D 12 AD C0 C0 |.j-Z.." .....|
00001160: C0 C0 C0 C0 BD 92 11 11 90 22 00 A6 2D 64 05 99 |........."..-d..|
00001170: 50 24 22 3C 20 31 20 3E 20 20 3D 20 20 45 52 41 |P$"< 1 > = ERA|
00001180: 53 45 20 41 4C 4C 20 43 4F 44 45 53 22 50 24 22 |SE ALL CODES"P$"|
00001190: 11 3C 20 32 20 3E 20 20 3D 20 20 45 4E 54 45 52 |.< 2 > = ENTER|
000011A0: 20 43 4F 44 45 53 00 DC 2D 6E 05 99 50 24 22 3C | CODES..-n..P$"<|
000011B0: 20 33 20 3E 20 20 3D 20 20 4C 4F 41 44 20 43 4F | 3 > = LOAD CO|
000011C0: 44 45 53 22 50 24 22 11 3C 20 34 20 3E 20 20 3D |DES"P$".< 4 > =|
000011D0: 20 20 53 41 56 45 20 43 4F 44 45 53 00 03 2E 78 | SAVE CODES...x|
000011E0: 05 8D 31 30 30 3A 91 28 C5 28 41 24 29 29 20 89 |..100:.(.(A$)) .|
000011F0: 31 34 32 30 2C 31 34 39 30 2C 31 34 34 30 2C 31 |1420,1490,1440,1|
00001200: 34 36 30 00 0C 2E 82 05 89 37 31 30 00 1C 2E 8C |460......710....|
00001210: 05 8D 31 34 33 30 3A 89 31 33 33 30 00 36 2E 96 |..1430:.1330.6..|
00001220: 05 81 58 B2 30 A4 34 39 3A 46 43 24 28 58 29 B2 |..X.0.49:FC$(X).|
00001230: 22 22 3A 82 3A 8E 00 51 2E A0 05 54 46 24 B2 22 |"":.:..Q...TF$."|
00001240: 52 22 3A 8D 33 37 30 3A 8B 45 30 20 A7 31 34 38 |R":.370:.E0 .148|
00001250: 30 00 81 2E AA 05 84 38 2C 50 44 3A 84 38 2C 50 |0......8,PD:.8,P|
00001260: 53 3A 84 38 2C 50 54 3A 81 58 B2 31 A4 35 30 3A |S:.8,PT:.X.1.50:|
00001270: 84 38 2C 50 43 24 28 58 29 3A 82 3A 89 31 34 38 |.8,PC$(X):.:.148|
00001280: 30 00 9C 2E B4 05 54 46 24 B2 22 57 22 3A 8D 33 |0.....TF$."W":.3|
00001290: 37 30 3A 8B 45 30 20 A7 31 34 38 30 00 CC 2E BE |70:.E0 .1480....|
000012A0: 05 98 38 2C 50 44 3A 98 38 2C 50 53 3A 98 38 2C |..8,PD:.8,PS:.8,|
000012B0: 50 54 3A 81 58 B2 31 A4 35 30 3A 98 38 2C C7 28 |PT:.X.1.50:.8,.(|
000012C0: 33 34 29 AA 50 43 24 28 58 29 3A 82 00 D9 2E C8 |34).PC$(X):.....|
000012D0: 05 A0 38 3A 89 31 33 33 30 00 1B 2F D2 05 50 44 |..8:.1330../..PD|
000012E0: B2 34 3A 50 53 B2 35 3A 85 22 93 11 11 50 52 49 |.4:PS.5:."...PRI|
000012F0: 4E 54 45 52 20 44 45 56 49 43 45 20 23 3A 20 34 |NTER DEVICE #: 4|
00001300: 20 9D 9D 9D 9D 22 3B 41 24 3A 41 B2 C5 28 41 24 | ....";A$:A..(A$|
00001310: 29 3A 8B 28 41 29 A7 50 44 B2 41 00 54 2F DC 05 |):.(A).PD.A.T/..|
00001320: 85 22 90 11 11 53 45 43 4F 4E 44 41 52 59 20 41 |."...SECONDARY A|
00001330: 44 44 52 45 53 53 3A 20 37 20 9D 9D 9D 9D 22 3B |DDRESS: 7 ....";|
00001340: 41 24 3A 41 B2 C5 28 41 24 29 3A 8B 28 41 29 A7 |A$:A..(A$):.(A).|
00001350: 50 53 B2 41 00 91 2F E6 05 85 22 90 11 11 54 52 |PS.A../..."...TR|
00001360: 41 4E 53 50 41 52 45 4E 54 20 53 45 43 4F 4E 44 |ANSPARENT SECOND|
00001370: 41 52 59 3A 20 35 20 9D 9D 9D 9D 22 3B 41 24 3A |ARY: 5 ....";A$:|
00001380: 41 B2 C5 28 41 24 29 3A 8B 28 41 29 A7 50 54 B2 |A..(A$):.(A).PT.|
00001390: 41 00 9B 2F F0 05 8D 31 34 33 30 00 A8 2F FA 05 |A../...1430../..|
000013A0: 45 24 B2 C7 28 32 37 29 00 CF 2F 04 06 51 24 28 |E$..(27)../..Q$(|
000013B0: 30 29 B2 45 24 AA C7 28 36 34 29 3A 46 24 28 30 |0).E$..(64):F$(0|
000013C0: 29 B2 22 4E 4F 52 4D 41 4C 20 46 4F 4E 54 22 00 |)."NORMAL FONT".|
000013D0: F0 2F 0E 06 51 24 28 31 29 B2 C7 28 31 34 29 3A |./..Q$(1)..(14):|
000013E0: 46 24 28 31 29 B2 22 45 58 50 41 4E 44 45 44 22 |F$(1)."EXPANDED"|
000013F0: 00 12 30 18 06 51 24 28 32 29 B2 C7 28 31 35 29 |..0..Q$(2)..(15)|
00001400: 3A 46 24 28 32 29 B2 22 43 4F 4E 44 45 4E 53 45 |:F$(2)."CONDENSE|
00001410: 44 22 00 3E 30 22 06 51 24 28 33 29 B2 45 24 AA |D".>0".Q$(3).E$.|
00001420: C7 28 38 33 29 AA C7 28 30 29 3A 46 24 28 33 29 |.(83)..(0):F$(3)|
00001430: B2 22 53 55 50 45 52 53 43 52 49 50 54 22 00 68 |."SUPERSCRIPT".h|
00001440: 30 2C 06 51 24 28 34 29 B2 45 24 AA C7 28 38 33 |0,.Q$(4).E$..(83|
00001450: 29 AA C7 28 31 29 3A 46 24 28 34 29 B2 22 53 55 |)..(1):F$(4)."SU|
00001460: 42 53 43 52 49 50 54 22 00 8B 30 36 06 51 24 28 |BSCRIPT"..06.Q$(|
00001470: 35 29 B2 45 24 AA C7 28 35 32 29 3A 46 24 28 35 |5).E$..(52):F$(5|
00001480: 29 B2 22 49 54 41 4C 49 43 53 22 00 B9 30 40 06 |)."ITALICS"..0@.|
00001490: 51 24 28 36 29 B2 51 24 28 31 29 AA 51 24 28 35 |Q$(6).Q$(1).Q$(5|
000014A0: 29 3A 46 24 28 36 29 B2 22 45 58 50 41 4E 44 45 |):F$(6)."EXPANDE|
000014B0: 44 20 49 54 41 4C 49 43 22 00 E8 30 4A 06 51 24 |D ITALIC"..0J.Q$|
000014C0: 28 37 29 B2 51 24 28 32 29 AA 51 24 28 35 29 3A |(7).Q$(2).Q$(5):|
000014D0: 46 24 28 37 29 B2 22 43 4F 4E 44 45 4E 43 45 44 |F$(7)."CONDENCED|
000014E0: 20 49 54 41 4C 49 43 22 00 18 31 54 06 51 24 28 | ITALIC"..1T.Q$(|
000014F0: 38 29 B2 51 24 28 33 29 AA 51 24 28 35 29 3A 46 |8).Q$(3).Q$(5):F|
00001500: 24 28 38 29 B2 22 53 55 50 45 52 53 43 52 49 50 |$(8)."SUPERSCRIP|
00001510: 54 20 49 54 41 4C 49 43 00 47 31 5E 06 51 24 28 |T ITALIC.G1^.Q$(|
00001520: 39 29 B2 51 24 28 34 29 AA 51 24 28 35 29 3A 46 |9).Q$(4).Q$(5):F|
00001530: 24 28 39 29 B2 22 53 55 42 53 43 52 49 50 54 20 |$(9)."SUBSCRIPT |
00001540: 49 54 41 4C 49 43 22 00 73 31 68 06 99 22 11 11 |ITALIC".s1h.."..|
00001550: 53 45 4C 45 43 54 20 46 4F 4E 54 20 43 48 41 4E |SELECT FONT CHAN|
00001560: 47 45 53 20 46 4F 52 20 45 41 43 48 20 4C 49 4E |GES FOR EACH LIN|
00001570: 45 2E 22 00 7D 31 72 06 41 24 B2 22 22 00 C0 31 |E.".}1r.A$.""..1|
00001580: 7C 06 85 22 11 11 11 1C 4C 49 4E 45 20 23 20 31 ||.."....LINE # 1|
00001590: 2D 35 30 20 3C 1E 43 52 3D 45 58 49 54 1C 3E 90 |-50 <.CR=EXIT.>.|
000015A0: 20 22 3B 41 24 3A 41 B2 C5 28 41 24 29 3A 8B 28 | ";A$:A..(A$):.(|
000015B0: 41 B3 31 29 B0 28 41 B1 35 30 29 A7 31 33 33 30 |A.1).(A.50).1330|
000015C0: 00 CA 31 86 06 41 B2 41 AB 31 00 EB 31 90 06 99 |..1..A.A.1..1...|
000015D0: 3A 81 58 B2 30 A4 39 3A 99 C4 28 58 29 AA 22 20 |:.X.0.9:..(X)." |
000015E0: 3D 20 22 AA 46 24 28 58 29 3A 82 00 25 32 9A 06 |= ".F$(X):..%2..|
000015F0: 85 22 11 1F 46 4F 4E 54 20 23 20 3C 1E 43 52 20 |."..FONT # <.CR |
00001600: 3D 20 4E 4F 52 4D 41 4C 1C 3E 90 20 22 3B 41 24 |= NORMAL.>. ";A$|
00001610: 3A 42 B2 C5 28 41 24 29 3A 8B 42 B3 31 B0 42 B1 |:B..(A$):.B.1.B.|
00001620: 39 A7 42 B2 30 00 3C 32 A4 06 46 43 24 28 41 29 |9.B.0.<2..FC$(A)|
00001630: B2 51 24 28 42 29 3A 89 31 36 35 30 00 4B 32 AE |.Q$(B):.1650.K2.|
00001640: 06 8D 31 37 32 30 3A 89 38 36 30 00 82 32 B8 06 |..1720:.860..2..|
00001650: 99 22 93 11 11 1C 44 49 52 45 43 54 4F 52 59 90 |."....DIRECTORY.|
00001660: 11 11 22 3A A0 31 3A 9F 31 2C 44 55 25 2C 30 2C |..":.1:.1,DU%,0,|
00001670: 22 24 30 22 3A 8D 32 38 30 3A 8B 45 30 A7 31 37 |"$0":.280:.E0.17|
00001680: 34 30 00 8F 32 C2 06 9E 28 4D 4C AA 32 31 29 00 |40..2...(ML.21).|
00001690: 9A 32 CC 06 A0 31 3A 89 39 30 00 CD 32 D6 06 99 |.2...1:.90..2...|
000016A0: 22 93 11 11 1C 44 49 53 4B 20 43 4F 4D 4D 41 4E |"....DISK COMMAN|
000016B0: 44 3A 90 20 22 3B 3A 49 4C B2 33 32 3A 8D 31 39 |D:. ";:IL.32:.19|
000016C0: 30 3A 8B 49 4E 24 B2 22 22 A7 38 36 30 00 F2 32 |0:.IN$."".860..2|
000016D0: E0 06 41 B2 C5 28 49 4E 24 29 3A 8B 28 41 B1 37 |..A..(IN$):.(A.7|
000016E0: 29 A7 20 44 55 25 B2 41 3A 8D 32 34 30 3A 89 38 |). DU%.A:.240:.8|
000016F0: 36 30 00 03 33 EA 06 8D 32 34 30 3A 98 31 35 2C |60..3...240:.15,|
00001700: 49 4E 24 00 19 33 F4 06 8D 32 38 30 3A 8B 28 45 |IN$..3...280:.(E|
00001710: 30 B2 30 29 A7 8D 34 31 30 00 22 33 FE 06 89 38 |0.0)..410."3...8|
00001720: 36 30 00 3C 33 08 07 8D 38 30 3A 99 22 0E 22 3B |60.<3...80:.".";|
00001730: 3A 9E 28 4D 4C 29 3A 89 31 38 32 30 00 52 33 12 |:.(ML):.1820.R3.|
00001740: 07 8D 38 30 3A 99 22 0E 22 3B 3A 9E 28 4D 4C AA |..80:.".";:.(ML.|
00001750: 33 29 00 6C 33 1C 07 4E 46 25 B2 C2 28 32 35 35 |3).l3..NF%..(255|
00001760: 29 3A 8B 4E 46 25 B3 31 A7 39 35 30 00 7A 33 26 |):.NF%.1.950.z3&|
00001770: 07 4E 46 25 B2 4E 46 25 AB 31 00 8D 33 30 07 97 |.NF%.NF%.1..30..|
00001780: 28 53 43 AA 31 30 32 33 29 2C 31 32 33 00 C2 33 |(SC.1023),123..3|
00001790: 3A 07 44 42 24 B2 22 22 3A 99 22 93 11 11 59 4F |:.DB$."":."...YO|
000017A0: 55 20 48 41 56 45 20 43 52 45 41 54 45 44 22 AA |U HAVE CREATED".|
000017B0: C4 28 4E 46 25 AA 31 29 AA 22 20 46 49 45 4C 44 |.(NF%.1)." FIELD|
000017C0: 53 22 00 FA 33 44 07 99 22 44 45 46 49 4E 45 20 |S"..3D.."DEFINE |
000017D0: 54 48 45 4D 20 4E 4F 57 3F 20 59 2F 4E 22 3A 8D |THEM NOW? Y/N":.|
000017E0: 31 30 30 3A 91 28 28 41 24 B2 22 59 22 29 AA 32 |100:.((A$."Y").2|
000017F0: 29 89 32 30 32 30 2C 39 35 30 00 22 34 4E 07 99 |).2020,950."4N..|
00001800: 22 93 11 11 53 41 56 45 20 41 20 46 4F 52 4D 22 |"...SAVE A FORM"|
00001810: 3A 8D 31 39 39 30 3A 8B 49 4E 24 B2 22 22 A7 39 |:.1990:.IN$."".9|
00001820: 35 30 00 5F 34 58 07 8B 28 43 36 29 A7 20 FE 10 |50._4X..(C6). ..|
00001830: 28 49 4E 24 29 2C 42 30 2C 55 28 44 55 25 29 2C |(IN$),B0,U(DU%),|
00001840: 50 33 39 39 33 36 A4 50 34 35 30 35 36 3A FE 02 |P39936.P45056:..|
00001850: 31 35 3A 89 39 35 30 3A 8F 20 43 2D 31 32 38 00 |15:.950:. C-128.|
00001860: 6D 34 62 07 8D 33 35 30 3A 89 39 35 30 00 84 34 |m4b..350:.950..4|
00001870: 6C 07 8D 31 39 34 30 3A 8B 49 4E 24 B3 B1 22 22 |l..1940:.IN$..""|
00001880: A7 37 31 30 00 8D 34 76 07 89 36 31 30 00 A4 34 |.710..4v..610..4|
00001890: 80 07 8D 31 39 34 30 3A 8B 49 4E 24 B3 B1 22 22 |...1940:.IN$..""|
000018A0: A7 39 35 30 00 AD 34 8A 07 89 36 31 30 00 D3 34 |.950..4...610..4|
000018B0: 94 07 99 22 93 11 11 4C 4F 41 44 20 41 20 46 4F |..."...LOAD A FO|
000018C0: 52 4D 22 3A 8D 31 39 39 30 3A 8B 49 4E 24 B2 22 |RM":.1990:.IN$."|
000018D0: 22 A7 8E 00 FC 34 9E 07 A0 38 3A 9F 38 2C 44 55 |"....4...8:.8,DU|
000018E0: 25 2C 38 2C 49 4E 24 AA 22 2C 50 2C 52 22 3A 8D |%,8,IN$.",P,R":.|
000018F0: 32 38 30 3A A0 38 3A 8B 45 30 A7 8E 00 11 35 A8 |280:.8:.E0....5.|
00001900: 07 4E 46 25 B2 30 3A 8B 28 43 36 29 A7 20 35 38 |.NF%.0:.(C6). 58|
00001910: 30 00 2B 35 B2 07 97 37 38 37 2C 32 33 34 3A 93 |0.+5...787,234:.|
00001920: 28 49 4E 24 29 2C 44 55 25 2C 31 00 39 35 BC 07 |(IN$),DU%,1.95..|
00001930: 8D 35 39 30 3A 89 36 31 30 00 64 35 C6 07 99 22 |.590:.610.d5..."|
00001940: 11 11 46 4F 52 4D 20 4E 41 4D 45 3A 20 22 3B 3A |..FORM NAME: ";:|
00001950: 49 4C B2 31 36 3A 8D 31 39 30 3A 8B 49 4E 24 B2 |IL.16:.190:.IN$.|
00001960: 22 22 A7 8E 00 7D 35 D0 07 8B 49 4E 24 B2 22 24 |""...}5...IN$."$|
00001970: 22 A7 8D 31 37 32 30 3A 89 31 39 39 30 00 83 35 |"..1720:.1990..5|
00001980: DA 07 8E 00 8C 35 E4 07 8D 34 33 30 00 A0 35 EE |.....5...430..5.|
00001990: 07 4E 50 25 B2 30 3A 81 46 46 B2 30 A4 4E 46 25 |.NP%.0:.FF.0.NF%|
000019A0: 00 D9 35 F8 07 4C 49 B2 C2 28 53 43 AA 46 46 29 |..5..LI..(SC.FF)|
000019B0: 3A 43 4F B2 C2 28 53 43 AA 32 35 36 AA 46 46 29 |:CO..(SC.256.FF)|
000019C0: 3A 46 4C 25 28 46 46 29 B2 28 C2 28 53 43 AA 35 |:FL%(FF).(.(SC.5|
000019D0: 31 32 AA 46 46 29 29 AA 31 00 1A 36 02 08 99 22 |12.FF)).1..6..."|
000019E0: 11 11 11 46 49 45 4C 44 20 23 22 AA C4 28 46 46 |...FIELD #"..(FF|
000019F0: 29 AA 4A 24 AA 22 41 54 20 4C 49 4E 45 3A 20 22 |).J$."AT LINE: "|
00001A00: AA C4 28 4C 49 29 AA 22 20 26 20 43 4F 4C 55 4D |..(LI)." & COLUM|
00001A10: 4E 3A 20 22 AA C4 28 43 4F 29 00 3A 36 0C 08 99 |N: "..(CO).:6...|
00001A20: 22 46 49 45 4C 44 20 4C 45 4E 47 54 48 3A 22 AA |"FIELD LENGTH:".|
00001A30: C4 28 46 4C 25 28 46 46 29 29 00 6B 36 16 08 99 |.(FL%(FF)).k6...|
00001A40: 22 11 11 4E 41 4D 45 20 46 4F 52 20 46 49 45 4C |"..NAME FOR FIEL|
00001A50: 44 3A 20 22 3A 49 4C B2 31 36 3A 8D 31 39 30 3A |D: ":IL.16:.190:|
00001A60: 8B 49 4E 24 B2 22 22 A7 39 35 30 00 7B 36 20 08 |.IN$."".950.{6 .|
00001A70: 4E 46 24 28 46 46 29 B2 49 4E 24 00 C3 36 2A 08 |NF$(FF).IN$..6*.|
00001A80: 99 22 11 11 53 45 4C 45 43 54 20 46 49 45 4C 44 |."..SELECT FIELD|
00001A90: 20 54 59 50 45 3A 22 4A 24 22 30 20 3D 20 41 4C | TYPE:"J$"0 = AL|
00001AA0: 50 48 41 4E 55 4D 45 52 49 43 22 4A 24 22 31 20 |PHANUMERIC"J$"1 |
00001AB0: 3D 20 53 55 4D 31 22 4A 24 22 32 20 3D 20 53 55 |= SUM1"J$"2 = SU|
00001AC0: 4D 32 22 00 0C 37 34 08 99 22 33 20 3D 20 53 55 |M2"..74.."3 = SU|
00001AD0: 4D 33 22 4A 24 22 34 20 3D 20 54 4F 54 41 4C 31 |M3"J$"4 = TOTAL1|
00001AE0: 22 4A 24 22 35 20 3D 20 54 4F 54 41 4C 32 22 4A |"J$"5 = TOTAL2"J|
00001AF0: 24 22 36 20 3D 20 54 4F 54 41 4C 33 22 4A 24 22 |$"6 = TOTAL3"J$"|
00001B00: 37 20 3D 20 47 52 41 4E 44 20 22 3B 00 4B 37 3E |7 = GRAND ";.K7>|
00001B10: 08 99 22 54 4F 54 41 4C 22 4A 24 22 38 20 3D 20 |.."TOTAL"J$"8 = |
00001B20: 4B 45 59 42 4F 41 52 44 22 4A 24 22 39 20 3D 20 |KEYBOARD"J$"9 = |
00001B30: 44 41 54 45 22 3A 8D 31 30 30 3A 41 B2 C5 28 41 |DATE":.100:A..(A|
00001B40: 24 29 3A 8B 41 B1 39 A7 41 B2 30 00 6B 37 48 08 |$):.A.9.A.0.k7H.|
00001B50: 46 54 25 28 46 46 29 B2 41 3A 99 41 3A 8B 41 B3 |FT%(FF).A:.A:.A.|
00001B60: 34 A7 4E 50 25 B2 4E 50 25 AA 31 00 73 37 52 08 |4.NP%.NP%.1.s7R.|
00001B70: 82 46 46 00 9A 37 5C 08 4E 50 25 B2 30 3A 81 58 |.FF..7\.NP%.0:.X|
00001B80: B2 30 A4 4E 46 25 3A 8B 46 54 25 28 58 29 B3 34 |.0.NF%:.FT%(X).4|
00001B90: A7 4E 50 25 B2 4E 50 25 AA 31 00 A1 37 66 08 82 |.NP%.NP%.1..7f..|
00001BA0: 58 00 BF 37 70 08 81 46 46 B2 30 A4 4E 46 25 3A |X..7p..FF.0.NF%:|
00001BB0: 8B 46 54 25 28 46 46 29 B1 33 A7 32 32 30 30 00 |.FT%(FF).3.2200.|
00001BC0: FE 37 7A 08 99 22 11 11 41 53 4B 20 46 4F 52 20 |.7z.."..ASK FOR |
00001BD0: 22 AA 4E 46 24 28 46 46 29 AA 4A 24 AA 22 49 4E |".NF$(FF).J$."IN|
00001BE0: 20 57 48 41 54 20 4F 52 44 45 52 20 28 31 20 2D | WHAT ORDER (1 -|
00001BF0: 22 AA C4 28 4E 50 25 29 AA 22 29 3A 20 22 00 22 |"..(NP%)."): "."|
00001C00: 38 84 08 49 4C B2 33 3A 8D 31 39 30 3A 41 B2 C5 |8..IL.3:.190:A..|
00001C10: 28 49 4E 24 29 3A 8B 28 41 B1 4E 50 25 29 A7 41 |(IN$):.(A.NP%).A|
00001C20: B2 30 00 30 38 8E 08 4E 50 25 28 41 29 B2 46 46 |.0.08..NP%(A).FF|
00001C30: 00 38 38 98 08 82 46 46 00 6C 38 A2 08 99 22 11 |.88...FF.l8...".|
00001C40: 11 4E 41 4D 45 20 46 4F 52 20 44 41 54 41 42 41 |.NAME FOR DATABA|
00001C50: 53 45 3A 20 22 3A 49 4C B2 31 35 3A 8D 31 39 30 |SE: ":IL.15:.190|
00001C60: 3A 8B 49 4E 24 B2 22 22 A7 39 35 30 00 A0 38 AC |:.IN$."".950..8.|
00001C70: 08 44 42 24 B2 49 4E 24 3A 99 22 49 4E 53 45 52 |.DB$.IN$:."INSER|
00001C80: 54 20 44 49 53 4B 20 54 4F 20 52 45 43 45 49 56 |T DISK TO RECEIV|
00001C90: 45 20 44 41 54 41 42 41 53 45 22 3B 3A 8D 39 30 |E DATABASE";:.90|
00001CA0: 00 D3 38 B6 08 A0 38 3A 9F 38 2C 44 55 25 2C 38 |..8...8:.8,DU%,8|
00001CB0: 2C 22 2F 22 AA 44 42 24 AA 22 2C 53 2C 57 22 3A |,"/".DB$.",S,W":|
00001CC0: 8D 32 38 30 3A 8B 45 30 A7 8D 34 31 30 3A 89 32 |.280:.E0..410:.2|
00001CD0: 32 32 30 00 E5 38 C0 08 98 38 2C 4E 46 25 3A 98 |220..8...8,NF%:.|
00001CE0: 38 2C 4E 50 25 00 1A 39 CA 08 81 58 B2 30 A4 4E |8,NP%..9...X.0.N|
00001CF0: 46 25 3A 98 38 2C 4E 46 24 28 58 29 3A 98 38 2C |F%:.8,NF$(X):.8,|
00001D00: 46 54 25 28 58 29 3A 98 38 2C 46 4C 25 28 58 29 |FT%(X):.8,FL%(X)|
00001D10: 3A 98 38 2C 4E 50 25 28 58 29 00 24 39 D4 08 82 |:.8,NP%(X).$9...|
00001D20: 58 3A A0 38 00 2D 39 DE 08 89 39 35 30 00 43 39 |X:.8.-9...950.C9|
00001D30: E8 08 81 58 B2 31 A4 4E 50 25 3A 59 B2 4E 50 25 |...X.1.NP%:Y.NP%|
00001D40: 28 58 29 00 53 39 F2 08 49 4C B2 46 4C 25 28 59 |(X).S9..IL.FL%(Y|
00001D50: 29 3A 99 00 8C 39 FC 08 99 22 11 22 AA 4E 46 24 |):...9...".".NF$|
00001D60: 28 59 29 AA 22 3A 20 22 3B 3A 49 4C B2 46 4C 25 |(Y).": ";:IL.FL%|
00001D70: 28 59 29 3A 8D 31 39 30 3A 8B 49 4E 24 B3 B1 22 |(Y):.190:.IN$.."|
00001D80: 22 A7 46 46 24 28 59 29 B2 49 4E 24 00 A7 39 06 |".FF$(Y).IN$..9.|
00001D90: 09 8B 20 46 46 24 28 59 29 B2 22 22 A7 46 46 24 |.. FF$(Y)."".FF$|
00001DA0: 28 59 29 B2 22 20 22 00 B0 39 10 09 82 58 3A 8E |(Y)." "..9...X:.|
00001DB0: 00 B6 39 1A 09 3A 00 C6 39 24 09 8D 32 33 35 30 |..9..:..9$..2350|
00001DC0: 3A 89 31 30 34 30 00 FB 39 2E 09 99 22 11 11 11 |:.1040..9..."...|
00001DD0: 11 11 4E 41 4D 45 20 4F 46 20 44 41 54 41 42 41 |..NAME OF DATABA|
00001DE0: 53 45 3A 20 22 3B 3A 49 4C B2 31 35 3A 8D 31 39 |SE: ";:IL.15:.19|
00001DF0: 30 3A 8B 49 4E 24 B2 22 22 A7 8E 00 1E 3A 38 09 |0:.IN$.""....:8.|
00001E00: 8B C8 28 49 4E 24 2C 31 29 B2 22 2F 22 A7 49 4E |..(IN$,1)."/".IN|
00001E10: 24 B2 C9 28 49 4E 24 2C 28 42 AB 31 29 29 00 37 |$..(IN$,(B.1)).7|
00001E20: 3A 42 09 8B 49 4E 24 B2 22 24 22 A7 8D 31 37 32 |:B..IN$."$"..172|
00001E30: 30 3A 89 32 33 35 30 00 48 3A 4C 09 44 42 24 B2 |0:.2350.H:L.DB$.|
00001E40: 49 4E 24 3A 89 35 30 30 00 83 3A 56 09 99 22 93 |IN$:.500..:V..".|
00001E50: 0E 11 41 44 44 20 41 20 44 4F 43 55 4D 45 4E 54 |..ADD A DOCUMENT|
00001E60: 11 11 22 3A 8D 32 32 38 30 3A 54 46 24 B2 22 57 |..":.2280:TF$."W|
00001E70: 22 3A 8D 35 35 30 3A 8B 28 45 30 B2 30 29 A7 8D |":.550:.(E0.0)..|
00001E80: 35 36 30 00 90 3A 60 09 A0 38 3A 89 31 30 34 30 |560..:`..8:.1040|
00001E90: 00 C8 3A 6A 09 99 22 93 0E 11 44 45 4C 45 54 45 |..:j.."...DELETE|
00001EA0: 20 41 20 44 4F 43 55 4D 45 4E 54 11 11 22 3A 8D | A DOCUMENT..":.|
00001EB0: 34 38 30 3A 8B 28 45 30 29 B0 28 41 24 B3 B1 22 |480:.(E0).(A$.."|
00001EC0: 59 22 29 A7 31 30 34 30 00 FE 3A 74 09 99 22 11 |Y").1040..:t..".|
00001ED0: 4F 4B 22 4A 24 22 44 45 4C 45 54 49 4E 47 3A 20 |OK"J$"DELETING: |
00001EE0: 22 AA 49 4E 24 3A 98 31 35 2C 22 53 30 3A 22 AA |".IN$:.15,"S0:".|
00001EF0: 49 4E 24 3A 8D 32 38 30 3A 89 31 30 34 30 00 34 |IN$:.280:.1040.4|
00001F00: 3B 7E 09 99 22 93 0E 11 45 44 49 54 20 41 20 44 |;~.."...EDIT A D|
00001F10: 4F 43 55 4D 45 4E 54 11 11 22 3A 8D 34 38 30 3A |OCUMENT..":.480:|
00001F20: 8B 28 45 30 29 B0 28 41 24 B3 B1 22 59 22 29 A7 |.(E0).(A$.."Y").|
00001F30: 31 30 34 30 00 69 3B 88 09 4E 49 24 B2 49 4E 24 |1040.i;..NI$.IN$|
00001F40: 3A 8D 32 32 38 30 3A 54 46 24 B2 22 57 22 3A 49 |:.2280:TF$."W":I|
00001F50: 4E 24 B2 4E 49 24 3A 98 31 35 2C 22 53 30 3A 22 |N$.NI$:.15,"S0:"|
00001F60: AA 49 4E 24 3A 8D 32 38 30 00 7F 3B 92 09 8D 34 |.IN$:.280..;...4|
00001F70: 30 30 3A 8B 28 45 30 B2 30 29 A7 8D 35 36 30 00 |00:.(E0.0)..560.|
00001F80: 8C 3B 9C 09 A0 38 3A 89 31 30 34 30 00 C1 3B A6 |.;...8:.1040..;.|
00001F90: 09 99 22 93 0E 11 56 49 45 57 20 41 20 44 4F 43 |.."...VIEW A DOC|
00001FA0: 55 4D 45 4E 54 11 11 22 41 24 B2 22 59 22 3A 8D |UMENT.."A$."Y":.|
00001FB0: 34 38 30 3A 8B 41 24 B3 B1 22 4E 22 A7 31 30 34 |480:.A$.."N".104|
00001FC0: 30 00 CB 3B B0 09 89 32 34 37 30 00 E7 3B BA 09 |0..;...2470..;..|
00001FD0: 54 31 B2 30 3A 54 32 B2 30 3A 54 33 B2 30 3A 81 |T1.0:T2.0:T3.0:.|
00001FE0: 58 B2 30 A4 4E 46 25 00 05 3C C4 09 8B 46 54 25 |X.0.NF%..<...FT%|
00001FF0: 28 58 29 B2 31 A7 54 31 B2 54 31 AA C5 28 46 46 |(X).1.T1.T1..(FF|
00002000: 24 28 58 29 29 00 23 3C CE 09 8B 46 54 25 28 58 |$(X)).#<...FT%(X|
00002010: 29 B2 32 A7 54 32 B2 54 32 AA C5 28 46 46 24 28 |).2.T2.T2..(FF$(|
00002020: 58 29 29 00 41 3C D8 09 8B 46 54 25 28 58 29 B2 |X)).A<...FT%(X).|
00002030: 33 A7 54 33 B2 54 33 AA C5 28 46 46 24 28 58 29 |3.T3.T3..(FF$(X)|
00002040: 29 00 48 3C E2 09 82 58 00 55 3C EC 09 81 59 B2 |).H<...X.U<...Y.|
00002050: 30 A4 4E 46 25 00 70 3C F6 09 8B 46 54 25 28 59 |0.NF%.p<...FT%(Y|
00002060: 29 B2 34 A7 46 46 24 28 59 29 B2 C4 28 54 31 29 |).4.FF$(Y)..(T1)|
00002070: 00 8B 3C 00 0A 8B 46 54 25 28 59 29 B2 35 A7 46 |..<...FT%(Y).5.F|
00002080: 46 24 28 59 29 B2 C4 28 54 32 29 00 A6 3C 0A 0A |F$(Y)..(T2)..<..|
00002090: 8B 46 54 25 28 59 29 B2 36 A7 46 46 24 28 59 29 |.FT%(Y).6.FF$(Y)|
000020A0: B2 C4 28 54 33 29 00 C7 3C 14 0A 8B 46 54 25 28 |..(T3)..<...FT%(|
000020B0: 59 29 B2 37 A7 46 46 24 28 59 29 B2 C4 28 54 31 |Y).7.FF$(Y)..(T1|
000020C0: AA 54 32 AA 54 33 29 00 FD 3C 1E 0A 8B 46 54 25 |.T2.T3)..<...FT%|
000020D0: 28 59 29 B2 38 A7 99 4E 46 24 28 59 29 AA 22 3A |(Y).8..NF$(Y).":|
000020E0: 20 22 3B 3A 49 4C B2 46 4C 25 28 59 29 3A 8D 31 | ";:IL.FL%(Y):.1|
000020F0: 39 30 3A 46 46 24 28 59 29 B2 49 4E 24 00 23 3D |90:FF$(Y).IN$.#=|
00002100: 28 0A 8B 46 54 25 28 59 29 B2 39 A7 46 46 24 28 |(..FT%(Y).9.FF$(|
00002110: 59 29 B2 C4 28 4D 4F 29 AA 22 20 2F 22 AA C4 28 |Y)..(MO)." /"..(|
00002120: 44 41 29 00 2A 3D 32 0A 82 59 00 30 3D 3C 0A 8E |DA).*=2..Y.0=<..|
00002130: 00 5D 3D 46 0A 41 24 B2 22 2E 2E 2E 2E 2E 2E 2E |.]=F.A$.".......|
00002140: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 41 |.............":A|
00002150: 24 B2 41 24 AA 41 24 AA 41 24 AA 41 24 00 84 3D |$.A$.A$.A$.A$..=|
00002160: 50 0A 81 58 B2 30 A4 4E 46 25 3A 46 46 24 28 58 |P..X.0.NF%:FF$(X|
00002170: 29 B2 C8 28 41 24 2C 28 46 4C 25 28 58 29 29 29 |)..(A$,(FL%(X)))|
00002180: 3A 82 3A 8E 00 B1 3D 5A 0A 41 24 B2 22 20 20 20 |:.:...=Z.A$." |
00002190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021A0: 20 22 3A 41 24 B2 41 24 AA 41 24 AA 41 24 AA 41 | ":A$.A$.A$.A$.A|
000021B0: 24 00 D3 3D 64 0A 81 58 B2 30 A4 4E 46 25 3A 41 |$..=d..X.0.NF%:A|
000021C0: B2 C3 28 46 46 24 28 58 29 29 3A 42 B2 46 4C 25 |..(FF$(X)):B.FL%|
000021D0: 28 58 29 00 F8 3D 6E 0A 8B 28 41 B3 42 29 A7 46 |(X)..=n..(A.B).F|
000021E0: 46 24 28 58 29 B2 46 46 24 28 58 29 AA C9 28 41 |F$(X).FF$(X)..(A|
000021F0: 24 2C 28 42 AB 41 29 29 00 00 3E 78 0A 82 3A 8E |$,(B.A))..>x..:.|
00002200: 00 29 3E 82 0A 9E 28 4D 4C AA 39 29 3A 81 46 46 |.)>...(ML.9):.FF|
00002210: B2 30 A4 4E 46 25 3A 49 4E 24 B2 46 46 24 28 46 |.0.NF%:IN$.FF$(F|
00002220: 46 29 3A 8D 33 32 30 3A 82 00 3F 3E 8C 0A 9F 34 |F):.320:..?>...4|
00002230: 2C 50 44 2C 50 53 3A 9F 35 2C 50 44 2C 50 54 00 |,PD,PS:.5,PD,PT.|
00002240: 61 3E 96 0A 99 22 11 11 1F 50 52 49 4E 54 20 54 |a>..."...PRINT T|
00002250: 4F 20 4C 49 4E 45 23 3A 90 20 22 3B 3A 49 4C B2 |O LINE#:. ";:IL.|
00002260: 32 00 88 3E A0 0A 8D 31 39 30 3A 4C B2 C5 28 49 |2..>...190:L..(I|
00002270: 4E 24 29 3A 8B 28 4C B3 31 29 20 B0 20 28 4C B1 |N$):.(L.1) . (L.|
00002280: 34 39 29 A7 4C B2 34 39 00 AB 3E AA 0A 81 58 B2 |49).L.49..>...X.|
00002290: 30 A4 4C 3A 98 34 2C 4A 24 3B 3A 98 35 2C 51 24 |0.L:.4,J$;:.5,Q$|
000022A0: 28 30 29 AA 46 43 24 28 58 29 3B 00 C9 3E B4 0A |(0).FC$(X);..>..|
000022B0: 97 32 35 35 2C 28 58 29 3A 9E 28 4D 4C AA 31 32 |.255,(X):.(ML.12|
000022C0: 29 3A 82 3A A0 34 3A A0 35 00 F6 3E BE 0A 85 22 |):.:.4:.5..>..."|
000022D0: 11 11 50 52 49 4E 54 20 41 47 41 49 4E 20 20 4E |..PRINT AGAIN N|
000022E0: 20 9D 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B2 22 59 | ....";A$:.A$."Y|
000022F0: 22 A7 32 37 30 30 00 FF 3E C8 0A 89 37 31 30 00 |".2700..>...710.|
00002300: 00 00 28 |..( |
.......53281,1:.53280,1:.B(787).123..125
0:.610.X....B(787).234..787,123:C6.B(102
3):.1980.}.(..1023,C6:.(C6.0)..55,0:.56,
154:....2..1180...<.. 72,69,76,76,79,0,0
,0,0,0.G.F..:.X.0.9:.A:.(ML.25.X),A:.:..
..P.X.B(53281):.53281,0:.".":.53281,X:..
..Z..:.".HIT ANY KEY TO CONTINUE".$.D..A
$:.A$."".100.*.N...`.X.."..".G(142)"
U..............................I......"
. . ..................... ....
..." . ......
............" . .....
...... . .." . .....
. .......M...." .
. ..................... ..|...."
J..............................K.":.....
.IN$.""...H.."..";:.100:A.F(A$):B.C(IN$)
:.A.13.." .":....R..A.20..B.." ..";:IN$.
H(IN$,B.1):.200......(A .127).32.(B.IL).
200......A$;:IN$.IN$.A$:.200.%....DU%.7.
DU%.8.8... 15:.15,DU%,15.`....(C6)...0:.
270:..15:.:. C-128 ONLY!.U...QX%.B(SC.10
23):.......300:.(E0).410...".....,..15,E
0,E1$,E2,E3:..G.6.HI..(QR.256):LO.QR.(HI
.256):....@..255,FF:.(C6).340...J.A$.IN$
:.49158:... T.QR.N.(IN$):.310:.254,HI:.2
53,LO:.4870:..* ^..255,DU%.A H.A$.IN$:.4
9170:.280.V R.."...FILENAME:";.T |.IL.16
:.190:.IN$."".E0.1:... ...IN$."$"..1720:
.370.. ...8,DU%,8,IN$.",S,".TF$:.280.. .
..J$"DISK ERROR: ".D(E0).", ".E1$.", ".D
(E2).", ".D(E3):.90.. ... 440.7!..A.NF%.
1:. FF$(A),NF$(A),FT%(A),FL%(A),NP%(A),F
C$(51),Q$(51):..W!...(C6)..51,B(49):.52,
B(50):..Q!B..49,B(47):.50,B(48):..Z!L..5
70..!V..X.1.NP%:Y.NP%(X):. NF$(Y)." :".F
F$(Y):.X:..E!..TF$."R":.550:.(E0).540..!
...:.460: 8:."...IS THIS IT?. N ....";A$
:..&".. 8:.8,DU%,8,"/".DB$.",S,R":.280:.
E0.DB$."":.540.="...8,NF%:.8,NP%:.430.R"
...X.0.NF%:.8,NF$(X):.8,FT%(X):.8,FL%(X)
:.8,NP%(X).Y"...X..".. 8:..."&..".....DO
CUMENT NAME: .";:.380.P"0..X.1.NP%:Y.NP%
(X):.8,G(34).FF$(Y):.X:...":..X.1.NP%:Y.
NP%(X):.8,FF$(Y):.X:..$#D...(IN$),B0,U(D
U%),P39936:..15:. C-128 ONLY.M#N..(ML.15
):NF%.B(255):.(NF%).NF%.NF%.1.S#X....#B.
P$.G(13)." ":.240:.120:.".":."
.. FORM ...#L.." .. WRITER ..K#V..
" .. ...... MAIN MENU...#..
." .. BY ...#..." ..T. BROWN..
.".0$...P$"< 1 > = FORM EDITOR"P$".< 2
> = DATA BASE.C$...P$"< 3 > = PRINT
ER"P$".< 4 > = DISK DRIVE..$..FF.0:.10
0:.(E(A$)) .950,1040,710,860..$...610..$
.....$F..120:.".":." .. ..S$P.
." .. .: :. ...%Z.." .. .: :
. ...... PRINTER MENU...%..." .....
.........1%..." .............".A%...D
B$."".840.[%...260:.(QX%..123).1900.Y%..
."..CURRENT DBASE: .".DB$..%...P$"...< 1
> = CHANGE DATA BASE"P$"...< 2 > =
LOAD A FORM..& ..P$"..< 3 > = FILL FRO
M DATA BASE"P$"...< 4 > = FILL FROM KE
YBOARD.O&*..P$"..< 5 > = PRINT A BLANK
FORM"P$"...< 6 > = SET PRINTER CODES.
.&4..100:.(E(A$)) .1270,1900,1280,1310,1
320,1330..&>..610..&H..2350:.DB$."".610.
.&R..710.H&\..120:.".":." .. ..
..&F.." .. UI ...'P.." .. JK
..... DISK DRIVE MENU ...%'Z.."
.. .... ..>'..." .. .. ...".W
'...P$"< 1 > = DIRECTORY "P$".< 2 > =
DOS COMMANDS"..'...P$"< 3 > = ERROR
CHANNEL"..'...100:.(E(A$)) .1710,1750,17
80.C'...610..'...120:.".":." .. .....
...'..." .. . .. ..)(J.." .. .
.. ..... FORM/FIELD EDITOR ..".?(T.."
.. ...... ..X(..." .. ..... ..."
..(...P$"< 1 > = CREATE NEW FORM"P$".<
2 > = EDIT OLD FORM".P(...P$"< 3 > =
LOAD A FORM"P$".< 4 > = SAVE A FORM"
..(..FL.1:.100:.(E(A$)) .1800,1810,1920,
1870..)...610.%)...120:.".":." .....
..;)..." ... .. .....J)$.." ..
...._.W...... DATA BASE MENU ....)...
" .. ... ......)8.." .. ...
..)B..DB$."".1160.G)L.."..CURRENT DBASE:
.".DB$..*V..P$"..< 1 > = OPEN A DATA
BASE"P$".< 2 > = ADD A RECORD".I*`..P$
"< 3 > = DELETE A RECORD"P$".< 4 > =
CHANGE A RECORD".J*J..P$"< 5 > = VIEW
A RECORD"..*T..100:.(E(A$)) .2340,2390,
2410,2430,2470..*~..610..*...2350:.DB$."
".610..*...1040..*..IL.2:."....MONTH (1-
12): ";..+...190:MO.E(IN$):.MO.1.MO.12.M
O.1.:+..."..DAY (1-31): ";:.190:DA.E(IN$
):.DA.1.DA.31.DA.1.[+...1021,MO:.1022,DA
:DU%.B(186).H+D..787,123. +N..(C6)..."ED
ITOR.128 ML",U(DU%):..15:.20:. C128 ONLY
..+X.."EDITOR.64 ML",DU%,1..+..DU%.B(186
):ML.49152:SC.39936:C6.B(1023):.(C6).ML.
4864.*,..MO.B(1021):DA.B(1022):PD.4:PS.7
:PT.5:J$.G(13):.60.9,...2350:.710.W,...4
80:.(E0).(A$.."Y").1300.M,...2490:.2650:
.2690.Y,.. 8:.710..,..."...FILL OUT FORM
:":.2280:.2490:.2650:.2690.R,(.."..PRINT
A BLANK FORM":.2630:.2690..,2..120:."..
":." .. ...-<.." .. .: :
. ..8-F.." .. .: :. ...... SET P
RINTER ..P-P.." ..............J-Z.."
.............."..-D..P$"< 1 > = ERA
SE ALL CODES"P$".< 2 > = ENTER CODES..
-N..P$"< 3 > = LOAD CODES"P$".< 4 > =
SAVE CODES...X..100:.(E(A$)) .1420,149
0,1440,1460......710......1430:.1330.6..
..X.0.49:FC$(X)."":.:..Q. .TF$."R":.370:
.E0 .1480......8,PD:.8,PS:.8,PT:.X.1.50:
.8,PC$(X):.:.1480.....TF$."W":.370:.E0 .
1480.L....8,PD:.8,PS:.8,PT:.X.1.50:.8,G(
34).PC$(X):..Y.H. 8:.1330../R.PD.4:PS.5:
."...PRINTER DEVICE #: 4 ....";A$:A.E(A$
):.(A).PD.A.T/..."...SECONDARY ADDRESS:
7 ....";A$:A.E(A$):.(A).PS.A../..."...TR
ANSPARENT SECONDARY: 5 ....";A$:A.E(A$):
.(A).PT.A../...1430../..E$.G(27).O/..Q$(
0).E$.G(64):F$(0)."NORMAL FONT"../..Q$(1
).G(14):F$(1)."EXPANDED"..0..Q$(2).G(15)
:F$(2)."CONDENSED".>0".Q$(3).E$.G(83).G(
0):F$(3)."SUPERSCRIPT".H0,.Q$(4).E$.G(83
).G(1):F$(4)."SUBSCRIPT"..06.Q$(5).E$.G(
52):F$(5)."ITALICS"..0@.Q$(6).Q$(1).Q$(5
):F$(6)."EXPANDED ITALIC"..0J.Q$(7).Q$(2
).Q$(5):F$(7)."CONDENCED ITALIC"..1T.Q$(
8).Q$(3).Q$(5):F$(8)."SUPERSCRIPT ITALIC
.G1^.Q$(9).Q$(4).Q$(5):F$(9)."SUBSCRIPT
ITALIC".S1H.."..SELECT FONT CHANGES FOR
EACH LINE.".}1R.A$.""..1|.."....LINE # 1
-50 <.CR=EXIT.>. ";A$:A.E(A$):.(A.1).(A.
50).1330.J1..A.A.1..1...:.X.0.9:.D(X)."
= ".F$(X):..%2..."..FONT # <.CR = NORMAL
.>. ";A$:B.E(A$):.B.1.B.9.B.0.<2..FC$(A)
.Q$(B):.1650.K2...1720:.860..2..."....DI
RECTORY...": 1:.1,DU%,0,"$0":.280:.E0.17
40..2B..(ML.21)..2L. 1:.90.M2V.."....DIS
K COMMAND:. ";:IL.32:.190:.IN$."".860..2
..A.E(IN$):.(A.7). DU%.A:.240:.860..3...
240:.15,IN$..3...280:.(E0.0)..410."3...8
60.<3...80:.".";:.(ML):.1820.R3...80:.".
";:.(ML.3).L3..NF%.B(255):.NF%.1.950.Z3&
.NF%.NF%.1..30..(SC.1023),123.B3:.DB$.""
:."...YOU HAVE CREATED".D(NF%.1)." FIELD
S"..3D.."DEFINE THEM NOW? Y/N":.100:.((A
$."Y").2).2020,950."4N.."...SAVE A FORM"
:.1990:.IN$."".950._4X..(C6). ..(IN$),B0
,U(DU%),P39936.P45056:..15:.950:. C-128.
M4B..350:.950..4L..1940:.IN$.."".710..4V
..610..4...1940:.IN$.."".950..4...610.S4
..."...LOAD A FORM":.1990:.IN$.""....4..
8:.8,DU%,8,IN$.",P,R":.280: 8:.E0....5.
.NF%.0:.(C6). 580.+5...787,234:.(IN$),DU
%,1.95...590:.610.D5F.."..FORM NAME: ";:
IL.16:.190:.IN$.""...}5P..IN$."$"..1720:
.1990..5Z....5...430. 5..NP%.0:.FF.0.NF%
.Y5..LI.B(SC.FF):CO.B(SC.256.FF):FL%(FF)
.(B(SC.512.FF)).1..6..."...FIELD #".D(FF
).J$."AT LINE: ".D(LI)." & COLUMN: ".D(C
O).:6..."FIELD LENGTH:".D(FL%(FF)).K6...
"..NAME FOR FIELD: ":IL.16:.190:.IN$."".
950.{6 .NF$(FF).IN$.C6*.."..SELECT FIELD
TYPE:"J$"0 = ALPHANUMERIC"J$"1 = SUM1"J
$"2 = SUM2"..74.."3 = SUM3"J$"4 = TOTAL1
"J$"5 = TOTAL2"J$"6 = TOTAL3"J$"7 = GRAN
D ";.K7>.."TOTAL"J$"8 = KEYBOARD"J$"9 =
DATE":.100:A.E(A$):.A.9.A.0.K7H.FT%(FF).
A:.A:.A.4.NP%.NP%.1.S7R..FF..7\.NP%.0:.X
.0.NF%:.FT%(X).4.NP%.NP%.1..7F..X..7P..F
F.0.NF%:.FT%(FF).3.2200..7Z.."..ASK FOR
".NF$(FF).J$."IN WHAT ORDER (1 -".D(NP%)
."): "."8..IL.3:.190:A.E(IN$):.(A.NP%).A
.0.08..NP%(A).FF.88...FF.L8..."..NAME FO
R DATABASE: ":IL.15:.190:.IN$."".950. 8.
.DB$.IN$:."INSERT DISK TO RECEIVE DATABA
SE";:.90.S8.. 8:.8,DU%,8,"/".DB$.",S,W":
.280:.E0..410:.2220..8...8,NF%:.8,NP%..9
J..X.0.NF%:.8,NF$(X):.8,FT%(X):.8,FL%(X)
:.8,NP%(X).$9T..X: 8.-9...950.C9...X.1.N
P%:Y.NP%(X).S9..IL.FL%(Y):...9...".".NF$
(Y).": ";:IL.FL%(Y):.190:.IN$.."".FF$(Y)
.IN$..9... FF$(Y)."".FF$(Y)." "..9...X:.
..9..:.F9$..2350:.1040..9...".....NAME O
F DATABASE: ";:IL.15:.190:.IN$.""....:8.
.H(IN$,1)."/".IN$.I(IN$,(B.1)).7:B..IN$.
"$"..1720:.2350.H:L.DB$.IN$:.500..:V..".
..ADD A DOCUMENT..":.2280:TF$."W":.550:.
(E0.0)..560..:`. 8:.1040.H:J.."...DELETE
A DOCUMENT..":.480:.(E0).(A$.."Y").1040
..:T..".OK"J$"DELETING: ".IN$:.15,"S0:".
IN$:.280:.1040.4;~.."...EDIT A DOCUMENT.
.":.480:.(E0).(A$.."Y").1040.I;..NI$.IN$
:.2280:TF$."W":IN$.NI$:.15,"S0:".IN$:.28
0.;...400:.(E0.0)..560..;.. 8:.1040.A;.
.."...VIEW A DOCUMENT.."A$."Y":.480:.A$.
."N".1040.K;...2470..;..T1.0:T2.0:T3.0:.
X.0.NF%..<D..FT%(X).1.T1.T1.E(FF$(X)).#<
N..FT%(X).2.T2.T2.E(FF$(X)).A<X..FT%(X).
3.T3.T3.E(FF$(X)).H<...X.U<...Y.0.NF%.P<
...FT%(Y).4.FF$(Y).D(T1)..<...FT%(Y).5.F
F$(Y).D(T2)..<...FT%(Y).6.FF$(Y).D(T3).G
<...FT%(Y).7.FF$(Y).D(T1.T2.T3)..<...FT%
(Y).8..NF$(Y).": ";:IL.FL%(Y):.190:FF$(Y
).IN$.#=(..FT%(Y).9.FF$(Y).D(MO)." /".D(
DA).*=2..Y.0=<...]=F.A$."...............
.....":A$.A$.A$.A$.A$..=P..X.0.NF%:FF$(X
).H(A$,(FL%(X))):.:...=Z.A$."
":A$.A$.A$.A$.A$.S=D..X.0.NF%:A
.C(FF$(X)):B.FL%(X)..=N..(A.B).FF$(X).FF
$(X).I(A$,(B.A))..>X..:..)>...(ML.9):.FF
.0.NF%:IN$.FF$(FF):.320:..?>...4,PD,PS:.
5,PD,PT.A>..."...PRINT TO LINE#:. ";:IL.
2..> ..190:L.E(IN$):.(L.1) . (L.49).L.49
..>...X.0.L:.4,J$;:.5,Q$(0).FC$(X);.I>..
.255,(X):.(ML.12):.: 4: 5..>..."..PRINT
AGAIN N ....";A$:.A$."Y".2700..>H..710.
..(
> CLICK IMAGE PREVIEW FOR FULL MODAL