VERG-4040-N
FILE INFORMATION
FILENAME(S): VERG-4040-N
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:23:48
APPEARS ON: 1 disk(s)
FILE HASH
dc86d326ad70400329a42473d3c0b80cb6e75e82fff738760351e8347706cb04
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THERMO4040 | VERG-4040-N | PRG | DuncanTwain | 3 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 00 00 9E 35 32 32 36 33 00 33 08 05 |.......52263.3..| 00000010: 00 49 54 28 31 29 B2 30 3A 49 54 28 32 29 B2 31 |.IT(1).0:IT(2).1| 00000020: 33 3A 49 54 28 33 29 B2 34 34 3A 49 54 28 34 29 |3:IT(3).44:IT(4)| 00000030: B2 35 38 00 6C 08 0A 00 86 42 28 31 2C 32 38 29 |.58.l....B(1,28)| 00000040: 3A 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |:L$." | 00000050: 20 20 20 20 20 20 20 20 20 22 3A 97 35 33 32 38 | ":.5328| 00000060: 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 A0 08 14 |0,0:.53281,0....| 00000070: 00 99 22 9E 93 12 20 50 52 4F 47 52 41 4D 4D 41 |.."... PROGRAMMA| 00000080: 20 4F 4D 20 54 57 45 45 20 47 45 53 4F 52 54 45 | OM TWEE GESORTE| 00000090: 45 52 44 45 20 46 49 4C 45 2D 20 20 20 20 22 3B |ERDE FILE- ";| 000000A0: 00 D0 08 19 00 99 22 20 4E 41 4D 45 4E 2D 42 45 |......" NAMEN-BE| 000000B0: 53 54 41 4E 44 45 4E 20 54 45 20 56 45 52 47 45 |STANDEN TE VERGE| 000000C0: 4C 49 4A 4B 45 4E 20 20 20 20 20 20 20 20 20 22 |LIJKEN "| 000000D0: 00 02 09 1E 00 99 22 11 50 4C 41 41 54 53 20 49 |......".PLAATS I| 000000E0: 4E 20 42 45 49 44 45 20 44 52 49 56 45 53 20 45 |N BEIDE DRIVES E| 000000F0: 45 4E 20 12 53 4F 52 54 45 45 52 2D 44 49 53 4B |EN .SORTEER-DISK| 00000100: 92 22 00 4E 09 28 00 99 22 11 47 45 45 46 20 45 |.".N.(..".GEEF E| 00000110: 45 4E 20 54 4F 45 54 53 20 12 20 41 20 2D 20 5A |EN TOETS . A - Z| 00000120: 20 92 20 44 41 4E 20 53 54 41 52 54 20 20 20 20 | . DAN START | 00000130: 20 20 20 20 56 45 52 47 45 4C 49 4A 4B 45 4E 20 | VERGELIJKEN | 00000140: 42 49 4A 20 44 41 54 20 54 45 4B 45 4E 22 00 78 |BIJ DAT TEKEN".x| 00000150: 09 32 00 99 22 11 4D 45 54 20 12 20 53 50 41 54 |.2..".MET . SPAT| 00000160: 49 45 20 92 20 45 45 4E 20 56 4F 4F 52 55 49 54 |IE . EEN VOORUIT| 00000170: 20 4C 49 53 54 45 4E 22 00 C4 09 37 00 99 22 11 | LISTEN"...7..".| 00000180: 4D 45 54 20 54 4F 45 54 53 20 12 20 46 31 20 92 |MET TOETS . F1 .| 00000190: 20 53 54 4F 50 50 45 4E 20 56 45 52 47 45 4C 49 | STOPPEN VERGELI| 000001A0: 4A 4B 45 4E 20 45 4E 20 20 20 54 45 52 55 47 20 |JKEN EN TERUG | 000001B0: 4E 41 41 52 20 44 45 20 53 54 41 52 54 20 56 41 |NAAR DE START VA| 000001C0: 4E 20 22 3B 00 0C 0A 38 00 99 22 44 49 54 20 50 |N ";...8.."DIT P| 000001D0: 52 4F 47 52 41 4D 4D 41 20 4F 4D 4E 49 45 55 57 |ROGRAMMA OMNIEUW| 000001E0: 45 20 53 4F 52 54 45 45 52 2D 44 49 53 4B 45 54 |E SORTEER-DISKET| 000001F0: 54 45 53 20 49 4E 20 44 52 49 56 45 53 20 54 45 |TES IN DRIVES TE| 00000200: 20 20 20 50 4C 41 41 54 53 45 4E 22 00 4B 0A 3C | PLAATSEN".K.<| 00000210: 00 99 22 11 4D 45 54 20 54 4F 45 54 53 20 12 20 |..".MET TOETS . | 00000220: 5E 20 92 20 53 54 4F 50 50 45 4E 20 45 4E 20 54 |^ . STOPPEN EN T| 00000230: 45 52 55 47 20 4E 41 41 52 20 20 20 20 20 54 48 |ERUG NAAR TH| 00000240: 45 52 4D 4F 2D 42 49 42 4C 2E 22 00 8B 0A 3D 00 |ERMO-BIBL."...=.| 00000250: 99 22 11 12 20 47 45 45 46 20 45 45 4E 20 54 4F |.".. GEEF EEN TO| 00000260: 45 54 53 20 56 4F 4F 52 20 56 45 52 56 4F 4C 47 |ETS VOOR VERVOLG| 00000270: 20 48 41 4E 44 4C 45 49 44 49 4E 47 22 3A 97 31 | HANDLEIDING":.1| 00000280: 39 38 2C 30 3A 92 31 39 38 2C 31 00 BD 0A 3E 00 |98,0:.198,1...>.| 00000290: 99 22 93 12 20 56 4F 4F 52 20 50 52 49 4E 54 45 |.".. VOOR PRINTE| 000002A0: 4E 20 56 41 4E 20 44 45 20 56 45 52 47 45 4C 49 |N VAN DE VERGELI| 000002B0: 4A 4B 49 4E 47 20 3A 20 20 20 20 20 22 00 07 0B |JKING : "...| 000002C0: 3F 00 99 22 12 20 46 35 20 92 20 3D 20 4F 50 20 |?..". F5 . = OP | 000002D0: 12 50 52 49 4E 54 45 52 92 20 44 49 53 4B 4E 41 |.PRINTER. DISKNA| 000002E0: 41 4D 20 46 49 4C 45 20 4C 41 41 54 53 54 45 20 |AM FILE LAATSTE | 000002F0: 20 20 20 20 20 20 20 52 45 47 45 4C 20 4F 50 20 | REGEL OP | 00000300: 53 43 48 45 52 4D 22 00 52 0B 40 00 99 22 11 12 |SCHERM".R.@.."..| 00000310: 20 46 37 20 92 20 3D 20 4F 50 20 12 20 53 43 48 | F7 . = OP . SCH| 00000320: 45 52 4D 92 20 44 49 53 4B 2D 4E 41 41 4D 20 46 |ERM. DISK-NAAM F| 00000330: 49 4C 45 20 4C 41 41 54 53 54 45 20 20 20 20 20 |ILE LAATSTE | 00000340: 20 20 52 45 47 45 4C 20 4F 50 20 53 43 48 45 52 | REGEL OP SCHER| 00000350: 4D 22 00 92 0B 46 00 99 22 11 12 20 47 45 45 46 |M"...F..".. GEEF| 00000360: 20 45 45 4E 20 54 4F 45 54 53 20 56 4F 4F 52 20 | EEN TOETS VOOR | 00000370: 53 54 41 52 54 20 56 45 52 47 45 4C 49 4A 4B 45 |START VERGELIJKE| 00000380: 4E 20 20 22 3A 97 31 39 38 2C 30 3A 92 31 39 38 |N ":.198,0:.198| 00000390: 2C 31 00 A7 0B 47 00 A1 47 24 3A 8B 47 24 B2 22 |,1...G..G$:.G$."| 000003A0: 5E 22 89 31 32 30 30 00 C5 0B 48 00 99 22 12 11 |^".1200...H.."..| 000003B0: 20 45 56 45 4E 20 47 45 44 55 4C 44 20 53 2E 56 | EVEN GEDULD S.V| 000003C0: 2E 50 2E 20 22 00 E3 0B 50 00 4B B2 30 3A 4B 24 |.P. "...P.K.0:K$| 000003D0: B2 22 30 22 3A 8D 32 30 37 30 3A 8B 54 53 B2 31 |."0":.2070:.TS.1| 000003E0: 89 32 30 00 01 0C 5A 00 4B B2 31 3A 4B 24 B2 22 |.20...Z.K.1:K$."| 000003F0: 31 22 3A 8D 32 30 37 30 3A 8B 54 53 B2 31 89 32 |1":.2070:.TS.1.2| 00000400: 30 00 3B 0C 64 00 4E 4D 24 B2 22 3A 46 49 4C 45 |0.;.d.NM$.":FILE| 00000410: 2D 4E 41 4D 45 4E 22 3A 4B B2 30 3A 4B 24 B2 22 |-NAMEN":K.0:K$."| 00000420: 30 22 3A 8D 37 33 30 3A 8D 38 30 30 3A 42 28 30 |0":.730:.800:B(0| 00000430: 2C 32 38 29 B2 C5 28 50 46 24 29 00 63 0C 6E 00 |,28)..(PF$).c.n.| 00000440: 4B B2 31 3A 4B 24 B2 22 31 22 3A 8D 37 33 30 3A |K.1:K$."1":.730:| 00000450: 8D 38 30 30 3A 42 28 31 2C 32 38 29 B2 C5 28 50 |.800:B(1,28)..(P| 00000460: 46 24 29 00 93 0C 6F 00 4E 4D 24 B2 22 3A 44 49 |F$)...o.NM$.":DI| 00000470: 53 4B 2D 4E 41 4D 45 4E 22 3A 4B B2 30 3A 4B 24 |SK-NAMEN":K.0:K$| 00000480: B2 22 30 22 3A 8D 38 30 30 3A 44 30 B2 C5 28 50 |."0":.800:D0..(P| 00000490: 46 24 29 00 B1 0C 70 00 4B B2 31 3A 4B 24 B2 22 |F$)...p.K.1:K$."| 000004A0: 31 22 3A 8D 38 30 30 3A 44 31 B2 C5 28 50 46 24 |1":.800:D1..(PF$| 000004B0: 29 00 D7 0C 78 00 99 22 93 12 20 42 45 49 44 45 |)...x..".. BEIDE| 000004C0: 20 44 49 53 4B 45 54 54 45 53 20 5A 49 4A 4E 20 | DISKETTES ZIJN | 000004D0: 4F 4B 45 20 21 20 22 00 1C 0D 82 00 99 22 11 20 |OKE ! "......". | 000004E0: 47 45 45 46 20 4E 55 20 45 45 4E 20 54 4F 45 54 |GEEF NU EEN TOET| 000004F0: 53 20 4D 45 54 20 57 45 4C 4B 45 20 41 53 43 49 |S MET WELKE ASCI| 00000500: 49 57 41 41 52 44 45 20 47 45 53 54 41 52 54 20 |IWAARDE GESTART | 00000510: 4D 4F 45 54 20 57 4F 52 44 45 4E 22 00 2E 0D 83 |MOET WORDEN"....| 00000520: 00 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 00 5E |..198,0:.198,1.^| 00000530: 0D 8C 00 A1 47 24 3A 99 22 11 20 22 3B 47 24 3A |....G$:.". ";G$:| 00000540: 99 22 11 12 20 45 56 45 4E 20 47 45 44 55 4C 44 |.".. EVEN GEDULD| 00000550: 20 53 2E 56 2E 50 2E 20 22 3A 42 47 B2 30 00 70 | S.V.P. ":BG.0.p| 00000560: 0D 91 00 8B 47 24 B2 C7 28 31 33 33 29 89 32 30 |....G$..(133).20| 00000570: 00 81 0D 96 00 8B 47 24 B2 22 5E 22 89 31 32 30 |......G$."^".120| 00000580: 30 00 99 0D A0 00 47 B2 C6 28 47 24 29 AB 36 34 |0.....G..(G$).64| 00000590: 3A 8B 47 B3 30 A7 47 B2 30 00 A8 0D AA 00 8B 47 |:.G.0.G.0......G| 000005A0: B1 32 37 A7 47 B2 32 37 00 C0 0D B4 00 54 30 B2 |.27.G.27.....T0.| 000005B0: 42 28 30 2C 47 29 3A 54 31 B2 42 28 31 2C 47 29 |B(0,G):T1.B(1,G)| 000005C0: 00 CE 0D B5 00 8B 42 47 B2 31 89 31 38 39 00 FA |......BG.1.189..| 000005D0: 0D B6 00 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A |....15,8,15,"I":| 000005E0: 9F 32 2C 38 2C 32 2C 22 30 3A 46 49 4C 45 2D 4E |.2,8,2,"0:FILE-N| 000005F0: 41 4D 45 4E 22 3A 42 47 B2 31 00 14 0E B7 00 9F |AMEN":BG.1......| 00000600: 33 2C 38 2C 33 2C 22 31 3A 46 49 4C 45 2D 4E 41 |3,8,3,"1:FILE-NA| 00000610: 4D 45 4E 22 00 22 0E BD 00 8D 35 30 30 3A 8D 36 |MEN"."....500:.6| 00000620: 30 30 00 55 0E C8 00 99 22 93 12 20 20 20 20 44 |00.U....".. D| 00000630: 52 49 56 45 20 31 20 20 20 20 20 20 20 20 92 20 |RIVE 1 . | 00000640: 12 20 20 20 20 44 52 49 56 45 20 30 20 20 20 20 |. DRIVE 0 | 00000650: 20 20 20 20 22 00 79 0E DC 00 43 31 24 B2 C8 28 | ".y...C1$..(| 00000660: 42 24 28 31 29 2C 31 38 29 3A 43 30 24 B2 C8 28 |B$(1),18):C0$..(| 00000670: 42 24 28 30 29 2C 31 38 29 00 9F 0E E6 00 99 22 |B$(0),18)......"| 00000680: 9E 22 3B 3A 8B 43 31 24 B3 43 30 24 A7 57 B2 31 |.";:.C1$.C0$.W.1| 00000690: 3A 99 43 31 24 3A 8D 36 30 30 3A 89 32 37 30 00 |:.C1$:.600:.270.| 000006A0: B5 0E F0 00 8B 43 31 24 B1 43 30 24 A7 57 B2 30 |.....C1$.C0$.W.0| 000006B0: 3A 89 32 36 30 00 E4 0E FA 00 99 C8 28 43 31 24 |:.260.......(C1$| 000006C0: AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 000006D0: 20 20 20 20 20 20 20 22 2C 32 30 29 3B 43 30 24 | ",20);C0$| 000006E0: 3A 57 B2 32 00 F7 0E FF 00 8D 35 30 30 3A 8D 36 |:W.2......500:.6| 000006F0: 30 30 3A 89 32 37 30 00 08 0F 04 01 99 4C 24 3B |00:.270......L$;| 00000700: 43 30 24 3A 8D 35 30 30 00 2C 0F 0E 01 97 31 39 |C0$:.500.,....19| 00000710: 38 2C 30 3A 92 31 39 38 2C 31 3A A1 47 24 3A 8B |8,0:.198,1:.G$:.| 00000720: 47 24 B2 C7 28 33 32 29 89 32 32 30 00 43 0F 2C |G$..(32).220.C.,| 00000730: 01 8B 47 24 B2 22 5E 22 A7 8D 34 30 30 3A 89 31 |..G$."^"..400:.1| 00000740: 32 30 30 00 6C 0F 36 01 8B 47 24 B2 C7 28 31 33 |200.l.6..G$..(13| 00000750: 36 29 B0 47 24 B2 C7 28 31 33 35 29 A7 8D 34 30 |6).G$..(135)..40| 00000760: 30 3A 8D 38 30 30 30 3A 89 32 37 30 00 84 0F 40 |0:.8000:.270...@| 00000770: 01 8B 47 24 B2 C7 28 31 33 33 29 A7 8D 34 30 30 |..G$..(133)..400| 00000780: 3A 89 32 30 00 8D 0F 86 01 89 31 36 30 00 9D 0F |:.20......160...| 00000790: 90 01 98 31 35 2C 22 49 30 22 3A A0 32 00 B1 0F |...15,"I0":.2...| 000007A0: 9A 01 98 31 35 2C 22 49 31 22 3A A0 33 3A A0 31 |...15,"I1":.3:.1| 000007B0: 35 00 B7 0F A4 01 8E 00 EC 0F F4 01 8B 54 30 B1 |5............T0.| 000007C0: 37 31 39 32 B0 54 30 B1 42 28 30 2C 32 38 29 A7 |7192.T0.B(0,28).| 000007D0: 42 24 28 30 29 B2 22 12 45 49 4E 44 45 20 46 49 |B$(0).".EINDE FI| 000007E0: 4C 45 42 45 53 54 41 4E 44 22 3A 8E 00 0A 10 26 |LEBESTAND":....&| 000007F0: 02 48 42 B2 B5 28 54 30 AD 32 35 36 29 3A 4C 42 |.HB..(T0.256):LB| 00000800: B2 54 30 AB 32 35 36 AC 48 42 00 40 10 30 02 98 |.T0.256.HB.@.0..| 00000810: 31 35 2C 22 50 22 AA C7 28 39 38 29 AA C7 28 4C |15,"P"..(98)..(L| 00000820: 42 29 AA C7 28 48 42 29 AA C7 28 30 29 3A 84 32 |B)..(HB)..(0):.2| 00000830: 2C 42 24 28 30 29 3A 54 30 B2 54 30 AA 31 3A 8E |,B$(0):T0.T0.1:.| 00000840: 00 75 10 58 02 8B 54 31 B1 37 31 39 32 B0 54 31 |.u.X..T1.7192.T1| 00000850: B1 42 28 31 2C 32 38 29 A7 42 24 28 31 29 B2 22 |.B(1,28).B$(1)."| 00000860: 12 45 49 4E 44 45 20 46 49 4C 45 42 45 53 54 41 |.EINDE FILEBESTA| 00000870: 4E 44 22 3A 8E 00 93 10 8A 02 48 42 B2 B5 28 54 |ND":......HB..(T| 00000880: 31 AD 32 35 36 29 3A 4C 42 B2 54 31 AB 32 35 36 |1.256):LB.T1.256| 00000890: AC 48 42 00 C9 10 94 02 98 31 35 2C 22 50 22 AA |.HB......15,"P".| 000008A0: C7 28 39 39 29 AA C7 28 4C 42 29 AA C7 28 48 42 |.(99)..(LB)..(HB| 000008B0: 29 AA C7 28 30 29 3A 84 33 2C 42 24 28 31 29 3A |)..(0):.3,B$(1):| 000008C0: 54 31 B2 54 31 AA 31 3A 8E 00 FA 10 DA 02 9F 31 |T1.T1.1:.......1| 000008D0: 35 2C 38 2C 31 35 2C 22 49 22 AA 4B 24 3A 9F 32 |5,8,15,"I".K$:.2| 000008E0: 2C 38 2C 32 2C 22 23 22 3A 98 31 35 2C 22 55 31 |,8,2,"#":.15,"U1| 000008F0: 22 3B 32 3B 4B 3B 31 38 3B 32 00 2C 11 E4 02 81 |";2;K;18;2.,....| 00000900: 49 B2 30 A4 32 37 3A 98 31 35 2C 22 42 2D 50 22 |I.0.27:.15,"B-P"| 00000910: 3B 32 3B 49 AC 38 3A 84 32 2C 42 24 3A 42 28 4B |;2;I.8:.2,B$:B(K| 00000920: 2C 49 29 B2 C5 28 42 24 29 3A 82 49 00 44 11 F8 |,I)..(B$):.I.D..| 00000930: 02 98 31 35 2C 22 49 22 AA 4B 24 3A A0 32 3A A0 |..15,"I".K$:.2:.| 00000940: 31 35 3A 8E 00 66 11 20 03 9F 31 35 2C 38 2C 31 |15:..f. ..15,8,1| 00000950: 35 2C 22 49 22 AA 4B 24 3A 9F 32 2C 38 2C 32 2C |5,"I".K$:.2,8,2,| 00000960: 4B 24 AA 4E 4D 24 00 99 11 2A 03 98 31 35 2C 22 |K$.NM$...*..15,"| 00000970: 50 22 AA C7 28 39 38 29 AA C7 28 30 29 AA C7 28 |P"..(98)..(0)..(| 00000980: 30 29 AA C7 28 30 29 3A 84 32 2C 50 46 24 3A 98 |0)..(0):.2,PF$:.| 00000990: 31 35 2C 22 49 22 AA 4B 24 00 A6 11 34 03 A0 32 |15,"I".K$...4..2| 000009A0: 3A A0 31 35 3A 8E 00 B0 11 B0 04 99 22 93 22 3B |:.15:.......".";| 000009B0: 00 E0 11 BA 04 99 22 11 50 4C 41 41 54 53 20 44 |......".PLAATS D| 000009C0: 49 53 4B 45 54 54 45 20 4D 45 54 20 12 20 54 48 |ISKETTE MET . TH| 000009D0: 45 52 4D 4F 2D 42 49 42 4C 2D 34 30 34 30 20 22 |ERMO-BIBL-4040 "| 000009E0: 00 0C 12 C4 04 99 22 49 4E 20 12 20 44 52 49 56 |......"IN . DRIV| 000009F0: 45 20 30 20 92 20 45 4E 20 47 45 45 46 20 44 41 |E 0 . EN GEEF DA| 00000A00: 4E 20 45 45 4E 20 54 4F 45 54 53 22 00 4D 12 C5 |N EEN TOETS".M..| 00000A10: 04 4D 24 B2 22 30 3A 54 48 45 52 4D 4F 2D 53 54 |.M$."0:THERMO-ST| 00000A20: 41 52 54 34 30 34 30 22 3A 99 22 11 5E 20 3D 20 |ART4040":.".^ = | 00000A30: 54 45 52 55 47 20 4E 41 41 52 20 53 54 41 52 54 |TERUG NAAR START| 00000A40: 20 56 45 52 47 45 4C 49 4A 4B 45 4E 22 00 61 12 | VERGELIJKEN".a.| 00000A50: CE 04 A1 48 24 3A 8B 48 24 B2 22 22 89 31 32 33 |...H$:.H$."".123| 00000A60: 30 00 70 12 D8 04 8B 48 24 B2 22 5E 22 89 32 30 |0.p....H$."^".20| 00000A70: 00 8E 12 14 05 99 22 12 11 20 45 56 45 4E 20 47 |......".. EVEN G| 00000A80: 45 44 55 4C 44 20 53 2E 56 2E 50 2E 20 22 00 AA |EDULD S.V.P. "..| 00000A90: 12 15 05 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |....15,8,15,"I0"| 00000AA0: 3A 9F 32 2C 38 2C 32 2C 4D 24 00 C7 12 16 05 84 |:.2,8,2,M$......| 00000AB0: 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 3A 8B 45 |15,E,E$,E1,E2:.E| 00000AC0: B2 30 89 31 33 31 30 00 E0 12 17 05 A0 32 3A A0 |.0.1310......2:.| 00000AD0: 31 35 3A 99 22 11 22 3B 45 24 3A 89 31 32 31 30 |15:.".";E$:.1210| 00000AE0: 00 F1 12 1E 05 A0 31 35 3A A0 32 3A 99 22 93 22 |......15:.2:."."| 00000AF0: 3B 00 0D 13 28 05 93 22 54 48 45 52 4D 4F 2D 42 |;...(.."THERMO-B| 00000B00: 49 42 4C 2D 34 30 34 30 22 2C 38 2C 31 00 15 13 |IBL-4040",8,1...| 00000B10: 3C 05 89 32 30 00 2E 13 16 08 9F 31 35 2C 38 2C |<..20......15,8,| 00000B20: 31 35 2C 22 49 22 AA 4B 24 3A 54 53 B2 30 00 43 |15,"I".K$:TS.0.C| 00000B30: 13 20 08 84 31 35 2C 44 53 2C 43 32 24 2C 43 33 |. ..15,DS,C2$,C3| 00000B40: 2C 43 34 00 6A 13 2A 08 8B 44 53 B3 B1 30 AF 44 |,C4.j.*..DS..0.D| 00000B50: 53 B3 B1 35 30 A7 98 31 35 2C 22 49 22 AA 4B 24 |S..50..15,"I".K$| 00000B60: 3A A0 31 35 3A 89 33 30 30 30 00 A2 13 34 08 9F |:.15:.3000...4..| 00000B70: 32 2C 38 2C 32 2C 22 23 22 3A 98 31 35 2C 22 55 |2,8,2,"#":.15,"U| 00000B80: 31 22 3B 32 3B 4B 3B 31 38 3B 32 3A 98 31 35 2C |1";2;K;18;2:.15,| 00000B90: 22 42 2D 50 22 3B 32 3B 32 33 39 3A A1 23 32 2C |"B-P";2;239:.#2,| 00000BA0: 50 24 00 DB 13 3E 08 53 44 24 B2 22 22 3A 81 58 |P$...>.SD$."":.X| 00000BB0: B2 30 A4 39 3A A1 23 32 2C 50 24 3A 53 44 24 B2 |.0.9:.#2,P$:SD$.| 00000BC0: 53 44 24 AA 50 24 3A 82 58 3A 98 31 35 2C 22 49 |SD$.P$:.X:.15,"I| 00000BD0: 22 AA 4B 24 3A A0 32 3A A0 31 35 00 F7 13 52 08 |".K$:.2:.15...R.| 00000BE0: 8B 53 44 24 B3 B1 22 53 20 50 2E 56 2E 48 4F 55 |.SD$.."S P.V.HOU| 00000BF0: 54 22 89 32 31 35 30 00 02 14 5C 08 54 53 B2 30 |T".2150...\.TS.0| 00000C00: 3A 8E 00 2E 14 66 08 99 22 93 12 20 44 49 53 4B |:....f..".. DISK| 00000C10: 45 54 54 45 20 49 4E 20 44 52 49 56 45 20 22 3B |ETTE IN DRIVE ";| 00000C20: 4B 24 3B 22 20 49 53 20 47 45 45 4E 20 22 00 54 |K$;" IS GEEN ".T| 00000C30: 14 6B 08 99 22 12 20 53 4F 52 54 45 45 52 2D 42 |.k..". SORTEER-B| 00000C40: 45 53 54 41 4E 44 2D 44 49 53 4B 45 54 54 45 20 |ESTAND-DISKETTE | 00000C50: 21 20 20 22 00 63 14 70 08 54 53 B2 31 3A 89 33 |! ".c.p.TS.1:.3| 00000C60: 30 30 35 00 81 14 B8 0B 99 22 93 12 20 46 4F 55 |005......".. FOU| 00000C70: 54 20 49 4E 20 44 52 49 56 45 20 92 20 22 3B 4B |T IN DRIVE . ";K| 00000C80: 24 00 A4 14 BC 0B 99 22 11 20 22 3B 44 53 3B 22 |$......". ";DS;"| 00000C90: 20 22 3B 43 32 24 3B 22 20 22 3B 43 33 3B 22 20 | ";C2$;" ";C3;" | 00000CA0: 22 3B 43 34 00 BE 14 BD 0B 99 22 11 12 20 47 45 |";C4......".. GE| 00000CB0: 45 46 20 45 45 4E 20 54 4F 45 54 53 20 22 00 D7 |EF EEN TOETS "..| 00000CC0: 14 C2 0B 54 53 B2 31 3A 97 31 39 38 2C 30 3A 92 |...TS.1:.198,0:.| 00000CD0: 31 39 38 2C 31 3A 8E 00 EB 14 A0 0F 9F 31 35 2C |198,1:.......15,| 00000CE0: 38 2C 31 35 2C 22 49 22 AA 4B 24 00 07 15 A2 0F |8,15,"I".K$.....| 00000CF0: 9F 32 2C 38 2C 32 2C 4B 24 AA 22 3A 44 49 53 4B |.2,8,2,K$.":DISK| 00000D00: 2D 4E 41 4D 45 4E 22 00 32 15 AA 0F 98 31 35 2C |-NAMEN".2....15,| 00000D10: 22 50 22 AA C7 28 39 38 29 AA C7 28 30 29 AA C7 |"P"..(98)..(0)..| 00000D20: 28 30 29 AA C7 28 30 29 3A 84 32 2C 50 44 24 3A |(0)..(0):.2,PD$:| 00000D30: A0 32 00 4E 15 AC 0F 9F 32 2C 38 2C 32 2C 4B 24 |.2.N....2,8,2,K$| 00000D40: AA 22 3A 46 49 4C 45 2D 4E 41 4D 45 4E 22 00 81 |.":FILE-NAMEN"..| 00000D50: 15 B4 0F 98 31 35 2C 22 50 22 AA C7 28 39 38 29 |....15,"P"..(98)| 00000D60: AA C7 28 30 29 AA C7 28 30 29 AA C7 28 30 29 3A |..(0)..(0)..(0):| 00000D70: 84 32 2C 50 46 24 3A 98 31 35 2C 22 49 22 AA 4B |.2,PF$:.15,"I".K| 00000D80: 24 00 8E 15 BE 0F A0 32 3A A0 31 35 3A 8E 00 AC |$......2:.15:...| 00000D90: 15 88 13 8B 20 46 30 B3 31 31 35 30 A7 4B 24 B2 |.... F0.1150.K$.| 00000DA0: 22 30 22 3A 49 B2 31 3A 89 31 30 30 00 C0 15 9C |"0":I.1:.100....| 00000DB0: 13 4B 24 B2 22 31 22 3A 49 B2 31 3A 89 31 30 30 |.K$."1":I.1:.100| 00000DC0: 00 DE 15 40 1F 8B 57 B2 31 B0 57 B2 32 A7 4B 24 |...@..W.1.W.2.K$| 00000DD0: B2 22 31 22 3A 4B B2 31 3A 8D 38 34 30 30 00 FC |."1":K.1:.8400..| 00000DE0: 15 4A 1F 8B 57 B2 30 B0 57 B2 32 A7 4B 24 B2 22 |.J..W.0.W.2.K$."| 00000DF0: 30 22 3A 4B B2 30 3A 8D 38 34 30 30 00 2E 16 54 |0":K.0:.8400...T| 00000E00: 1F 8B 57 B2 32 A7 99 22 12 22 3B C8 28 4D 24 28 |..W.2..".";.(M$(| 00000E10: 31 29 AA 4C 24 2C 31 39 29 3B 22 92 20 12 22 3B |1).L$,19);". .";| 00000E20: C8 28 4D 24 28 30 29 AA 4C 24 2C 31 39 29 00 4E |.(M$(0).L$,19).N| 00000E30: 16 5E 1F 8B 57 B2 30 A7 99 4C 24 3B 22 12 22 3B |.^..W.0..L$;".";| 00000E40: C8 28 4D 24 28 30 29 AA 4C 24 2C 31 39 29 00 6B |.(M$(0).L$,19).k| 00000E50: 16 68 1F 8B 57 B2 31 A7 99 22 12 22 3B C8 28 4D |.h..W.1..".";.(M| 00000E60: 24 28 31 29 AA 4C 24 2C 31 39 29 00 7F 16 72 1F |$(1).L$,19)...r.| 00000E70: 8B 47 24 B2 C7 28 31 33 36 29 89 38 31 31 30 00 |.G$..(136).8110.| 00000E80: 95 16 77 1F 8D 32 34 30 31 30 3A 8B 50 52 B2 30 |..w..24010:.PR.0| 00000E90: 89 38 31 31 30 00 C5 16 7C 1F 9F 31 2C 34 3A 9D |.8110...|..1,4:.| 00000EA0: 31 3A 41 30 B2 C6 28 CA 28 42 24 28 30 29 2C 31 |1:A0..(.(B$(0),1| 00000EB0: 39 29 29 3A 41 31 B2 C6 28 CA 28 42 24 28 31 29 |9)):A1..(.(B$(1)| 00000EC0: 2C 31 39 29 29 00 F7 16 81 1F 41 30 24 B2 C8 28 |,19)).....A0$..(| 00000ED0: C4 28 41 30 29 AA 22 20 20 20 20 20 22 2C 35 29 |.(A0)." ",5)| 00000EE0: 3A 41 31 24 B2 C8 28 C4 28 41 31 29 AA 22 20 20 |:A1$..(.(A1)." | 00000EF0: 20 20 20 22 2C 35 29 00 06 17 86 1F 8B 57 B3 B1 | ",5)......W..| 00000F00: 32 89 38 30 38 30 00 33 17 87 1F 98 31 2C 43 31 |2.8080.3....1,C1| 00000F10: 24 3B 41 31 24 3B 4D 24 28 31 29 3B 22 20 22 3B |$;A1$;M$(1);" ";| 00000F20: 43 30 24 3B 41 30 24 3B 4D 24 28 30 29 3A 89 38 |C0$;A0$;M$(0):.8| 00000F30: 31 30 30 00 42 17 90 1F 8B 57 B3 B1 30 89 38 30 |100.B....W..0.80| 00000F40: 39 30 00 69 17 91 1F 98 31 2C C8 28 4C 24 AA 4C |90.i....1,.(L$.L| 00000F50: 24 AA 4C 24 AA 4C 24 2C 34 30 29 3B 43 30 24 3B |$.L$.L$,40);C0$;| 00000F60: 41 30 24 3B 4D 24 28 30 29 00 78 17 9A 1F 8B 57 |A0$;M$(0).x....W| 00000F70: B3 B1 31 89 38 31 30 30 00 8D 17 9B 1F 98 31 2C |..1.8100......1,| 00000F80: 43 31 24 3B 41 31 24 3B 4D 24 28 31 29 00 9A 17 |C1$;A1$;M$(1)...| 00000F90: A4 1F 98 31 2C 22 22 3A A0 31 00 C6 17 AE 1F 9F |...1,"":.1......| 00000FA0: 31 35 2C 38 2C 31 35 2C 22 49 22 3A 9F 32 2C 38 |15,8,15,"I":.2,8| 00000FB0: 2C 32 2C 22 30 3A 46 49 4C 45 2D 4E 41 4D 45 4E |,2,"0:FILE-NAMEN| 00000FC0: 22 3A 42 47 B2 31 00 E2 17 B8 1F 9F 33 2C 38 2C |":BG.1......3,8,| 00000FD0: 33 2C 22 31 3A 46 49 4C 45 2D 4E 41 4D 45 4E 22 |3,"1:FILE-NAMEN"| 00000FE0: 3A 8E 00 0E 18 D0 20 8B C3 28 42 24 28 4B 29 29 |:..... ..(B$(K))| 00000FF0: B3 32 31 A7 4D 24 28 4B 29 B2 22 4E 49 45 54 20 |.21.M$(K)."NIET | 00001000: 47 45 56 4F 4E 44 45 4E A0 A0 A0 22 3A 8E 00 3A |GEVONDEN...":..:| 00001010: 18 D5 20 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA |.. .15,8,15,"I".| 00001020: 4B 24 3A 9F 32 2C 38 2C 32 2C 4B 24 AA 22 3A 44 |K$:.2,8,2,K$.":D| 00001030: 49 53 4B 2D 4E 41 4D 45 4E 22 00 6C 18 DA 20 4C |ISK-NAMEN".l.. L| 00001040: 42 B2 C6 28 CA 28 42 24 28 4B 29 2C 32 30 2C 31 |B..(.(B$(K),20,1| 00001050: 29 29 3A 48 42 B2 C6 28 CA 28 42 24 28 4B 29 2C |)):HB..(.(B$(K),| 00001060: 32 31 2C 31 29 29 3A 8D 39 30 30 30 00 98 18 E4 |21,1)):.9000....| 00001070: 20 98 31 35 2C 22 50 22 AA C7 28 39 38 29 AA C7 | .15,"P"..(98)..| 00001080: 28 4C 42 29 AA C7 28 48 42 29 AA C7 28 30 29 3A |(LB)..(HB)..(0):| 00001090: 84 32 2C 4D 24 28 4B 29 00 B0 18 EE 20 98 31 35 |.2,M$(K).... .15| 000010A0: 2C 22 49 22 AA 4B 24 3A A0 32 3A A0 31 35 3A 8E |,"I".K$:.2:.15:.| 000010B0: 00 BF 18 28 23 8B 48 42 B3 B2 32 30 30 A7 8E 00 |...(#.HB..200...| 000010C0: D0 18 32 23 8B 48 42 B1 32 30 34 89 39 30 34 30 |..2#.HB.204.9040| 000010D0: 00 F0 18 3C 23 81 43 B2 31 A4 34 3A 8B 48 42 B2 |...<#.C.1.4:.HB.| 000010E0: 32 30 30 AA 43 A7 48 42 B2 49 54 28 43 29 3A 8E |200.C.HB.IT(C):.| 000010F0: 00 F9 18 46 23 82 43 3A 8E 00 0A 19 50 23 8B 48 |...F#.C:....P#.H| 00001100: 42 B1 32 30 38 89 39 30 37 30 00 30 19 5A 23 81 |B.208.9070.0.Z#.| 00001110: 43 B2 31 A4 34 3A 8B 48 42 B2 32 30 34 AA 43 A7 |C.1.4:.HB.204.C.| 00001120: 48 42 B2 4C 42 3A 4C 42 B2 49 54 28 43 29 3A 8E |HB.LB:LB.IT(C):.| 00001130: 00 39 19 64 23 82 43 3A 8E 00 71 19 6E 23 81 43 |.9.d#.C:..q.n#.C| 00001140: B2 31 A4 34 3A 81 44 B2 31 A4 34 3A 8B 48 42 B2 |.1.4:.D.1.4:.HB.| 00001150: 32 30 38 AA 43 AA 34 AC 28 44 AB 31 29 A7 48 42 |208.C.4.(D.1).HB| 00001160: B2 49 54 28 43 29 3A 4C 42 B2 49 54 28 44 29 3A |.IT(C):LB.IT(D):| 00001170: 8E 00 7D 19 78 23 82 44 3A 82 43 3A 8E 00 A7 19 |..}.x#.D:.C:....| 00001180: D8 59 59 B2 4F 3A 81 58 B2 32 30 35 36 A4 32 30 |.YY.O:.X.2056.20| 00001190: 37 32 3A 59 B2 59 AA C2 28 58 29 3A 82 58 3A 8B |72:Y.Y..(X):.X:.| 000011A0: 59 B2 39 39 33 A7 8E 00 D1 19 E2 59 81 58 B2 32 |Y.993......Y.X.2| 000011B0: 30 34 38 A4 31 30 30 30 30 A9 33 30 3A 97 58 2C |048.10000.30:.X,| 000011C0: 31 33 3A 82 58 3A 99 22 93 22 3A 9E 36 34 37 33 |13:.X:.".":.6473| 000011D0: 38 00 F1 19 CA 5D 9F 31 2C 34 3A 97 37 36 38 2C |8....].1,4:.768,| 000011E0: 36 31 3A 98 31 3A A0 31 3A 97 37 36 38 2C 31 33 |61:.1:.1:.768,13| 000011F0: 39 00 06 1A CF 5D 8B 53 54 B3 B1 AB 31 32 38 A7 |9....].ST...128.| 00001200: 50 52 B2 31 3A 8E 00 33 1A D4 5D 50 52 B2 30 3A |PR.1:..3..]PR.0:| 00001210: 99 22 12 20 50 52 49 4E 54 45 52 20 49 53 20 4E |.". PRINTER IS N| 00001220: 49 45 54 20 41 41 4E 47 45 53 4C 4F 54 45 4E 20 |IET AANGESLOTEN | 00001230: 22 3A 8E 00 00 00 98 |":..... |
.......52263.3...IT(1).0:IT(2).13:IT(3).
44:IT(4).58.L....B(1,28):L$."
":.53280,0:.53281,0. ...."... P
ROGRAMMA OM TWEE GESORTEERDE FILE- ";
.P...." NAMEN-BESTANDEN TE VERGELIJKEN
"......".PLAATS IN BEIDE DRIVES E
EN .SORTEER-DISK.".N.(..".GEEF EEN TOETS
. A - Z . DAN START VERGELIJKEN
BIJ DAT TEKEN".X.2..".MET . SPATIE . EEN
VOORUIT LISTEN".D.7..".MET TOETS . F1 .
STOPPEN VERGELIJKEN EN TERUG NAAR DE
START VAN ";...8.."DIT PROGRAMMA OMNIEUW
E SORTEER-DISKETTES IN DRIVES TE PLAAT
SEN".K.<..".MET TOETS . ^ . STOPPEN EN T
ERUG NAAR THERMO-BIBL."...=..".. GEE
F EEN TOETS VOOR VERVOLG HANDLEIDING":.1
98,0:.198,1...>..".. VOOR PRINTEN VAN DE
VERGELIJKING : "...?..". F5 . = OP
.PRINTER. DISKNAAM FILE LAATSTE R
EGEL OP SCHERM".R.@..".. F7 . = OP . SCH
ERM. DISK-NAAM FILE LAATSTE REGEL
OP SCHERM"...F..".. GEEF EEN TOETS VOOR
START VERGELIJKEN ":.198,0:.198,1...G..
G$:.G$."^".1200.E.H..".. EVEN GEDULD S.V
.P. "...P.K.0:K$."0":.2070:.TS.1.20...Z.
K.1:K$."1":.2070:.TS.1.20.;.D.NM$.":FILE
-NAMEN":K.0:K$."0":.730:.800:B(0,28).E(P
F$).C.N.K.1:K$."1":.730:.800:B(1,28).E(P
F$)...O.NM$.":DISK-NAMEN":K.0:K$."0":.80
0:D0.E(PF$)...P.K.1:K$."1":.800:D1.E(PF$
).W.X..".. BEIDE DISKETTES ZIJN OKE ! ".
.....". GEEF NU EEN TOETS MET WELKE ASCI
IWAARDE GESTART MOET WORDEN"......198,0:
.198,1.^....G$:.". ";G$:.".. EVEN GEDULD
S.V.P. ":BG.0.P....G$.G(133).20......G$
."^".1200... .G.F(G$).64:.G.0.G.0......G
.27.G.27.....T0.B(0,G):T1.B(1,G).N....BG
.1.189......15,8,15,"I":.2,8,2,"0:FILE-N
AMEN":BG.1......3,8,3,"1:FILE-NAMEN"."..
..500:.600.U.H..".. DRIVE 1 .
. DRIVE 0 ".Y...C1$.H(B$(1),18
):C0$.H(B$(0),18)......".";:.C1$.C0$.W.1
:.C1$:.600:.270......C1$.C0$.W.0:.260...
...H(C1$." ",20);C0$
:W.2......500:.600:.270......L$;C0$:.500
.,....198,0:.198,1:.G$:.G$.G(32).220.C.,
..G$."^"..400:.1200.L.6..G$.G(136).G$.G(
135)..400:.8000:.270...@..G$.G(133)..400
:.20......160......15,"I0": 2......15,"I
1": 3: 15............T0.7192.T0.B(0,28).
B$(0).".EINDE FILEBESTAND":....&.HB..(T0
.256):LB.T0.256.HB.@.0..15,"P".G(98).G(L
B).G(HB).G(0):.2,B$(0):T0.T0.1:..U.X..T1
.7192.T1.B(1,28).B$(1).".EINDE FILEBESTA
ND":......HB..(T1.256):LB.T1.256.HB.I...
.15,"P".G(99).G(LB).G(HB).G(0):.3,B$(1):
T1.T1.1:....Z..15,8,15,"I".K$:.2,8,2,"#"
:.15,"U1";2;K;18;2.,....I.0.27:.15,"B-P"
;2;I.8:.2,B$:B(K,I).E(B$):.I.D....15,"I"
.K$: 2: 15:..F. ..15,8,15,"I".K$:.2,8,2,
K$.NM$...*..15,"P".G(98).G(0).G(0).G(0):
.2,PF$:.15,"I".K$...4. 2: 15:.......".";
......".PLAATS DISKETTE MET . THERMO-BIB
L-4040 "...D.."IN . DRIVE 0 . EN GEEF DA
N EEN TOETS".M.E.M$."0:THERMO-START4040"
:.".^ = TERUG NAAR START VERGELIJKEN".A.
N..H$:.H$."".1230.P.X..H$."^".20......".
. EVEN GEDULD S.V.P. "......15,8,15,"I0"
:.2,8,2,M$.G....15,E,E$,E1,E2:.E.0.1310.
.... 2: 15:.".";E$:.1210..... 15: 2:."."
;...(.."THERMO-BIBL-4040",8,1...<..20...
...15,8,15,"I".K$:TS.0.C. ..15,DS,C2$,C3
,C4.J.*..DS..0.DS..50..15,"I".K$: 15:.30
00...4..2,8,2,"#":.15,"U1";2;K;18;2:.15,
"B-P";2;239:.#2,P$...>.SD$."":.X.0.9:.#2
,P$:SD$.SD$.P$:.X:.15,"I".K$: 2: 15...R.
.SD$.."S P.V.HOUT".2150...\.TS.0:....F..
".. DISKETTE IN DRIVE ";K$;" IS GEEN ".T
.K..". SORTEER-BESTAND-DISKETTE ! ".C.P
.TS.1:.3005......".. FOUT IN DRIVE . ";K
$......". ";DS;" ";C2$;" ";C3;" ";C4....
..".. GEEF EEN TOETS ".W.B.TS.1:.198,0:.
198,1:.... ..15,8,15,"I".K$......2,8,2,K
$.":DISK-NAMEN".2....15,"P".G(98).G(0).G
(0).G(0):.2,PD$: 2.N....2,8,2,K$.":FILE-
NAMEN"......15,"P".G(98).G(0).G(0).G(0):
.2,PF$:.15,"I".K$..... 2: 15:....... F0.
1150.K$."0":I.1:.100.....K$."1":I.1:.100
...@..W.1.W.2.K$."1":K.1:.8400...J..W.0.
W.2.K$."0":K.0:.8400...T..W.2..".";H(M$(
1).L$,19);". .";H(M$(0).L$,19).N.^..W.0.
.L$;".";H(M$(0).L$,19).K.H..W.1..".";H(M
$(1).L$,19)..R..G$.G(136).8110...W..240
10:.PR.0.8110.E.|..1,4:.1:A0.F(J(B$(0),1
9)):A1.F(J(B$(1),19)).....A0$.H(D(A0)."
",5):A1$.H(D(A1)." ",5)......W..
2.8080.3....1,C1$;A1$;M$(1);" ";C0$;A0$;
M$(0):.8100.B....W..0.8090.I....1,H(L$.L
$.L$.L$,40);C0$;A0$;M$(0).X....W..1.8100
......1,C1$;A1$;M$(1)......1,"": 1.F....
15,8,15,"I":.2,8,2,"0:FILE-NAMEN":BG.1..
....3,8,3,"1:FILE-NAMEN":....P .C(B$(K))
.21.M$(K)."NIET GEVONDEN ":..:.U .15,8
,15,"I".K$:.2,8,2,K$.":DISK-NAMEN".L.Z L
B.F(J(B$(K),20,1)):HB.F(J(B$(K),21,1)):.
9000.... .15,"P".G(98).G(LB).G(HB).G(0):
.2,M$(K).... .15,"I".K$: 2: 15:....(#.HB
..200...P.2#.HB.204.9040...<#.C.1.4:.HB.
200.C.HB.IT(C):....F#.C:....P#.HB.208.90
70.0.Z#.C.1.4:.HB.204.C.HB.LB:LB.IT(C):.
.9.D#.C:..Q.N#.C.1.4:.D.1.4:.HB.208.C.4.
(D.1).HB.IT(C):LB.IT(D):..}.X#.D:.C:....
XYY.O:.X.2056.2072:Y.Y.B(X):.X:.Y.993...
Q..Y.X.2048.10000.30:.X,13:.X:.".":.6473
8...J].1,4:.768,61:.1: 1:.768,139...O].S
T...128.PR.1:..3.T]PR.0:.". PRINTER IS N
IET AANGESLOTEN ":.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL