DIR-DRUCK
FILE INFORMATION
FILENAME(S): DIR-DRUCK
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-12-01 13:57:50
APPEARS ON: 1 disk(s)
FILE HASH
a7a1e0d98be85d15c54089cf4bba57cf269d1d87875ca029604e1242d62fffec
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| S | DIR-DRUCK | PRG | HOL2001, Misc | 25 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 02 00 89 32 30 30 30 30 00 24 08 0A |.......20000.$..|
00000010: 00 9F 32 2C 38 2C 31 35 3A 9F 31 2C 38 2C 30 2C |..2,8,15:.1,8,0,|
00000020: 22 24 30 22 00 36 08 14 00 A1 23 31 2C 41 24 2C |"$0".6....#1,A$,|
00000030: 42 24 3A 4E B2 31 00 44 08 1E 00 A1 23 31 2C 41 |B$:N.1.D....#1,A|
00000040: 24 2C 42 24 00 52 08 28 00 A1 23 31 2C 41 24 2C |$,B$.R.(..#1,A$,|
00000050: 42 24 00 5A 08 32 00 43 B2 30 00 71 08 3C 00 8B |B$.Z.2.C.0.q.<..|
00000060: 20 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 28 41 24 | A$.."" . C..(A$|
00000070: 29 00 8E 08 46 00 8B 20 42 24 B3 B1 22 22 20 A7 |)...F.. B$.."" .|
00000080: 20 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 00 A5 | C.C..(B$).256..|
00000090: 08 47 00 42 4C 4F 45 43 4B 45 24 B2 CA 28 C4 28 |.G.BLOECKE$..(.(|
000000A0: 43 29 2C 32 29 00 BC 08 48 00 8B 43 B3 31 30 30 |C),2)...H..C.100|
000000B0: A7 42 4C 24 B2 22 20 22 AA 42 4C 24 00 D2 08 49 |.BL$." ".BL$...I|
000000C0: 00 8B 43 B3 31 30 A7 42 4C 24 B2 22 20 22 AA 42 |..C.10.BL$." ".B|
000000D0: 4C 24 00 E2 08 4B 00 8B 4E B2 31 A7 42 4C 24 B2 |L$...K..N.1.BL$.|
000000E0: 22 22 00 F0 08 4C 00 4E 24 28 4E 29 B2 42 4C 24 |""...L.N$(N).BL$|
000000F0: 00 0A 09 5A 00 A1 23 31 2C 42 24 3A 8B 20 53 54 |...Z..#1,B$:. ST|
00000100: B3 B1 30 20 A7 20 31 30 30 30 00 1F 09 64 00 8B |..0 . 1000...d..|
00000110: 20 42 24 B3 B1 C7 28 33 34 29 20 A7 20 39 30 00 | B$...(34) . 90.|
00000120: 33 09 69 00 99 42 4C 24 3B 22 20 22 3B 3A 41 24 |3.i..BL$;" ";:A$|
00000130: B2 22 22 00 5E 09 6E 00 A1 23 31 2C 42 24 3A 8B |."".^.n..#1,B$:.|
00000140: 20 42 24 B3 B1 C7 28 33 34 29 A7 20 99 42 24 3B | B$...(34). .B$;|
00000150: 3A 41 24 B2 41 24 AA 42 24 3A 89 31 31 30 00 7A |:A$.A$.B$:.110.z|
00000160: 09 78 00 A1 23 31 2C 42 24 3A 8B 20 42 24 B2 C7 |.x..#1,B$:. B$..|
00000170: 28 33 32 29 20 A7 20 31 32 30 00 97 09 79 00 4E |(32) . 120...y.N|
00000180: 24 28 4E 29 B2 4E 24 28 4E 29 AA 22 20 22 AA 41 |$(N).N$(N)." ".A|
00000190: 24 3A 8D 33 30 30 30 00 B2 09 7D 00 8B 4E B2 31 |$:.3000...}..N.1|
000001A0: A7 99 A3 31 39 29 3B 3A 43 24 B2 22 22 3A 89 31 |...19);:C$."":.1|
000001B0: 34 30 00 C4 09 82 00 99 20 A3 32 31 29 3B 3A 43 |40...... .21);:C|
000001C0: 24 B2 22 22 00 E8 09 8C 00 43 24 B2 43 24 AA 42 |$."".....C$.C$.B|
000001D0: 24 3A A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 22 |$:.#1,B$:. B$.."|
000001E0: 22 20 20 A7 20 31 34 30 00 F2 09 96 00 8D 33 31 |" . 140......31|
000001F0: 30 30 00 22 0A 9B 00 8B 4E B2 31 A7 4E B2 32 3A |00."....N.1.N.2:|
00000200: 99 3A 4E 24 28 32 29 B2 22 20 20 20 20 20 20 20 |.:N$(2)." |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 22 00 3D 0A A0 00 A1 20 54 24 3A 8B 20 54 24 | ".=.... T$:. T$|
00000230: B3 B1 22 22 20 A7 20 8D 20 32 30 30 30 00 54 0A |.."" . . 2000.T.|
00000240: AA 00 8B 20 53 54 B2 30 20 A7 20 4E B2 4E AA 31 |... ST.0 . N.N.1|
00000250: 3A 89 33 30 00 81 0A E8 03 99 3A 4E 24 28 4E 29 |:.30......:N$(N)|
00000260: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000270: 20 20 20 20 20 20 20 20 20 20 22 3A 4E B2 4E AA | ":N.N.|
00000280: 31 00 A7 0A EA 03 4E 24 28 4E 29 B2 42 4C 24 AA |1.....N$(N).BL$.|
00000290: 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 2E 20 20 |" BLOCKS FREE. |
000002A0: 20 20 20 20 20 20 22 00 B2 0A EB 03 99 4E 24 28 | "......N$(|
000002B0: 4E 29 00 BE 0A F2 03 A0 31 3A A0 32 3A 8E 00 D2 |N)......1:.2:...|
000002C0: 0A D0 07 8B 20 54 24 B2 22 51 22 20 A7 20 A0 31 |.... T$."Q" . .1|
000002D0: 3A 80 00 EA 0A DA 07 A1 20 54 24 3A 8B 20 54 24 |:....... T$:. T$|
000002E0: B2 22 22 20 A7 20 32 30 30 30 00 F0 0A E4 07 8E |."" . 2000......|
000002F0: 00 0E 0B B8 0B 53 50 24 B2 22 20 20 20 20 20 20 |.....SP$." |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 23 | ".#|
00000310: 0B C2 0B 4C 41 B2 32 31 3A 8B 4E B2 31 A7 4C 41 |...LA.21:.N.1.LA|
00000320: B2 31 39 00 46 0B D6 0B 4E 24 28 4E 29 B2 4E 24 |.19.F...N$(N).N$|
00000330: 28 4E 29 AA C8 28 53 50 24 2C 4C 41 AB C3 28 4E |(N)..(SP$,LA..(N|
00000340: 24 28 4E 29 29 29 00 4C 0B E0 0B 8E 00 5F 0B 1C |$(N))).L....._..|
00000350: 0C 4C 41 B2 33 3A 8B 4E B2 31 A7 4C 41 B2 35 00 |.LA.3:.N.1.LA.5.|
00000360: 81 0B 4E 0C 99 C8 28 43 24 2C 35 29 3A 4E 24 28 |..N...(C$,5):N$(|
00000370: 4E 29 B2 4E 24 28 4E 29 AA C8 28 43 24 2C 4C 41 |N).N$(N)..(C$,LA|
00000380: 29 00 87 0B 58 0C 8E 00 9F 0B 10 27 81 49 B2 31 |)...X......'.I.1|
00000390: A4 4E 3A 99 4E 24 28 49 29 3B 22 57 22 3A 82 00 |.N:.N$(I);"W":..|
000003A0: AF 0B 20 4E 99 22 93 11 12 DD 13 12 D5 22 3B 00 |.. N.".......";.|
000003B0: C9 0B 25 4E 9C 3A 86 20 4E 24 28 31 30 30 29 2C |..%N.:. N$(100),|
000003C0: 46 24 28 31 30 30 2C 33 29 00 DF 0B 2A 4E 81 49 |F$(100,3)...*N.I|
000003D0: B2 31 A4 33 38 3A 99 22 12 C0 22 3B 3A 82 49 00 |.1.38:."..";:.I.|
000003E0: E9 0B 34 4E 99 22 12 C9 22 00 FE 0B 39 4E 99 22 |..4N.".."...9N."|
000003F0: 91 12 DD 22 3B A6 33 38 29 3B 22 12 DD 22 00 30 |...";.38);"..".0|
00000400: 0C 3A 4E 99 22 91 91 12 1D 20 44 20 49 20 52 20 |.:N.".... D I R |
00000410: 45 20 43 20 54 20 4F 20 52 20 59 20 2D 20 41 20 |E C T O R Y - A |
00000420: 55 20 53 20 44 20 52 20 55 20 43 20 4B 20 20 22 |U S D R U C K "|
00000430: 00 3C 0C 3E 4E 99 22 12 CA 22 3B 3A 00 52 0C 48 |.<.>N."..";:.R.H|
00000440: 4E 81 49 B2 31 A4 33 38 3A 99 22 12 C0 22 3B 3A |N.I.1.38:."..";:|
00000450: 82 49 00 5C 0C 52 4E 99 22 12 CB 22 00 81 0C 84 |.I.\.RN.".."....|
00000460: 4E 99 22 11 11 20 12 20 31 20 92 20 2D 20 31 20 |N.".. . 1 . - 1 |
00000470: 44 49 53 4B 45 54 54 45 20 44 52 55 43 4B 45 4E |DISKETTE DRUCKEN|
00000480: 22 00 A5 0C 8E 4E 99 22 11 20 12 20 32 20 92 20 |"....N.". . 2 . |
00000490: 2D 20 32 20 44 49 53 4B 45 54 54 45 20 44 52 55 |- 2 DISKETTE DRU|
000004A0: 43 4B 45 4E 22 00 C9 0C 98 4E 99 22 11 20 12 20 |CKEN"....N.". . |
000004B0: 33 20 92 20 2D 20 33 20 44 49 53 4B 45 54 54 45 |3 . - 3 DISKETTE|
000004C0: 20 44 52 55 43 4B 45 4E 22 00 ED 0C 9D 4E 99 22 | DRUCKEN"....N."|
000004D0: 11 20 12 20 34 20 92 20 2D 20 44 49 52 45 43 54 |. . 4 . - DIRECT|
000004E0: 4F 52 59 20 41 4E 5A 45 49 47 45 4E 22 00 02 0D |ORY ANZEIGEN"...|
000004F0: A2 4E A1 51 24 3A 8B 51 24 B2 22 22 A7 32 30 31 |.N.Q$:.Q$."".201|
00000500: 33 30 00 1D 0D AC 4E 51 B2 C5 28 51 24 29 3A 8B |30....NQ..(Q$):.|
00000510: 51 B3 31 B0 51 B1 34 A7 32 30 31 33 30 00 3E 0D |Q.1.Q.4.20130.>.|
00000520: B6 4E 91 20 51 89 20 32 31 30 30 30 2C 32 32 30 |.N. Q. 21000,220|
00000530: 30 30 2C 32 33 30 30 30 2C 33 30 30 30 30 00 60 |00,23000,30000.`|
00000540: 0D 08 52 99 22 93 11 11 20 3C 52 45 54 55 52 4E |..R."... <RETURN|
00000550: 3E 20 44 52 55 45 43 4B 45 4E 20 57 45 4E 4E 22 |> DRUECKEN WENN"|
00000560: 00 80 0D 12 52 99 22 11 20 44 49 53 4B 45 54 54 |....R.". DISKETT|
00000570: 45 20 45 49 4E 47 45 4C 45 47 54 20 49 53 54 22 |E EINGELEGT IST"|
00000580: 00 99 0D 17 52 A1 51 24 3A 8B 51 24 B3 B1 C7 28 |....R.Q$:.Q$...(|
00000590: 31 33 29 A7 32 31 30 31 35 00 A6 0D 1C 52 99 22 |13).21015....R."|
000005A0: 93 22 3A 8D 31 30 00 D4 0D 26 52 99 22 11 11 20 |.":.10...&R.".. |
000005B0: 41 4E 20 57 45 4C 43 48 45 4E 20 53 54 45 4C 4C |AN WELCHEN STELL|
000005C0: 45 20 53 4F 4C 4C 20 44 45 52 20 41 55 53 44 52 |E SOLL DER AUSDR|
000005D0: 55 43 4B 22 00 01 0E 30 52 99 22 11 20 12 20 31 |UCK"...0R.". . 1|
000005E0: 20 92 20 41 4E 20 31 2E 20 53 54 45 4C 4C 45 20 | . AN 1. STELLE |
000005F0: 28 4E 41 43 48 20 30 20 53 50 41 4C 54 45 4E 29 |(NACH 0 SPALTEN)|
00000600: 22 00 2F 0E 3A 52 99 22 11 20 12 20 32 20 92 20 |"./.:R.". . 2 . |
00000610: 41 4E 20 32 2E 20 53 54 45 4C 4C 45 20 28 4E 41 |AN 2. STELLE (NA|
00000620: 43 48 20 32 38 20 53 50 41 4C 54 45 4E 29 22 00 |CH 28 SPALTEN)".|
00000630: 5D 0E 44 52 99 22 11 20 12 20 33 20 92 20 41 4E |].DR.". . 3 . AN|
00000640: 20 33 2E 20 53 54 45 4C 4C 45 20 28 4E 41 43 48 | 3. STELLE (NACH|
00000650: 20 35 34 20 53 50 41 4C 54 45 4E 29 22 00 72 0E | 54 SPALTEN)".r.|
00000660: 4E 52 A1 51 24 3A 8B 51 24 B2 22 22 A7 32 31 30 |NR.Q$:.Q$."".210|
00000670: 37 30 00 8D 0E 58 52 51 B2 C5 28 51 24 29 3A 8B |70...XRQ..(Q$):.|
00000680: 51 B3 31 A7 51 B1 33 A7 32 31 30 38 30 00 9A 0E |Q.1.Q.3.21080...|
00000690: 62 52 41 24 28 31 29 B2 22 22 00 C3 0E 6C 52 41 |bRA$(1).""...lRA|
000006A0: 24 28 32 29 B2 22 20 20 20 20 20 20 20 20 20 20 |$(2)." |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006C0: 20 20 22 00 08 0F 76 52 41 24 28 33 29 B2 22 20 | "...vRA$(3)." |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700: 20 20 20 20 20 20 20 22 00 39 0F D0 52 99 22 11 | ".9..R.".|
00000710: 11 20 3C 52 45 54 55 52 4E 3E 20 44 52 55 45 43 |. <RETURN> DRUEC|
00000720: 4B 45 4E 20 57 45 4E 4E 20 44 52 55 45 43 4B 45 |KEN WENN DRUECKE|
00000730: 52 20 46 45 52 54 49 47 22 00 52 0F DA 52 A1 51 |R FERTIG".R..R.Q|
00000740: 24 3A 8B 51 24 B3 B1 C7 28 31 33 29 A7 32 31 32 |$:.Q$...(13).212|
00000750: 31 30 00 7D 0F E4 52 9F 34 2C 34 3A 98 34 2C C7 |10.}..R.4,4:.4,.|
00000760: 28 32 37 29 3B 22 33 22 3B C7 28 31 36 29 3A 98 |(27);"3";.(16):.|
00000770: 34 2C C7 28 32 37 29 3B 22 53 31 22 3B 00 88 0F |4,.(27);"S1";...|
00000780: EE 52 81 49 B2 31 A4 4E 00 9B 0F F8 52 98 34 2C |.R.I.1.N....R.4,|
00000790: 41 24 28 51 29 3B 4E 24 28 49 29 00 A2 0F 02 53 |A$(Q);N$(I)....S|
000007A0: 82 49 00 A9 0F 0C 53 A0 34 00 BB 0F 16 53 99 22 |.I....S.4....S."|
000007B0: 11 11 20 46 45 52 54 49 47 20 22 00 D0 0F 20 53 |.. FERTIG "... S|
000007C0: A1 51 24 3A 8B 51 24 B2 22 22 A7 32 31 32 38 30 |.Q$:.Q$."".21280|
000007D0: 00 DB 0F 34 53 89 32 30 30 30 30 00 FD 0F F0 55 |...4S.20000....U|
000007E0: 99 22 93 11 11 20 3C 52 45 54 55 52 4E 3E 20 44 |."... <RETURN> D|
000007F0: 52 55 45 43 4B 45 4E 20 57 45 4E 4E 22 00 1F 10 |RUECKEN WENN"...|
00000800: FA 55 99 22 11 20 31 2E 44 49 53 4B 45 54 54 45 |.U.". 1.DISKETTE|
00000810: 20 45 49 4E 47 45 4C 45 47 54 20 49 53 54 22 00 | EINGELEGT IST".|
00000820: 38 10 FF 55 A1 51 24 3A 8B 51 24 B3 B1 C7 28 31 |8..U.Q$:.Q$...(1|
00000830: 33 29 A7 32 32 30 31 35 00 45 10 04 56 99 22 93 |3).22015.E..V.".|
00000840: 22 3A 8D 31 30 00 67 10 0E 56 81 49 B2 31 A4 4E |":.10.g..V.I.1.N|
00000850: 3A 46 24 28 49 2C 31 29 B2 4E 24 28 49 29 3A 82 |:F$(I,1).N$(I):.|
00000860: 3A 4D 28 31 29 B2 4E 00 88 10 0F 56 99 22 11 11 |:M(1).N....V."..|
00000870: 20 3C 52 45 54 55 52 4E 3E 20 44 52 55 45 43 4B | <RETURN> DRUECK|
00000880: 45 4E 20 57 45 4E 4E 22 00 AA 10 10 56 99 22 11 |EN WENN"....V.".|
00000890: 20 32 2E 44 49 53 4B 45 54 54 45 20 45 49 4E 47 | 2.DISKETTE EING|
000008A0: 45 4C 45 47 54 20 49 53 54 22 00 C3 10 11 56 A1 |ELEGT IST"....V.|
000008B0: 51 24 3A 8B 51 24 B3 B1 C7 28 31 33 29 A7 32 32 |Q$:.Q$...(13).22|
000008C0: 30 33 33 00 D0 10 18 56 99 22 93 22 3A 8D 31 30 |033....V.".":.10|
000008D0: 00 F2 10 22 56 81 49 B2 31 A4 4E 3A 46 24 28 49 |..."V.I.1.N:F$(I|
000008E0: 2C 32 29 B2 4E 24 28 49 29 3A 82 3A 4D 28 32 29 |,2).N$(I):.:M(2)|
000008F0: B2 4E 00 26 11 2C 56 4D 41 58 B2 4D 28 31 29 3A |.N.&.,VMAX.M(1):|
00000900: 4D 31 B2 31 3A 4D 32 B2 32 3A 8B 4D 28 32 29 B1 |M1.1:M2.2:.M(2).|
00000910: 4D 41 58 A7 4D 41 58 B2 4D 28 32 29 3A 4D 31 B2 |MAX.MAX.M(2):M1.|
00000920: 32 3A 4D 32 B2 31 00 4E 11 54 56 41 24 28 32 29 |2:M2.1.N.TVA$(2)|
00000930: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 7C | ".||
00000950: 11 72 56 99 22 11 11 20 41 4E 20 57 45 4C 43 48 |.rV.".. AN WELCH|
00000960: 45 4E 20 53 54 45 4C 4C 45 20 53 4F 4C 4C 20 44 |EN STELLE SOLL D|
00000970: 45 52 20 41 55 53 44 52 55 43 4B 22 00 A9 11 7C |ER AUSDRUCK"...||
00000980: 56 99 22 11 20 12 20 31 20 92 20 41 4E 20 31 2E |V.". . 1 . AN 1.|
00000990: 20 53 54 45 4C 4C 45 20 28 4E 41 43 48 20 30 20 | STELLE (NACH 0 |
000009A0: 53 50 41 4C 54 45 4E 29 22 00 D7 11 86 56 99 22 |SPALTEN)"....V."|
000009B0: 11 20 12 20 32 20 92 20 41 4E 20 32 2E 20 53 54 |. . 2 . AN 2. ST|
000009C0: 45 4C 4C 45 20 28 4E 41 43 48 20 32 38 20 53 50 |ELLE (NACH 28 SP|
000009D0: 41 4C 54 45 4E 29 22 00 EC 11 9A 56 A1 51 24 3A |ALTEN)"....V.Q$:|
000009E0: 8B 51 24 B2 22 22 A7 32 32 31 37 30 00 07 12 A4 |.Q$."".22170....|
000009F0: 56 51 B2 C5 28 51 24 29 3A 8B 51 B3 31 A7 51 B1 |VQ..(Q$):.Q.1.Q.|
00000A00: 32 A7 32 32 31 38 30 00 14 12 AE 56 41 24 28 31 |2.22180....VA$(1|
00000A10: 29 B2 22 22 00 3D 12 B8 56 41 24 28 32 29 B2 22 |)."".=..VA$(2)."|
00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 6E 12 | ".n.|
00000A40: C2 56 99 22 11 11 20 3C 52 45 54 55 52 4E 3E 20 |.V.".. <RETURN> |
00000A50: 44 52 55 45 43 4B 45 4E 20 57 45 4E 4E 20 44 52 |DRUECKEN WENN DR|
00000A60: 55 45 43 4B 45 52 20 46 45 52 54 49 47 22 00 87 |UECKER FERTIG"..|
00000A70: 12 C7 56 A1 51 24 3A 8B 51 24 B3 B1 C7 28 31 33 |..V.Q$:.Q$...(13|
00000A80: 29 A7 32 32 32 31 35 00 B3 12 CC 56 9F 34 2C 34 |).22215....V.4,4|
00000A90: 3A 98 34 2C C7 28 32 37 29 3B 22 33 22 3B C7 28 |:.4,.(27);"3";.(|
00000AA0: 31 36 29 3B 3A 98 34 2C C7 28 32 37 29 3B 22 53 |16);:.4,.(27);"S|
00000AB0: 31 22 3B 00 C0 12 D6 56 81 49 B2 31 A4 4D 41 58 |1";....V.I.1.MAX|
00000AC0: 00 E6 12 E0 56 98 34 2C 41 24 28 51 29 3B 46 24 |....V.4,A$(Q);F$|
00000AD0: 28 49 2C 4D 31 29 3B 22 20 20 20 20 22 3B 46 24 |(I,M1);" ";F$|
00000AE0: 28 49 2C 4D 32 29 00 FB 12 EA 56 82 49 3A 98 34 |(I,M2)....V.I:.4|
00000AF0: 2C C7 28 32 37 29 3B 22 54 22 3B 00 02 13 F4 56 |,.(27);"T";....V|
00000B00: A0 34 00 14 13 FE 56 99 22 11 11 20 46 45 52 54 |.4....V.".. FERT|
00000B10: 49 47 20 22 00 29 13 08 57 A1 51 24 3A 8B 51 24 |IG ".)..W.Q$:.Q$|
00000B20: B2 22 22 A7 32 32 32 38 30 00 34 13 1C 57 89 32 |."".22280.4..W.2|
00000B30: 30 30 30 30 00 56 13 D8 59 99 22 93 11 11 20 3C |0000.V..Y."... <|
00000B40: 52 45 54 55 52 4E 3E 20 44 52 55 45 43 4B 45 4E |RETURN> DRUECKEN|
00000B50: 20 57 45 4E 4E 22 00 78 13 E2 59 99 22 11 20 31 | WENN".x..Y.". 1|
00000B60: 2E 44 49 53 4B 45 54 54 45 20 45 49 4E 47 45 4C |.DISKETTE EINGEL|
00000B70: 45 47 54 20 49 53 54 22 00 91 13 E7 59 A1 51 24 |EGT IST"....Y.Q$|
00000B80: 3A 8B 51 24 B3 B1 C7 28 31 33 29 A7 32 33 30 31 |:.Q$...(13).2301|
00000B90: 35 00 9E 13 EC 59 99 22 93 22 3A 8D 31 30 00 C0 |5....Y.".":.10..|
00000BA0: 13 F6 59 81 49 B2 31 A4 4E 3A 46 24 28 49 2C 31 |..Y.I.1.N:F$(I,1|
00000BB0: 29 B2 4E 24 28 49 29 3A 82 3A 4D 28 31 29 B2 4E |).N$(I):.:M(1).N|
00000BC0: 00 E1 13 F7 59 99 22 11 11 20 3C 52 45 54 55 52 |....Y.".. <RETUR|
00000BD0: 4E 3E 20 44 52 55 45 43 4B 45 4E 20 57 45 4E 4E |N> DRUECKEN WENN|
00000BE0: 22 00 03 14 F8 59 99 22 11 20 32 2E 44 49 53 4B |"....Y.". 2.DISK|
00000BF0: 45 54 54 45 20 45 49 4E 47 45 4C 45 47 54 20 49 |ETTE EINGELEGT I|
00000C00: 53 54 22 00 1C 14 F9 59 A1 51 24 3A 8B 51 24 B3 |ST"....Y.Q$:.Q$.|
00000C10: B1 C7 28 31 33 29 A7 32 33 30 33 33 00 29 14 00 |..(13).23033.)..|
00000C20: 5A 99 22 93 22 3A 8D 31 30 00 4B 14 0A 5A 81 49 |Z.".":.10.K..Z.I|
00000C30: B2 31 A4 4E 3A 46 24 28 49 2C 32 29 B2 4E 24 28 |.1.N:F$(I,2).N$(|
00000C40: 49 29 3A 82 3A 4D 28 32 29 B2 4E 00 6C 14 0B 5A |I):.:M(2).N.l..Z|
00000C50: 99 22 11 11 20 3C 52 45 54 55 52 4E 3E 20 44 52 |.".. <RETURN> DR|
00000C60: 55 45 43 4B 45 4E 20 57 45 4E 4E 22 00 8E 14 0C |UECKEN WENN"....|
00000C70: 5A 99 22 11 20 33 2E 44 49 53 4B 45 54 54 45 20 |Z.". 3.DISKETTE |
00000C80: 45 49 4E 47 45 4C 45 47 54 20 49 53 54 22 00 A7 |EINGELEGT IST"..|
00000C90: 14 0D 5A A1 51 24 3A 8B 51 24 B3 B1 C7 28 31 33 |..Z.Q$:.Q$...(13|
00000CA0: 29 A7 32 33 30 35 33 00 B4 14 0F 5A 99 22 93 22 |).23053....Z."."|
00000CB0: 3A 8D 31 30 00 D6 14 10 5A 81 49 B2 31 A4 4E 3A |:.10....Z.I.1.N:|
00000CC0: 46 24 28 49 2C 33 29 B2 4E 24 28 49 29 3A 82 3A |F$(I,3).N$(I):.:|
00000CD0: 4D 28 33 29 B2 4E 00 F3 14 14 5A 81 49 B2 31 A4 |M(3).N....Z.I.1.|
00000CE0: 33 3A 4D 31 28 49 29 B2 4D 28 49 29 AA 49 AD 31 |3:M1(I).M(I).I.1|
00000CF0: 30 3A 82 00 05 15 1E 5A 81 49 B2 31 A4 32 3A 81 |0:.....Z.I.1.2:.|
00000D00: 4B B2 31 A4 32 00 38 15 28 5A 8B 4D 31 28 4B 29 |K.1.2.8.(Z.M1(K)|
00000D10: B3 4D 31 28 4B AA 31 29 A7 54 B2 4D 31 28 4B 29 |.M1(K.1).T.M1(K)|
00000D20: 3A 4D 31 28 4B 29 B2 4D 31 28 4B AA 31 29 3A 4D |:M1(K).M1(K.1):M|
00000D30: 31 28 4B AA 31 29 B2 54 00 42 15 32 5A 82 4B 3A |1(K.1).T.B.2Z.K:|
00000D40: 82 49 00 71 15 3C 5A 4D 41 58 B2 B5 28 4D 31 28 |.I.q.<ZMAX..(M1(|
00000D50: 31 29 29 3A 4D 31 B2 B5 28 28 4D 31 28 31 29 AB |1)):M1..((M1(1).|
00000D60: B5 28 4D 31 28 31 29 29 29 AC 31 30 AA 2E 30 35 |.(M1(1))).10..05|
00000D70: 29 00 93 15 3D 5A 4D 32 B2 B5 28 28 4D 31 28 32 |)...=ZM2..((M1(2|
00000D80: 29 AB B5 28 4D 31 28 32 29 29 29 AC 31 30 AA 2E |)..(M1(2))).10..|
00000D90: 30 35 29 00 B5 15 3E 5A 4D 33 B2 B5 28 28 4D 31 |05)...>ZM3..((M1|
00000DA0: 28 33 29 AB B5 28 4D 31 28 33 29 29 29 AC 31 30 |(3)..(M1(3))).10|
00000DB0: AA 2E 30 35 29 00 E6 15 AA 5A 99 22 11 11 20 3C |..05)....Z.".. <|
00000DC0: 52 45 54 55 52 4E 3E 20 44 52 55 45 43 4B 45 4E |RETURN> DRUECKEN|
00000DD0: 20 57 45 4E 4E 20 44 52 55 45 43 4B 45 52 20 46 | WENN DRUECKER F|
00000DE0: 45 52 54 49 47 22 00 FF 15 AF 5A A1 51 24 3A 8B |ERTIG"....Z.Q$:.|
00000DF0: 51 24 B3 B1 C7 28 31 33 29 A7 32 33 32 31 35 00 |Q$...(13).23215.|
00000E00: 08 16 B4 5A 9F 34 2C 34 00 15 16 BE 5A 81 49 B2 |...Z.4,4....Z.I.|
00000E10: 31 A4 4D 41 58 00 45 16 C8 5A 98 34 2C 46 24 28 |1.MAX.E..Z.4,F$(|
00000E20: 49 2C 4D 31 29 3B 22 20 20 20 20 22 3B 46 24 28 |I,M1);" ";F$(|
00000E30: 49 2C 4D 32 29 3B 22 20 22 22 20 22 3B 46 24 2A |I,M2);" "" ";F$*|
00000E40: 4B 2C 4F 33 2B 00 4C 16 D2 5A 82 4B 00 65 16 DC |K,O3+.L..Z.K.e..|
00000E50: 5A A2 34 0A 12 16 E6 5A 99 22 11 11 22 46 45 52 |Z.4....Z.".."FER|
00000E60: 7E 4B 47 22 22 00 7A 16 F0 7A A3 51 26 3A 8B 53 |~KG"".z..z.Q&:.S|
00000E70: 24 BA 22 2A A7 32 33 32 3A 3A 00 85 16 04 5B 8B |$."*.232::....[.|
00000E80: 32 3A 32 30 32 00 9A 16 3A 75 99 22 93 22 02 47 |2:202...:u.".".G|
00000E90: 16 3E 77 9F 32 2C 38 2C 3B 35 00 AA 16 3A 77 9F |.>w.2,8,;5...:w.|
00000EA0: 31 2E 38 2C 3A 2C 2A 24 38 22 00 CA 16 46 75 A3 |1.8,:,*$8"...Fu.|
00000EB0: 23 31 2C 4B 26 2C 42 26 3A 7A B2 30 02 77 16 4E |#1,K&,B&:z.0.w.N|
00000EC0: 75 A1 23 31 2C 4B 26 2C 42 24 00 D8 16 5A 77 A1 |u.#1,K&,B$...Zw.|
00000ED0: 23 33 2C 4B 26 2C 42 26 00 E0 16 6A 77 43 B2 30 |#3,K&,B&...jwC.0|
00000EE0: 00 14 17 6E 75 8B 20 E1 26 B3 B1 22 22 20 A7 22 |...nu. .&.."" ."|
00000EF0: 43 B2 C6 28 41 26 29 02 C1 16 76 75 8B 22 42 24 |C..(A&)...vu."B$|
00000F00: BB B3 22 2A 20 A7 22 43 B2 43 AA C6 28 42 24 2B |.."* ."C.C..(B$+|
00000F10: AC 32 35 3E 00 2B 17 7F 75 42 4E 4F 45 43 4B 45 |.25>.+..uBNOECKE|
00000F20: 26 B2 EA 2A C6 28 4B 29 2E 32 29 00 42 17 78 7F |&..*.(K).2).B.x.|
00000F30: 8B 43 B3 31 32 30 A7 42 4E 24 BA 22 22 22 AA 42 |.C.120.BN$.""".B|
00000F40: 4C 26 00 58 17 79 77 8B 43 B3 31 32 A7 42 4E 24 |L&.X.yw.C.12.BN$|
00000F50: BA 22 20 22 AA 42 4C 2E 00 68 17 7B 77 8B 58 B2 |." ".BL..h.{w.X.|
00000F60: 32 A7 42 4C 2E B2 22 22 00 83 17 8A 77 A1 23 31 |2.BL..""....w.#1|
00000F70: 2C 42 26 3A AB 22 53 56 B3 B3 30 2A A7 20 33 33 |,B&:."SV..0*. 33|
00000F80: 30 3A 32 00 6B 18 94 7F 8B 22 42 24 BB B3 C7 28 |0:2.k...."B$...(|
00000F90: 33 34 2B 22 A7 22 33 30 3A 3B 30 02 5C 1F 9B 75 |34+"."30:;0.\..u|
00000FA0: 9B 42 4C 2E 3B 22 22 22 3B 3A 69 24 B2 22 22 02 |.BL.;""";:i$."".|
00000FB0: 89 17 9E 75 A3 23 33 2C 42 26 3A 8B 22 42 24 BB |...u.#3,B&:."B$.|
00000FC0: B3 C7 28 33 34 29 A7 20 9B 42 24 3B 3A 41 2E B2 |..(34). .B$;:A..|
00000FD0: 43 24 AA 42 24 3A 89 33 32 33 31 32 02 A7 17 A8 |C$.B$:.32312....|
00000FE0: 7F A1 23 33 2C 42 24 3A 8B 22 42 24 BA C7 28 33 |..#3,B$:."B$..(3|
00000FF0: 32 2B 20 AF 20 33 30 3B 32 30 02 C4 17 AF 75 8B |2+ . 30;20....u.|
00001000: 5A B2 32 A7 99 A3 31 3B 2B 3B 3A 43 24 B2 22 2A |Z.2...1;+;:C$."*|
00001010: 3A 8B 33 32 31 34 30 28 D6 17 B2 75 9B 20 A3 32 |:.32140(...u. .2|
00001020: 31 2B 3B 3A 43 24 B2 2A 22 02 FC 1F BE 75 43 26 |1+;:C$.*"....uC&|
00001030: B2 43 26 AA 42 24 3A A3 23 31 2E 42 26 3A 8B 22 |.C&.B$:.#1.B&:."|
00001040: 42 24 BB B3 22 2A 22 22 A7 22 33 30 39 34 32 02 |B$.."*""."30942.|
00001050: 09 18 C6 7F 9B C8 28 43 26 2C 3F 29 02 1A 18 EB |......(C&,?)....|
00001060: 77 8B 5A B2 3A A7 58 B2 3B 3A 9B 00 C9 18 D0 7F |w.Z.:.X.;:......|
00001070: A3 22 56 24 3A 8B 20 56 24 B3 B3 22 22 20 A7 20 |."V$:. V$.."" . |
00001080: 8F 22 33 32 30 30 30 2A 47 18 DA 7F 8B 22 53 56 |."32000*G...."SV|
00001090: B2 30 20 A7 22 33 30 32 33 30 02 62 18 3A 7B 99 |.0 ."30230.b.:{.|
000010A0: 3A 99 4A 4E 24 3B 22 22 42 4E 4F 43 4B 53 22 46 |:.JN$;""BNOCKS"F|
000010B0: 52 47 45 2E 2A 02 73 1A 22 79 A2 31 3A AA 32 3A |RGE.*.s."y.1:.2:|
000010C0: 89 33 32 30 34 32 02 87 1A 00 F8 18 22 54 26 B2 |.32042......"T&.|
000010D0: 22 53 22 22 A7 20 A2 31 3A 80 0A 9F 1A 0A 7F A1 |"S"". .1:.......|
000010E0: 20 54 2E 3A 8B 22 54 2E B2 2A 22 20 A7 33 32 38 | T.:."T..*" .328|
000010F0: 30 30 2A A7 18 16 7D 8E 00 19 19 2A 7D A1 53 24 |00*...}....*}.S$|
00001100: 3A AB 53 24 B2 22 22 A7 33 32 30 34 30 2A C7 18 |:.S$."".32040*..|
00001110: 32 7D 8B 32 30 3A 32 30 02 00 1F 19 4B |2}.20:20....K |
.......20000.$....2,8,15:.1,8,0,"$0".6..
..#1,A$,B$:N.1.D....#1,A$,B$.R.(..#1,A$,
B$.Z.2.C.0.Q.<.. A$.."" . C.F(A$)...F..
B$.."" . C.C.F(B$).256...G.BLOECKE$.J(D(
C),2)...H..C.100.BL$." ".BL$.R.I..C.10.B
L$." ".BL$...K..N.1.BL$.""...L.N$(N).BL$
...Z..#1,B$:. ST..0 . 1000...D.. B$..G(3
4) . 90.3.I..BL$;" ";:A$."".^.N..#1,B$:.
B$..G(34). .B$;:A$.A$.B$:.110.Z.X..#1,B
$:. B$.G(32) . 120...Y.N$(N).N$(N)." ".A
$:.3000...}..N.1...19);:C$."":.140.D....
.21);:C$."".....C$.C$.B$:.#1,B$:. B$.."
" . 140......3100."....N.1.N.2:.:N$(2).
" ".=. .. T$:. T$
.."" . . 2000.T.... ST.0 . N.N.1:.30....
..:N$(N)." ":N.N.
1.....N$(N).BL$." BLOCKS FREE. ".
.....N$(N)..... 1: 2:..R.P.. T$."Q" . 1
:....Z.. T$:. T$."" . 2000...........SP$
." ".#.B.LA.21:.N.1.LA
.19.F.V.N$(N).N$(N).H(SP$,LA.C(N$(N))).L
....._...LA.3:.N.1.LA.5...N..H(C$,5):N$(
N).N$(N).H(C$,LA)...X......'.I.1.N:.N$(I
);"W":.... N."......U";.I.%N.:. N$(100),
F$(100,3)...*N.I.1.38:."..";:.I...4N.".I
"...9N."...";.38);"..".0.:N.".... D I R
E C T O R Y - A U S D R U C K ".<.>N.".
J";:.R.HN.I.1.38:."..";:.I.\.RN.".K"....
N.".. . 1 . - 1 DISKETTE DRUCKEN"....N."
. . 2 . - 2 DISKETTE DRUCKEN".I..N.". .
3 . - 3 DISKETTE DRUCKEN"....N.". . 4 .
- DIRECTORY ANZEIGEN"....N.Q$:.Q$."".201
30....NQ.E(Q$):.Q.1.Q.4.20130.>..N. Q. 2
1000,22000,23000,30000.`..R."... <RETURN
> DRUECKEN WENN"....R.". DISKETTE EINGEL
EGT IST"....R.Q$:.Q$..G(13).21015....R."
.":.10.T.&R.".. AN WELCHEN STELLE SOLL D
ER AUSDRUCK"...0R.". . 1 . AN 1. STELLE
(NACH 0 SPALTEN)"./.:R.". . 2 . AN 2. ST
ELLE (NACH 28 SPALTEN)".].DR.". . 3 . AN
3. STELLE (NACH 54 SPALTEN)".R.NR.Q$:.Q
$."".21070...XRQ.E(Q$):.Q.1.Q.3.21080...
BRA$(1)."".C.LRA$(2)."
"...VRA$(3)."
"
.9.PR.".. <RETURN> DRUECKEN WENN DRUECKE
R FERTIG".R.ZR.Q$:.Q$..G(13).21210.}..R.
4,4:.4,G(27);"3";G(16):.4,G(27);"S1";...
.R.I.1.N....R.4,A$(Q);N$(I)....S.I....S
4....S.".. FERTIG ".P. S.Q$:.Q$."".21280
...4S.20000....U."... <RETURN> DRUECKEN
WENN"....U.". 1.DISKETTE EINGELEGT IST".
8..U.Q$:.Q$..G(13).22015.E..V.".":.10.G.
.V.I.1.N:F$(I,1).N$(I):.:M(1).N....V."..
<RETURN> DRUECKEN WENN"....V.". 2.DISKE
TTE EINGELEGT IST".C..V.Q$:.Q$..G(13).22
033.P..V.".":.10..."V.I.1.N:F$(I,2).N$(I
):.:M(2).N.&.,VMAX.M(1):M1.1:M2.2:.M(2).
MAX.MAX.M(2):M1.2:M2.1.N.TVA$(2)."
".|.RV.".. AN WELCH
EN STELLE SOLL DER AUSDRUCK"...|V.". . 1
. AN 1. STELLE (NACH 0 SPALTEN)".W..V."
. . 2 . AN 2. STELLE (NACH 28 SPALTEN)".
...V.Q$:.Q$."".22170....VQ.E(Q$):.Q.1.Q.
2.22180....VA$(1)."".=..VA$(2)."
".N.BV.".. <RETURN>
DRUECKEN WENN DRUECKER FERTIG"...GV.Q$:.
Q$..G(13).22215...LV.4,4:.4,G(27);"3";G(
16);:.4,G(27);"S1";...VV.I.1.MAX....V.4,
A$(Q);F$(I,M1);" ";F$(I,M2)....V.I:.4
,G(27);"T";....V 4....V.".. FERTIG ".)..
W.Q$:.Q$."".22280.4..W.20000.V.XY."... <
RETURN> DRUECKEN WENN".X..Y.". 1.DISKETT
E EINGELEGT IST"....Y.Q$:.Q$..G(13).2301
5....Y.".":.10....Y.I.1.N:F$(I,1).N$(I):
.:M(1).N....Y.".. <RETURN> DRUECKEN WENN
"....Y.". 2.DISKETTE EINGELEGT IST"....Y
.Q$:.Q$..G(13).23033.)..Z.".":.10.K..Z.I
.1.N:F$(I,2).N$(I):.:M(2).N.L..Z.".. <RE
TURN> DRUECKEN WENN"....Z.". 3.DISKETTE
EINGELEGT IST"....Z.Q$:.Q$..G(13).23053.
...Z.".":.10.V..Z.I.1.N:F$(I,3).N$(I):.:
M(3).N....Z.I.1.3:M1(I).M(I).I.10:.....Z
.I.1.2:.K.1.2.8.(Z.M1(K).M1(K.1).T.M1(K)
:M1(K).M1(K.1):M1(K.1).T.B.2Z.K:.I.Q.<ZM
AX..(M1(1)):M1..((M1(1)..(M1(1))).10..05
)...=ZM2..((M1(2)..(M1(2))).10..05)...>Z
M3..((M1(3)..(M1(3))).10..05)....Z.".. <
RETURN> DRUECKEN WENN DRUECKER FERTIG"..
..Z.Q$:.Q$..G(13).23215....Z.4,4....Z.I.
1.MAX.E.HZ.4,F$(I,M1);" ";F$(I,M2);"
"" ";F$*K,O3+.L.RZ.K.E..Z.4....Z.".."FER
~KG"".Z..Z.Q&:.S$."*.232::....[.2:202...
:U.".".G.>W.2,8,;5...:W.1.8,:,*$8".J.FU.
#1,K&,B&:Z.0.W.NU.#1,K&,B$.X.ZW.#3,K&,B&
...JWC.0...NU. .&.."" ."C.F(A&).A.VU."B$
.."* ."C.C.F(B$+.25>.+.UBNOECKE&..*F(K)
.2).B.X.C.120.BN$.""".BL&.X.YW.C.12.BN$
." ".BL..H.{W.X.2.BL..""....W.#1,B&:."SV
..0*. 330:2.K..."B$..G(34+"."30:;0.\..U
.BL.;""";:I$.""....U.#3,B&:."B$..G(34).
.B$;:A..C$.B$:.32312.....#3,B$:."B$.G(3
2+ . 30;20.D..U.Z.2...1;+;:C$."*:.32140(
V..U. .21+;:C$.*"....UC&.C&.B$:.#1.B&:."
B$.."*""."30942...F.H(C&,?)....W.Z.:.X.
;:..I.P."V$:. V$.."" . ."32000*G.Z."SV
.0 ."30230.B.:{.:.JN$;""BNOCKS"FRGE.*.S.
"Y.1:.2:.32042......"T&."S"". .1:......
T.:."T..*" .32800*...}....*}.S$:.S$."".
32040*G.2}.20:20....K
> CLICK IMAGE PREVIEW FOR FULL MODAL