DISK HOES INDEX
FILE INFORMATION
FILENAME(S): DISK HOES INDEX
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:26:51
APPEARS ON: 1 disk(s)
FILE HASH
e266bf0c2f2d2e9c4e7753040ca149e13eb96feef9d7484a657bd479eea3c0ef
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MEETING PRINTER | DISK HOES INDEX | PRG | DuncanTwain | 15 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 05 00 97 20 35 33 32 38 30 2C 39 3A |....... 53280,9:|
00000010: 97 35 33 32 38 31 2C 39 3A 99 22 81 22 00 37 08 |.53281,9:.".".7.|
00000020: 06 00 97 20 35 36 2C 31 35 36 3A 8F 20 53 45 54 |... 56,156:. SET|
00000030: 20 4D 45 4D 54 4F 50 00 5E 08 14 00 99 22 93 11 | MEMTOP.^...."..|
00000040: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 44 49 53 4B |............DISK|
00000050: 20 53 4F 52 54 20 26 20 50 52 49 4E 54 22 00 74 | SORT & PRINT".t|
00000060: 08 3C 00 9C 3A 57 B2 35 31 3A 4E B2 AB 31 3A 58 |.<..:W.51:N..1:X|
00000070: B2 32 32 31 00 BE 08 3E 00 99 22 11 11 1D 1D 50 |.221...>.."....P|
00000080: 4C 41 41 54 53 20 44 49 53 4B 2C 20 45 4E 20 56 |LAATS DISK, EN V|
00000090: 55 4C 20 49 44 20 4E 55 4D 4D 45 52 20 49 4E 20 |UL ID NUMMER IN |
000000A0: 20 20 20 20 20 20 20 20 20 20 12 52 45 54 55 52 | .RETUR|
000000B0: 4E 92 20 41 4C 4C 45 53 20 4F 4B 20 20 22 00 D7 |N. ALLES OK "..|
000000C0: 08 41 00 85 22 11 11 1D 1D 1D 1D 1D 4E 52 20 49 |.A..".......NR I|
000000D0: 44 20 3D 22 3B 5A 24 00 19 09 46 00 42 4C 24 B2 |D =";Z$...F.BL$.|
000000E0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 22 3A 4C 24 B2 22 49 | ":L$."I|
00000110: 44 20 3D 20 20 22 AA 5A 24 00 40 09 50 00 86 46 |D = ".Z$.@.P..F|
00000120: 58 24 28 32 35 36 29 2C 46 54 24 28 32 35 36 29 |X$(256),FT$(256)|
00000130: 2C 46 4C 28 32 35 36 29 2C 54 54 28 32 35 36 29 |,FL(256),TT(256)|
00000140: 00 7D 09 64 00 8F 3A 46 4F 52 49 3D 31 20 54 4F |.}.d..:FORI=1 TO|
00000150: 20 32 35 36 3A 46 58 24 28 49 29 3D 22 22 3A 46 | 256:FX$(I)="":F|
00000160: 54 24 28 49 29 3D 22 22 3A 46 4C 28 49 29 3D 30 |T$(I)="":FL(I)=0|
00000170: 3A 54 54 28 49 29 3D 30 3A 4E 45 58 54 00 A4 09 |:TT(I)=0:NEXT...|
00000180: 6C 00 99 22 93 11 11 11 11 11 11 1D 1D 1D 1D 1D |l.."............|
00000190: 1D 1D 1D 1D 1D 1D 1D 41 4C 49 47 4E 20 50 41 50 |.......ALIGN PAP|
000001A0: 45 52 2C 22 00 CC 09 72 00 99 22 93 11 11 11 11 |ER,"...r..".....|
000001B0: 11 11 11 11 11 11 11 22 3B A6 31 34 29 3B 22 50 |.......";.14);"P|
000001C0: 4C 45 41 53 45 20 57 41 49 54 20 22 00 F8 09 78 |LEASE WAIT "...x|
000001D0: 00 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 9F 31 |..15:.15,8,15:.1|
000001E0: 2C 38 2C 30 2C 22 24 30 22 3A 8D 34 38 30 3A A1 |,8,0,"$0":.480:.|
000001F0: 23 31 2C 41 24 2C 42 24 00 24 0A 8C 00 A1 23 31 |#1,A$,B$.$....#1|
00000200: 2C 41 24 2C 41 24 3A A1 23 31 2C 41 24 2C 42 24 |,A$,A$:.#1,A$,B$|
00000210: 3A 43 B2 30 3A 8B 41 24 B3 B1 22 22 A7 43 B2 C6 |:C.0:.A$.."".C..|
00000220: 28 41 24 29 00 3E 0A 96 00 8B 42 24 B3 B1 22 22 |(A$).>....B$..""|
00000230: A7 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 00 50 |.C.C..(B$).256.P|
00000240: 0A A0 00 4E B2 4E AA 31 3A 46 4C 28 4E 29 B2 43 |...N.N.1:FL(N).C|
00000250: 00 66 0A AA 00 A1 23 31 2C 42 24 3A 8B 53 54 B3 |.f....#1,B$:.ST.|
00000260: B1 30 A7 32 36 30 00 79 0A B4 00 8B 42 24 B3 B1 |.0.260.y....B$..|
00000270: C7 28 33 34 29 A7 31 37 30 00 83 0A BE 00 4E 24 |.(34).170.....N$|
00000280: B2 22 22 00 A7 0A C8 00 A1 23 31 2C 42 24 3A 8B |.""......#1,B$:.|
00000290: 42 24 B3 B1 C7 28 33 34 29 A7 4E 24 B2 4E 24 AA |B$...(34).N$.N$.|
000002A0: 42 24 3A 89 32 30 30 00 B5 0A D2 00 46 58 24 28 |B$:.200.....FX$(|
000002B0: 4E 29 B2 4E 24 00 CE 0A DC 00 A1 23 31 2C 42 24 |N).N$......#1,B$|
000002C0: 3A 8B 42 24 B2 C7 28 33 32 29 A7 32 32 30 00 D8 |:.B$..(32).220..|
000002D0: 0A E6 00 43 24 B2 22 22 00 FA 0A F0 00 43 24 B2 |...C$."".....C$.|
000002E0: 43 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B 42 24 |C$.B$:.#1,B$:.B$|
000002F0: B3 B1 22 22 20 20 A7 32 34 30 00 17 0B FA 00 46 |.."" .240.....F|
00000300: 54 24 28 4E 29 B2 C8 28 43 24 2C 33 29 3A 8B 53 |T$(N)..(C$,3):.S|
00000310: 54 B2 30 A7 31 34 30 00 32 0B 04 01 A0 31 3A 42 |T.0.140.2....1:B|
00000320: 46 B2 46 4C 28 4E 29 3A 4E B2 4E AB 31 3A 8D 35 |F.FL(N):N.N.1:.5|
00000330: 38 30 00 40 0B 0E 01 A0 34 3A 9F 34 2C 34 2C 30 |80.@....4:.4,4,0|
00000340: 00 7F 0B 18 01 98 34 2C 22 B0 C0 C0 C0 C0 C0 C0 |......4,".......|
00000350: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000360: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 |..............".|
00000380: 95 0B 22 01 98 34 2C C7 28 58 29 3B A6 35 31 29 |.."..4,.(X);.51)|
00000390: 3B C7 28 58 29 00 B4 0B 2C 01 54 24 B2 C7 28 58 |;.(X)...,.T$..(X|
000003A0: 29 AA 22 20 20 20 20 20 3E 3E 3E 20 22 AA 46 58 |)." >>> ".FX|
000003B0: 24 28 30 29 00 D3 0B 36 01 8B 4C 24 B3 B1 22 22 |$(0)...6..L$..""|
000003C0: A7 54 24 B2 54 24 AA 22 A0 A0 28 22 AA 4C 24 AA |.T$.T$."..(".L$.|
000003D0: 22 29 22 00 F0 0B 3B 01 54 24 B2 54 24 AA CA 28 |")"...;.T$.T$..(|
000003E0: 42 4C 24 2C 31 2C 57 AB C3 28 54 24 29 AB 31 29 |BL$,1,W..(T$).1)|
000003F0: 00 0A 0C 4A 01 54 24 B2 54 24 AA 22 20 20 22 AA |...J.T$.T$." ".|
00000400: C7 28 58 29 3A 98 34 2C 54 24 00 20 0C 54 01 98 |.(X):.4,T$. .T..|
00000410: 34 2C C7 28 58 29 3B A6 35 31 29 3B C7 28 58 29 |4,.(X);.51);.(X)|
00000420: 00 5F 0C 5E 01 98 34 2C 22 AB C0 C0 C0 C0 C0 C0 |._.^..4,".......|
00000430: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000440: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000450: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 22 00 |..............".|
00000460: 75 0C 68 01 98 34 2C C7 28 58 29 3B A6 35 31 29 |u.h..4,.(X);.51)|
00000470: 3B C7 28 58 29 00 91 0C 72 01 4C B2 39 3A 4B B2 |;.(X)...r.L.9:K.|
00000480: B5 28 28 4E AA 31 29 AD 32 29 3A 81 49 B2 31 A4 |.((N.1).2):.I.1.|
00000490: 4B 00 CB 0C 7C 01 54 24 B2 C7 28 58 29 3A 4A B2 |K...|.T$..(X):J.|
000004A0: 49 3A 8D 35 32 30 3A 54 24 B2 54 24 AA 22 20 22 |I:.520:T$.T$." "|
000004B0: 3A 4A B2 4B AA 49 3A 8D 35 32 30 3A 54 24 B2 54 |:J.K.I:.520:T$.T|
000004C0: 24 AA 22 20 20 22 AA C7 28 58 29 00 DD 0C 86 01 |$." "..(X).....|
000004D0: 98 34 2C 54 24 3A 4C B2 4C AA 31 3A 82 00 F3 0C |.4,T$:L.L.1:....|
000004E0: 90 01 98 34 2C C7 28 58 29 3B A6 35 31 29 3B C7 |...4,.(X);.51);.|
000004F0: 28 58 29 00 19 0D 9A 01 50 B2 B5 28 28 42 46 AC |(X).....P..((BF.|
00000500: 31 30 30 AD 36 36 34 29 AA 2E 35 29 3A 50 24 B2 |100.664)..5):P$.|
00000510: CA 28 C4 28 50 29 2C 32 29 00 50 0D A4 01 54 24 |.(.(P),2).P...T$|
00000520: B2 C7 28 58 29 AA CA 28 42 4C 24 2C 31 2C 31 34 |..(X)..(BL$,1,14|
00000530: 29 AA C4 28 42 46 29 AA 22 20 42 4C 4F 43 4B 53 |)..(BF)." BLOCKS|
00000540: 20 28 22 AA 50 24 AA 22 20 25 29 20 46 52 45 45 | (".P$." %) FREE|
00000550: 00 78 0D AE 01 54 24 B2 54 24 AA CA 28 42 4C 24 |.x...T$.T$..(BL$|
00000560: 2C 31 2C 57 AB C3 28 54 24 29 AA 31 29 AA C7 28 |,1,W..(T$).1)..(|
00000570: 58 29 3A 98 34 2C 54 24 00 96 0D B8 01 81 49 B2 |X):.4,T$......I.|
00000580: 4C A4 32 37 3A 98 34 2C C7 28 58 29 3B A6 35 31 |L.27:.4,.(X);.51|
00000590: 29 3B C7 28 58 29 00 9C 0D C2 01 82 00 DB 0D CC |);.(X)..........|
000005A0: 01 98 34 2C 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..4,"...........|
000005B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000005C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000005D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 F4 0D D1 01 |..........".....|
000005E0: 98 34 3A 98 34 3A 98 34 3A 98 34 3A 98 34 3A 98 |.4:.4:.4:.4:.4:.|
000005F0: 34 3A 98 34 00 02 0E D6 01 98 34 3A A0 34 3A A0 |4:.4......4:.4:.|
00000600: 31 35 00 0B 0E DC 01 89 20 36 30 00 11 0E DE 01 |15...... 60.....|
00000610: 80 00 29 0E E0 01 84 31 35 2C 45 52 2C 45 52 24 |..)....15,ER,ER$|
00000620: 3A 8B 45 52 B3 32 30 A7 8E 00 5D 0E EA 01 8B 45 |:.ER.20...]....E|
00000630: 52 B2 37 34 B0 45 52 B2 32 31 A7 45 52 24 B2 45 |R.74.ER.21.ER$.E|
00000640: 52 24 AA 22 2D 2D 49 53 20 44 49 53 4B 20 49 4E |R$."--IS DISK IN|
00000650: 53 45 52 54 45 44 3F 22 3A 89 35 31 30 00 81 0E |SERTED?":.510...|
00000660: F4 01 45 52 24 B2 22 44 49 53 4B 20 45 52 52 4F |..ER$."DISK ERRO|
00000670: 52 22 AA C4 28 45 52 29 AA 22 3A 20 22 AA 45 52 |R"..(ER).": ".ER|
00000680: 24 00 8C 0E FE 01 99 45 52 24 3A 80 00 B1 0E 08 |$......ER$:.....|
00000690: 02 54 B2 54 54 28 4A 29 3A 8B 54 B2 30 A7 54 24 |.T.TT(J):.T.0.T$|
000006A0: B2 54 24 AA CA 28 42 4C 24 2C 31 2C 32 34 29 3A |.T$..(BL$,1,24):|
000006B0: 8E 00 CA 0E 12 02 8B 46 4C 28 54 29 B3 31 30 30 |.......FL(T).100|
000006C0: A7 54 24 B2 54 24 AA 22 A0 22 00 E3 0E 1C 02 8B |.T$.T$."."......|
000006D0: 46 4C 28 54 29 B3 31 30 20 A7 54 24 B2 54 24 AA |FL(T).10 .T$.T$.|
000006E0: 22 A0 22 00 06 0F 26 02 54 24 B2 54 24 AA CA 28 |"."...&.T$.T$..(|
000006F0: C4 28 46 4C 28 54 29 29 2C 32 29 AA 22 A0 22 AA |.(FL(T)),2).".".|
00000700: 46 58 24 28 54 29 00 36 0F 30 02 8B C3 28 46 58 |FX$(T).6.0...(FX|
00000710: 24 28 54 29 29 B3 31 36 20 A7 20 54 24 B2 54 24 |$(T)).16 . T$.T$|
00000720: AA CA 28 42 4C 24 2C 31 2C 31 36 AB C3 28 46 58 |..(BL$,1,16..(FX|
00000730: 24 28 54 29 29 29 00 52 0F 3A 02 54 24 B2 54 24 |$(T))).R.:.T$.T$|
00000740: AA 22 A0 22 AA C8 28 46 54 24 28 54 29 2C 33 29 |."."..(FT$(T),3)|
00000750: 3A 8E 00 69 0F 44 02 81 49 B2 31 A4 4E 3A 54 54 |:..i.D..I.1.N:TT|
00000760: 28 49 29 B2 49 3A 82 3A 8E 00 9E 0F 4E 02 81 49 |(I).I:.:....N..I|
00000770: B2 31 A4 4E AB 31 3A 53 B2 49 3A 81 4A B2 49 AA |.1.N.1:S.I:.J.I.|
00000780: 31 A4 4E 3A 8B 46 58 24 28 54 54 28 4A 29 29 B3 |1.N:.FX$(TT(J)).|
00000790: 46 58 24 28 54 54 28 53 29 29 A7 53 B2 4A 00 C7 |FX$(TT(S)).S.J..|
000007A0: 0F 58 02 82 4A 3A 8B 53 B3 B1 49 A7 54 B2 54 54 |.X..J:.S..I.T.TT|
000007B0: 28 49 29 3A 54 54 28 49 29 B2 54 54 28 53 29 3A |(I):TT(I).TT(S):|
000007C0: 54 54 28 53 29 B2 54 00 D0 0F 62 02 82 49 3A 8E |TT(S).T...b..I:.|
000007D0: 00 00 00 |... |
....... 53280,9:.53281,9:.".".7.... 56,1
56:. SET MEMTOP.^...."..............DISK
SORT & PRINT".T.<..:W.51:N..1:X.221...>
.."....PLAATS DISK, EN VUL ID NUMMER IN
.RETURN. ALLES OK ".W.A.."...
....NR ID =";Z$...F.BL$."
":L$."ID = ".Z
$.@.P..FX$(256),FT$(256),FL(256),TT(256)
.}.D..:FORI=1 TO 256:FX$(I)="":FT$(I)=""
:FL(I)=0:TT(I)=0:NEXT...L.."............
.......ALIGN PAPER,".L.R.."............"
;.14);"PLEASE WAIT "...X. 15:.15,8,15:.1
,8,0,"$0":.480:.#1,A$,B$.$....#1,A$,A$:.
#1,A$,B$:C.0:.A$.."".C.F(A$).>....B$..""
.C.C.F(B$).256.P. .N.N.1:FL(N).C.F....#1
,B$:.ST..0.260.Y....B$..G(34).170.....N$
.""...H..#1,B$:.B$..G(34).N$.N$.B$:.200.
..R.FX$(N).N$.N....#1,B$:.B$.G(32).220.X
...C$."".....C$.C$.B$:.#1,B$:.B$.."" .2
40.....FT$(N).H(C$,3):.ST.0.140.2... 1:B
F.FL(N):N.N.1:.580.@... 4:.4,4,0.....4,
".......................................
.............."..."..4,G(X);.51);G(X)...
,.T$.G(X)." >>> ".FX$(0).S.6..L$..""
.T$.T$." (".L$.")"...;.T$.T$.J(BL$,1,W.
C(T$).1)...J.T$.T$." ".G(X):.4,T$. .T..
4,G(X);.51);G(X)._.^..4,"...............
......................................".
U.H..4,G(X);.51);G(X)...R.L.9:K..((N.1).
2):.I.1.K.K.|.T$.G(X):J.I:.520:T$.T$." "
:J.K.I:.520:T$.T$." ".G(X)......4,T$:L.
L.1:.......4,G(X);.51);G(X).....P..((BF.
100.664)..5):P$.J(D(P),2).P...T$.G(X).J(
BL$,1,14).D(BF)." BLOCKS (".P$." %) FREE
.X...T$.T$.J(BL$,1,W.C(T$).1).G(X):.4,T$
......I.L.27:.4,G(X);.51);G(X)...B.....L
..4,"...................................
.................."...Q..4:.4:.4:.4:.4:.
4:.4...V..4: 4: 15...... 60.......)....1
5,ER,ER$:.ER.20...]....ER.74.ER.21.ER$.E
R$."--IS DISK INSERTED?":.510.....ER$."D
ISK ERROR".D(ER).": ".ER$......ER$:.....
.T.TT(J):.T.0.T$.T$.J(BL$,1,24):..J....F
L(T).100.T$.T$." "......FL(T).10 .T$.T$.
" "...&.T$.T$.J(D(FL(T)),2)." ".FX$(T).6
.0..C(FX$(T)).16 . T$.T$.J(BL$,1,16.C(FX
$(T))).R.:.T$.T$." ".H(FT$(T),3):..I.D..
I.1.N:TT(I).I:.:....N..I.1.N.1:S.I:.J.I.
1.N:.FX$(TT(J)).FX$(TT(S)).S.J.G.X..J:.S
..I.T.TT(I):TT(I).TT(S):TT(S).T.P.B..I:.
...
> CLICK IMAGE PREVIEW FOR FULL MODAL