00000000: 01 1C 27 1C 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 1C 14 00 8F 20 2A 2A |*******.M.... **|
00000030: 20 20 20 33 2A 44 49 52 45 43 54 4F 52 59 2D 50 | 3*DIRECTORY-P|
00000040: 52 49 4E 54 20 20 20 20 20 20 20 2A 2A 00 73 1C |RINT **.s.|
00000050: 1E 00 8F 20 2A 2A 20 20 20 20 48 2E 20 54 20 45 |... ** H. T E|
00000060: 20 54 20 45 20 4E 20 53 20 20 20 20 20 20 20 20 | T E N S |
00000070: 20 2A 2A 00 99 1C 28 00 8F 20 2A 2A 28 43 29 2A | **...(.. **(C)*|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 33 |***************3|
00000090: 31 2E 35 2E 31 39 38 36 2A 00 9F 1C 32 00 3A 00 |1.5.1986*...2.:.|
000000A0: D2 1C 3C 00 99 22 93 11 20 12 20 20 20 20 2A 20 |..<..".. . * |
000000B0: 2A 20 2A 20 20 48 2E 20 20 54 20 45 20 54 20 45 |* * H. T E T E|
000000C0: 20 4E 20 53 20 20 20 2A 20 2A 20 2A 20 28 43 29 | N S * * * (C)|
000000D0: 92 22 00 01 1D 46 00 99 22 11 11 20 44 49 45 53 |."...F..".. DIES|
000000E0: 45 53 20 50 52 4F 47 52 41 4D 4D 20 44 52 55 43 |ES PROGRAMM DRUC|
000000F0: 4B 54 20 44 41 53 20 44 49 52 45 43 54 4F 52 59 |KT DAS DIRECTORY|
00000100: 22 00 2D 1D 50 00 99 22 20 20 20 44 45 53 20 43 |".-.P.." DES C|
00000110: 2D 36 34 20 4F 44 45 52 20 43 2D 31 32 38 20 53 |-64 ODER C-128 S|
00000120: 4C 4F 57 2B 46 41 53 54 20 28 21 29 22 00 5A 1D |LOW+FAST (!)".Z.|
00000130: 5A 00 99 22 11 20 33 2D 2F 35 2D 53 50 41 4C 54 |Z..". 3-/5-SPALT|
00000140: 49 47 20 49 4E 20 49 4E 44 45 58 2B 53 43 48 4D |IG IN INDEX+SCHM|
00000150: 41 4C 53 43 48 52 49 46 54 22 00 73 1D 64 00 47 |ALSCHRIFT".s.d.G|
00000160: B2 CE 09 28 32 29 3A 8B 20 47 B2 38 30 20 A7 20 |...(2):. G.80 . |
00000170: 31 36 30 00 91 1D 6E 00 99 22 11 20 28 31 29 20 |160...n..". (1) |
00000180: 34 30 2D 5A 45 49 43 48 45 4E 2D 4D 4F 44 55 53 |40-ZEICHEN-MODUS|
00000190: 22 00 C8 1D 78 00 99 22 20 28 32 29 20 38 30 2D |"...x.." (2) 80-|
000001A0: 5A 45 49 43 48 45 4E 2D 4D 4F 44 55 53 3A 20 44 |ZEICHEN-MODUS: D|
000001B0: 4F 50 50 45 4C 54 45 20 47 45 53 43 48 57 2E 22 |OPPELTE GESCHW."|
000001C0: 3A 97 20 31 39 38 2C 30 00 EA 1D 82 00 3A 20 A1 |:. 198,0.....: .|
000001D0: F9 20 47 24 3A 8B 20 47 24 B3 22 31 22 B0 47 24 |. G$:. G$."1".G$|
000001E0: B1 22 32 22 20 A7 20 31 33 30 00 28 1E 8C 00 3A |."2" . 130.(...:|
000001F0: 20 8B 20 47 24 B2 22 31 22 A7 20 35 30 30 3A D5 | . G$."1". 500:.|
00000200: 20 99 22 11 12 38 30 2D 5A 45 49 43 48 45 4E 2D | ."..80-ZEICHEN-|
00000210: 4D 4F 44 55 53 20 45 49 4E 92 2C 20 44 41 4E 4E |MODUS EIN., DANN|
00000220: 20 52 45 54 55 52 4E 22 00 40 1E 96 00 3A 20 85 | RETURN".@...: .|
00000230: 20 47 24 3A 8B 20 47 24 B2 22 22 A7 20 31 30 30 | G$:. G$."". 100|
00000240: 00 49 1E A0 00 3A 20 FE 25 00 84 1E F4 01 86 20 |.I...: .%...... |
00000250: 46 24 28 32 30 30 29 3A 8D 20 33 30 30 30 3A 8F |F$(200):. 3000:.|
00000260: 20 2D 2D 2D 44 52 55 43 4B 45 52 2D 41 55 53 57 | ---DRUCKER-AUSW|
00000270: 41 48 4C 2C 20 53 43 48 52 49 46 54 2D 41 55 53 |AHL, SCHRIFT-AUS|
00000280: 57 41 48 4C 00 96 1E FE 01 99 22 11 11 11 12 4D |WAHL......"....M|
00000290: 45 4E 55 3A 92 22 00 C4 1E 08 02 99 22 20 28 30 |ENU:."......" (0|
000002A0: 29 20 47 45 4C 45 53 45 4E 45 20 44 49 53 4B 45 |) GELESENE DISKE|
000002B0: 54 54 45 20 4E 4F 43 48 4D 41 4C 20 44 52 55 43 |TTE NOCHMAL DRUC|
000002C0: 4B 45 4E 22 00 F3 1E 12 02 99 22 20 28 31 29 20 |KEN"......" (1) |
000002D0: 4E 41 45 43 48 53 54 45 20 44 49 53 4B 20 4C 45 |NAECHSTE DISK LE|
000002E0: 53 45 4E 2C 20 31 20 4D 41 4C 20 44 52 55 43 4B |SEN, 1 MAL DRUCK|
000002F0: 45 4E 22 00 22 1F 1C 02 99 22 20 28 32 29 20 4E |EN"."...." (2) N|
00000300: 41 45 43 48 53 54 45 20 44 49 53 4B 20 4C 45 53 |AECHSTE DISK LES|
00000310: 45 4E 2C 20 32 20 4D 41 4C 20 44 52 55 43 4B 45 |EN, 2 MAL DRUCKE|
00000320: 4E 22 00 51 1F 26 02 99 22 20 28 33 29 20 4E 41 |N".Q.&.." (3) NA|
00000330: 45 43 48 53 54 45 20 44 49 53 4B 20 4C 45 53 45 |ECHSTE DISK LESE|
00000340: 4E 2C 20 33 20 4D 41 4C 20 44 52 55 43 4B 45 4E |N, 3 MAL DRUCKEN|
00000350: 22 00 80 1F 30 02 99 22 20 28 34 29 20 4E 41 45 |"...0.." (4) NAE|
00000360: 43 48 53 54 45 20 44 49 53 4B 20 4C 45 53 45 4E |CHSTE DISK LESEN|
00000370: 2C 20 34 20 4D 41 4C 20 44 52 55 43 4B 45 4E 22 |, 4 MAL DRUCKEN"|
00000380: 00 A5 1F 3A 02 99 22 20 38 44 29 20 44 52 55 43 |...:.." 8D) DRUC|
00000390: 4B 45 52 2C 20 53 43 48 52 49 46 54 20 41 45 4E |KER, SCHRIFT AEN|
000003A0: 44 45 52 4E 22 00 C4 1F 44 02 99 22 20 28 45 29 |DERN"...D.." (E)|
000003B0: 20 45 4E 44 45 22 3A 47 24 B2 22 22 3A 97 20 31 | ENDE":G$."":. 1|
000003C0: 39 38 2C 30 00 DC 1F 4E 02 A1 20 47 24 3A 8B 20 |98,0...N.. G$:. |
000003D0: 47 24 B2 22 45 22 A7 20 FE 26 3A 80 00 FA 1F 58 |G$."E". .&:....X|
000003E0: 02 3A 20 8B 20 47 24 B2 22 44 22 20 A7 20 8D 20 |.: . G$."D" . . |
000003F0: 33 30 30 30 3A 89 20 35 31 30 00 1E 20 62 02 3A |3000:. 510.. b.:|
00000400: 20 8B 20 47 24 B2 22 22 20 B0 20 47 24 B3 22 30 | . G$."" . G$."0|
00000410: 22 B0 20 47 24 B1 22 39 22 A7 20 35 39 30 00 3A |". G$."9". 590.:|
00000420: 20 6C 02 3A 20 8B 20 47 24 B2 22 30 22 A7 20 46 | l.: . G$."0". F|
00000430: 39 B2 31 3A 89 20 32 30 32 30 00 47 20 76 02 46 |9.1:. 2020.G v.F|
00000440: 39 B2 C5 28 47 24 29 00 4D 20 80 02 3A 00 88 20 |9..(G$).M ..:.. |
00000450: E8 03 3A 20 9F 31 2C 38 2C 30 2C 22 24 22 3A 8F |..: .1,8,0,"$":.|
00000460: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 4C | * * * * * * * L|
00000470: 45 53 45 52 4F 55 54 49 4E 45 20 2A 20 2A 20 2A |ESEROUTINE * * *|
00000480: 20 2A 20 2A 20 2A 20 2A 00 96 20 F2 03 3A 20 20 | * * * *.. ..: |
00000490: 99 22 11 12 22 3B 00 B6 20 FC 03 3A 20 20 A1 23 |."..";.. ..: .#|
000004A0: 31 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |1,A$,A$,A$,A$,A$|
000004B0: 2C 41 24 2C 41 24 00 F3 20 06 04 3A 20 20 8B 20 |,A$,A$.. ..: . |
000004C0: 53 54 B3 B1 30 20 A7 20 99 22 12 3E 3E 3E 4B 45 |ST..0 . .".>>>KE|
000004D0: 49 4E 20 44 49 52 45 43 54 4F 52 59 20 56 4F 52 |IN DIRECTORY VOR|
000004E0: 48 41 4E 44 45 4E 3C 3C 3C 92 22 3A A0 31 3A 89 |HANDEN<<<.":.1:.|
000004F0: 35 31 30 00 15 21 10 04 3A 20 20 41 B2 30 3A 81 |510..!..: A.0:.|
00000500: 20 49 B2 30 20 A4 20 36 3A 46 24 28 49 29 B2 22 | I.0 . 6:F$(I)."|
00000510: 20 20 22 3A 82 00 31 21 1A 04 3A 20 20 20 20 20 | ":..1!..: |
00000520: 81 20 49 B2 C3 28 46 24 28 41 29 29 20 A4 20 32 |. I..(F$(A)) . 2|
00000530: 35 00 54 21 24 04 3A 20 20 20 20 20 20 A1 23 31 |5.T!$.: .#1|
00000540: 2C 41 24 3A 8B 20 41 24 B2 C7 28 33 34 29 A7 20 |,A$:. A$..(34). |
00000550: 31 30 38 30 00 6E 21 2E 04 3A 20 20 20 20 20 20 |1080.n!..: |
00000560: 46 24 28 41 29 B2 46 24 28 41 29 AA 41 24 00 88 |F$(A).F$(A).A$..|
00000570: 21 38 04 3A 20 20 20 20 20 82 3A 99 20 46 24 28 |!8.: .:. F$(|
00000580: 41 29 3A 41 B2 41 AA 31 00 A5 21 42 04 3A 20 20 |A):A.A.1..!B.: |
00000590: A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 22 20 A7 |.#1,A$:.A$.."" .|
000005A0: 20 31 30 39 30 00 CB 21 4C 04 3A 20 20 A1 23 31 | 1090..!L.: .#1|
000005B0: 2C 41 24 2C 42 24 3A 8B 20 41 24 B2 22 22 AF 20 |,A$,B$:. A$."". |
000005C0: 42 24 B2 22 22 A7 20 31 31 34 30 00 0A 22 56 04 |B$."". 1140.."V.|
000005D0: 3A 20 20 A1 23 31 2C 41 24 2C 42 24 3A 43 24 B2 |: .#1,A$,B$:C$.|
000005E0: C4 28 C6 28 41 24 29 AA C6 28 42 24 29 AC 32 35 |.(.(A$)..(B$).25|
000005F0: 36 29 3A 46 24 28 41 29 B2 C9 28 22 20 20 20 22 |6):F$(A)..(" "|
00000600: AA 43 24 AA 22 20 22 2C 35 29 00 2B 22 60 04 3A |.C$." ",5).+"`.:|
00000610: 20 20 81 20 49 B2 30 20 A4 20 35 AB C3 28 43 24 | . I.0 . 5..(C$|
00000620: 29 3A A1 23 31 2C 41 24 3A 82 49 00 38 22 6A 04 |):.#1,A$:.I.8"j.|
00000630: 3A 20 20 89 31 30 35 30 00 41 22 74 04 3A 20 A0 |: .1050.A"t.: .|
00000640: 31 00 47 22 7E 04 3A 00 73 22 D0 07 46 5A 24 B2 |1.G"~.:.s"..FZ$.|
00000650: 43 24 AA 22 20 42 4C 4F 43 4B 20 46 52 45 49 2E |C$." BLOCK FREI.|
00000660: 22 3A 46 24 28 41 AB 31 29 B2 22 2E 22 3A 42 B2 |":F$(A.1).".":B.|
00000670: 41 AB 31 00 94 22 DA 07 8B 20 42 AD 53 B3 B1 B5 |A.1.."... B.S...|
00000680: 28 42 AD 53 29 20 A7 20 42 B2 42 AA 31 3A 89 20 |(B.S) . B.B.1:. |
00000690: 32 30 31 30 00 D0 22 E4 07 3A 20 9F 20 31 2C 34 |2010.."..: . 1,4|
000006A0: 2C 28 46 30 AB 31 29 3A 8F 20 20 20 20 20 2A 20 |,(F0.1):. * |
000006B0: 2A 20 2A 20 2A 20 2A 20 44 52 55 43 4B 45 52 52 |* * * * DRUCKERR|
000006C0: 4F 55 54 49 4E 45 20 2A 20 2A 20 2A 20 2A 20 2A |OUTINE * * * * *|
000006D0: 00 EF 22 EE 07 3A 20 20 8B 20 46 31 B2 31 20 A7 |.."..: . F1.1 .|
000006E0: 20 98 31 2C C7 28 32 37 29 C7 28 31 35 29 3B 00 | .1,.(27).(15);.|
000006F0: 21 23 F8 07 3A 20 20 8B 20 46 32 B2 31 20 A7 20 |!#..: . F2.1 . |
00000700: 98 31 2C C7 28 32 37 29 C7 28 38 33 29 C7 28 31 |.1,.(27).(83).(1|
00000710: 29 3B C7 28 32 37 29 C7 28 36 35 29 C7 28 35 29 |);.(27).(65).(5)|
00000720: 3B 00 35 23 02 08 3A 20 20 20 20 81 20 49 B2 31 |;.5#..: . I.1|
00000730: 20 A4 20 46 39 00 69 23 0C 08 3A 20 20 20 20 20 | . F9.i#..: |
00000740: 98 31 2C 22 2A 2A 20 48 2E 54 45 54 45 4E 53 20 |.1,"** H.TETENS |
00000750: 2A 2A 22 3B C7 28 31 34 29 3B 46 24 28 30 29 3B |**";.(14);F$(0);|
00000760: C7 28 32 30 29 3B 46 5A 24 00 8E 23 16 08 3A 20 |.(20);FZ$..#..: |
00000770: 20 20 20 20 20 81 20 4A B2 31 20 A4 20 37 39 3A | . J.1 . 79:|
00000780: 98 31 2C 22 3D 22 3B 3A 82 20 4A 3A 98 31 00 AE |.1,"=";:. J:.1..|
00000790: 23 20 08 3A 20 20 20 20 20 20 20 20 20 81 20 4B |# .: . K|
000007A0: B2 31 20 A4 20 42 AD 53 3A 4E 24 B2 22 22 00 E7 |.1 . B.S:N$.""..|
000007B0: 23 2A 08 3A 20 20 20 20 20 20 20 20 20 20 81 20 |#*.: . |
000007C0: 4C B2 30 20 A4 20 53 3A 98 31 2C 4E 24 3B 46 24 |L.0 . S:.1,N$;F$|
000007D0: 28 4B AA 4C AC 42 AD 53 29 3B 3A 4E 24 B2 22 20 |(K.L.B.S);:N$." |
000007E0: 22 3A 82 4C 3A 98 31 00 0B 24 34 08 3A 20 20 20 |":.L:.1..$4.: |
000007F0: 20 20 20 20 20 20 82 20 4B 3A 8B 20 46 39 B1 31 | . K:. F9.1|
00000800: 20 A7 20 98 31 3A 98 31 3A 98 31 00 18 24 3E 08 | . .1:.1:.1..$>.|
00000810: 3A 20 20 20 20 82 20 49 00 2D 24 48 08 3A 20 20 |: . I.-$H.: |
00000820: 98 31 2C C7 28 32 37 29 C7 28 36 34 29 00 36 24 |.1,.(27).(64).6$|
00000830: 52 08 3A 20 A0 31 00 40 24 5C 08 89 20 35 31 30 |R.: .1.@$\.. 510|
00000840: 00 46 24 66 08 3A 00 84 24 B8 0B 99 22 11 11 11 |.F$f.:..$..."...|
00000850: 42 49 54 54 45 20 22 C7 28 31 38 29 22 44 52 55 |BITTE ".(18)"DRU|
00000860: 43 4B 45 52 22 C7 28 31 34 36 29 22 20 45 49 4E |CKER".(146)" EIN|
00000870: 53 43 48 41 4C 54 45 4E 2C 20 20 57 41 45 48 4C |SCHALTEN, WAEHL|
00000880: 45 4E 3A 22 00 B7 24 C2 0B 99 22 20 28 31 29 20 |EN:"..$..." (1) |
00000890: 46 58 2D 38 4F 20 45 50 53 4F 4E 22 3A 99 22 20 |FX-8O EPSON":." |
000008A0: 28 32 29 20 46 2B 20 52 49 54 45 4D 41 4E 22 3A |(2) F+ RITEMAN":|
000008B0: 97 20 31 39 38 2C 30 00 EA 24 CC 0B 3A 20 A1 F9 |. 198,0..$..: ..|
000008C0: 20 47 24 3A 8B 20 47 24 B1 B2 22 31 22 AF 20 47 | G$:. G$.."1". G|
000008D0: 24 B3 B2 22 32 22 20 A7 20 46 30 B2 C5 28 47 24 |$.."2" . F0..(G$|
000008E0: 29 3A D5 20 89 20 33 30 32 30 00 24 25 D6 0B 3A |):. . 3020.$%..:|
000008F0: 20 8B 20 46 30 B2 31 20 A7 20 99 22 11 12 46 58 | . F0.1 . ."..FX|
00000900: 2D 38 30 20 2D 53 43 48 52 49 46 54 3A 92 22 3A |-80 -SCHRIFT:.":|
00000910: D5 20 99 22 11 12 46 2B 20 2D 53 43 48 52 49 46 |. ."..F+ -SCHRIF|
00000920: 54 3A 92 22 00 53 25 E0 0B 99 22 20 28 31 29 20 |T:.".S%..." (1) |
00000930: 4E 4F 52 4D 41 4C 2D 53 43 48 52 49 46 54 2C 20 |NORMAL-SCHRIFT, |
00000940: 44 49 4E 20 41 2D 34 2C 20 33 2D 53 50 41 4C 54 |DIN A-4, 3-SPALT|
00000950: 49 47 22 00 82 25 EA 0B 99 22 20 28 32 29 20 49 |IG"..%..." (2) I|
00000960: 4E 44 45 58 2D 53 43 48 52 49 46 54 2C 20 20 44 |NDEX-SCHRIFT, D|
00000970: 49 4E 20 41 2D 34 2C 20 33 2D 53 50 41 4C 54 49 |IN A-4, 3-SPALTI|
00000980: 47 22 00 B1 25 F4 0B 99 22 20 28 33 29 20 53 43 |G"..%..." (3) SC|
00000990: 48 4D 41 4C 2D 53 43 48 52 49 46 54 2C 20 44 49 |HMAL-SCHRIFT, DI|
000009A0: 53 4B 2C 20 20 20 20 33 2D 53 50 41 4C 54 49 47 |SK, 3-SPALTIG|
000009B0: 22 00 E0 25 FE 0B 99 22 20 28 34 29 20 49 4E 44 |"..%..." (4) IND|
000009C0: 45 58 20 2B 20 53 43 48 4D 41 4C 2C 20 44 49 53 |EX + SCHMAL, DIS|
000009D0: 4B 2C 20 20 20 20 33 2D 53 50 41 4C 54 49 47 22 |K, 3-SPALTIG"|
000009E0: 00 0F 26 08 0C 99 22 20 28 35 29 20 53 43 48 4D |..&..." (5) SCHM|
000009F0: 41 4C 2D 53 43 48 52 49 46 54 2C 20 44 49 4E 20 |AL-SCHRIFT, DIN |
00000A00: 41 2D 34 2C 20 35 2D 53 50 41 4C 54 49 47 22 00 |A-4, 5-SPALTIG".|
00000A10: 46 26 12 0C 99 22 20 28 36 29 20 49 4E 44 45 58 |F&..." (6) INDEX|
00000A20: 20 2B 20 53 43 48 4D 41 4C 2C 20 44 49 4E 20 41 | + SCHMAL, DIN A|
00000A30: 2D 34 2C 20 35 2D 53 50 41 4C 54 49 47 22 3A 97 |-4, 5-SPALTIG":.|
00000A40: 20 31 39 38 2C 30 00 6A 26 1C 0C 3A 20 A1 F9 20 | 198,0.j&..: .. |
00000A50: 47 24 3A 8B 20 47 24 B3 22 31 22 B0 20 47 24 B1 |G$:. G$."1". G$.|
00000A60: 22 36 22 20 A7 20 33 31 30 30 00 A2 26 26 0C 3A |"6" . 3100..&&.:|
00000A70: 20 47 B2 C5 28 47 24 29 3A 53 B2 33 3A 8B 20 47 | G..(G$):S.3:. G|
00000A80: B1 B2 35 20 A7 20 53 B2 35 3A 47 B2 47 AB 32 20 |..5 . S.5:G.G.2 |
00000A90: 20 20 20 20 3A 8F 20 33 2F 35 2D 53 50 41 4C 54 | :. 3/5-SPALT|
00000AA0: 49 47 00 D7 26 30 0C 3A 20 20 20 20 20 20 20 20 |IG..&0.: |
00000AB0: 20 20 46 31 B2 30 3A 8B 20 47 B1 B2 33 20 A7 20 | F1.0:. G..3 . |
00000AC0: 46 31 B2 31 3A 47 B2 47 AB 32 20 20 20 20 3A 8F |F1.1:G.G.2 :.|
00000AD0: 20 53 43 48 4D 41 4C 00 0C 27 3A 0C 3A 20 20 20 | SCHMAL..':.: |
00000AE0: 20 20 20 20 20 20 20 46 32 B2 30 3A 8B 20 47 B1 | F2.0:. G.|
00000AF0: B2 32 20 A7 20 46 32 B2 31 20 20 20 20 20 20 20 |.2 . F2.1 |
00000B00: 20 20 20 3A 8F 20 53 43 48 4D 41 4C 00 12 27 44 | :. SCHMAL..'D|
00000B10: 0C 8E 00 00 00 |..... |
..'.... *******************************.
M.... ** 3*DIRECTORY-PRINT **.S.
... ** H. T E T E N S **...(.
. **(C)****************31.5.1986*...2.:.
R.<..".. . * * * H. T E T E N S *
* * (C)."...F..".. DIESES PROGRAMM DRUC
KT DAS DIRECTORY".-.P.." DES C-64 ODER
C-128 SLOW+FAST (!)".Z.Z..". 3-/5-SPALT
IG IN INDEX+SCHMALSCHRIFT".S.D.G.N.(2):.
G.80 . 160...N..". (1) 40-ZEICHEN-MODUS
".H.X.." (2) 80-ZEICHEN-MODUS: DOPPELTE
GESCHW.":. 198,0.....: .. G$:. G$."1".G$
."2" . 130.(...: . G$."1". 500:U ."..80-
ZEICHEN-MODUS EIN., DANN RETURN".@...: .
G$:. G$."". 100.I. .: .%...... F$(200):
. 3000:. ---DRUCKER-AUSWAHL, SCHRIFT-AUS
WAHL......"....MENU:.".D...." (0) GELESE
NE DISKETTE NOCHMAL DRUCKEN"......" (1)
NAECHSTE DISK LESEN, 1 MAL DRUCKEN"."...
." (2) NAECHSTE DISK LESEN, 2 MAL DRUCKE
N".Q.&.." (3) NAECHSTE DISK LESEN, 3 MAL
DRUCKEN"...0.." (4) NAECHSTE DISK LESEN
, 4 MAL DRUCKEN"...:.." 8D) DRUCKER, SCH
RIFT AENDERN".D.D.." (E) ENDE":G$."":. 1
98,0...N.. G$:. G$."E". .&:....X.: . G$.
"D" . . 3000:. 510.. B.: . G$."" . G$."0
". G$."9". 590.: L.: . G$."0". F9.1:. 20
20.G V.F9.E(G$).M ..:.. ..: .1,8,0,"$":.
* * * * * * * LESEROUTINE * * * * * * *
.. ..: ."..";.. ..: .#1,A$,A$,A$,A$,A$
,A$,A$.. ..: . ST..0 . .".>>>KEIN DIREC
TORY VORHANDEN<<<.": 1:.510..!..: A.0:.
I.0 . 6:F$(I)." ":..1!..: . I.C(F$
(A)) . 25.T!$.: .#1,A$:. A$.G(34).
1080.N!..: F$(A).F$(A).A$..!8.:
.:. F$(A):A.A.1..!B.: .#1,A$:.A$.."" .
1090.K!L.: .#1,A$,B$:. A$."". B$."". 1
140.."V.: .#1,A$,B$:C$.D(F(A$).F(B$).25
6):F$(A).I(" ".C$." ",5).+"`.: . I.0
. 5.C(C$):.#1,A$:.I.8"J.: .1050.A"T.:
1.G"~.:.S"P.FZ$.C$." BLOCK FREI.":F$(A.1
).".":B.A.1.."Z.. B.S...(B.S) . B.B.1:.
2010.P"..: . 1,4,(F0.1):. * * * * *
DRUCKERROUTINE * * * * *.."..: . F1.1 .
.1,G(27)G(15);.!#..: . F2.1 . .1,G(27)
G(83)G(1);G(27)G(65)G(5);.5#..: . I.1
. F9.I#..: .1,"** H.TETENS **";G(14
);F$(0);G(20);FZ$..#..: . J.1 . 79:
.1,"=";:. J:.1..# .: . K.1 . B.S
:N$.""..#*.: . L.0 . S:.1,N$;F$
(K.L.B.S);:N$." ":.L:.1..$4.: .
K:. F9.1 . .1:.1:.1..$>.: . I.-$H.:
.1,G(27)G(64).6$R.: 1.@$\.. 510.F$F.:..
$..."...BITTE "G(18)"DRUCKER"G(146)" EIN
SCHALTEN, WAEHLEN:"..$B.." (1) FX-8O EP
SON":." (2) F+ RITEMAN":. 198,0..$L.: ..
G$:. G$.."1". G$.."2" . F0.E(G$):U . 30
20.$%V.: . F0.1 . ."..FX-80 -SCHRIFT:.":
U ."..F+ -SCHRIFT:.".S%..." (1) NORMAL-S
CHRIFT, DIN A-4, 3-SPALTIG"..%..." (2) I
NDEX-SCHRIFT, DIN A-4, 3-SPALTIG"..%...
" (3) SCHMAL-SCHRIFT, DISK, 3-SPALTIG
"..%..." (4) INDEX + SCHMAL, DISK, 3-
SPALTIG"..&..." (5) SCHMAL-SCHRIFT, DIN
A-4, 5-SPALTIG".F&..." (6) INDEX + SCHMA
L, DIN A-4, 5-SPALTIG":. 198,0.J&..: ..
G$:. G$."1". G$."6" . 3100..&&.: G.E(G$)
:S.3:. G..5 . S.5:G.G.2 :. 3/5-SPALT
IG.W&0.: F1.0:. G..3 . F1.1:G.G
.2 :. SCHMAL..':.: F2.0:. G.
.2 . F2.1 :. SCHMAL..'D.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL