DIR PRINT ETIK.
FILE INFORMATION
FILENAME(S): DIR PRINT ETIK.
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:06:42
APPEARS ON: 1 disk(s)
FILE HASH
2e4ed4c28a5d663e8a2e3e5b3272e562cc4bdddfe7cd117b195c33f00ff8b8b1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULP PROG 2A | DIR PRINT ETIK. | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 01 00 8F 20 44 49 52 45 43 54 4F 52 |....... DIRECTOR|
00000010: 59 20 4C 49 53 54 45 52 00 37 08 64 00 97 35 33 |Y LISTER.7.d..53|
00000020: 32 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 31 |280,15:.53281,11|
00000030: 3A 99 22 05 93 22 3B 00 5A 08 6E 00 86 54 24 28 |:."..";.Z.n..T$(|
00000040: 37 35 29 20 3A 8F 20 42 45 56 41 54 20 54 59 50 |75) :. BEVAT TYP|
00000050: 45 20 56 41 4E 20 46 49 4C 45 00 7E 08 78 00 86 |E VAN FILE.~.x..|
00000060: 50 52 24 28 37 35 29 3A 8F 20 42 45 56 41 54 20 |PR$(75):. BEVAT |
00000070: 50 52 4F 47 52 41 4D 4D 41 4E 41 4D 45 4E 00 A0 |PROGRAMMANAMEN..|
00000080: 08 82 00 86 20 42 42 24 28 37 35 29 20 3A 8F 20 |.... BB$(75) :. |
00000090: 42 45 56 41 54 20 46 49 4C 45 4C 45 4E 47 54 45 |BEVAT FILELENGTE|
000000A0: 00 BF 08 8C 00 44 4E 24 B2 22 22 20 3A 8F 20 44 |.....DN$."" :. D|
000000B0: 4E 24 20 49 53 20 44 49 52 45 43 54 4F 52 59 00 |N$ IS DIRECTORY.|
000000C0: E3 08 96 00 50 52 B2 30 20 3A 8F 20 50 52 20 49 |....PR.0 :. PR I|
000000D0: 53 20 50 41 52 41 4D 45 54 45 52 20 56 41 4E 20 |S PARAMETER VAN |
000000E0: 50 52 24 00 0B 09 A0 00 42 46 B2 30 3A 8F 20 42 |PR$.....BF.0:. B|
000000F0: 46 20 42 45 56 41 54 20 41 41 4E 54 41 4C 20 56 |F BEVAT AANTAL V|
00000100: 52 49 4A 45 20 42 4C 4F 43 4B 53 00 3C 09 AA 00 |RIJE BLOCKS.<...|
00000110: 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 44 49 52 |."***********DIR|
00000120: 45 43 54 4F 52 59 20 20 50 52 49 4E 54 45 52 2A |ECTORY PRINTER*|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 6D 09 B4 |**********";.m..|
00000140: 00 99 22 2A 20 2D 2D 2D 44 49 54 20 50 52 4F 47 |.."* ---DIT PROG|
00000150: 52 41 4D 4D 41 20 4D 41 41 4B 54 20 45 54 49 4B |RAMMA MAAKT ETIK|
00000160: 45 54 54 45 4E 2D 2D 2D 2D 20 2A 22 3B 00 9E 09 |ETTEN---- *";...|
00000170: B9 00 99 22 2A 20 2D 2D 2D 56 4F 4F 52 20 48 4F |..."* ---VOOR HO|
00000180: 45 53 4A 45 53 20 56 41 4E 20 46 4C 4F 50 50 59 |ESJES VAN FLOPPY|
00000190: 20 44 49 53 4B 53 2D 2D 2D 2D 20 2A 22 3B 00 CF | DISKS---- *";..|
000001A0: 09 BA 00 99 22 2A 20 20 20 20 20 20 20 4F 4F 52 |...."* OOR|
000001B0: 53 50 52 2E 20 50 52 4F 47 2E 20 42 2E 53 43 48 |SPR. PROG. B.SCH|
000001C0: 55 54 54 45 20 20 20 20 20 20 20 20 2A 22 3B 00 |UTTE *";.|
000001D0: 00 0A BB 00 99 22 2A 20 47 45 57 49 4A 5A 2E 26 |....."* GEWIJZ.&|
000001E0: 20 56 45 52 42 45 54 45 52 44 20 44 4F 4F 52 20 | VERBETERD DOOR |
000001F0: 48 2E 47 2E 56 41 4E 20 4D 41 4E 45 4E 2A 22 3B |H.G.VAN MANEN*";|
00000200: 00 30 0A BE 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |.0...."*********|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
00000230: 00 3D 0A C8 00 99 22 11 11 11 11 11 22 00 61 0A |.=....".....".a.|
00000240: FA 00 99 22 2D 5A 45 54 20 44 49 50 20 53 57 49 |..."-ZET DIP SWI|
00000250: 54 43 48 20 33 2B 36 20 4F 50 20 27 44 4F 57 4E |TCH 3+6 OP 'DOWN|
00000260: 27 00 7D 0A 04 01 99 22 11 2D 5A 45 54 20 44 45 |'.}....".-ZET DE|
00000270: 20 50 52 49 4E 54 45 52 20 41 41 4E 22 00 A0 0A | PRINTER AAN"...|
00000280: 0E 01 99 22 11 2D 53 54 4F 50 20 45 45 4E 20 44 |...".-STOP EEN D|
00000290: 49 53 4B 20 49 4E 20 44 45 20 44 52 49 56 45 22 |ISK IN DE DRIVE"|
000002A0: 00 BA 0A 18 01 99 22 11 20 44 52 55 4B 20 4F 50 |......". DRUK OP|
000002B0: 20 12 52 45 54 55 52 4E 92 22 00 D1 0A 22 01 A1 | .RETURN."..."..|
000002C0: 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 32 39 |A$:.A$...(13).29|
000002D0: 30 00 EC 0A 2C 01 8D 20 34 30 30 20 3A 8F 20 49 |0...,.. 400 :. I|
000002E0: 4E 4C 45 45 53 52 4F 55 54 49 4E 45 00 06 0B 36 |NLEESROUTINE...6|
000002F0: 01 8D 20 39 39 30 20 3A 8F 20 50 52 49 4E 54 52 |.. 990 :. PRINTR|
00000300: 4F 55 54 49 4E 45 00 35 0B 40 01 99 22 11 11 4B |OUTINE.5.@.."..K|
00000310: 4C 41 41 52 21 20 4E 4F 47 4D 41 41 4C 53 20 44 |LAAR! NOGMAALS D|
00000320: 49 54 20 55 49 54 50 52 49 4E 54 45 4E 20 28 4A |IT UITPRINTEN (J|
00000330: 2F 4E 29 3F 22 00 3D 0B 4A 01 A1 41 24 00 55 0B |/N)?".=.J..A$.U.|
00000340: 54 01 8B 20 41 24 B2 22 4A 22 A7 99 22 93 22 3B |T.. A$."J"..".";|
00000350: 3A 89 33 31 30 00 6D 0B 5E 01 8B 20 41 24 B2 22 |:.310.m.^.. A$."|
00000360: 4E 22 A7 99 22 93 22 3B 3A 89 31 37 30 00 76 0B |N"..".";:.170.v.|
00000370: 68 01 89 33 33 30 00 7C 0B 72 01 3A 00 82 0B 7C |h..330.|.r.:...||
00000380: 01 3A 00 A5 0B 90 01 3A 8F 20 48 49 45 52 20 42 |.:.....:. HIER B|
00000390: 45 47 49 4E 54 20 4C 45 45 53 2D 53 55 42 52 4F |EGINT LEES-SUBRO|
000003A0: 55 54 49 4E 45 00 DE 0B 9A 01 50 52 B2 30 3A 42 |UTINE.....PR.0:B|
000003B0: 46 B2 30 3A 44 4E 24 B2 22 22 3A 81 49 B2 31 A4 |F.0:DN$."":.I.1.|
000003C0: 37 35 3A 54 24 28 49 29 B2 22 20 20 20 22 3A 42 |75:T$(I)." ":B|
000003D0: 42 24 28 49 29 B2 22 20 20 20 20 20 20 22 00 FE |B$(I)." "..|
000003E0: 0B A4 01 50 52 24 28 49 29 B2 22 20 20 20 20 20 |...PR$(I)." |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 00 1B | ":...|
00000400: 0C AE 01 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |....15,8,15,"I0"|
00000410: 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 31 0C C2 01 |:.2,8,2,"#".1...|
00000420: 98 31 35 2C 22 55 31 22 3B 32 3B 30 3B 31 38 3B |.15,"U1";2;0;18;|
00000430: 30 00 45 0C CC 01 98 31 35 2C 22 42 2D 50 22 3B |0.E....15,"B-P";|
00000440: 32 3B 31 34 34 00 50 0C D6 01 44 4E 24 B2 22 22 |2;144.P...DN$.""|
00000450: 00 5E 0C E0 01 3A 3A 81 49 B2 31 A4 32 30 00 69 |.^...::.I.1.20.i|
00000460: 0C EA 01 A1 23 32 2C 58 24 00 78 0C F4 01 44 4E |....#2,X$.x...DN|
00000470: 24 B2 44 4E 24 AA 58 24 00 7F 0C FE 01 82 49 00 |$.DN$.X$......I.|
00000480: 9A 0C 08 02 44 4E 24 B2 C8 28 44 4E 24 2C 31 38 |....DN$..(DN$,18|
00000490: 29 AA C9 28 44 4E 24 2C 32 29 00 A7 0C 0D 02 54 |)..(DN$,2).....T|
000004A0: B2 31 38 3A 53 B2 31 00 BC 0C 12 02 98 31 35 2C |.18:S.1......15,|
000004B0: 22 55 31 22 3B 32 3B 30 3B 54 3B 53 00 CE 0C 1C |"U1";2;0;T;S....|
000004C0: 02 98 31 35 2C 22 42 2D 50 22 3B 32 3B 30 00 E8 |..15,"B-P";2;0..|
000004D0: 0C 26 02 A1 23 32 2C 58 24 3A 8B 58 24 B2 22 22 |.&..#2,X$:.X$.""|
000004E0: A7 58 24 B2 C7 28 30 29 00 F4 0C 30 02 54 B2 C6 |.X$..(0)...0.T..|
000004F0: 28 58 24 29 00 0E 0D 3A 02 A1 23 32 2C 58 24 3A |(X$)...:..#2,X$:|
00000500: 8B 58 24 B2 22 22 A7 58 24 B2 C7 28 30 29 00 1A |.X$."".X$..(0)..|
00000510: 0D 44 02 53 B2 C6 28 58 24 29 00 25 0D 4E 02 81 |.D.S..(X$).%.N..|
00000520: 58 B2 30 A4 37 00 3C 0D 58 02 98 31 35 2C 22 42 |X.0.7.<.X..15,"B|
00000530: 2D 50 22 3B 32 3B 58 AC 33 32 AA 35 00 47 0D 62 |-P";2;X.32.5.G.b|
00000540: 02 46 46 24 B2 22 22 00 53 0D 6C 02 81 59 B2 30 |.FF$."".S.l..Y.0|
00000550: A4 31 35 00 72 0D 76 02 A1 23 32 2C 58 24 3A 8B |.15.r.v..#2,X$:.|
00000560: 58 24 B2 22 22 A7 58 24 B2 C7 28 30 29 3A 89 36 |X$."".X$..(0):.6|
00000570: 37 30 00 85 0D 80 02 8B C6 28 58 24 29 B2 31 36 |70.......(X$).16|
00000580: 30 A7 36 37 30 00 9A 0D 85 02 8B C6 28 58 24 29 |0.670.......(X$)|
00000590: B3 33 32 A7 58 24 B2 22 3F 22 00 A9 0D 8A 02 46 |.32.X$."?".....F|
000005A0: 46 24 B2 46 46 24 AA 58 24 00 B0 0D 94 02 82 59 |F$.FF$.X$......Y|
000005B0: 00 BC 0D 9E 02 50 52 B2 50 52 AA 31 00 E5 0D A8 |.....PR.PR.1....|
000005C0: 02 46 46 24 B2 C8 28 46 46 24 AA 22 20 20 20 20 |.FF$..(FF$." |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 22 2C 31 36 29 00 F5 0D B2 02 50 52 24 28 50 52 |",16).....PR$(PR|
000005F0: 29 B2 46 46 24 00 0C 0E BC 02 98 31 35 2C 22 42 |).FF$......15,"B|
00000600: 2D 50 22 3B 32 3B 58 AC 33 32 AA 32 00 26 0E C6 |-P";2;X.32.2.&..|
00000610: 02 A1 23 32 2C 58 24 3A 8B 58 24 B2 22 22 A7 58 |..#2,X$:.X$."".X|
00000620: 24 B2 C7 28 30 29 00 3D 0E D0 02 54 59 B2 C6 28 |$..(0).=...TY..(|
00000630: 58 24 29 3A 46 54 B2 54 59 AF 31 39 39 00 70 0E |X$):FT.TY.199.p.|
00000640: D3 02 8B 20 46 54 B2 30 20 A7 20 54 24 B2 22 20 |... FT.0 . T$." |
00000650: 20 20 22 3A 89 37 37 35 3A 20 20 20 20 20 20 8F | ":.775: .|
00000660: 20 3D 4C 45 45 47 20 53 54 55 4B 20 42 4C 4F 4B | =LEEG STUK BLOK|
00000670: 00 98 0E D5 02 8B 20 46 54 B2 31 32 38 AA 30 20 |...... FT.128.0 |
00000680: A7 20 54 24 B2 22 20 20 20 22 3A 89 37 37 35 3A |. T$." ":.775:|
00000690: 20 20 8F 20 3D 44 45 4C 00 C1 0E D7 02 8B 20 46 | . =DEL...... F|
000006A0: 54 B2 31 32 38 AA 36 34 AA 30 A7 20 54 24 B2 22 |T.128.64.0. T$."|
000006B0: 20 20 20 22 3A 89 37 37 35 3A 8F 20 3D 44 45 4C | ":.775:. =DEL|
000006C0: 3C 00 E0 0E DA 02 8B 20 46 54 B2 31 32 38 AA 31 |<...... FT.128.1|
000006D0: 20 A7 20 54 24 B2 22 53 45 51 22 3A 89 37 38 30 | . T$."SEQ":.780|
000006E0: 00 02 0F DF 02 8B 20 46 54 B2 31 32 38 AA 36 34 |...... FT.128.64|
000006F0: AA 31 A7 20 54 24 B2 22 53 45 51 3C 22 3A 89 37 |.1. T$."SEQ<":.7|
00000700: 38 30 00 21 0F E4 02 8B 20 46 54 B2 31 32 38 AA |80.!.... FT.128.|
00000710: 32 20 A7 20 54 24 B2 22 50 52 47 22 3A 89 37 38 |2 . T$."PRG":.78|
00000720: 30 00 43 0F E9 02 8B 20 46 54 B2 31 32 38 AA 36 |0.C.... FT.128.6|
00000730: 34 AA 32 A7 20 54 24 B2 22 50 52 47 3C 22 3A 89 |4.2. T$."PRG<":.|
00000740: 37 38 30 00 61 0F EE 02 8B 20 46 54 B2 31 32 38 |780.a.... FT.128|
00000750: AA 33 A7 20 54 24 B2 22 55 53 52 22 3A 89 37 38 |.3. T$."USR":.78|
00000760: 30 00 83 0F F3 02 8B 20 46 54 B2 31 32 38 AA 36 |0...... FT.128.6|
00000770: 34 AA 33 A7 20 54 24 B2 22 55 53 52 3C 22 3A 89 |4.3. T$."USR<":.|
00000780: 37 38 30 00 A1 0F F8 02 8B 20 46 54 B2 31 32 38 |780...... FT.128|
00000790: AA 34 A7 20 54 24 B2 22 52 45 4C 22 3A 89 37 38 |.4. T$."REL":.78|
000007A0: 30 00 C3 0F FD 02 8B 20 46 54 B2 31 32 38 AA 36 |0...... FT.128.6|
000007B0: 34 AA 34 A7 20 54 24 B2 22 52 45 4C 3C 22 3A 89 |4.4. T$."REL<":.|
000007C0: 37 38 30 00 DF 0F 02 03 8B 20 46 54 B3 31 32 38 |780...... FT.128|
000007D0: A7 20 54 24 B2 22 3F 3F 3F 22 3A 89 37 38 30 00 |. T$."???":.780.|
000007E0: 20 10 07 03 8B C8 28 50 52 24 28 50 52 29 2C 33 | .....(PR$(PR),3|
000007F0: 29 B3 B1 22 2D 2D 2D 22 A7 50 52 24 28 50 52 29 |).."---".PR$(PR)|
00000800: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000810: 20 20 22 3A 50 52 B2 50 52 AB 31 3A 89 38 37 30 | ":PR.PR.1:.870|
00000820: 00 2E 10 0C 03 54 24 28 50 52 29 B2 54 24 00 46 |.....T$(PR).T$.F|
00000830: 10 20 03 98 31 35 2C 22 42 2D 50 22 3B 32 3B 58 |. ..15,"B-P";2;X|
00000840: AC 33 32 AA 33 30 00 51 10 2A 03 81 59 B2 31 A4 |.32.30.Q.*..Y.1.|
00000850: 32 00 6B 10 34 03 A1 23 32 2C 58 24 3A 8B 58 24 |2.k.4..#2,X$:.X$|
00000860: B2 22 22 A7 58 24 B2 C7 28 30 29 00 7B 10 3E 03 |."".X$..(0).{.>.|
00000870: 42 4C 28 59 29 B2 C6 28 58 24 29 00 82 10 52 03 |BL(Y)..(X$)...R.|
00000880: 82 59 00 BC 10 5C 03 8B 42 4C 28 31 29 B3 B1 30 |.Y...\..BL(1)..0|
00000890: A7 20 42 42 24 28 50 52 29 B2 C8 28 C4 28 42 4C |. BB$(PR)..(.(BL|
000008A0: 28 31 29 AA 32 35 36 AC 42 4C 28 32 29 29 AA 22 |(1).256.BL(2))."|
000008B0: 20 20 20 20 20 20 20 20 22 2C 36 29 00 C3 10 66 | ",6)...f|
000008C0: 03 82 58 00 D1 10 70 03 8B 54 B3 B1 30 A7 35 33 |..X...p..T..0.53|
000008D0: 30 00 E7 10 7A 03 98 31 35 2C 22 55 31 22 3B 32 |0...z..15,"U1";2|
000008E0: 3B 30 3B 31 38 3B 30 00 FD 10 84 03 81 58 B2 30 |;0;18;0......X.0|
000008F0: A4 33 34 3A 8B 20 58 B2 31 37 A7 20 82 00 13 11 |.34:. X.17. ....|
00000900: 8E 03 98 31 35 2C 22 42 2D 50 22 3B 32 3B 58 AC |...15,"B-P";2;X.|
00000910: 34 AA 34 00 2D 11 98 03 A1 23 32 2C 58 24 3A 8B |4.4.-....#2,X$:.|
00000920: 58 24 B2 22 22 A7 58 24 B2 C7 28 30 29 00 3D 11 |X$."".X$..(0).=.|
00000930: A2 03 42 46 B2 42 46 AA C6 28 58 24 29 00 44 11 |..BF.BF..(X$).D.|
00000940: AC 03 82 58 00 51 11 B6 03 A0 31 35 3A A0 32 3A |...X.Q....15:.2:|
00000950: 8E 00 75 11 C0 03 3A 8F 20 48 49 45 52 20 45 49 |..u...:. HIER EI|
00000960: 4E 44 49 47 54 20 4C 45 45 53 2D 53 55 42 52 4F |NDIGT LEES-SUBRO|
00000970: 55 54 49 4E 45 00 7B 11 CA 03 3A 00 81 11 D4 03 |UTINE.{...:.....|
00000980: 3A 00 9E 11 DE 03 3A 8F 20 48 49 45 52 20 50 52 |:.....:. HIER PR|
00000990: 49 4E 54 2D 53 55 42 52 4F 55 54 49 4E 45 00 A7 |INT-SUBROUTINE..|
000009A0: 11 E8 03 9F 34 2C 34 00 B1 11 F2 03 8D 31 32 34 |....4,4......124|
000009B0: 30 00 CD 11 56 04 98 34 2C 22 20 22 AA C7 28 31 |0...V..4," "..(1|
000009C0: 34 29 AA 44 4E 24 AA C7 28 31 35 29 3B 00 F2 11 |4).DN$..(15);...|
000009D0: 5B 04 98 34 2C 22 20 20 20 A7 22 42 42 24 28 32 |[..4," ."BB$(2|
000009E0: 37 29 50 52 24 28 32 37 29 22 20 22 54 24 28 32 |7)PR$(27)" "T$(2|
000009F0: 37 29 00 27 12 60 04 81 49 B2 31 A4 34 33 3A 98 |7).'.`..I.1.43:.|
00000A00: 34 2C 22 C3 22 3B 3A 82 3A 98 34 2C 22 20 A7 22 |4,".";:.:.4," ."|
00000A10: 42 42 24 28 32 38 29 50 52 24 28 32 38 29 22 20 |BB$(28)PR$(28)" |
00000A20: 22 54 24 28 32 38 29 00 33 12 6A 04 81 4A B2 31 |"T$(28).3.j..J.1|
00000A30: A4 32 35 00 50 12 74 04 98 34 2C 42 42 24 28 4A |.25.P.t..4,BB$(J|
00000A40: 29 50 52 24 28 4A 29 22 20 22 54 24 28 4A 29 3B |)PR$(J)" "T$(J);|
00000A50: 00 7F 12 79 04 98 34 2C C8 28 22 20 20 20 20 20 |...y..4,.(" |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A70: 22 2C 32 31 AB C3 28 54 24 28 4A 29 29 29 3B 00 |",21..(T$(J)));.|
00000A80: A7 12 7E 04 98 34 2C 22 A7 22 42 42 24 28 4A AA |..~..4,"."BB$(J.|
00000A90: 32 38 29 50 52 24 28 4A AA 32 38 29 22 20 22 54 |28)PR$(J.28)" "T|
00000AA0: 24 28 4A AA 32 38 29 00 AE 12 88 04 82 4A 00 CE |$(J.28)......J..|
00000AB0: 12 92 04 98 34 2C 42 42 24 28 32 36 29 50 52 24 |....4,BB$(26)PR$|
00000AC0: 28 32 36 29 22 20 22 54 24 28 32 36 29 3B 00 FD |(26)" "T$(26);..|
00000AD0: 12 97 04 98 34 2C C8 28 22 20 20 20 20 20 20 20 |....4,.(" |
00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
00000AF0: 32 31 AB C3 28 54 24 28 4A 29 29 29 3B 00 1D 13 |21..(T$(J)));...|
00000B00: 9C 04 42 46 24 B2 C4 28 42 46 29 AA 22 20 20 56 |..BF$..(BF)." V|
00000B10: 52 49 4A 45 20 42 4C 4F 4B 4B 45 4E 22 00 2B 13 |RIJE BLOKKEN".+.|
00000B20: A6 04 98 34 2C 22 A7 22 42 46 24 00 35 13 C4 04 |...4,"."BF$.5...|
00000B30: 8D 31 32 34 30 00 3C 13 C9 04 A0 34 00 42 13 CE |.1240.<....4.B..|
00000B40: 04 8E 00 5D 13 D8 04 81 49 B2 31 A4 39 30 3A 98 |...]....I.1.90:.|
00000B50: 34 2C 22 C3 22 3B 3A 82 3A 98 34 3A 8E 00 00 00 |4,".";:.:.4:....|
....... DIRECTORY LISTER.7.D..53280,15:.
53281,11:."..";.Z.N..T$(75) :. BEVAT TYP
E VAN FILE.~.X..PR$(75):. BEVAT PROGRAMM
ANAMEN. .... BB$(75) :. BEVAT FILELENGTE
.....DN$."" :. DN$ IS DIRECTORY.....PR.0
:. PR IS PARAMETER VAN PR$... .BF.0:. B
F BEVAT AANTAL VRIJE BLOCKS.<...."******
*****DIRECTORY PRINTER***********";.M..
.."* ---DIT PROGRAMMA MAAKT ETIKETTEN---
- *";......"* ---VOOR HOESJES VAN FLOPPY
DISKS---- *";.O...."* OORSPR. PRO
G. B.SCHUTTE *";......"* GEWIJZ.&
VERBETERD DOOR H.G.VAN MANEN*";.0...."*
***************************************"
.=.H..".....".A...."-ZET DIP SWITCH 3+6
OP 'DOWN'.}....".-ZET DE PRINTER AAN". .
...".-STOP EEN DISK IN DE DRIVE"......".
DRUK OP .RETURN.".Q."..A$:.A$..G(13).29
0...,.. 400 :. INLEESROUTINE...6.. 990 :
. PRINTROUTINE.5.@.."..KLAAR! NOGMAALS D
IT UITPRINTEN (J/N)?".=.J..A$.U.T.. A$."
J"..".";:.310.M.^.. A$."N"..".";:.170.V.
H..330.|.R.:...|.:.....:. HIER BEGINT LE
ES-SUBROUTINE.....PR.0:BF.0:DN$."":.I.1.
75:T$(I)." ":BB$(I)." ".....PR$(I
)." ":.......15,8,15,"I0"
:.2,8,2,"#".1.B..15,"U1";2;0;18;0.E.L..1
5,"B-P";2;144.P.V.DN$."".^...::.I.1.20.I
....#2,X$.X...DN$.DN$.X$.....I.....DN$.
H(DN$,18).I(DN$,2).....T.18:S.1......15,
"U1";2;0;T;S.N....15,"B-P";2;0...&..#2,X
$:.X$."".X$.G(0)...0.T.F(X$)...:..#2,X$:
.X$."".X$.G(0)...D.S.F(X$).%.N..X.0.7.<.
X..15,"B-P";2;X.32.5.G.B.FF$."".S.L..Y.0
.15.R.V..#2,X$:.X$."".X$.G(0):.670......
F(X$).160.670......F(X$).32.X$."?".....F
F$.FF$.X$......Y.....PR.PR.1.....FF$.H(F
F$." ",16).....PR$(PR
).FF$......15,"B-P";2;X.32.2.&.F..#2,X$:
.X$."".X$.G(0).=.P.TY.F(X$):FT.TY.199.P.
S.. FT.0 . T$." ":.775: . =LEEG S
TUK BLOK...U.. FT.128.0 . T$." ":.775:
. =DEL.A.W.. FT.128.64.0. T$." ":.77
5:. =DEL<...Z.. FT.128.1 . T$."SEQ":.780
...... FT.128.64.1. T$."SEQ<":.780.!....
FT.128.2 . T$."PRG":.780.C.... FT.128.6
4.2. T$."PRG<":.780.A.... FT.128.3. T$."
USR":.780...... FT.128.64.3. T$."USR<":.
780...... FT.128.4. T$."REL":.780.C....
FT.128.64.4. T$."REL<":.780...... FT.128
. T$."???":.780. ....H(PR$(PR),3).."---"
.PR$(PR)." ":PR.PR.1:.870
.....T$(PR).T$.F. ..15,"B-P";2;X.32.30.Q
.*..Y.1.2.K.4..#2,X$:.X$."".X$.G(0).{.>.
BL(Y).F(X$)...R..Y...\..BL(1)..0. BB$(PR
).H(D(BL(1).256.BL(2))." ",6).C.F
..X.Q.P..T..0.530...Z..15,"U1";2;0;18;0.
.....X.0.34:. X.17. .......15,"B-P";2;X.
4.4.-....#2,X$:.X$."".X$.G(0).=...BF.BF.
F(X$).D....X.Q... 15: 2:..U...:. HIER EI
NDIGT LEES-SUBROUTINE.{.J.:...T.:.....:.
HIER PRINT-SUBROUTINE......4,4......124
0.M.V..4," ".G(14).DN$.G(15);...[..4,"
."BB$(27)PR$(27)" "T$(27).'.`..I.1.43:.
4,"C";:.:.4," ."BB$(28)PR$(28)" "T$(28).
3.J..J.1.25.P.T..4,BB$(J)PR$(J)" "T$(J);
..Y..4,H(" ",21.C(T
$(J)));...~..4,"."BB$(J.28)PR$(J.28)" "T
$(J.28)......J.N....4,BB$(26)PR$(26)" "T
$(26);......4,H(" ",
21.C(T$(J)));.....BF$.D(BF)." VRIJE BLO
KKEN".+....4,"."BF$.5.D..1240.<.I. 4.B.N
...].X..I.1.90:.4,"C";:.:.4:....
> CLICK IMAGE PREVIEW FOR FULL MODAL