UNIVERSALDATEI
FILE INFORMATION
FILENAME(S): UNIVERSALDATEI
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-12-02 23:23:07
APPEARS ON: 1 disk(s)
FILE HASH
d6ac8e74259a3f748b30241cfeb57006e19358cd1afc9126575551735e35d67c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A | UNIVERSALDATEI | PRG | swasti, dinkel | 27 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 56 49 43 44 41 54 41 20 |..#.... VICDATA | 00000010: 28 55 4E 49 56 45 52 53 45 4C 4C 45 20 44 41 54 |(UNIVERSELLE DAT| 00000020: 45 49 29 00 2C 08 0D 00 51 35 B2 30 00 4E 08 0E |EI).,...Q5.0.N..| 00000030: 00 5A 5A B2 B8 28 58 29 AA 36 35 35 33 36 3A 5A |.ZZ..(X).65536:Z| 00000040: 5A B2 B5 28 5A 5A AD 31 30 30 29 AA 31 30 00 70 |Z..(ZZ.100).10.p| 00000050: 08 0F 00 86 20 54 4E 24 28 5A 5A 2C 31 29 2C 5A |.... TN$(ZZ,1),Z| 00000060: 59 28 32 37 29 3A 54 4E B2 5A 5A 3A 41 4E B2 31 |Y(27):TN.ZZ:AN.1| 00000070: 00 A4 08 10 00 99 22 93 12 91 9D 20 20 20 20 20 |......".... | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 92 22 3B 00 D8 08 11 00 99 22 12 20 20 20 20 | .";......". | 000000B0: 20 20 20 20 20 20 44 41 54 41 2D 42 41 53 45 20 | DATA-BASE | 000000C0: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 20 20 20 |PROGRAM | 000000D0: 20 20 20 20 20 92 22 3B 00 0B 09 12 00 99 22 12 | .";......".| 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 92 22 00 2C 09 13 00 | .".,...| 00000110: 99 22 20 20 12 31 92 20 20 3D 20 4C 4F 41 44 20 |." .1. = LOAD | 00000120: 44 41 54 41 20 46 49 4C 45 20 20 22 00 4C 09 14 |DATA FILE ".L..| 00000130: 00 99 22 20 11 20 12 32 92 20 20 3D 20 53 41 56 |.." . .2. = SAV| 00000140: 45 20 44 41 54 41 20 46 49 4C 45 22 00 70 09 15 |E DATA FILE".p..| 00000150: 00 99 22 20 11 20 12 33 92 20 20 3D 20 53 45 41 |.." . .3. = SEA| 00000160: 52 43 48 20 2F 20 55 50 44 41 54 45 20 20 20 22 |RCH / UPDATE "| 00000170: 00 92 09 16 00 99 22 20 11 20 12 34 92 20 20 3D |......" . .4. =| 00000180: 20 49 4E 50 55 54 20 4E 45 57 20 44 41 54 41 20 | INPUT NEW DATA | 00000190: 20 22 00 AA 09 17 00 99 22 20 11 20 12 35 92 20 | "......" . .5. | 000001A0: 20 3D 20 12 45 4E 44 92 20 22 00 C9 09 18 00 99 | = .END. "......| 000001B0: 22 20 11 20 12 36 92 20 20 3D 20 48 41 52 44 43 |" . .6. = HARDC| 000001C0: 4F 50 59 20 44 41 54 41 22 00 EB 09 19 00 99 22 |OPY DATA"......"| 000001D0: 20 11 20 12 37 92 20 20 3D 20 53 4F 52 54 49 4E | . .7. = SORTIN| 000001E0: 47 20 52 4F 55 54 49 4E 45 20 22 00 10 0A 1A 00 |G ROUTINE ".....| 000001F0: 99 22 20 11 20 12 38 92 20 20 2A 20 54 45 53 54 |." . .8. * TEST| 00000200: 20 20 20 12 20 56 49 43 44 41 54 41 20 92 20 22 | . VICDATA . "| 00000210: 00 22 0A 1C 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |."....A$:.A$."".| 00000220: 32 38 00 4F 0A 1D 00 91 C5 28 41 24 29 8D 33 31 |28.O.....(A$).31| 00000230: 2C 34 35 30 2C 36 37 30 2C 38 35 30 2C 31 30 30 |,450,670,850,100| 00000240: 30 2C 31 33 36 30 2C 31 31 30 30 2C 34 31 30 00 |0,1360,1100,410.| 00000250: 57 0A 1E 00 89 31 36 00 63 0A 1F 00 8F 20 4C 45 |W....16.c.... LE| 00000260: 53 45 4E 00 85 0A 20 00 99 22 93 11 1D 12 20 20 |SEN... ..".... | 00000270: 44 49 53 4B 20 4F 52 20 54 41 50 45 20 52 45 41 |DISK OR TAPE REA| 00000280: 44 59 3F 20 22 00 BC 0A 21 00 99 22 11 1D 1D 1D |DY? "...!.."....| 00000290: 12 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 |. DISK DIRECTORY| 000002A0: 20 3F 92 20 20 20 20 20 20 20 20 20 11 20 20 20 | ?. . | 000002B0: 12 59 92 45 53 2F 12 4E 92 4F 20 22 00 D0 0A 22 |.Y.ES/.N.O "..."| 000002C0: 00 A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 89 33 37 |..A$:.A$."N"..37| 000002D0: 00 E1 0A 23 00 8B 41 24 B3 B1 22 59 22 A7 89 33 |...#..A$.."Y"..3| 000002E0: 34 00 F3 0A 24 00 8B 41 24 B2 22 59 22 A7 8D 31 |4...$..A$."Y"..1| 000002F0: 39 35 30 00 1D 0B 25 00 99 22 11 1D 1D 1D 12 20 |950...%.."..... | 00000300: 49 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 92 |INPUT FILE NAME.| 00000310: 20 22 3A 85 22 11 1D 1D 1D 22 3B 5A 24 00 2C 0B | ":."....";Z$.,.| 00000320: 26 00 8B 5A 24 B2 22 3D 22 A7 31 36 00 42 0B 27 |&..Z$."=".16.B.'| 00000330: 00 46 24 B2 22 30 3A 22 AA 5A 24 AA 22 2C 53 2C |.F$."0:".Z$.",S,| 00000340: 52 22 00 65 0B 28 00 99 22 11 1D 1D 12 44 92 49 |R".e.(.."....D.I| 00000350: 53 4B 20 44 52 49 56 45 20 4F 52 20 12 54 92 41 |SK DRIVE OR .T.A| 00000360: 50 45 3F 20 22 00 7A 0B 36 01 A1 41 24 3A 8B 41 |PE? ".z.6..A$:.A| 00000370: 24 B2 22 54 22 A7 89 33 34 30 00 8B 0B 40 01 8B |$."T"..340...@..| 00000380: 41 24 B3 B1 22 44 22 A7 33 31 30 00 9E 0B 4A 01 |A$.."D".310...J.| 00000390: 8B 41 24 B2 22 44 22 A7 20 89 31 37 32 30 00 AC |.A$."D". .1720..| 000003A0: 0B 54 01 9F 31 2C 31 2C 30 2C 5A 24 00 CC 0B 5E |.T..1,1,0,Z$...^| 000003B0: 01 99 22 11 1D 1D 12 20 4C 4F 41 44 49 4E 47 20 |..".... LOADING | 000003C0: 44 41 54 41 20 46 49 4C 45 92 20 22 00 D6 0B 68 |DATA FILE. "...h| 000003D0: 01 84 31 2C 41 4E 00 E3 0B 72 01 49 B2 31 A4 41 |..1,AN...r.I.1.A| 000003E0: 4E AB 31 00 0E 0C 7C 01 84 31 2C 54 4E 24 28 49 |N.1...|..1,TN$(I| 000003F0: 2C 30 29 2C 54 4E 24 28 49 2C 31 29 3A 5A 5A B2 |,0),TN$(I,1):ZZ.| 00000400: C6 28 54 4E 24 28 49 2C 30 29 29 AB 36 35 00 25 |.(TN$(I,0)).65.%| 00000410: 0C 86 01 8B 5A 59 28 5A 5A 29 B2 30 A7 5A 59 28 |....ZY(ZZ).0.ZY(| 00000420: 5A 5A 29 B2 49 00 2C 0C 90 01 82 49 00 3A 0C 9A |ZZ).I.,....I.:..| 00000430: 01 81 49 B2 31 A4 41 4E AB 31 00 56 0C A4 01 99 |..I.1.AN.1.V....| 00000440: 20 54 4E 24 28 49 2C 30 29 2C 54 4E 24 28 49 2C | TN$(I,0),TN$(I,| 00000450: 31 29 3A 82 20 49 00 63 0C AE 01 A0 20 31 3A 46 |1):. I.c.... 1:F| 00000460: 4C B2 31 00 69 0C B8 01 8E 00 79 0C C2 01 8F 20 |L.1.i.....y.... | 00000470: 53 43 48 52 45 49 42 45 4E 00 9B 0C CC 01 99 22 |SCHREIBEN......"| 00000480: 93 11 1D 12 20 20 44 49 53 4B 20 4F 52 20 54 41 |.... DISK OR TA| 00000490: 50 45 20 52 45 41 44 59 3F 20 22 00 D2 0C D6 01 |PE READY? ".....| 000004A0: 99 22 11 1D 1D 1D 12 20 44 49 53 4B 20 44 49 52 |."..... DISK DIR| 000004B0: 45 43 54 4F 52 59 20 3F 92 20 20 20 20 20 20 20 |ECTORY ?. | 000004C0: 20 20 11 20 20 20 12 59 92 45 53 2F 12 4E 92 4F | . .Y.ES/.N.O| 000004D0: 20 22 00 E7 0C E0 01 A1 41 24 3A 8B 41 24 B2 22 | "......A$:.A$."| 000004E0: 4E 22 A7 89 35 31 30 00 F9 0C EA 01 8B 41 24 B3 |N"..510......A$.| 000004F0: B1 22 59 22 A7 89 34 38 30 00 0B 0D F4 01 8B 41 |."Y"..480......A| 00000500: 24 B2 22 59 22 A7 8D 31 39 35 30 00 35 0D FE 01 |$."Y"..1950.5...| 00000510: 99 22 11 1D 1D 1D 12 20 49 4E 50 55 54 20 46 49 |."..... INPUT FI| 00000520: 4C 45 20 4E 41 4D 45 92 20 22 3A 85 22 11 1D 1D |LE NAME. ":."...| 00000530: 1D 22 3B 5A 24 00 44 0D 08 02 8B 5A 24 B2 22 3D |.";Z$.D....Z$."=| 00000540: 22 A7 31 36 00 59 0D 12 02 46 24 B2 22 30 3A 22 |".16.Y...F$."0:"| 00000550: AA 5A 24 AA 22 2C 53 2C 57 00 7C 0D 1C 02 99 22 |.Z$.",S,W.|...."| 00000560: 11 1D 1D 12 44 92 49 53 4B 20 44 52 49 56 45 20 |....D.ISK DRIVE | 00000570: 4F 52 20 12 54 92 41 50 45 3F 20 22 00 91 0D 26 |OR .T.APE? "...&| 00000580: 02 A1 41 24 3A 8B 41 24 B2 22 54 22 A7 89 35 38 |..A$:.A$."T"..58| 00000590: 30 00 A3 0D 30 02 8B 41 24 B3 B1 22 44 22 A7 89 |0...0..A$.."D"..| 000005A0: 35 35 30 00 B5 0D 3A 02 8B 41 24 B2 22 44 22 A7 |550...:..A$."D".| 000005B0: 89 31 34 35 30 00 C3 0D 44 02 9F 31 2C 31 2C 31 |.1450...D..1,1,1| 000005C0: 2C 5A 24 00 CD 0D 4E 02 98 31 2C 41 4E 00 D9 0D |,Z$...N..1,AN...| 000005D0: 58 02 81 49 B2 31 A4 41 4E 00 06 0E 62 02 99 22 |X..I.1.AN...b.."| 000005E0: 13 1D 1D 1D 1D 11 11 11 11 11 11 11 11 11 11 11 |................| 000005F0: 11 11 11 11 20 52 45 43 4F 52 44 20 4E 55 4D 4D |.... RECORD NUMM| 00000600: 45 52 20 22 3B 49 00 23 0E 6C 02 99 22 1D 1D 1D |ER ";I.#.l.."...| 00000610: 1D 1D 12 20 53 41 56 49 4E 47 20 44 41 54 41 20 |... SAVING DATA | 00000620: 92 20 22 00 43 0E 76 02 98 31 2C 54 4E 24 28 49 |. ".C.v..1,TN$(I| 00000630: 2C 30 29 3A 98 31 2C 54 4E 24 28 49 2C 31 29 3A |,0):.1,TN$(I,1):| 00000640: 82 20 49 00 58 0E 80 02 98 31 2C 22 2A 2A 2A 2A |. I.X....1,"****| 00000650: 2A 2A 2A 2A 2A 2A 2A 22 00 60 0E 8A 02 A0 20 31 |*******".`.... 1| 00000660: 00 66 0E 94 02 8E 00 73 0E 9E 02 8F 20 53 55 43 |.f.....s.... SUC| 00000670: 48 45 4E 00 A1 0E A8 02 99 22 93 12 20 20 20 20 |HEN......".. | 00000680: 20 20 20 20 20 20 53 45 41 52 43 48 49 4E 47 20 | SEARCHING | 00000690: 44 41 54 41 20 20 20 20 20 20 20 20 20 20 20 20 |DATA | 000006A0: 22 00 BB 0E B2 02 85 20 22 11 11 1D 1D 12 20 4E |"...... "..... N| 000006B0: 41 4D 45 92 20 3A 2D 22 3B 4E 24 00 CB 0E BC 02 |AME. :-";N$.....| 000006C0: 5A 5A B2 C6 28 4E 24 29 AB 36 35 00 DE 0E C6 02 |ZZ..(N$).65.....| 000006D0: 81 49 B2 5A 59 28 5A 5A 29 A4 41 4E AB 31 00 F3 |.I.ZY(ZZ).AN.1..| 000006E0: 0E D0 02 81 54 B2 31 A4 C3 28 54 4E 24 28 49 2C |....T.1..(TN$(I,| 000006F0: 30 29 29 00 19 0F DA 02 8B CA 28 54 4E 24 28 49 |0)).......(TN$(I| 00000700: 2C 30 29 2C 54 2C C3 28 4E 24 29 29 B2 4E 24 A7 |,0),T,.(N$)).N$.| 00000710: 99 22 93 22 3A 89 37 36 30 00 22 0F E4 02 82 54 |.".":.760."....T| 00000720: 2C 49 00 62 0F EE 02 99 22 91 12 20 20 20 20 20 |,I.b....".. | 00000730: 20 20 20 20 20 44 41 54 41 20 4E 4F 54 20 41 56 | DATA NOT AV| 00000740: 41 49 4C 41 42 4C 45 20 20 20 20 20 20 20 20 20 |AILABLE | 00000750: 20 20 20 22 3A 81 50 B2 31 A4 32 30 30 30 3A 82 | ":.P.1.2000:.| 00000760: 3A 8E 00 81 0F F8 02 99 22 1D 11 11 12 20 4E 41 |:.......".... NA| 00000770: 4D 45 92 20 3A 22 3B 54 4E 24 28 49 2C 30 29 3A |ME. :";TN$(I,0):| 00000780: 99 00 C9 0F 02 03 99 22 1D 12 11 11 20 44 41 54 |.......".... DAT| 00000790: 41 92 20 3A 20 22 3B 54 4E 24 28 49 2C 31 29 3A |A. : ";TN$(I,1):| 000007A0: 99 22 11 11 11 11 1D 12 20 43 4F 4E 54 49 4E 55 |."...... CONTINU| 000007B0: 45 20 53 45 41 52 43 48 20 3F 92 20 20 12 59 92 |E SEARCH ?. .Y.| 000007C0: 45 53 2F 12 4E 92 4F 20 22 00 EF 0F 0C 03 99 22 |ES/.N.O "......"| 000007D0: 11 1D 12 20 48 41 52 44 43 4F 50 59 20 20 20 20 |... HARDCOPY | 000007E0: 20 20 3F 92 20 20 12 50 92 52 49 4E 54 20 22 00 | ?. .P.RINT ".| 000007F0: 16 10 16 03 99 22 11 1D 12 20 55 50 44 41 54 45 |....."... UPDATE| 00000800: 20 20 20 20 20 20 20 20 3F 92 20 20 12 43 92 48 | ?. .C.H| 00000810: 41 4E 47 45 92 22 00 29 10 20 03 A1 41 24 3A 8B |ANGE.".). ..A$:.| 00000820: 41 24 B2 22 22 A7 38 30 30 00 3A 10 2A 03 8B 41 |A$."".800.:.*..A| 00000830: 24 B2 22 59 22 A7 89 37 34 30 00 4C 10 34 03 8B |$."Y"..740.L.4..| 00000840: 41 24 B2 22 50 22 A7 89 31 33 32 30 00 5D 10 3E |A$."P"..1320.].>| 00000850: 03 8B 41 24 B2 22 43 22 A7 31 34 34 30 00 63 10 |..A$."C".1440.c.| 00000860: 48 03 8E 00 71 10 52 03 8F 20 45 49 4E 47 41 42 |H...q.R.. EINGAB| 00000870: 45 00 91 10 5C 03 99 22 93 11 11 1D 1D 1D 12 20 |E...\.."....... | 00000880: 49 4E 50 55 54 20 4E 55 4D 42 45 52 20 22 3B 41 |INPUT NUMBER ";A| 00000890: 4E 00 AB 10 5D 03 99 A3 32 35 29 22 91 42 59 54 |N...]...25)".BYT| 000008A0: 45 20 46 52 45 45 22 B8 28 58 29 00 CA 10 66 03 |E FREE".(X)...f.| 000008B0: 99 22 11 44 4F 20 4E 4F 54 20 55 53 45 20 50 55 |.".DO NOT USE PU| 000008C0: 4E 43 54 55 41 54 49 4F 4E 22 00 02 11 70 03 8B |NCTUATION"...p..| 000008D0: 20 41 4E B1 54 4E A7 99 22 13 11 11 11 11 1D 1D | AN.TN..".......| 000008E0: 1D 20 20 4E 4F 20 53 50 41 43 45 20 4C 45 46 54 |. NO SPACE LEFT| 000008F0: 20 21 21 22 3A 81 54 B2 31 A4 31 35 30 30 3A 82 | !!":.T.1.1500:.| 00000900: 3A 8E 00 22 11 7A 03 85 20 22 1D 11 11 12 20 4E |:..".z.. ".... N| 00000910: 41 4D 45 20 92 3A 2D 22 3B 54 4E 24 28 41 4E 2C |AME .:-";TN$(AN,| 00000920: 30 29 00 6C 11 84 03 99 A3 31 31 29 22 11 11 11 |0).l.....11)"...| 00000930: 11 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000940: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000950: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000960: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 8E 11 8E |..........."....| 00000970: 03 99 A3 32 39 29 22 91 2E 2E 2E 2E 2E 2E 2E 2E |...29)".........| 00000980: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 5F 22 00 94 |............_"..| 00000990: 11 97 03 99 00 BB 11 98 03 99 22 12 1D 2A 20 4D |.........."..* M| 000009A0: 41 58 2E 45 4E 54 52 59 20 37 38 20 43 48 41 52 |AX.ENTRY 78 CHAR| 000009B0: 41 43 54 45 52 53 20 2A 20 92 22 00 C1 11 A2 03 |ACTERS * .".....| 000009C0: 99 00 DE 11 AC 03 85 22 1D 91 91 91 91 91 91 12 |......."........| 000009D0: 20 44 41 54 41 20 92 3A 2D 22 3B 4D 4D 24 00 EC | DATA .:-";MM$..| 000009E0: 11 B6 03 54 54 B2 C3 28 4D 4D 24 29 00 09 12 C0 |...TT..(MM$)....| 000009F0: 03 81 4C 4C B2 31 A4 54 54 3A 4C 4C 24 B2 CA 28 |..LL.1.TT:LL$..(| 00000A00: 4D 4D 24 2C 4C 4C 2C 31 29 00 1B 12 CA 03 8B 4C |MM$,LL,1)......L| 00000A10: 4C 24 B3 B1 22 2E 22 A7 82 4C 4C 00 37 12 D4 03 |L$.."."..LL.7...| 00000A20: 54 4E 24 28 41 4E 2C 31 29 B2 CA 28 4D 4D 24 2C |TN$(AN,1)..(MM$,| 00000A30: 31 2C 4C 4C AB 31 29 00 4A 12 DE 03 41 4E B2 41 |1,LL.1).J...AN.A| 00000A40: 4E AA 31 3A 46 4C B2 31 3A 8E 00 54 12 E8 03 8F |N.1:FL.1:..T....| 00000A50: 20 45 4E 44 00 86 12 F2 03 99 22 93 12 20 20 20 | END......".. | 00000A60: 20 20 20 20 20 20 45 58 49 54 20 46 52 4F 4D 20 | EXIT FROM | 00000A70: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 20 20 20 |PROGRAM | 00000A80: 20 20 20 20 20 22 00 B8 12 FC 03 8B 20 46 4C B2 | "...... FL.| 00000A90: 31 A7 99 22 11 11 11 12 20 48 41 56 45 20 59 4F |1..".... HAVE YO| 00000AA0: 55 20 53 41 56 45 44 20 44 41 54 41 3F 3F 3F 3F |U SAVED DATA????| 00000AB0: 3F 22 3A 89 31 30 34 30 00 D3 12 06 04 99 22 11 |?":.1040......".| 00000AC0: 11 1D 1D 1D 1D 1D 1D 1D 20 56 49 43 44 41 54 41 |........ VICDATA| 00000AD0: 22 3A 80 00 F4 12 10 04 99 22 11 11 11 11 11 11 |":......."......| 00000AE0: 1D 1D 1D 1D 1D 1D 1D 1D 12 05 59 92 45 53 2F 12 |..........Y.ES/.| 00000AF0: 4E 92 4F 22 00 06 13 24 04 A1 41 24 3A 8B 41 24 |N.O"...$..A$:.A$| 00000B00: B2 22 59 22 A7 80 00 18 13 2E 04 8B 41 24 B3 B1 |."Y"........A$..| 00000B10: 22 4E 22 A7 31 30 36 30 00 21 13 38 04 89 34 35 |"N".1060.!.8..45| 00000B20: 30 00 27 13 42 04 8E 00 63 13 4C 04 99 22 93 12 |0.'.B...c.L.."..| 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 53 4F 54 49 | SOTI| 00000B40: 4E 47 20 52 4F 55 54 49 4E 45 20 20 20 20 20 20 |NG ROUTINE | 00000B50: 20 20 20 20 20 20 20 20 92 22 3A 58 B2 30 3A 58 | .":X.0:X| 00000B60: 58 B2 30 00 81 13 56 04 8B 54 4E 24 28 58 AA 31 |X.0...V..TN$(X.1| 00000B70: 2C 30 29 B2 59 59 24 AF 58 58 B2 30 A7 31 32 36 |,0).YY$.XX.0.126| 00000B80: 30 00 9F 13 60 04 8B 54 4E 24 28 58 AA 31 2C 30 |0...`..TN$(X.1,0| 00000B90: 29 B2 59 59 24 AF 58 58 B2 31 A7 31 31 30 30 00 |).YY$.XX.1.1100.| 00000BA0: BD 13 6A 04 8B 54 4E 24 28 58 2C 30 29 B1 54 4E |..j..TN$(X,0).TN| 00000BB0: 24 28 58 AA 31 2C 30 29 A7 31 32 30 30 00 D7 13 |$(X.1,0).1200...| 00000BC0: 74 04 58 B2 58 AA 31 3A 8B 58 B2 54 4E AF 58 58 |t.X.X.1:.X.TN.XX| 00000BD0: B2 30 A7 31 32 36 30 00 E6 13 7E 04 8B 58 B2 54 |.0.1260...~..X.T| 00000BE0: 4E A7 31 31 30 30 00 02 14 88 04 8B 54 4E 24 28 |N.1100......TN$(| 00000BF0: 58 2C 30 29 B2 59 59 24 AF 58 58 B2 31 A7 31 31 |X,0).YY$.XX.1.11| 00000C00: 30 30 00 1F 14 92 04 8B 54 4E 24 28 58 2C 30 29 |00......TN$(X,0)| 00000C10: B2 59 59 24 AF 58 58 B2 30 A7 20 31 32 36 30 00 |.YY$.XX.0. 1260.| 00000C20: 3B 14 9C 04 8B 54 4E 24 28 58 2C 30 29 B2 59 59 |;....TN$(X,0).YY| 00000C30: 24 AF 58 58 B2 31 A7 31 31 30 30 00 45 14 A6 04 |$.XX.1.1100.E...| 00000C40: 89 31 31 31 30 00 78 14 B0 04 54 41 24 B2 54 4E |.1110.x...TA$.TN| 00000C50: 24 28 58 2C 30 29 3A 54 42 24 B2 54 4E 24 28 58 |$(X,0):TB$.TN$(X| 00000C60: 2C 31 29 3A 99 54 4E 24 28 58 2C 30 29 3B 54 4E |,1):.TN$(X,0);TN| 00000C70: 24 28 58 AA 31 2C 30 29 00 A4 14 BA 04 54 4E 24 |$(X.1,0).....TN$| 00000C80: 28 58 2C 30 29 B2 54 4E 24 28 58 AA 31 2C 30 29 |(X,0).TN$(X.1,0)| 00000C90: 3A 54 4E 24 28 58 2C 31 29 B2 54 4E 24 28 58 AA |:TN$(X,1).TN$(X.| 00000CA0: 31 2C 31 29 00 C6 14 C4 04 54 4E 24 28 58 AA 31 |1,1).....TN$(X.1| 00000CB0: 2C 30 29 B2 54 41 24 3A 54 4E 24 28 58 AA 31 2C |,0).TA$:TN$(X.1,| 00000CC0: 31 29 B2 54 42 24 00 D5 14 CE 04 58 B2 58 AA 31 |1).TB$.....X.X.1| 00000CD0: 3A 58 58 B2 31 00 E4 14 D8 04 8B 58 B2 54 4E A7 |:XX.1......X.TN.| 00000CE0: 31 31 30 30 00 EE 14 E2 04 89 31 31 31 30 00 05 |1100......1110..| 00000CF0: 15 EC 04 81 49 B2 30 A4 32 37 3A 5A 59 28 49 29 |....I.0.27:ZY(I)| 00000D00: B2 30 3A 82 49 00 2A 15 F6 04 81 49 B2 31 A4 54 |.0:.I.*....I.1.T| 00000D10: 4E 3A 8B 54 4E 24 28 49 2C 30 29 B2 59 59 24 A7 |N:.TN$(I,0).YY$.| 00000D20: 5A 5A B2 30 3A 89 31 33 30 30 00 40 15 00 05 5A |ZZ.0:.1300.@...Z| 00000D30: 5A B2 C6 28 54 4E 24 28 49 2C 30 29 29 AB 36 35 |Z..(TN$(I,0)).65| 00000D40: 00 57 15 0A 05 8B 5A 59 28 5A 5A 29 B2 30 A7 5A |.W....ZY(ZZ).0.Z| 00000D50: 59 28 5A 5A 29 B2 49 00 5E 15 14 05 82 49 00 66 |Y(ZZ).I.^....I.f| 00000D60: 15 1E 05 89 31 36 00 71 15 28 05 9F 34 2C 34 2C |....16.q.(..4,4,| 00000D70: 30 00 91 15 32 05 98 34 2C C7 28 31 36 29 30 36 |0...2..4,.(16)06| 00000D80: 54 4E 24 28 49 2C 30 29 2C 54 4E 24 28 49 2C 31 |TN$(I,0),TN$(I,1| 00000D90: 29 00 98 15 3C 05 A0 34 00 9E 15 46 05 8E 00 B9 |)...<..4...F....| 00000DA0: 15 50 05 99 22 93 11 11 1D 1D 1D 1D 1D 1D 12 20 |.P..".......... | 00000DB0: 48 41 52 44 43 4F 50 59 22 00 C4 15 5A 05 9F 34 |HARDCOPY"...Z..4| 00000DC0: 2C 34 2C 30 00 CE 15 64 05 98 34 2C 41 4E 00 DC |,4,0...d..4,AN..| 00000DD0: 15 6E 05 81 49 B2 31 A4 41 4E AB 31 00 F8 15 78 |.n..I.1.AN.1...x| 00000DE0: 05 98 34 2C 54 4E 24 28 49 2C 30 29 2C 54 4E 24 |..4,TN$(I,0),TN$| 00000DF0: 28 49 2C 31 29 3A 82 49 00 04 16 82 05 A0 34 3A |(I,1):.I......4:| 00000E00: 46 4C B2 31 00 22 16 8C 05 99 22 93 11 11 1D 1D |FL.1."....".....| 00000E10: 50 52 49 4E 54 4F 55 54 20 43 4F 4D 50 4C 45 54 |PRINTOUT COMPLET| 00000E20: 45 22 00 28 16 96 05 8E 00 47 16 A0 05 85 22 11 |E".(.....G....".| 00000E30: 1D 12 20 4E 45 57 92 20 2D 22 3B 54 4E 24 28 49 |.. NEW. -";TN$(I| 00000E40: 2C 31 29 3A 89 31 36 00 5C 16 AA 05 8F 20 44 49 |,1):.16.\.... DI| 00000E50: 53 4B 20 53 43 48 52 45 49 42 45 4E 00 7D 16 B4 |SK SCHREIBEN.}..| 00000E60: 05 99 22 93 11 11 1D 1D 1D 12 20 49 4E 49 54 49 |.."....... INITI| 00000E70: 41 4C 49 53 45 20 44 49 53 4B 92 20 22 00 8F 16 |ALISE DISK. "...| 00000E80: BE 05 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 |...15,8,15,"I0".| 00000E90: 99 16 C8 05 8D 31 36 34 30 00 A7 16 D2 05 43 52 |.....1640.....CR| 00000EA0: 24 B2 C7 28 31 33 29 00 AD 16 DC 05 99 00 CE 16 |$..(13).........| 00000EB0: E6 05 99 22 20 11 12 20 57 52 49 54 45 20 53 45 |..." .. WRITE SE| 00000EC0: 51 20 44 41 54 41 20 46 49 4C 45 92 20 22 00 D4 |Q DATA FILE. "..| 00000ED0: 16 F0 05 99 00 E7 16 FA 05 8F 20 53 43 48 52 45 |.......... SCHRE| 00000EE0: 49 42 45 20 53 45 51 00 F7 16 04 06 8F 20 44 41 |IBE SEQ...... DA| 00000EF0: 54 41 20 46 49 4C 45 00 05 17 0E 06 9F 32 2C 38 |TA FILE......2,8| 00000F00: 2C 32 2C 46 24 00 0F 17 18 06 8D 31 36 34 30 00 |,2,F$......1640.| 00000F10: 38 17 22 06 8B 51 35 B2 32 A7 51 35 B2 30 3A 8D |8."..Q5.2.Q5.0:.| 00000F20: 31 38 39 30 3A 8B 51 35 B2 31 A7 51 35 B2 30 3A |1890:.Q5.1.Q5.0:| 00000F30: A0 32 3A 89 31 36 33 30 00 42 17 2C 06 98 32 2C |.2:.1630.B.,..2,| 00000F40: 41 4E 00 4E 17 36 06 81 49 B2 31 A4 41 4E 00 79 |AN.N.6..I.1.AN.y| 00000F50: 17 40 06 99 22 13 1D 1D 1D 11 11 11 11 11 11 11 |.@.."...........| 00000F60: 11 11 11 11 11 11 11 20 52 45 43 4F 52 44 20 4E |....... RECORD N| 00000F70: 55 4D 4D 45 52 20 22 3B 49 00 98 17 4A 06 98 32 |UMMER ";I...J..2| 00000F80: 2C 54 4E 24 28 49 2C 30 29 3A 98 32 2C 54 4E 24 |,TN$(I,0):.2,TN$| 00000F90: 28 49 2C 31 29 3A 82 49 00 9F 17 54 06 A0 32 00 |(I,1):.I...T..2.| 00000FA0: B1 17 5E 06 8D 31 36 34 30 3A A0 31 35 3A 89 31 |..^..1640:.15:.1| 00000FB0: 36 00 C5 17 68 06 8F 20 45 52 52 4F 52 20 43 48 |6...h.. ERROR CH| 00000FC0: 41 4E 4E 45 4C 00 DB 17 72 06 84 31 35 2C 45 4E |ANNEL...r..15,EN| 00000FD0: 2C 45 4D 24 2C 45 54 2C 45 53 3A 00 F3 17 7C 06 |,EM$,ET,ES:...|.| 00000FE0: 8B 20 45 4E B2 36 33 AF 51 35 B2 30 A7 51 35 B2 |. EN.63.Q5.0.Q5.| 00000FF0: 32 3A 8E 00 02 18 86 06 8B 20 45 4E B2 30 20 A7 |2:....... EN.0 .| 00001000: 20 8E 00 2C 18 90 06 99 22 11 1D 1D 1D 1D 12 20 | ..,...."...... | 00001010: 45 52 52 4F 52 20 49 4E 20 44 49 53 4B 92 20 22 |ERROR IN DISK. "| 00001020: 3A 81 51 B2 31 A4 31 35 30 30 3A 82 00 49 18 9A |:.Q.1.1500:..I..| 00001030: 06 99 22 11 1D 1D 1D 1D 2A 22 45 4D 24 3A 81 51 |..".....*"EM$:.Q| 00001040: B2 31 A4 32 35 30 30 3A 82 00 54 18 A4 06 A0 31 |.1.2500:..T....1| 00001050: 35 3A A0 32 00 5A 18 AE 06 8E 00 72 18 B8 06 8F |5:.2.Z.....r....| 00001060: 20 44 49 53 4B 20 4C 45 53 45 20 52 4F 55 54 49 | DISK LESE ROUTI| 00001070: 4E 45 00 94 18 C2 06 99 22 20 11 11 1D 12 20 52 |NE......" .... R| 00001080: 45 41 44 20 53 45 51 20 44 41 54 41 20 46 49 4C |EAD SEQ DATA FIL| 00001090: 45 92 20 22 00 A2 18 CC 06 9F 32 2C 38 2C 32 2C |E. "......2,8,2,| 000010A0: 46 24 00 AF 18 D6 06 9F 31 35 2C 38 2C 31 35 00 |F$......15,8,15.| 000010B0: B9 18 E0 06 8D 31 36 34 30 00 C3 18 EA 06 84 32 |.....1640......2| 000010C0: 2C 41 4E 00 CD 18 F4 06 8D 31 36 34 30 00 DB 18 |,AN......1640...| 000010D0: FE 06 81 49 B2 31 A4 41 4E AB 31 00 19 19 08 07 |...I.1.AN.1.....| 000010E0: 84 32 2C 54 4E 24 28 49 2C 30 29 2C 54 4E 24 28 |.2,TN$(I,0),TN$(| 000010F0: 49 2C 31 29 3A 99 54 4E 24 28 49 2C 30 29 2C 54 |I,1):.TN$(I,0),T| 00001100: 4E 24 28 49 2C 31 29 3A 5A 5A B2 C6 28 54 4E 24 |N$(I,1):ZZ..(TN$| 00001110: 28 49 2C 30 29 29 AB 36 35 00 23 19 12 07 8D 31 |(I,0)).65.#....1| 00001120: 36 34 30 00 3A 19 1C 07 8B 5A 59 28 5A 5A 29 B2 |640.:....ZY(ZZ).| 00001130: 30 A7 5A 59 28 5A 5A 29 B2 49 00 41 19 26 07 82 |0.ZY(ZZ).I.A.&..| 00001140: 49 00 4F 19 30 07 81 49 B2 31 A4 41 4E AB 31 00 |I.O.0..I.1.AN.1.| 00001150: 5B 19 3A 07 A0 32 3A 46 4C B2 31 00 63 19 44 07 |[.:..2:FL.1.c.D.| 00001160: A0 31 35 00 69 19 4E 07 8E 00 A8 19 62 07 99 22 |.15.i.N.....b.."| 00001170: 1D 1D 1D 1D 1D 20 2A 22 45 4D 24 3A 20 99 22 11 |..... *"EM$: .".| 00001180: 1D 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |. DO YOU WISH TO| 00001190: 20 4F 56 45 52 57 52 49 54 45 20 54 48 49 53 20 | OVERWRITE THIS | 000011A0: 46 49 4C 45 3F 20 20 22 00 C1 19 6C 07 99 22 11 |FILE? "...l..".| 000011B0: 1D 1D 1D 1D 1D 1D 1D 12 59 92 45 53 2F 12 4E 92 |........Y.ES/.N.| 000011C0: 4F 00 E2 19 76 07 A1 41 24 3A 8B 41 24 B2 22 4E |O...v..A$:.A$."N| 000011D0: 22 A7 51 35 B2 31 3A A0 31 35 3A A0 32 3A 89 35 |".Q5.1:.15:.2:.5| 000011E0: 31 30 00 F4 19 80 07 8B 41 24 B3 B1 22 59 22 A7 |10......A$.."Y".| 000011F0: 31 39 31 30 00 12 1A 8A 07 A0 32 3A 20 46 24 B2 |1910......2: F$.| 00001200: 22 40 22 AA 46 24 3A 9F 32 2C 38 2C 32 2C 46 24 |"@".F$:.2,8,2,F$| 00001210: 3A 8E 00 24 1A 9E 07 4C 24 B2 22 22 3A 9F 32 2C |:..$...L$."":.2,| 00001220: 38 2C 31 35 00 34 1A A8 07 9F 31 2C 38 2C 30 2C |8,15.4....1,8,0,| 00001230: 22 24 30 22 00 42 1A B2 07 A1 23 31 2C 41 24 2C |"$0".B....#1,A$,| 00001240: 42 24 00 57 1A BC 07 4C 24 B2 22 22 3A 20 A1 23 |B$.W...L$."": .#| 00001250: 31 2C 41 24 2C 42 24 00 65 1A C6 07 A1 23 31 2C |1,A$,B$.e....#1,| 00001260: 41 24 2C 42 24 00 6D 1A D0 07 43 B2 30 00 81 1A |A$,B$.m...C.0...| 00001270: DA 07 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 |...A$.."".C..(A$| 00001280: 29 00 9B 1A E4 07 8B 42 24 B3 B1 22 22 A7 43 B2 |)......B$.."".C.| 00001290: 43 AA C6 28 42 24 29 AC 32 35 36 00 BB 1A EE 07 |C..(B$).256.....| 000012A0: 4C 24 B2 22 11 1D 20 12 22 AA CA 28 C4 28 43 29 |L$.".. ."..(.(C)| 000012B0: 2C 32 29 AA 22 20 20 20 92 20 22 00 D2 1A F8 07 |,2)." . ".....| 000012C0: A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 32 31 |.#1,B$:.ST..0.21| 000012D0: 32 30 00 E6 1A 02 08 8B 42 24 B3 B1 C7 28 33 34 |20......B$...(34| 000012E0: 29 A7 32 30 34 30 00 0B 1B 0C 08 A1 23 31 2C 42 |).2040......#1,B| 000012F0: 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 4C 24 B2 |$:.B$...(34).L$.| 00001300: 4C 24 AA 42 24 3A 89 32 30 36 30 00 25 1B 16 08 |L$.B$:.2060.%...| 00001310: A1 23 31 2C 42 24 3A 8B 42 24 B2 C7 28 33 32 29 |.#1,B$:.B$..(32)| 00001320: A7 32 30 37 30 00 3B 1B 20 08 4C 24 B2 4C 24 AA |.2070.;. .L$.L$.| 00001330: 22 20 20 20 22 3A 43 24 B2 22 22 00 5C 1B 2A 08 |" ":C$."".\.*.| 00001340: 43 24 B2 43 24 AA 42 24 3A A1 23 31 2C 42 24 3A |C$.C$.B$:.#1,B$:| 00001350: 8B 42 24 B3 B1 22 22 A7 32 30 39 30 00 79 1B 34 |.B$.."".2090.y.4| 00001360: 08 8B C8 28 43 24 2C 33 29 B2 22 53 45 51 22 A7 |...(C$,3)."SEQ".| 00001370: 99 4C 24 3A 89 31 39 38 30 00 88 1B 3E 08 8B 53 |.L$:.1980...>..S| 00001380: 54 B2 30 A7 31 39 38 30 00 9F 1B 48 08 99 4C 24 |T.0.1980...H..L$| 00001390: 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 20 22 00 |" BLOCKS FREE ".| 000013A0: AF 1B 52 08 81 47 B2 30 A4 33 35 30 30 3A 82 00 |..R..G.0.3500:..| 000013B0: C0 1B 5C 08 A0 31 3A A0 32 3A 99 22 93 22 3A 8E |..\..1:.2:.".":.| 000013C0: 00 00 00 00 |.... |
..#.... VICDATA (UNIVERSELLE DATEI).,...
Q5.0.N...ZZ..(X).65536:ZZ..(ZZ.100).10.P
.... TN$(ZZ,1),ZY(27):TN.ZZ:AN.1......".
...
.";.X....". DATA-BASE PROGRAM
.";......".
.".,...." .1.
= LOAD DATA FILE ".L...." . .2. = SAV
E DATA FILE".P...." . .3. = SEARCH / UP
DATE "......" . .4. = INPUT NEW DATA
"......" . .5. = .END. ".I...." . .6.
= HARDCOPY DATA"......" . .7. = SORTIN
G ROUTINE "......" . .8. * TEST . VIC
DATA . "."....A$:.A$."".28.O....E(A$).31
,450,670,850,1000,1360,1100,410.W....16.
C.... LESEN... ..".... DISK OR TAPE REA
DY? "...!.."..... DISK DIRECTORY ?.
. .Y.ES/.N.O ".P."..A$:.A$."N"..37
...#..A$.."Y"..34...$..A$."Y"..1950...%.
."..... INPUT FILE NAME. ":."....";Z$.,.
&..Z$."=".16.B.'.F$."0:".Z$.",S,R".E.(..
"....D.ISK DRIVE OR .T.APE? ".Z.6..A$:.A
$."T"..340...@..A$.."D".310...J..A$."D".
.1720...T..1,1,0,Z$.L.^..".... LOADING
DATA FILE. ".V.H..1,AN...R.I.1.AN.1...|.
.1,TN$(I,0),TN$(I,1):ZZ.F(TN$(I,0)).65.%
....ZY(ZZ).0.ZY(ZZ).I.,....I.:....I.1.AN
.1.V.... TN$(I,0),TN$(I,1):. I.C... 1:F
L.1.I.....Y.B.. SCHREIBEN...L..".... DI
SK OR TAPE READY? ".R.V.."..... DISK DIR
ECTORY ?. . .Y.ES/.N.O "......
A$:.A$."N"..510......A$.."Y"..480......A
$."Y"..1950.5...."..... INPUT FILE NAME.
":."....";Z$.D....Z$."=".16.Y...F$."0:"
.Z$.",S,W.|...."....D.ISK DRIVE OR .T.AP
E? "...&..A$:.A$."T"..580...0..A$.."D"..
550...:..A$."D"..1450.C.D..1,1,1,Z$.M.N.
.1,AN.Y.X..I.1.AN...B.."................
.... RECORD NUMMER ";I.#.L.."...... SAVI
NG DATA . ".C.V..1,TN$(I,0):.1,TN$(I,1):
. I.X....1,"***********".`... 1.F.....S
.... SUCHEN......".. SEARCHING
DATA "...... "..... NAME. :-"
;N$.K...ZZ.F(N$).65...F..I.ZY(ZZ).AN.1..
.P..T.1.C(TN$(I,0))...Z..J(TN$(I,0),T,C(
N$)).N$..".":.760."....T,I.B...."..
DATA NOT AVAILABLE ":.P.
1.2000:.:.......".... NAME. :";TN$(I,0):
..I....".... DATA. : ";TN$(I,1):."......
CONTINUE SEARCH ?. .Y.ES/.N.O "......"
... HARDCOPY ?. .P.RINT "......"..
. UPDATE ?. .C.HANGE.".). ..A$:.
A$."".800.:.*..A$."Y"..740.L.4..A$."P"..
1320.].>..A$."C".1440.C.H...Q.R.. EINGAB
E...\.."....... INPUT NUMBER ";AN...]...
25)".BYTE FREE".(X).J.F..".DO NOT USE PU
NCTUATION"...P.. AN.TN.."........ NO SP
ACE LEFT !!":.T.1.1500:.:..".Z.. ".... N
AME .:-";TN$(AN,0).L.....11)"...........
........................................
...........".......29)".................
...._"............"..* MAX.ENTRY 78 CHAR
ACTERS * .".A.........."........ DATA .:
-";MM$.....TT.C(MM$)......LL.1.TT:LL$.J(
MM$,LL,1)...J..LL$.."."..LL.7.T.TN$(AN,1
).J(MM$,1,LL.1).J...AN.AN.1:FL.1:..T....
END......".. EXIT FROM PROGRAM
"...... FL.1..".... HAVE YO
U SAVED DATA?????":.1040.S....".........
VICDATA":......."................Y.ES/.
N.O"...$..A$:.A$."Y"........A$.."N".1060
.!.8..450.'.B...C.L..".. SOTI
NG ROUTINE .":X.0:XX.0...V.
.TN$(X.1,0).YY$.XX.0.1260...`..TN$(X.1,0
).YY$.XX.1.1100...J..TN$(X,0).TN$(X.1,0)
.1200.W.T.X.X.1:.X.TN.XX.0.1260...~..X.T
N.1100......TN$(X,0).YY$.XX.1.1100......
TN$(X,0).YY$.XX.0. 1260.;....TN$(X,0).YY
$.XX.1.1100.E....1110.X...TA$.TN$(X,0):T
B$.TN$(X,1):.TN$(X,0);TN$(X.1,0).....TN$
(X,0).TN$(X.1,0):TN$(X,1).TN$(X.1,1).F.D
.TN$(X.1,0).TA$:TN$(X.1,1).TB$.U.N.X.X.1
:XX.1...X..X.TN.1100......1110......I.0.
27:ZY(I).0:.I.*....I.1.TN:.TN$(I,0).YY$.
ZZ.0:.1300.@...ZZ.F(TN$(I,0)).65.W....ZY
(ZZ).0.ZY(ZZ).I.^....I.F....16.Q.(..4,4,
0...2..4,G(16)06TN$(I,0),TN$(I,1)...<. 4
...F.....P..".......... HARDCOPY".D.Z..4
,4,0.N.D..4,AN...N..I.1.AN.1...X..4,TN$(
I,0),TN$(I,1):.I..... 4:FL.1."....".....
PRINTOUT COMPLETE".(.....G. .."... NEW.
-";TN$(I,1):.16.\.... DISK SCHREIBEN.}..
.."....... INITIALISE DISK. "......15,8,
15,"I0"...H..1640...R.CR$.G(13).......N.
..." .. WRITE SEQ DATA FILE. ".T........
.. SCHREIBE SEQ...... DATA FILE......2,8
,2,F$......1640.8."..Q5.2.Q5.0:.1890:.Q5
.1.Q5.0: 2:.1630.B.,..2,AN.N.6..I.1.AN.Y
.@..".................. RECORD NUMMER ";
I...J..2,TN$(I,0):.2,TN$(I,1):.I...T. 2.
..^..1640: 15:.16.E.H.. ERROR CHANNEL...
R..15,EN,EM$,ET,ES:...|.. EN.63.Q5.0.Q5.
2:....... EN.0 . ..,...."...... ERROR IN
DISK. ":.Q.1.1500:..I....".....*"EM$:.Q
.1.2500:..T... 15: 2.Z.....R.... DISK LE
SE ROUTINE...B.." .... READ SEQ DATA FIL
E. "...L..2,8,2,F$...V..15,8,15......164
0.C....2,AN.M....1640......I.1.AN.1.....
.2,TN$(I,0),TN$(I,1):.TN$(I,0),TN$(I,1):
ZZ.F(TN$(I,0)).65.#....1640.:....ZY(ZZ).
0.ZY(ZZ).I.A.&..I.O.0..I.1.AN.1.[.:. 2:F
L.1.C.D. 15.I.N.....B.."..... *"EM$: .".
. DO YOU WISH TO OVERWRITE THIS FILE? "
.A.L..".........Y.ES/.N.O...V..A$:.A$."N
".Q5.1: 15: 2:.510......A$.."Y".1910....
. 2: F$."@".F$:.2,8,2,F$:..$...L$."":.2,
8,15.4....1,8,0,"$0".B....#1,A$,B$.W...L
$."": .#1,A$,B$.E.F..#1,A$,B$.M.P.C.0...
Z..A$.."".C.F(A$)......B$.."".C.C.F(B$).
256.....L$.".. .".J(D(C),2)." . ".R...
.#1,B$:.ST..0.2120......B$..G(34).2040..
....#1,B$:.B$..G(34).L$.L$.B$:.2060.%...
.#1,B$:.B$.G(32).2070.;. .L$.L$." ":C$
."".\.*.C$.C$.B$:.#1,B$:.B$.."".2090.Y.4
..H(C$,3)."SEQ"..L$:.1980...>..ST.0.1980
...H..L$" BLOCKS FREE "...R..G.0.3500:..
..\. 1: 2:.".":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL