DISK-WRITER C64

00000000: 01 1C 0C 1C 64 00 4E B2  31 30 30 30 00 33 1C 6E  |....d.N.1000.3.n|
00000010: 00 8F 20 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.. *************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000030: 2A 2A 2A 00 3C 1C 78 00  99 22 93 22 00 59 1C 82  |***.<.x..".".Y..|
00000040: 00 99 22 9E 22 3A 97 20  35 33 32 38 31 2C 30 3A  |..".":. 53281,0:|
00000050: 97 20 35 33 32 38 30 2C  35 00 8D 1C C8 00 99 20  |. 53280,5...... |
00000060: A3 32 29 3B 22 12 20 20  20 20 20 3E 3E 20 20 20  |.2);".     >>   |
00000070: 20 20 56 45 52 53 49 4F  4E 20 35 2E 31 20 20 20  |  VERSION 5.1   |
00000080: 20 20 3C 3C 20 20 20 20  20 92 11 11 22 00 AF 1C  |  <<     ..."...|
00000090: D2 00 99 20 A3 39 29 3B  22 D1 D1 D1 D1 20 20 D1  |... .9);"....  .|
000000A0: D1 D1 20 20 D1 D1 D1 D1  20 D1 20 20 20 D1 22 00  |..  .... .   .".|
000000B0: D1 1C DC 00 99 20 A3 39  29 3B 22 D1 A0 A0 A0 D1  |..... .9);".....|
000000C0: A0 A0 D1 A0 A0 D1 A0 A0  A0 A0 A0 D1 A0 A0 D1 A0  |................|
000000D0: 22 00 F3 1C E6 00 99 20  A3 39 29 3B 22 D1 A0 A0  |"...... .9);"...|
000000E0: A0 D1 A0 A0 D1 A0 A0 A0  D1 D1 D1 A0 A0 D1 D1 D1  |................|
000000F0: 20 20 22 00 15 1D F0 00  99 20 A3 39 29 3B 22 D1  |  "...... .9);".|
00000100: A0 A0 A0 D1 A0 A0 D1 A0  A0 A0 A0 A0 A0 D1 A0 D1  |................|
00000110: A0 A0 D1 A0 22 00 37 1D  FA 00 99 20 A3 39 29 3B  |....".7.... .9);|
00000120: 22 D1 D1 D1 D1 A0 A0 D1  D1 D1 A0 D1 D1 D1 D1 20  |".............. |
00000130: 20 D1 20 20 20 D1 22 00  3D 1D FF 00 99 00 6D 1D  | .   .".=.....m.|
00000140: 04 01 99 20 A3 32 29 3B  22 D1 A0 A0 A0 A0 A0 D1  |... .2);".......|
00000150: A0 D1 D1 D1 D1 A0 A0 D1  D1 D1 A0 D1 D1 D1 D1 D1  |................|
00000160: A0 D1 D1 D1 D1 D1 A0 D1  D1 D1 D1 A0 22 00 9D 1D  |............"...|
00000170: 0E 01 99 20 A3 32 29 3B  22 D1 A0 A0 A0 A0 A0 D1  |... .2);".......|
00000180: A0 D1 A0 A0 A0 D1 A0 A0  D1 A0 A0 A0 A0 D1 A0 A0  |................|
00000190: A0 D1 A0 A0 A0 A0 A0 D1  A0 A0 A0 D1 22 00 CD 1D  |............"...|
000001A0: 18 01 99 20 A3 32 29 3B  22 20 D1 20 D1 20 D1 A0  |... .2);" . . ..|
000001B0: A0 D1 D1 D1 D1 A0 A0 A0  D1 A0 A0 A0 A0 D1 A0 A0  |................|
000001C0: A0 D1 D1 D1 A0 A0 A0 D1  D1 D1 D1 20 22 00 FD 1D  |........... "...|
000001D0: 22 01 99 20 A3 32 29 3B  22 A0 D1 A0 D1 A0 D1 A0  |".. .2);".......|
000001E0: A0 D1 A0 A0 D1 A0 A0 A0  D1 A0 A0 A0 A0 D1 A0 A0  |................|
000001F0: A0 D1 A0 A0 A0 A0 A0 D1  A0 A0 D1 A0 22 00 2D 1E  |............".-.|
00000200: 2C 01 99 20 A3 32 29 3B  22 20 20 D1 A0 D1 A0 A0  |,.. .2);"  .....|
00000210: A0 D1 A0 A0 A0 D1 A0 D1  D1 D1 A0 A0 A0 D1 A0 A0  |................|
00000220: A0 D1 D1 D1 D1 D1 A0 D1  A0 A0 A0 D1 22 00 61 1E  |............".a.|
00000230: 36 01 99 20 A3 32 29 3B  22 11 11 12 20 20 43 4F  |6.. .2);"...  CO|
00000240: 50 59 52 49 47 48 54 20  31 39 38 37 20 42 59 20  |PYRIGHT 1987 BY |
00000250: 54 48 4F 4D 41 53 20 42  45 43 4B 45 52 20 20 92  |THOMAS BECKER  .|
00000260: 22 00 7C 1E 40 01 86 20  41 31 24 28 4E 29 2C 41  |".|.@.. A1$(N),A|
00000270: 32 24 28 4E 29 2C 41 33  24 28 4E 29 00 8B 1E 90  |2$(N),A3$(N)....|
00000280: 01 99 22 05 22 3A 9F 20  33 2C 30 00 AF 1E 9A 01  |..".":. 3,0.....|
00000290: 99 20 A3 31 33 29 3B 22  11 11 44 41 54 55 4D 3A  |. .13);"..DATUM:|
000002A0: 20 30 30 30 30 30 30 9D  9D 9D 9D 9D 9D 22 3B 00  | 000000......";.|
000002B0: BA 1E A4 01 84 33 2C 44  41 24 00 C4 1E AE 01 89  |.....3,DA$......|
000002C0: 20 35 31 30 00 EB 1E EA  01 8F 20 2A 2A 2A 2A 2A  | 510...... *****|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 FD 1E F4 01  |***********.....|
000002F0: 8F 20 2A 2A 2A 20 54 4F  4E 20 2A 2A 2A 00 06 1F  |. *** TON ***...|
00000300: FE 01 99 22 93 22 00 15  1F 08 02 97 20 35 33 32  |..."."...... 532|
00000310: 38 31 2C 31 31 00 46 1F  58 02 99 20 A3 33 29 3B  |81,11.F.X.. .3);|
00000320: 22 3E 3E 20 20 44 49 53  4B 2D 57 52 49 54 45 52  |">>  DISK-WRITER|
00000330: 20 20 20 56 45 52 53 49  4F 4E 20 35 2E 31 20 20  |   VERSION 5.1  |
00000340: 3C 3C 11 11 11 22 00 64  1F 62 02 99 20 A3 31 33  |<<...".d.b.. .13|
00000350: 29 3B 22 42 49 54 54 45  20 57 41 45 48 4C 45 4E  |);"BITTE WAEHLEN|
00000360: 3A 11 11 22 00 81 1F 6C  02 99 20 A3 31 33 29 3B  |:.."...l.. .13);|
00000370: 22 45 49 4E 4C 45 53 45  4E 20 20 20 28 31 29 11  |"EINLESEN   (1).|
00000380: 22 00 9E 1F 76 02 99 20  A3 31 33 29 3B 22 45 49  |"...v.. .13);"EI|
00000390: 4E 47 45 42 45 4E 20 20  20 28 32 29 11 22 00 BB  |NGEBEN   (2)."..|
000003A0: 1F 80 02 99 20 A3 31 33  29 3B 22 4C 4F 45 53 43  |.... .13);"LOESC|
000003B0: 48 45 4E 20 20 20 28 33  29 11 22 00 D8 1F 8A 02  |HEN   (3).".....|
000003C0: 99 20 A3 31 33 29 3B 22  41 55 53 47 45 42 45 4E  |. .13);"AUSGEBEN|
000003D0: 20 20 20 28 34 29 11 22  00 F5 1F 94 02 99 20 A3  |   (4)."...... .|
000003E0: 31 33 29 3B 22 41 55 53  44 52 55 43 4B 20 20 20  |13);"AUSDRUCK   |
000003F0: 28 35 29 11 22 00 12 20  9E 02 99 20 A3 31 33 29  |(5).".. ... .13)|
00000400: 3B 22 41 4E 5A 45 49 47  45 4E 20 20 20 28 36 29  |;"ANZEIGEN   (6)|
00000410: 11 22 00 2C 20 A8 02 99  20 A3 31 35 29 3B 22 11  |."., ... .15);".|
00000420: 45 4E 44 45 20 20 20 28  37 29 11 22 00 36 20 20  |ENDE   (7).".6  |
00000430: 03 5A 24 B2 22 22 00 4F  20 2A 03 A1 23 33 2C 5A  |.Z$."".O *..#3,Z|
00000440: 24 3A 8B 20 5A 24 B2 22  22 20 A7 20 38 31 30 00  |$:. Z$."" . 810.|
00000450: 6F 20 34 03 8B 20 C6 28  5A 24 29 B3 34 39 20 B0  |o 4.. .(Z$).49 .|
00000460: 20 C6 28 5A 24 29 B1 35  35 20 A7 20 38 31 30 00  | .(Z$).55 . 810.|
00000470: A4 20 3E 03 5A B2 C5 28  5A 24 29 3A 91 20 5A 20  |. >.Z..(Z$):. Z |
00000480: 89 20 31 30 30 30 2C 32  30 30 30 2C 33 30 30 30  |. 1000,2000,3000|
00000490: 2C 34 30 30 30 2C 35 30  30 30 2C 36 30 30 30 2C  |,4000,5000,6000,|
000004A0: 37 30 30 30 00 CB 20 DE  03 8F 20 2A 2A 2A 2A 2A  |7000.. ... *****|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 DF 20 E8 03  |***********.. ..|
000004D0: 99 22 93 22 3A 8F 20 45  49 4E 4C 45 53 45 4E 00  |.".":. EINLESEN.|
000004E0: 00 21 F2 03 99 20 A3 31  35 29 3B 22 11 11 11 11  |.!... .15);"....|
000004F0: 11 11 11 11 11 11 45 49  4E 4C 45 53 45 4E 3A 22  |......EINLESEN:"|
00000500: 00 30 21 06 04 99 20 A3  31 30 29 3B 22 11 11 11  |.0!... .10);"...|
00000510: 4E 41 4D 45 3A 20 2A 2E  2E 2E 2E 2E 2E 2E 2E 2E  |NAME: *.........|
00000520: 2E 2E 9D 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 22 3B  |..............";|
00000530: 00 3B 21 10 04 84 33 2C  46 49 24 00 54 21 1A 04  |.;!...3,FI$.T!..|
00000540: 8B 20 C8 28 46 49 24 2C  31 29 B2 22 2A 22 20 A7  |. .(FI$,1)."*" .|
00000550: 20 35 30 30 00 7A 21 D2  05 8F 20 2A 2A 2A 2A 2A  | 500.z!... *****|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 83 21 DC 05 99  |**********..!...|
00000580: 22 93 22 00 B8 21 E6 05  99 20 A3 35 29 3B 22 11  |"."..!... .5);".|
00000590: 11 11 11 11 11 11 11 11  11 44 41 54 45 4E 20 57  |.........DATEN W|
000005A0: 45 52 44 45 4E 20 56 4F  4E 20 44 49 53 4B 20 47  |ERDEN VON DISK G|
000005B0: 45 4C 45 53 45 4E 21 22  00 D6 21 F0 05 99 20 A3  |ELESEN!"..!... .|
000005C0: 31 33 29 3B 22 11 11 11  42 49 54 54 45 20 57 41  |13);"...BITTE WA|
000005D0: 52 54 45 4E 21 22 00 E8  21 40 06 9F 20 31 2C 38  |RTEN!"..!@.. 1,8|
000005E0: 2C 34 2C 28 46 49 24 29  00 F5 21 4A 06 84 31 2C  |,4,(FI$)..!J..1,|
000005F0: 41 3A 43 B2 41 00 01 22  54 06 81 20 49 B2 31 A4  |A:C.A.."T.. I.1.|
00000600: 41 00 0F 22 5E 06 84 31  2C 41 31 24 28 49 29 00  |A.."^..1,A1$(I).|
00000610: 1D 22 68 06 84 31 2C 41  32 24 28 49 29 00 2B 22  |."h..1,A2$(I).+"|
00000620: 72 06 84 31 2C 41 33 24  28 49 29 00 33 22 7C 06  |r..1,A3$(I).3"|.|
00000630: 82 20 49 00 3B 22 86 06  A0 20 31 00 45 22 BC 07  |. I.;"... 1.E"..|
00000640: 89 20 35 30 30 00 6B 22  C6 07 8F 20 2A 2A 2A 2A  |. 500.k"... ****|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 7F 22 D0 07  |***********.."..|
00000670: 99 22 93 22 3A 8F 20 45  49 4E 47 45 42 45 4E 00  |.".":. EINGEBEN.|
00000680: B5 22 DA 07 99 20 A3 31  29 3B 22 12 4C 46 4E 52  |."... .1);".LFNR|
00000690: 20 20 20 50 52 4F 47 52  41 4D 4D 4E 41 4D 45 2E  |   PROGRAMMNAME.|
000006A0: 2E 2E 2E 20 20 20 20 42  4C 4F 43 4B 20 20 44 49  |...    BLOCK  DI|
000006B0: 53 4B 92 11 22 00 C3 22  34 08 49 24 B2 C4 28 41  |SK..".."4.I$..(A|
000006C0: AA 31 29 00 D7 22 3E 08  99 20 A6 35 AB C3 28 49  |.1)..">.. .5..(I|
000006D0: 24 29 29 3B 49 24 3B 00  E2 22 48 08 99 20 A6 33  |$));I$;.."H.. .3|
000006E0: 29 3B 00 F3 22 98 08 41  24 B2 22 22 3A 99 22 2A  |);.."..A$."":."*|
000006F0: 9D 22 3B 00 FD 22 A2 08  84 33 2C 41 24 00 11 23  |.";.."...3,A$..#|
00000700: AC 08 8B 20 41 24 B2 22  2A 22 20 A7 20 32 35 30  |... A$."*" . 250|
00000710: 30 00 25 23 FC 08 41 B2  41 AA 31 3A 41 31 24 28  |0.%#..A.A.1:A1$(|
00000720: 41 29 B2 41 24 00 40 23  06 09 99 20 A6 31 39 AB  |A).A$.@#... .19.|
00000730: C3 28 41 31 24 28 41 29  29 29 3B 22 2A 9D 22 3B  |.(A1$(A)));"*.";|
00000740: 00 4E 23 10 09 84 33 2C  41 32 24 28 41 29 00 68  |.N#...3,A2$(A).h|
00000750: 23 1A 09 99 20 A6 36 AB  C3 28 41 32 24 28 41 29  |#... .6..(A2$(A)|
00000760: 29 29 3B 22 2A 9D 22 3B  00 76 23 24 09 84 33 2C  |));"*.";.v#$..3,|
00000770: 41 33 24 28 41 29 00 7C  23 2E 09 99 00 87 23 60  |A3$(A).|#.....#`|
00000780: 09 89 20 32 31 30 30 00  AD 23 BA 09 8F 20 2A 2A  |.. 2100..#... **|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000007A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 BE 23  |*************..#|
000007B0: C4 09 8B 20 43 B2 41 20  A7 20 32 39 38 30 00 D3  |... C.A . 2980..|
000007C0: 23 CE 09 99 22 93 22 3A  8F 20 53 4F 52 54 49 45  |#...".":. SORTIE|
000007D0: 52 45 4E 00 00 24 D8 09  99 20 A3 39 29 3B 22 11  |REN..$... .9);".|
000007E0: 11 11 11 11 11 11 11 11  11 44 41 54 45 4E 20 57  |.........DATEN W|
000007F0: 45 52 44 45 4E 20 53 4F  52 54 49 45 52 54 21 22  |ERDEN SORTIERT!"|
00000800: 00 1E 24 E2 09 99 20 A3  31 33 29 3B 22 11 11 11  |..$... .13);"...|
00000810: 42 49 54 54 45 20 57 41  52 54 45 4E 21 22 00 34  |BITTE WARTEN!".4|
00000820: 24 28 0A 81 20 4A B2 43  AA 31 A4 41 3A 81 20 49  |$(.. J.C.1.A:. I|
00000830: B2 31 A4 43 00 4F 24 32  0A 8B 20 41 31 24 28 49  |.1.C.O$2.. A1$(I|
00000840: 29 B3 41 31 24 28 4A 29  20 A7 20 32 36 36 30 00  |).A1$(J) . 2660.|
00000850: 74 24 3C 0A 41 31 24 B2  41 31 24 28 4A 29 3A 41  |t$<.A1$.A1$(J):A|
00000860: 32 24 B2 41 32 24 28 4A  29 3A 41 33 24 B2 41 33  |2$.A2$(J):A3$.A3|
00000870: 24 28 4A 29 00 85 24 46  0A 81 20 4B B2 43 A4 49  |$(J)..$F.. K.C.I|
00000880: 20 A9 20 AB 31 00 BD 24  50 0A 41 31 24 28 4B AA  | . .1..$P.A1$(K.|
00000890: 31 29 B2 41 31 24 28 4B  29 3A 41 32 24 28 4B AA  |1).A1$(K):A2$(K.|
000008A0: 31 29 B2 41 32 24 28 4B  29 3A 41 33 24 28 4B AA  |1).A2$(K):A3$(K.|
000008B0: 31 29 B2 41 33 24 28 4B  29 3A 82 20 4B 00 E6 24  |1).A3$(K):. K..$|
000008C0: 5A 0A 41 31 24 28 49 29  B2 41 31 24 3A 41 32 24  |Z.A1$(I).A1$:A2$|
000008D0: 28 49 29 B2 41 32 24 3A  41 33 24 28 49 29 B2 41  |(I).A2$:A3$(I).A|
000008E0: 33 24 3A 49 B2 43 00 F8  24 64 0A 82 20 49 3A 43  |3$:I.C..$d.. I:C|
000008F0: B2 43 AA 31 3A 82 20 4A  00 00 25 6E 0A 43 B2 41  |.C.1:. J..%n.C.A|
00000900: 00 0A 25 A4 0B 89 20 35  30 30 00 30 25 AE 0B 8F  |..%... 500.0%...|
00000910: 20 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  | ***************|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000930: 00 44 25 B8 0B 99 22 93  22 3A 8F 20 4C 4F 45 53  |.D%...".":. LOES|
00000940: 43 48 45 4E 00 7A 25 C2  0B 99 20 A3 31 29 3B 22  |CHEN.z%... .1);"|
00000950: 12 4C 46 4E 52 20 20 20  50 52 4F 47 52 41 4D 4D  |.LFNR   PROGRAMM|
00000960: 4E 41 4D 45 2E 2E 2E 2E  20 20 20 20 42 4C 4F 43  |NAME....    BLOC|
00000970: 4B 20 20 44 49 53 4B 92  11 22 00 8A 25 1C 0C 99  |K  DISK.."..%...|
00000980: 20 A6 31 29 3B 22 2A 9D  22 3B 00 94 25 26 0C 84  | .1);"*.";..%&..|
00000990: 33 2C 42 24 00 A8 25 30  0C 8B 20 42 24 B2 22 2A  |3,B$..%0.. B$."*|
000009A0: 22 20 A7 20 33 35 30 30  00 BD 25 80 0C 42 B2 42  |" . 3500..%..B.B|
000009B0: AA 31 3A 42 28 42 29 B2  C5 28 42 24 29 00 DD 25  |.1:B(B)..(B$)..%|
000009C0: 8A 0C 8B 20 42 28 42 29  B3 31 20 B0 20 42 28 42  |... B(B).1 . B(B|
000009D0: 29 B1 41 20 A7 20 99 3A  89 33 31 30 30 00 F8 25  |).A . .:.3100..%|
000009E0: E4 0C 99 20 A6 36 AB C3  28 42 24 29 29 3B 41 31  |... .6..(B$));A1|
000009F0: 24 28 42 28 42 29 29 3B  00 28 26 EE 0C 99 20 A6  |$(B(B));.(&... .|
00000A00: 32 34 AB C3 28 41 31 24  28 42 28 42 29 29 29 AB  |24..(A1$(B(B))).|
00000A10: C3 28 41 32 24 28 42 28  42 29 29 29 29 3B 41 32  |.(A2$(B(B))));A2|
00000A20: 24 28 42 28 42 29 29 3B  00 49 26 F8 0C 99 20 A6  |$(B(B));.I&... .|
00000A30: 37 AB C3 28 41 33 24 28  42 28 42 29 29 29 29 3B  |7..(A3$(B(B))));|
00000A40: 41 33 24 28 42 28 42 29  29 00 54 26 48 0D 89 20  |A3$(B(B)).T&H.. |
00000A50: 33 31 30 30 00 7A 26 A2  0D 8F 20 2A 2A 2A 2A 2A  |3100.z&... *****|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 8B 26 AC 0D 8B  |**********..&...|
00000A80: 20 42 B2 30 20 A7 20 33  39 38 30 00 A0 26 B6 0D  | B.0 . 3980..&..|
00000A90: 99 22 93 22 3A 8F 20 53  4F 52 54 49 45 52 45 4E  |.".":. SORTIEREN|
00000AA0: 00 CD 26 C0 0D 99 20 A3  39 29 3B 22 11 11 11 11  |..&... .9);"....|
00000AB0: 11 11 11 11 11 11 44 41  54 45 4E 20 57 45 52 44  |......DATEN WERD|
00000AC0: 45 4E 20 53 4F 52 54 49  45 52 54 21 22 00 EB 26  |EN SORTIERT!"..&|
00000AD0: CA 0D 99 20 A3 31 33 29  3B 22 11 11 11 42 49 54  |... .13);"...BIT|
00000AE0: 54 45 20 57 41 52 54 45  4E 21 22 00 F9 26 10 0E  |TE WARTEN!"..&..|
00000AF0: 81 20 49 B2 31 A4 42 AB  31 00 07 27 1A 0E 81 20  |. I.1.B.1..'... |
00000B00: 4A B2 49 AA 31 A4 42 00  1F 27 24 0E 8B 20 42 28  |J.I.1.B..'$.. B(|
00000B10: 49 29 B3 B1 42 28 4A 29  20 A7 20 33 36 34 30 00  |I)..B(J) . 3640.|
00000B20: 4A 27 2E 0E 42 B2 42 AB  31 3A 81 20 4B B2 4A A4  |J'..B.B.1:. K.J.|
00000B30: 42 3A 42 28 4B 29 B2 42  28 4B AA 31 29 3A 82 20  |B:B(K).B(K.1):. |
00000B40: 4B 3A 42 28 42 AA 31 29  B2 30 00 56 27 38 0E 82  |K:B(B.1).0.V'8..|
00000B50: 20 4A 3A 82 20 49 00 64  27 74 0E 81 20 49 B2 31  | J:. I.d't.. I.1|
00000B60: A4 42 AB 31 00 72 27 7E  0E 81 20 4A B2 49 AA 31  |.B.1.r'~.. J.I.1|
00000B70: A4 42 00 89 27 88 0E 8B  20 42 28 49 29 B1 42 28  |.B..'... B(I).B(|
00000B80: 4A 29 20 A7 20 33 37 34  30 00 A5 27 92 0E 45 B2  |J) . 3740..'..E.|
00000B90: 42 28 49 29 3A 42 28 49  29 B2 42 28 4A 29 3A 42  |B(I):B(I).B(J):B|
00000BA0: 28 4A 29 B2 45 00 AD 27  9C 0E 82 20 4A 00 B5 27  |(J).E..'... J..'|
00000BB0: A6 0E 82 20 49 00 C1 27  D8 0E 81 20 4A B2 31 A4  |... I..'... J.1.|
00000BC0: 42 00 D2 27 E2 0E 81 20  49 B2 42 28 4A 29 A4 41  |B..'... I.B(J).A|
00000BD0: AB 31 00 06 28 EC 0E 41  31 24 28 49 29 B2 41 31  |.1..(..A1$(I).A1|
00000BE0: 24 28 49 AA 31 29 3A 41  32 24 28 49 29 B2 41 32  |$(I.1):A2$(I).A2|
00000BF0: 24 28 49 AA 31 29 3A 41  33 24 28 49 29 B2 41 33  |$(I.1):A3$(I).A3|
00000C00: 24 28 49 AA 31 29 00 0E  28 F6 0E 82 20 49 00 36  |$(I.1)..(... I.6|
00000C10: 28 00 0F 41 31 24 28 41  29 B2 22 22 3A 41 32 24  |(..A1$(A)."":A2$|
00000C20: 28 41 29 B2 22 22 3A 41  33 24 28 41 29 B2 22 22  |(A)."":A3$(A).""|
00000C30: 3A 41 B2 41 AB 31 00 3E  28 0A 0F 82 20 4A 00 4A  |:A.A.1.>(... J.J|
00000C40: 28 14 0F 43 B2 41 3A 42  B2 30 00 54 28 8C 0F 89  |(..C.A:B.0.T(...|
00000C50: 20 35 30 30 00 7A 28 96  0F 8F 20 2A 2A 2A 2A 2A  | 500.z(... *****|
00000C60: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 8F 28 A0 0F 99  |**********..(...|
00000C80: 22 93 22 3A 8F 20 53 50  45 49 43 48 45 52 4E 00  |".":. SPEICHERN.|
00000C90: B0 28 AA 0F 99 20 A3 31  35 29 3B 22 11 11 11 11  |.(... .15);"....|
00000CA0: 11 11 11 11 11 11 41 55  53 47 45 42 45 4E 3A 22  |......AUSGEBEN:"|
00000CB0: 00 E0 28 BE 0F 99 20 A3  31 30 29 3B 22 11 11 11  |..(... .10);"...|
00000CC0: 4E 41 4D 45 3A 20 2A 2E  2E 2E 2E 2E 2E 2E 2E 2E  |NAME: *.........|
00000CD0: 2E 2E 9D 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 22 3B  |..............";|
00000CE0: 00 EB 28 C8 0F 84 33 2C  46 49 24 00 04 29 D2 0F  |..(...3,FI$..)..|
00000CF0: 8B 20 C8 28 46 49 24 2C  31 29 B2 22 2A 22 20 A7  |. .(FI$,1)."*" .|
00000D00: 20 35 30 30 00 1A 29 DC  0F 46 49 24 B2 46 49 24  | 500..)..FI$.FI$|
00000D10: AA C7 28 34 34 29 AA 22  57 22 00 40 29 8A 11 8F  |..(44)."W".@)...|
00000D20: 20 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  | ***************|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000D40: 00 49 29 94 11 99 22 93  22 00 82 29 9E 11 99 20  |.I)..."."..)... |
00000D50: A3 33 29 3B 22 11 11 11  11 11 11 11 11 11 11 44  |.3);"..........D|
00000D60: 41 54 45 4E 20 57 45 52  44 45 4E 20 41 55 46 20  |ATEN WERDEN AUF |
00000D70: 44 49 53 4B 20 47 45 53  50 45 49 43 48 45 52 54  |DISK GESPEICHERT|
00000D80: 21 22 00 A0 29 A8 11 99  20 A3 31 33 29 3B 22 11  |!"..)... .13);".|
00000D90: 11 11 42 49 54 54 45 20  57 41 52 54 45 4E 21 22  |..BITTE WARTEN!"|
00000DA0: 00 B9 29 F8 11 9F 20 31  35 2C 38 2C 31 35 2C 28  |..)... 15,8,15,(|
00000DB0: 46 49 24 29 3A A0 20 31  35 00 CB 29 02 12 9F 20  |FI$):. 15..)... |
00000DC0: 31 2C 38 2C 35 2C 28 46  49 24 29 00 D4 29 0C 12  |1,8,5,(FI$)..)..|
00000DD0: 98 31 2C 41 00 E0 29 16  12 81 20 49 B2 31 A4 41  |.1,A..)... I.1.A|
00000DE0: 00 EE 29 20 12 98 31 2C  41 31 24 28 49 29 00 FC  |..) ..1,A1$(I)..|
00000DF0: 29 2A 12 98 31 2C 41 32  24 28 49 29 00 0A 2A 34  |)*..1,A2$(I)..*4|
00000E00: 12 98 31 2C 41 33 24 28  49 29 00 12 2A 3E 12 82  |..1,A3$(I)..*>..|
00000E10: 20 49 00 1A 2A 48 12 A0  20 31 00 24 2A 74 13 89  | I..*H.. 1.$*t..|
00000E20: 20 35 30 30 00 4A 2A 7E  13 8F 20 2A 2A 2A 2A 2A  | 500.J*~.. *****|
00000E30: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000E40: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 5D 2A 88 13 99  |**********.]*...|
00000E50: 22 93 22 3A 8F 20 44 52  55 43 4B 45 4E 00 8A 2A  |".":. DRUCKEN..*|
00000E60: 92 13 99 20 A3 39 29 3B  22 11 11 11 11 11 11 11  |... .9);".......|
00000E70: 11 11 11 44 41 54 45 4E  20 57 45 52 44 45 4E 20  |...DATEN WERDEN |
00000E80: 47 45 44 52 55 43 4B 54  21 22 00 A8 2A 9C 13 99  |GEDRUCKT!"..*...|
00000E90: 20 A3 31 33 29 3B 22 11  11 11 42 49 54 54 45 20  | .13);"...BITTE |
00000EA0: 57 41 52 54 45 4E 21 22  00 B0 2A A6 13 51 B2 33  |WARTEN!"..*..Q.3|
00000EB0: 00 BA 2A EC 13 9F 20 32  2C 34 00 C7 2A F6 13 98  |..*... 2,4..*...|
00000EC0: 32 2C C7 28 31 34 29 00  E1 2A 00 14 98 32 2C A6  |2,.(14)..*...2,.|
00000ED0: 31 35 29 3B 22 44 49 53  4B 2D 57 52 49 54 45 52  |15);"DISK-WRITER|
00000EE0: 22 00 FB 2A 0A 14 98 32  2C A6 31 35 29 3B 22 56  |"..*...2,.15);"V|
00000EF0: 45 52 53 49 4F 4E 20 35  2E 31 22 00 08 2B 14 14  |ERSION 5.1"..+..|
00000F00: 98 32 2C C7 28 31 35 29  00 14 2B 50 14 81 20 49  |.2,.(15)..+P.. I|
00000F10: B2 31 A4 41 00 3B 2B 5A  14 8B 20 C8 28 41 31 24  |.1.A.;+Z.. .(A1$|
00000F20: 28 49 AB 31 29 2C 31 29  B2 C8 28 41 31 24 28 49  |(I.1),1)..(A1$(I|
00000F30: 29 2C 31 29 20 A7 20 35  32 33 30 00 42 2B 64 14  |),1) . 5230.B+d.|
00000F40: 98 32 00 69 2B 6E 14 8B  20 C8 28 41 31 24 28 49  |.2.i+n.. .(A1$(I|
00000F50: AA 31 29 2C 31 29 B2 C8  28 41 31 24 28 49 29 2C  |.1),1)..(A1$(I),|
00000F60: 31 29 20 A7 20 35 35 30  30 00 75 2B B4 14 49 24  |1) . 5500.u+..I$|
00000F70: B2 C4 28 49 29 00 8E 2B  BE 14 98 32 2C A6 34 AB  |..(I)..+...2,.4.|
00000F80: C3 28 49 24 29 29 3B 49  24 3B A6 32 29 3B 00 9D  |.(I$));I$;.2);..|
00000F90: 2B C8 14 98 32 2C 41 31  24 28 49 29 3B 00 BE 2B  |+...2,A1$(I);..+|
00000FA0: D2 14 98 32 2C A6 32 35  AB C3 28 41 31 24 28 49  |...2,.25..(A1$(I|
00000FB0: 29 29 AB C3 28 41 32 24  28 49 29 29 29 3B 00 CD  |))..(A2$(I)));..|
00000FC0: 2B DC 14 98 32 2C 41 32  24 28 49 29 3B 00 E3 2B  |+...2,A2$(I);..+|
00000FD0: E6 14 98 32 2C A6 36 AB  C3 28 41 33 24 28 49 29  |...2,.6..(A3$(I)|
00000FE0: 29 29 3B 00 F1 2B F0 14  98 32 2C 41 33 24 28 49  |));..+...2,A3$(I|
00000FF0: 29 00 FC 2B 18 15 89 20  35 38 30 30 00 22 2C 72  |)..+... 5800.",r|
00001000: 15 8F 20 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.. *************|
00001010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001020: 2A 2A 00 2E 2C 7C 15 49  24 B2 C4 28 49 29 00 47  |**..,|.I$..(I).G|
00001030: 2C 86 15 98 32 2C A6 34  AB C3 28 49 24 29 29 3B  |,...2,.4..(I$));|
00001040: 49 24 3B A6 32 29 3B 00  56 2C 90 15 98 32 2C 41  |I$;.2);.V,...2,A|
00001050: 31 24 28 49 29 3B 00 77  2C 9A 15 98 32 2C A6 32  |1$(I);.w,...2,.2|
00001060: 35 AB C3 28 41 31 24 28  49 29 29 AB C3 28 41 32  |5..(A1$(I))..(A2|
00001070: 24 28 49 29 29 29 3B 00  86 2C A4 15 98 32 2C 41  |$(I)));..,...2,A|
00001080: 32 24 28 49 29 3B 00 9C  2C AE 15 98 32 2C A6 36  |2$(I);..,...2,.6|
00001090: AB C3 28 41 33 24 28 49  29 29 29 3B 00 AB 2C B8  |..(A3$(I)));..,.|
000010A0: 15 98 32 2C 41 33 24 28  49 29 3B 00 B7 2C E0 15  |..2,A3$(I);..,..|
000010B0: 98 32 2C A6 34 29 3B 00  C1 2C EA 15 49 B2 49 AA  |.2,.4);..,..I.I.|
000010C0: 31 00 CD 2C 44 16 49 24  B2 C4 28 49 29 00 E6 2C  |1..,D.I$..(I)..,|
000010D0: 4E 16 98 32 2C A6 34 AB  C3 28 49 24 29 29 3B 49  |N..2,.4..(I$));I|
000010E0: 24 3B A6 32 29 3B 00 F5  2C 58 16 98 32 2C 41 31  |$;.2);..,X..2,A1|
000010F0: 24 28 49 29 3B 00 16 2D  62 16 98 32 2C A6 32 35  |$(I);..-b..2,.25|
00001100: AB C3 28 41 31 24 28 49  29 29 AB C3 28 41 32 24  |..(A1$(I))..(A2$|
00001110: 28 49 29 29 29 3B 00 25  2D 6C 16 98 32 2C 41 32  |(I)));.%-l..2,A2|
00001120: 24 28 49 29 3B 00 3B 2D  76 16 98 32 2C A6 36 AB  |$(I);.;-v..2,.6.|
00001130: C3 28 41 33 24 28 49 29  29 29 3B 00 49 2D 80 16  |.(A3$(I)));.I-..|
00001140: 98 32 2C 41 33 24 28 49  29 00 51 2D A8 16 82 20  |.2,A3$(I).Q-... |
00001150: 49 00 6B 2D B2 16 98 32  3A 98 32 2C A6 33 33 29  |I.k-...2:.2,.33)|
00001160: 3B 22 53 54 41 4E 44 3A  20 22 3B 00 97 2D BC 16  |;"STAND: ";..-..|
00001170: 98 32 2C C8 28 44 41 24  2C 32 29 AA 22 2E 22 AA  |.2,.(DA$,2).".".|
00001180: CA 28 44 41 24 2C 33 2C  32 29 AA 22 2E 22 AA C9  |.(DA$,3,2)."."..|
00001190: 28 44 41 24 2C 32 29 00  9F 2D C6 16 A0 20 32 00  |(DA$,2)..-... 2.|
000011A0: A7 2D D0 16 43 B2 41 00  B1 2D 5C 17 89 20 35 30  |.-..C.A..-\.. 50|
000011B0: 30 00 D7 2D 66 17 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |0..-f.. ********|
000011C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000011D0: 2A 2A 2A 2A 2A 2A 2A 00  EB 2D 70 17 99 22 93 22  |*******..-p.."."|
000011E0: 3A 8F 20 41 4E 5A 45 49  47 45 4E 00 0C 2E 7A 17  |:. ANZEIGEN...z.|
000011F0: 99 20 A3 31 35 29 3B 22  11 11 11 11 11 11 11 11  |. .15);"........|
00001200: 11 11 41 4E 5A 45 49 47  45 4E 3A 22 00 24 2E D4  |..ANZEIGEN:".$..|
00001210: 17 99 20 A3 31 35 29 3B  22 11 11 11 56 4F 4E 20  |.. .15);"...VON |
00001220: 31 9D 22 3B 00 45 2E DE  17 56 24 B2 22 30 22 3A  |1.";.E...V$."0":|
00001230: 84 33 2C 56 24 3A 8B 20  56 24 B2 22 30 22 20 A7  |.3,V$:. V$."0" .|
00001240: 20 36 32 30 30 00 4B 2E  E3 17 99 00 6A 2E E8 17  | 6200.K.....j...|
00001250: 56 B2 C5 28 56 24 29 3A  8B 20 56 B3 31 20 B0 20  |V..(V$):. V.1 . |
00001260: 56 B1 41 20 A7 20 36 32  30 30 00 8B 2E 06 18 99  |V.A . 6200......|
00001270: 20 A3 31 35 29 3B 22 11  42 49 53 22 3B 3A 41 24  | .15);".BIS";:A$|
00001280: B2 C4 28 41 29 3A 99 20  41 24 3B 00 A8 2E 10 18  |..(A):. A$;.....|
00001290: 81 20 49 B2 31 A4 20 C3  28 41 24 29 AB 31 3A 99  |. I.1. .(A$).1:.|
000012A0: 22 9D 22 3B 3A 82 20 49  00 C9 2E 1A 18 57 24 B2  |".";:. I.....W$.|
000012B0: 22 30 22 3A 84 33 2C 57  24 3A 8B 20 57 24 B2 22  |"0":.3,W$:. W$."|
000012C0: 30 22 20 A7 20 36 32 30  30 00 E8 2E 24 18 57 B2  |0" . 6200...$.W.|
000012D0: C5 28 57 24 29 3A 8B 20  57 B3 56 20 B0 20 57 B1  |.(W$):. W.V . W.|
000012E0: 41 20 A7 20 36 32 30 30  00 F3 2E 2E 18 89 20 36  |A . 6200...... 6|
000012F0: 35 30 30 00 FD 2E 38 18  89 20 35 30 30 00 23 2F  |500...8.. 500.#/|
00001300: 5A 19 8F 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |Z.. ************|
00001310: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001320: 2A 2A 2A 00 2C 2F 64 19  99 22 93 22 00 62 2F 6E  |***.,/d..".".b/n|
00001330: 19 99 20 A3 31 29 3B 22  12 4C 46 4E 52 20 20 20  |.. .1);".LFNR   |
00001340: 50 52 4F 47 52 41 4D 4D  4E 41 4D 45 2E 2E 2E 2E  |PROGRAMMNAME....|
00001350: 20 20 20 20 42 4C 4F 43  4B 20 20 44 49 53 4B 92  |    BLOCK  DISK.|
00001360: 11 22 00 7B 2F C8 19 81  20 49 B2 56 A4 57 3A 8B  |.".{/... I.V.W:.|
00001370: 20 49 B2 31 20 A7 20 36  36 33 30 00 A2 2F D2 19  | I.1 . 6630../..|
00001380: 8B 20 C8 28 41 31 24 28  49 AB 31 29 2C 31 29 B2  |. .(A1$(I.1),1).|
00001390: C8 28 41 31 24 28 49 29  2C 31 29 20 A7 20 36 36  |.(A1$(I),1) . 66|
000013A0: 33 30 00 A8 2F DC 19 99  00 B4 2F E6 19 49 24 B2  |30../...../..I$.|
000013B0: C4 28 49 29 00 C8 2F F0  19 99 20 A6 35 AB C3 28  |.(I)../... .5..(|
000013C0: 49 24 29 29 3B 49 24 3B  00 DA 2F FA 19 99 20 A6  |I$));I$;../... .|
000013D0: 33 29 3B 41 31 24 28 49  29 3B 00 01 30 04 1A 99  |3);A1$(I);..0...|
000013E0: 20 A6 32 34 AB C3 28 41  31 24 28 49 29 29 AB C3  | .24..(A1$(I))..|
000013F0: 28 41 32 24 28 49 29 29  29 3B 41 32 24 28 49 29  |(A2$(I)));A2$(I)|
00001400: 3B 00 1C 30 0E 1A 99 20  A6 37 AB C3 28 41 33 24  |;..0... .7..(A3$|
00001410: 28 49 29 29 29 3B 41 33  24 28 49 29 00 24 30 18  |(I)));A3$(I).$0.|
00001420: 1A 82 20 49 00 42 30 22  1A 51 24 B2 22 22 3A A1  |.. I.B0".Q$."":.|
00001430: 20 51 24 3A 8B 20 51 24  B2 22 22 20 A7 20 36 36  | Q$:. Q$."" . 66|
00001440: 39 30 00 4C 30 44 1B 89  20 35 30 30 00 72 30 4E  |90.L0D.. 500.r0N|
00001450: 1B 8F 20 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.. *************|
00001460: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001470: 2A 2A 00 7C 30 58 1B A0  20 33 3A 80 00 00 00     |**.|0X.. 3:.... |

....D.N.1000.3.N.. *********************
***********.<.X..".".Y....".":. 53281,0:
. 53280,5...H.. .2);".     >>     VERSIO
N 5.1     <<     ..."...R.. .9);"QQQQ  Q
QQ  QQQQ Q   Q".Q.... .9);"Q   Q  Q  Q  
   Q  Q "...... .9);"Q   Q  Q   QQQ  QQQ
  "...... .9);"Q   Q  Q      Q Q  Q ".7.
... .9);"QQQQ  QQQ QQQQ  Q   Q".=.....M.
... .2);"Q     Q QQQQ  QQQ QQQQQ QQQQQ Q
QQQ "...... .2);"Q     Q Q   Q  Q    Q  
 Q     Q   Q".M.... .2);" Q Q Q  QQQQ   
Q    Q   QQQ   QQQQ "...".. .2);" Q Q Q 
 Q  Q   Q    Q   Q     Q  Q ".-.,.. .2);
"  Q Q   Q   Q QQQ   Q   QQQQQ Q   Q".A.
6.. .2);"...  COPYRIGHT 1987 BY THOMAS B
ECKER  .".|.@.. A1$(N),A2$(N),A3$(N)....
..".":. 3,0...... .13);"..DATUM: 000000.
.....";......3,DA$.D.... 510...... *****
***************************...... *** TO
N ***......"."...... 53281,11.F.X.. .3);
">>  DISK-WRITER   VERSION 5.1  <<...".D
.B.. .13);"BITTE WAEHLEN:.."...L.. .13);
"EINLESEN   (1)."...V.. .13);"EINGEBEN  
 (2)."...... .13);"LOESCHEN   (3).".X...
. .13);"AUSGEBEN   (4)."...... .13);"AUS
DRUCK   (5).".. ... .13);"ANZEIGEN   (6)
."., ... .15);".ENDE   (7).".6  .Z$."".O
 *..#3,Z$:. Z$."" . 810.O 4.. F(Z$).49 .
 F(Z$).55 . 810.. >.Z.E(Z$):. Z . 1000,2
000,3000,4000,5000,6000,7000.K ... *****
***************************.. ...".":. E
INLESEN..!... .15);"..........EINLESEN:"
.0!... .10);"...NAME: *.................
......";.;!...3,FI$.T!... H(FI$,1)."*" .
 500.Z!R.. *****************************
**..!..."."..!... .5);"..........DATEN W
ERDEN VON DISK GELESEN!".V!... .13);"...
BITTE WARTEN!"..!@.. 1,8,4,(FI$)..!J..1,
A:C.A.."T.. I.1.A.."^..1,A1$(I).."H..1,A
2$(I).+"R..1,A3$(I).3"|.. I.;"..  1.E"..
. 500.K"F.. ****************************
***."P..".":. EINGEBEN.."Z.. .1);".LFNR
   PROGRAMMNAME....    BLOCK  DISK..".C"
4.I$.D(A.1).W">.. .5.C(I$));I$;.."H.. .3
);.."..A$."":."*.";.."...3,A$..#... A$."
*" . 2500.%#..A.A.1:A1$(A).A$.@#... .19.
C(A1$(A)));"*.";.N#...3,A2$(A).H#... .6.
C(A2$(A)));"*.";.V#$..3,A3$(A).|#.....#`
.. 2100..#... **************************
*****..#D.. C.A . 2980.S#N..".":. SORTIE
REN..$X.. .9);"..........DATEN WERDEN SO
RTIERT!"..$... .13);"...BITTE WARTEN!".4
$(.. J.C.1.A:. I.1.C.O$2.. A1$(I).A1$(J)
 . 2660.T$<.A1$.A1$(J):A2$.A2$(J):A3$.A3
$(J)..$F.. K.C.I . .1..$P.A1$(K.1).A1$(K
):A2$(K.1).A2$(K):A3$(K.1).A3$(K):. K..$
Z.A1$(I).A1$:A2$(I).A2$:A3$(I).A3$:I.C..
$D.. I:C.C.1:. J..%N.C.A..%... 500.0%...
 *******************************.D%...".
":. LOESCHEN.Z%B.. .1);".LFNR   PROGRAMM
NAME....    BLOCK  DISK.."..%... .1);"*.
";..%&..3,B$..%0.. B$."*" . 3500..%..B.B
.1:B(B).E(B$)..%... B(B).1 . B(B).A . .:
.3100..%... .6.C(B$));A1$(B(B));.(&... .
24.C(A1$(B(B))).C(A2$(B(B))));A2$(B(B));
.I&... .7.C(A3$(B(B))));A3$(B(B)).T&H.. 
3100.Z&... *****************************
**..&... B.0 . 3980. &...".":. SORTIEREN
.M&... .9);"..........DATEN WERDEN SORTI
ERT!"..&J.. .13);"...BITTE WARTEN!"..&..
. I.1.B.1..'... J.I.1.B..'$.. B(I)..B(J)
 . 3640.J'..B.B.1:. K.J.B:B(K).B(K.1):. 
K:B(B.1).0.V'8.. J:. I.D'T.. I.1.B.1.R'~
.. J.I.1.B..'... B(I).B(J) . 3740..'..E.
B(I):B(I).B(J):B(J).E..'... J..'... I.A'
X.. J.1.B.R'... I.B(J).A.1..(..A1$(I).A1
$(I.1):A2$(I).A2$(I.1):A3$(I).A3$(I.1)..
(... I.6(..A1$(A)."":A2$(A)."":A3$(A).""
:A.A.1.>(... J.J(..C.A:B.0.T(... 500.Z(.
.. *******************************..( ..
".":. SPEICHERN..(... .15);"..........AU
SGEBEN:"..(... .10);"...NAME: *.........
..............";..(H..3,FI$..)R.. H(FI$,
1)."*" . 500..)..FI$.FI$.G(44)."W".@)...
 *******************************.I)...".
"..)... .3);"..........DATEN WERDEN AUF 
DISK GESPEICHERT!". )... .13);"...BITTE 
WARTEN!"..)... 15,8,15,(FI$):  15.K)... 
1,8,5,(FI$).T)...1,A..)... I.1.A..) ..1,
A1$(I)..)*..1,A2$(I)..*4..1,A3$(I)..*>..
 I..*H.  1.$*T.. 500.J*~.. *************
******************.]*...".":. DRUCKEN..*
... .9);"..........DATEN WERDEN GEDRUCKT
!"..*... .13);"...BITTE WARTEN!"..*..Q.3
..*... 2,4.G*...2,G(14)..*...2,.15);"DIS
K-WRITER"..*...2,.15);"VERSION 5.1"..+..
.2,G(15)..+P.. I.1.A.;+Z.. H(A1$(I.1),1)
.H(A1$(I),1) . 5230.B+D..2.I+N.. H(A1$(I
.1),1).H(A1$(I),1) . 5500.U+..I$.D(I)..+
...2,.4.C(I$));I$;.2);..+H..2,A1$(I);..+
R..2,.25.C(A1$(I)).C(A2$(I)));.M+...2,A2
$(I);..+...2,.6.C(A3$(I)));..+...2,A3$(I
)..+... 5800.",R.. *********************
**********..,|.I$.D(I).G,...2,.4.C(I$));
I$;.2);.V,...2,A1$(I);.W,...2,.25.C(A1$(
I)).C(A2$(I)));..,...2,A2$(I);..,...2,.6
.C(A3$(I)));..,...2,A3$(I);..,...2,.4);.
A,..I.I.1.M,D.I$.D(I)..,N..2,.4.C(I$));I
$;.2);..,X..2,A1$(I);..-B..2,.25.C(A1$(I
)).C(A2$(I)));.%-L..2,A2$(I);.;-V..2,.6.
C(A3$(I)));.I-...2,A3$(I).Q-... I.K-...2
:.2,.33);"STAND: ";..-...2,H(DA$,2).".".
J(DA$,3,2).".".I(DA$,2)..-F.  2..-P.C.A.
.-\.. 500.W-F.. ************************
*******..-P..".":. ANZEIGEN...Z.. .15);"
..........ANZEIGEN:".$.T.. .15);"...VON 
1.";.E...V$."0":.3,V$:. V$."0" . 6200.K.
....J...V.E(V$):. V.1 . V.A . 6200......
 .15);".BIS";:A$.D(A):. A$;...... I.1. C
(A$).1:.".";:. I.I...W$."0":.3,W$:. W$."
0" . 6200...$.W.E(W$):. W.V . W.A . 6200
...... 6500...8.. 500.#/Z.. ************
*******************.,/D..".".B/N.. .1);"
.LFNR   PROGRAMMNAME....    BLOCK  DISK.
.".{/H.. I.V.W:. I.1 . 6630../R.. H(A1$(
I.1),1).H(A1$(I),1) . 6630../...../..I$.
D(I).H/... .5.C(I$));I$;.Z/... .3);A1$(I
);..0... .24.C(A1$(I)).C(A2$(I)));A2$(I)
;..0... .7.C(A3$(I)));A3$(I).$0... I.B0"
.Q$."":. Q$:. Q$."" . 6690.L0D.. 500.R0N
.. *******************************.|0X. 
 3:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL