DIRDRUCK
FILE INFORMATION
FILENAME(S): DIRDRUCK
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-12-01 00:57:20
APPEARS ON: 1 disk(s)
FILE HASH
239377e8e3d4ffc96422faa005e5b6908ff0ea5da90b6d54a59de7928f859bc6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HEINZ | DIRDRUCK | PRG | hedning, Austria | 21 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 00 00 8F 20 42 59 20 41 4E 44 52 45 |....... BY ANDRE| 00000010: 41 53 20 47 55 48 52 20 28 43 29 00 2E 08 01 00 |AS GUHR (C).....| 00000020: 8F 20 47 52 4F 53 53 45 20 53 54 52 2E 38 00 44 |. GROSSE STR.8.D| 00000030: 08 02 00 8F 20 32 30 37 30 20 41 48 52 45 4E 53 |.... 2070 AHRENS| 00000040: 42 55 52 47 00 6D 08 09 00 8F 20 2A 2A 2A 2A 2A |BURG.m.... *****| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9A 08 |*************...| 00000070: 0A 00 8F 20 44 52 55 43 4B 45 4E 20 56 4F 4E 20 |... DRUCKEN VON | 00000080: 32 20 44 49 52 45 43 54 4F 52 59 53 20 4E 45 42 |2 DIRECTORYS NEB| 00000090: 45 4E 45 49 4E 41 4E 44 45 52 00 A5 08 0F 00 97 |ENEINANDER......| 000000A0: 38 33 30 2C 30 00 EA 08 14 00 97 35 33 32 38 30 |830,0......53280| 000000B0: 2C 32 3A 97 35 33 32 38 31 2C 32 3A 99 22 93 90 |,2:.53281,2:."..| 000000C0: 22 3A 8F 20 5B 53 48 49 46 54 20 48 4F 4D 45 5D |":. [SHIFT HOME]| 000000D0: 20 5B 43 54 52 4C 20 31 5D 3A 43 36 34 20 46 41 | [CTRL 1]:C64 FA| 000000E0: 52 42 45 20 53 45 54 5A 45 4E 00 15 09 19 00 8F |RBE SETZEN......| 000000F0: 20 50 4F 4B 45 33 36 38 37 39 2C 32 3A 52 45 4D | POKE36879,2:REM| 00000100: 20 56 43 32 30 20 42 49 4C 44 53 43 48 49 52 4D | VC20 BILDSCHIRM| 00000110: 46 41 52 42 45 00 3C 09 1E 00 99 A3 36 29 22 D5 |FARBE.<.....6)".| 00000120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000130: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 63 09 28 |...........".c.(| 00000140: 00 99 A3 36 29 22 DD 20 44 52 55 43 4B 45 4E 20 |...6)". DRUCKEN | 00000150: 56 4F 4E 20 32 20 44 49 52 45 43 54 4F 52 59 53 |VON 2 DIRECTORYS| 00000160: 20 DD 22 00 8A 09 32 00 99 A3 36 29 22 CA C0 C0 | ."...2...6)"...| 00000170: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000180: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 BB 09 37 00 86 |........."...7..| 00000190: 20 46 49 24 28 31 35 33 2C 32 29 2C 46 54 24 28 | FI$(153,2),FT$(| 000001A0: 31 35 32 2C 32 29 2C 42 42 28 31 35 33 2C 32 29 |152,2),BB(153,2)| 000001B0: 2C 47 45 24 28 31 35 32 2C 32 29 00 06 0A 3C 00 |,GE$(152,2)...<.| 000001C0: 99 22 20 11 9C 44 49 53 4B 45 54 54 45 20 45 49 |." ..DISKETTE EI| 000001D0: 4E 4C 45 47 45 4E 20 2B 20 54 41 53 54 45 20 44 |NLEGEN + TASTE D| 000001E0: 52 55 45 43 4B 45 4E 90 22 3A 8F 20 5B 43 55 52 |RUECKEN.":. [CUR| 000001F0: 53 4F 52 20 44 4F 57 4E 5D 20 5B 43 54 52 4C 20 |SOR DOWN] [CTRL | 00000200: 35 20 2B 20 31 5D 00 18 0A 46 00 97 31 39 38 2C |5 + 1]...F..198,| 00000210: 30 3A 92 31 39 38 2C 31 00 42 0A 50 00 44 49 B2 |0:.198,1.B.P.DI.| 00000220: 44 49 AA 31 3A 5A B2 31 3A 8D 35 30 30 3A 8F 20 |DI.1:Z.1:.500:. | 00000230: 44 49 52 45 43 54 4F 52 59 20 45 49 4E 4C 45 53 |DIRECTORY EINLES| 00000240: 45 4E 00 50 0A 5A 00 8B 44 49 B2 32 A7 31 33 30 |EN.P.Z..DI.2.130| 00000250: 00 97 0A 64 00 99 22 11 9A 4E 4F 43 48 20 45 49 |...d.."..NOCH EI| 00000260: 4E 45 20 44 49 53 4B 45 54 54 45 20 56 4F 52 48 |NE DISKETTE VORH| 00000270: 41 4E 44 45 4E 20 28 4A 2F 4E 29 90 22 3A 97 31 |ANDEN (J/N).":.1| 00000280: 39 38 2C 30 3A 8F 20 5B 43 3D 20 2B 20 37 5D 20 |98,0:. [C= + 7] | 00000290: 4E 55 52 20 43 36 34 00 AA 0A 6E 00 A1 58 24 3A |NUR C64...n..X$:| 000002A0: 8B 58 24 B2 22 22 A7 31 31 30 00 B9 0A 78 00 8B |.X$."".110...x..| 000002B0: 58 24 B2 22 4A 22 A7 36 30 00 CA 0A 7D 00 8B 58 |X$."J".60...}..X| 000002C0: 24 B3 B1 22 4E 22 A7 31 31 30 00 E3 0A 82 00 8D |$.."N".110......| 000002D0: 31 30 30 30 3A 8F 20 44 52 55 43 4B 41 55 53 47 |1000:. DRUCKAUSG| 000002E0: 41 42 45 00 22 0B 8C 00 99 22 11 96 57 45 49 54 |ABE."...."..WEIT| 000002F0: 45 52 45 20 44 49 52 45 43 54 4F 52 59 53 20 45 |ERE DIRECTORYS E| 00000300: 49 4E 4C 45 53 45 4E 20 28 4A 2F 4E 29 90 22 3A |INLESEN (J/N).":| 00000310: 8F 20 5B 43 3D 20 2B 20 33 5D 20 4E 55 52 20 43 |. [C= + 3] NUR C| 00000320: 36 34 00 35 0B 96 00 A1 58 24 3A 8B 58 24 B2 22 |64.5....X$:.X$."| 00000330: 22 A7 31 35 30 00 47 0B A0 00 8B 58 24 B2 22 4A |".150.G....X$."J| 00000340: 22 A7 9C 3A 89 35 35 00 58 0B AA 00 8B 58 24 B3 |"..:.55.X....X$.| 00000350: B1 22 4E 22 A7 31 35 30 00 5E 0B B4 00 80 00 87 |."N".150.^......| 00000360: 0B B5 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********| 00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000380: 2A 2A 2A 2A 2A 2A 2A 00 90 0B F4 01 99 22 93 22 |*******......"."| 00000390: 00 A9 0B FE 01 8F 20 52 45 41 44 20 44 49 53 4B |...... READ DISK| 000003A0: 4E 41 4D 45 20 26 20 49 44 00 C0 0B 08 02 9F 31 |NAME & ID......1| 000003B0: 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,8,15:.2,8,2,"#"| 000003C0: 00 D5 0B 12 02 98 31 2C 22 55 31 20 32 20 30 20 |......1,"U1 2 0 | 000003D0: 31 38 20 30 22 00 E8 0B 1C 02 98 31 2C 22 42 2D |18 0"......1,"B-| 000003E0: 50 20 32 20 31 34 34 22 00 10 0C 26 02 81 49 B2 |P 2 144"...&..I.| 000003F0: 30 A4 32 32 3A A1 23 32 2C 41 24 3A 44 4E 24 28 |0.22:.#2,A$:DN$(| 00000400: 44 49 29 B2 44 4E 24 28 44 49 29 AA 41 24 3A 82 |DI).DN$(DI).A$:.| 00000410: 00 22 0C 30 02 99 22 12 20 20 22 44 4E 24 28 44 |.".0..". "DN$(D| 00000420: 49 29 00 31 0C 31 02 8F 20 2A 2A 2A 2A 2A 2A 2A |I).1.1.. *******| 00000430: 2A 00 48 0C 3A 02 8F 20 52 45 41 44 20 42 4C 4F |*.H.:.. READ BLO| 00000440: 43 4B 53 20 46 52 45 45 00 5F 0C 44 02 81 49 B2 |CKS FREE._.D..I.| 00000450: 34 A4 31 34 30 A9 34 3A 8B 49 B2 37 32 A7 82 00 |4.140.4:.I.72...| 00000460: 70 0C 49 02 98 31 2C 22 42 2D 50 22 3B 32 3B 49 |p.I..1,"B-P";2;I| 00000470: 00 8A 0C 4E 02 A1 23 32 2C 41 24 3A 8B 41 24 B2 |...N..#2,A$:.A$.| 00000480: 22 22 A7 41 24 B2 C7 28 30 29 00 A4 0C 58 02 42 |"".A$..(0)...X.B| 00000490: 46 28 44 49 29 B2 42 46 28 44 49 29 AA C6 28 41 |F(DI).BF(DI)..(A| 000004A0: 24 29 3A 82 00 AE 0C 62 02 A0 32 3A A0 31 00 BD |$):....b..2:.1..| 000004B0: 0C 63 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 00 D2 0C |.c.. ********...| 000004C0: 6C 02 8F 20 52 45 41 44 20 44 49 52 45 43 54 4F |l.. READ DIRECTO| 000004D0: 52 59 00 F7 0C 76 02 9F 31 2C 38 2C 31 35 2C 22 |RY...v..1,8,15,"| 000004E0: 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 54 |I0":.2,8,2,"#":T| 000004F0: B2 31 38 3A 53 B2 31 00 19 0D 80 02 98 31 2C 22 |.18:S.1......1,"| 00000500: 42 2D 52 22 3B 32 3B 30 3B 54 3B 53 3A 98 31 2C |B-R";2;0;T;S:.1,| 00000510: 22 42 2D 50 22 3B 32 3B 30 00 33 0D 8A 02 A1 23 |"B-P";2;0.3....#| 00000520: 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 |2,A$:.A$."".A$..| 00000530: 28 30 29 00 3F 0D 94 02 54 B2 C6 28 41 24 29 00 |(0).?...T..(A$).| 00000540: 59 0D 9E 02 A1 23 32 2C 41 24 3A 8B 41 24 B2 22 |Y....#2,A$:.A$."| 00000550: 22 A7 41 24 B2 C7 28 30 29 00 65 0D A8 02 53 B2 |".A$..(0).e...S.| 00000560: C6 28 41 24 29 00 98 0D B2 02 81 58 B2 30 A4 37 |.(A$)......X.0.7| 00000570: 3A 98 31 2C 22 42 2D 50 22 3B 32 3B 58 AC 33 32 |:.1,"B-P";2;X.32| 00000580: AA 32 3A A1 23 32 2C 41 24 3A 8B 41 24 B2 22 22 |.2:.#2,A$:.A$.""| 00000590: A7 41 24 B2 C7 28 30 29 00 B8 0D BC 02 54 59 B2 |.A$..(0).....TY.| 000005A0: C6 28 41 24 29 3A 46 54 B2 54 59 AF 31 35 3A 8B |.(A$):FT.TY.15:.| 000005B0: 46 54 B2 30 A7 38 34 30 00 DF 0D C6 02 91 46 54 |FT.0.840......FT| 000005C0: 8D 32 30 30 30 2C 32 30 31 30 2C 32 30 32 30 2C |.2000,2010,2020,| 000005D0: 32 30 33 30 3A 8F 20 46 49 4C 45 54 59 50 45 00 |2030:. FILETYPE.| 000005E0: 05 0E CB 02 47 45 24 28 5A 2C 44 49 29 B2 22 22 |....GE$(Z,DI).""| 000005F0: 3A 8B 54 59 AF 36 34 A7 47 45 24 28 5A 2C 44 49 |:.TY.64.GE$(Z,DI| 00000600: 29 B2 22 3C 22 00 22 0E D0 02 98 31 2C 22 42 2D |)."<"."....1,"B-| 00000610: 50 22 3B 32 3B 58 AC 33 32 AA 35 3A 46 46 24 B2 |P";2;X.32.5:FF$.| 00000620: 22 22 00 57 0E DA 02 81 59 B2 30 A4 31 35 3A A1 |"".W....Y.0.15:.| 00000630: 23 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 |#2,A$:.A$."".A$.| 00000640: 43 48 52 28 30 29 3A 8F 20 20 52 45 41 44 20 46 |CHR(0):. READ F| 00000650: 49 4C 45 4E 41 4D 45 00 6A 0E E4 02 8B C6 28 41 |ILENAME.j.....(A| 00000660: 24 29 B2 31 36 30 A7 37 36 30 00 7C 0E EE 02 46 |$).160.760.|...F| 00000670: 46 24 B2 46 46 24 AA 41 24 3A 82 59 00 8E 0E F8 |F$.FF$.A$:.Y....| 00000680: 02 46 49 24 28 5A 2C 44 49 29 B2 46 46 24 00 B3 |.FI$(Z,DI).FF$..| 00000690: 0E 02 03 98 31 2C 22 42 2D 50 22 3B 32 3B 58 AC |....1,"B-P";2;X.| 000006A0: 33 32 AA 33 30 3A 8F 20 52 45 41 44 20 42 4C 4F |32.30:. READ BLO| 000006B0: 43 4B 53 00 CD 0E 0C 03 A1 23 32 2C 41 24 3A 8B |CKS......#2,A$:.| 000006C0: 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 DA 0E |A$."".A$..(0)...| 000006D0: 16 03 4C 42 B2 C6 28 41 24 29 00 F4 0E 20 03 A1 |..LB..(A$)... ..| 000006E0: 23 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 |#2,A$:.A$."".A$.| 000006F0: C7 28 30 29 00 05 0F 2A 03 48 42 B2 C6 28 41 24 |.(0)...*.HB..(A$| 00000700: 29 AC 32 35 36 00 18 0F 34 03 42 42 28 5A 2C 44 |).256...4.BB(Z,D| 00000710: 49 29 B2 4C 42 AA 48 42 00 49 0F 3E 03 99 42 42 |I).LB.HB.I.>..BB| 00000720: 28 5A 2C 44 49 29 A3 35 29 46 49 24 28 5A 2C 44 |(Z,DI).5)FI$(Z,D| 00000730: 49 29 A3 32 32 29 46 54 24 28 5A 2C 44 49 29 3B |I).22)FT$(Z,DI);| 00000740: 47 45 24 28 5A 2C 44 49 29 00 53 0F 43 03 5A B2 |GE$(Z,DI).S.C.Z.| 00000750: 5A AA 31 00 5A 0F 48 03 82 58 00 68 0F 52 03 8B |Z.1.Z.H..X.h.R..| 00000760: 54 B3 B1 30 A7 36 34 30 00 72 0F 5C 03 A0 32 3A |T..0.640.r.\..2:| 00000770: A0 31 00 9E 0F 66 03 42 42 28 5A 2C 44 49 29 B2 |.1...f.BB(Z,DI).| 00000780: 42 46 28 44 49 29 3A 46 49 24 28 5A 2C 44 49 29 |BF(DI):FI$(Z,DI)| 00000790: B2 22 42 4C 4F 43 4B 53 20 46 52 45 45 22 00 B0 |."BLOCKS FREE"..| 000007A0: 0F 70 03 8B 41 B2 30 A7 5A 5A B2 5A 3A 41 B2 31 |.p..A.0.ZZ.Z:A.1| 000007B0: 00 C5 0F 7A 03 8B 5A 5A B1 5A A7 53 5A B2 5A 5A |...z..ZZ.Z.SZ.ZZ| 000007C0: 3A 89 39 31 30 00 CE 0F 84 03 53 5A B2 5A 00 E8 |:.910.....SZ.Z..| 000007D0: 0F 8E 03 99 42 46 28 44 49 29 3B 22 42 4C 4F 43 |....BF(DI);"BLOC| 000007E0: 4B 53 20 46 52 45 45 22 00 F2 0F 98 03 44 5A B2 |KS FREE".....DZ.| 000007F0: 44 49 00 F8 0F DE 03 8E 00 21 10 DF 03 8F 20 2A |DI.......!.... *| 00000800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000820: 2A 00 32 10 E8 03 9F 31 2C 34 3A 98 31 3A 5A 45 |*.2....1,4:.1:ZE| 00000830: B2 30 00 62 10 F2 03 98 31 2C 22 20 12 22 44 4E |.0.b....1," ."DN| 00000840: 24 28 31 29 22 92 22 C7 28 31 36 29 22 34 36 12 |$(1)".".(16)"46.| 00000850: 22 44 4E 24 28 32 29 22 92 22 3A 5A 45 B2 5A 45 |"DN$(2)".":ZE.ZE| 00000860: AA 33 00 77 10 FC 03 81 5A B2 31 A4 53 5A 3A 81 |.3.w....Z.1.SZ:.| 00000870: 44 49 B2 31 A4 44 5A 00 8D 10 06 04 8B 44 49 B2 |DI.1.DZ......DI.| 00000880: 32 A7 8D 31 37 30 30 3A 89 31 30 35 30 00 97 10 |2..1700:.1050...| 00000890: 10 04 8D 31 36 30 30 00 9F 10 1A 04 82 44 49 00 |...1600......DI.| 000008A0: C4 10 24 04 5A 45 B2 C2 28 38 33 30 29 AA 31 3A |..$.ZE..(830).1:| 000008B0: 8B 5A 45 B3 36 31 A7 97 38 33 30 2C 5A 45 3A 89 |.ZE.61..830,ZE:.| 000008C0: 31 30 38 30 00 E1 10 2E 04 5A 45 B2 30 3A 97 38 |1080.....ZE.0:.8| 000008D0: 33 30 2C 5A 45 3A 81 49 B2 31 A4 34 3A 98 31 3A |30,ZE:.I.1.4:.1:| 000008E0: 82 00 E8 10 38 04 82 5A 00 F1 10 42 04 A0 31 3A |....8..Z...B..1:| 000008F0: 8E 00 00 11 3F 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....?.. ********| 00000900: 00 1B 11 40 06 8B 42 42 28 5A 2C 44 49 29 B2 30 |...@..BB(Z,DI).0| 00000910: A7 20 98 31 2C 22 20 22 3B 3A 8E 00 5A 11 4A 06 |. .1," ";:..Z.J.| 00000920: 98 31 2C 42 42 28 5A 2C 44 49 29 C7 28 31 36 29 |.1,BB(Z,DI).(16)| 00000930: 22 30 35 22 46 49 24 28 5A 2C 44 49 29 C7 28 31 |"05"FI$(Z,DI).(1| 00000940: 36 29 22 32 32 22 46 54 24 28 5A 2C 44 49 29 3B |6)"22"FT$(Z,DI);| 00000950: 47 45 24 28 5A 2C 44 49 29 3B 00 67 11 90 06 8B |GE$(Z,DI);.g....| 00000960: 44 5A B2 31 A7 98 31 00 6D 11 9A 06 8E 00 7C 11 |DZ.1..1.m.....|.| 00000970: A3 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 00 91 11 A4 |... ********....| 00000980: 06 8B 42 42 28 5A 2C 44 49 29 B2 30 A7 98 31 3A |..BB(Z,DI).0..1:| 00000990: 8E 00 D2 11 AE 06 98 31 2C C7 28 31 36 29 22 34 |.......1,.(16)"4| 000009A0: 35 22 3B 42 42 28 5A 2C 44 49 29 C7 28 31 36 29 |5";BB(Z,DI).(16)| 000009B0: 22 35 30 22 3B 46 49 24 28 5A 2C 44 49 29 C7 28 |"50";FI$(Z,DI).(| 000009C0: 31 36 29 22 36 37 22 3B 46 54 24 28 5A 2C 44 49 |16)"67";FT$(Z,DI| 000009D0: 29 3B 00 E3 11 B8 06 98 31 2C 47 45 24 28 5A 2C |);......1,GE$(Z,| 000009E0: 44 49 29 00 E9 11 FE 06 8E 00 12 12 C7 07 8F 20 |DI)............ | 000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A10: 2A 2A 00 28 12 D0 07 46 54 24 28 5A 2C 44 49 29 |**.(...FT$(Z,DI)| 00000A20: B2 22 53 45 51 22 3A 8E 00 3E 12 DA 07 46 54 24 |."SEQ":..>...FT$| 00000A30: 28 5A 2C 44 49 29 B2 22 50 52 47 22 3A 8E 00 54 |(Z,DI)."PRG":..T| 00000A40: 12 E4 07 46 54 24 28 5A 2C 44 49 29 B2 22 55 53 |...FT$(Z,DI)."US| 00000A50: 52 22 3A 8E 00 6A 12 EE 07 46 54 24 28 5A 2C 44 |R":..j...FT$(Z,D| 00000A60: 49 29 B2 22 52 45 4C 22 3A 8E 00 00 00 32 55 38 |I)."REL":....2U8| 00000A70: C0 |. |
....... BY ANDREAS GUHR (C)...... GROSSE STR.8.D.... 2070 AHRENSBURG.M.... ***** *****************************...... DRUC KEN VON 2 DIRECTORYS NEBENEINANDER...... 830,0......53280,2:.53281,2:."..":. [SHI FT HOME] [CTRL 1]:C64 FARBE SETZEN...... POKE36879,2:REM VC20 BILDSCHIRMFARBE.<. ....6)"U..........................I".C.( ...6)". DRUCKEN VON 2 DIRECTORYS ."...2. ..6)"J..........................K"...7.. FI$(153,2),FT$(152,2),BB(153,2),GE$(152 ,2)...<.." ..DISKETTE EINLEGEN + TASTE D RUECKEN.":. [CURSOR DOWN] [CTRL 5 + 1].. .F..198,0:.198,1.B.P.DI.DI.1:Z.1:.500:. DIRECTORY EINLESEN.P.Z..DI.2.130...D..". .NOCH EINE DISKETTE VORHANDEN (J/N).":.1 98,0:. [C= + 7] NUR C64...N..X$:.X$."".1 10...X..X$."J".60.J.}..X$.."N".110...... 1000:. DRUCKAUSGABE."...."..WEITERE DIRE CTORYS EINLESEN (J/N).":. [C= + 3] NUR C 64.5....X$:.X$."".150.G. ..X$."J"..:.55. X....X$.."N".150.^.......... *********** ***********************......"."...... R EAD DISKNAME & ID......1,8,15:.2,8,2,"#" .U....1,"U1 2 0 18 0"......1,"B-P 2 144" ...&..I.0.22:.#2,A$:DN$(DI).DN$(DI).A$:. .".0..". "DN$(DI).1.1.. ********.H.:.. READ BLOCKS FREE._.D..I.4.140.4:.I.72... P.I..1,"B-P";2;I...N..#2,A$:.A$."".A$.G( 0)...X.BF(DI).BF(DI).F(A$):....B. 2: 1.. .C.. ********.R.L.. READ DIRECTORY...V.. 1,8,15,"I0":.2,8,2,"#":T.18:S.1......1," B-R";2;0;T;S:.1,"B-P";2;0.3....#2,A$:.A$ ."".A$.G(0).?...T.F(A$).Y....#2,A$:.A$." ".A$.G(0).E...S.F(A$)......X.0.7:.1,"B-P ";2;X.32.2:.#2,A$:.A$."".A$.G(0).....TY. F(A$):FT.TY.15:.FT.0.840...F..FT.2000,20 10,2020,2030:. FILETYPE...K.GE$(Z,DI)."" :.TY.64.GE$(Z,DI)."<".".P..1,"B-P";2;X.3 2.5:FF$."".W.Z..Y.0.15:.#2,A$:.A$."".A$. CHR(0):. READ FILENAME.J....F(A$).160.7 60.|...FF$.FF$.A$:.Y.....FI$(Z,DI).FF$.. ....1,"B-P";2;X.32.30:. READ BLOCKS.M... .#2,A$:.A$."".A$.G(0).Z...LB.F(A$)... .. #2,A$:.A$."".A$.G(0)...*.HB.F(A$).256... 4.BB(Z,DI).LB.HB.I.>..BB(Z,DI).5)FI$(Z,D I).22)FT$(Z,DI);GE$(Z,DI).S.C.Z.Z.1.Z.H. .X.H.R..T..0.640.R.\. 2: 1...F.BB(Z,DI). BF(DI):FI$(Z,DI)."BLOCKS FREE"...P..A.0. ZZ.Z:A.1.E.Z..ZZ.Z.SZ.ZZ:.910.N...SZ.Z.. ....BF(DI);"BLOCKS FREE".....DZ.DI...... .!.... ********************************* *.2....1,4:.1:ZE.0.B....1," ."DN$(1)"."G (16)"46."DN$(2)".":ZE.ZE.3.W....Z.1.SZ:. DI.1.DZ......DI.2..1700:.1050......1600. .....DI.D.$.ZE.B(830).1:.ZE.61..830,ZE:. 1080.....ZE.0:.830,ZE:.I.1.4:.1:....8..Z ...B. 1:....?.. ********...@..BB(Z,DI).0 . .1," ";:..Z.J..1,BB(Z,DI)G(16)"05"FI$( Z,DI)G(16)"22"FT$(Z,DI);GE$(Z,DI);.G.... DZ.1..1.M.....|.... ********......BB(Z,D I).0..1:..R....1,G(16)"45";BB(Z,DI)G(16) "50";FI$(Z,DI)G(16)"67";FT$(Z,DI);...... 1,GE$(Z,DI).........G.. **************** ******************.(.P.FT$(Z,DI)."SEQ":. .>.Z.FT$(Z,DI)."PRG":..T...FT$(Z,DI)."US R":..J...FT$(Z,DI)."REL":....2U8.
> CLICK IMAGE PREVIEW FOR FULL MODAL