DISK HELP
FILE INFORMATION
FILENAME(S): DISK HELP
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-02 00:01:54
APPEARS ON: 1 disk(s)
FILE HASH
cd28e869dd69948ee295c5a10795dce5708d42152af1a9474e9b67dfe80aff4a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | DISK HELP | PRG | earthshaker | 4 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 0A 00 99 22 93 1F 22 3A 97 35 33 32 |......."..":.532| 00000010: 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 00 26 08 |80,1:.53281,1.&.| 00000020: 14 00 89 31 37 30 00 4B 08 1E 00 99 22 93 2A 2A |...170.K....".**| 00000030: 2A 2A 2A 2A 2A 2A 12 52 45 4E 41 4D 45 92 2A 2A |******.RENAME.**| 00000040: 2A 2A 2A 2A 2A 2A 22 3A 44 B2 30 00 63 08 28 00 |******":D.0.c.(.| 00000050: 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C |.15,8,15:.2,8,2,| 00000060: 22 23 22 00 7A 08 32 00 98 31 35 2C 22 55 31 3A |"#".z.2..15,"U1:| 00000070: 22 3B 32 3B 44 3B 31 38 3B 30 00 8E 08 3C 00 98 |";2;D;18;0...<..| 00000080: 31 35 2C 22 42 2D 50 3A 22 32 3B 31 34 34 00 B1 |15,"B-P:"2;144..| 00000090: 08 46 00 53 24 B2 22 20 20 20 20 20 20 20 20 20 |.F.S$." | 000000A0: 20 20 20 20 20 20 20 22 3A 41 24 B2 C7 28 33 34 | ":A$..(34| 000000B0: 29 00 CE 08 50 00 99 22 11 4E 49 45 55 57 45 20 |)...P..".NIEUWE | 000000C0: 44 49 53 4B 20 4E 41 41 4D 2C 20 49 44 22 00 D9 |DISK NAAM, ID"..| 000000D0: 08 5A 00 85 44 24 2C 49 24 00 F7 08 64 00 44 24 |.Z..D$,I$...d.D$| 000000E0: B2 C8 28 44 24 AA 53 24 2C 31 36 29 3A 49 24 B2 |..(D$.S$,16):I$.| 000000F0: C8 28 49 24 2C 32 29 00 03 09 6E 00 81 54 B2 31 |.(I$,2)...n..T.1| 00000100: A4 31 36 00 17 09 78 00 98 32 2C CA 28 44 24 2C |.16...x..2,.(D$,| 00000110: 54 2C 31 29 3B 3A 82 00 2B 09 82 00 98 31 35 2C |T,1);:..+....15,| 00000120: 22 42 2D 50 3A 22 32 3B 31 36 32 00 43 09 8C 00 |"B-P:"2;162.C...| 00000130: 98 32 2C C8 28 49 24 2C 31 29 3B C9 28 49 24 2C |.2,.(I$,1);.(I$,| 00000140: 31 29 3B 00 5A 09 96 00 98 31 35 2C 22 55 32 3A |1);.Z....15,"U2:| 00000150: 22 3B 32 3B 44 3B 31 38 3B 30 00 76 09 A0 00 A0 |";2;D;18;0.v....| 00000160: 32 3A 81 58 B2 31 A4 32 30 30 30 3A 82 3A 98 31 |2:.X.1.2000:.:.1| 00000170: 35 2C 22 49 30 22 00 83 09 A5 00 A0 31 35 3A 8D |5,"I0"......15:.| 00000180: 36 31 30 00 B4 09 AA 00 99 22 93 D3 D3 D3 D3 D3 |610......"......| 00000190: D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 |................| 000001A0: D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 |................| 000001B0: D3 D3 D3 22 00 E1 09 B4 00 99 22 46 31 3D 56 41 |..."......"F1=VA| 000001C0: 4C 49 44 41 54 45 20 20 3D 4F 52 44 45 4E 44 20 |LIDATE =ORDEND | 000001D0: 50 52 4F 47 52 20 4F 50 20 44 49 53 4B 45 54 45 |PROGR OP DISKETE| 000001E0: 22 00 12 0A BE 00 99 22 11 46 32 3D 46 4F 52 4D |"......".F2=FORM| 000001F0: 41 54 45 52 45 4E 3D 12 50 41 53 20 4F 50 20 4D |ATEREN=.PAS OP M| 00000200: 41 41 4B 54 20 53 43 48 49 4A 46 20 4E 49 45 55 |AAKT SCHIJF NIEU| 00000210: 57 22 00 42 0A C8 00 99 22 11 46 33 3D 53 43 52 |W".B....".F3=SCR| 00000220: 41 54 43 48 45 4E 20 3D 57 49 53 54 20 45 45 4E |ATCHEN =WIST EEN| 00000230: 20 50 52 4F 47 52 20 56 20 44 20 53 43 48 49 4A | PROGR V D SCHIJ| 00000240: 46 22 00 6F 0A D2 00 99 22 11 46 34 3D 52 45 53 |F".o....".F4=RES| 00000250: 43 52 41 54 43 48 20 3D 48 41 41 4C 54 20 45 45 |CRATCH =HAALT EE| 00000260: 4E 20 50 52 4F 47 52 20 54 45 52 55 47 20 22 00 |N PROGR TERUG ".| 00000270: 9A 0A DC 00 99 22 11 46 35 3D 52 45 4E 41 4D 45 |.....".F5=RENAME| 00000280: 20 20 20 20 3D 56 45 52 41 4E 44 45 52 44 20 50 | =VERANDERD P| 00000290: 52 4F 47 52 20 4E 41 41 4D 22 00 C4 0A E6 00 99 |ROGR NAAM"......| 000002A0: 22 11 46 36 3D 52 45 4E 41 4D 45 20 49 44 20 3D |".F6=RENAME ID =| 000002B0: 56 45 52 41 4E 44 45 52 44 20 44 49 53 4B 20 4E |VERANDERD DISK N| 000002C0: 41 41 4D 22 00 F4 0A F0 00 99 22 11 46 37 3D 44 |AAM"......".F7=D| 000002D0: 49 52 45 43 54 4F 52 49 20 3D 57 41 54 20 45 52 |IRECTORI =WAT ER| 000002E0: 20 4F 50 20 44 45 20 53 43 48 49 4A 46 20 53 54 | OP DE SCHIJF ST| 000002F0: 41 41 54 22 00 28 0B F2 00 99 22 11 11 11 11 11 |AAT".(....".....| 00000300: 11 11 1D 1D 1D 1D 1D 1D 28 43 29 1C 54 45 4C 45 |........(C).TELE| 00000310: 4D 41 52 43 20 32 30 2D 34 2D 38 34 2E 2E 20 42 |MARC 20-4-84.. B| 00000320: 59 20 44 49 43 4B 1F 22 00 3B 0B FA 00 A1 44 24 |Y DICK.".;....D$| 00000330: 3A 8B 44 24 B2 22 22 A7 32 35 30 00 4B 0B 04 01 |:.D$."".250.K...| 00000340: 8B 44 24 B2 22 89 22 A7 33 34 30 00 61 0B 0E 01 |.D$.".".340.a...| 00000350: 8B 44 24 B2 22 86 22 A7 8D 36 31 30 3A 89 34 32 |.D$."."..610:.42| 00000360: 30 00 71 0B 18 01 8B 44 24 B2 22 85 22 A7 34 39 |0.q....D$.".".49| 00000370: 30 00 81 0B 22 01 8B 44 24 B2 22 8A 22 A7 39 30 |0..."..D$.".".90| 00000380: 30 00 94 0B 2C 01 8B 44 24 B2 22 88 22 A7 8D 36 |0...,..D$."."..6| 00000390: 31 30 3A 8A 00 AA 0B 36 01 8B 44 24 B2 22 87 22 |10:....6..D$."."| 000003A0: A7 8D 36 31 30 3A 89 37 38 30 00 BA 0B 40 01 8B |..610:.780...@..| 000003B0: 44 24 B2 22 8B 22 A7 38 35 30 00 CA 0B 4A 01 8B |D$.".".850...J..| 000003C0: 44 24 B3 B1 22 22 A7 32 35 30 00 D3 0B 54 01 99 |D$.."".250...T..| 000003D0: 22 93 22 00 EC 0B 5E 01 99 22 11 1D 20 20 20 20 |"."...^..".. | 000003E0: 20 46 4F 52 4D 41 54 45 52 45 4E 22 00 F2 0B 68 | FORMATEREN"...h| 000003F0: 01 8F 00 13 0C 72 01 85 22 11 11 11 11 11 11 11 |.....r..".......| 00000400: 11 11 44 49 53 4B 45 54 54 45 20 4E 41 41 4D 22 |..DISKETTE NAAM"| 00000410: 3B 41 24 00 2D 0C 7C 01 85 22 11 11 44 49 53 4B |;A$.-.|.."..DISK| 00000420: 45 54 54 45 20 43 4F 44 45 22 3B 42 24 00 3A 0C |ETTE CODE";B$.:.| 00000430: 86 01 9F 31 35 2C 38 2C 31 35 00 55 0C 90 01 98 |...15,8,15.U....| 00000440: 31 35 2C 22 4E 30 3A 22 3B 41 24 3B 22 2C 22 3B |15,"N0:";A$;",";| 00000450: 42 24 3B 22 22 00 5E 0C 9A 01 89 35 37 30 00 64 |B$;"".^....570.d| 00000460: 0C A4 01 8F 00 7C 0C AE 01 99 22 11 1D 20 20 20 |.....|....".. | 00000470: 20 20 53 43 52 41 54 43 48 45 4E 22 00 82 0C B8 | SCRATCHEN"....| 00000480: 01 8F 00 9E 0C C2 01 85 22 11 11 11 11 53 43 52 |........"....SCR| 00000490: 41 54 43 48 20 4E 41 41 4D 20 22 3B 46 24 00 AB |ATCH NAAM ";F$..| 000004A0: 0C CC 01 9F 31 35 2C 38 2C 31 35 00 BC 0C D6 01 |....15,8,15.....| 000004B0: 98 31 35 2C 22 53 30 3A 22 3B 46 24 00 C5 0C E0 |.15,"S0:";F$....| 000004C0: 01 89 35 37 30 00 CB 0C EA 01 8F 00 E2 0C F4 01 |..570...........| 000004D0: 99 22 11 1D 20 20 20 20 20 56 41 4C 49 44 41 54 |.".. VALIDAT| 000004E0: 45 22 00 E8 0C FE 01 8F 00 FF 0C 08 02 9F 31 35 |E"............15| 000004F0: 2C 38 2C 31 35 2C 22 56 30 22 3A 89 35 37 30 00 |,8,15,"V0":.570.| 00000500: 05 0D 12 02 8F 00 1F 0D 1C 02 99 22 11 1D 20 20 |...........".. | 00000510: 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 22 00 | INITIALIZE ".| 00000520: 25 0D 26 02 8F 00 37 0D 30 02 9F 31 35 2C 38 2C |%.&...7.0..15,8,| 00000530: 31 35 2C 22 49 30 22 00 4F 0D 3A 02 84 31 35 2C |15,"I0".O.:..15,| 00000540: 47 24 2C 48 24 2C 49 24 2C 4A 24 3A A0 31 35 00 |G$,H$,I$,J$:.15.| 00000550: 66 0D 44 02 99 47 24 22 20 22 48 24 22 20 22 49 |f.D..G$" "H$" "I| 00000560: 24 22 20 22 4A 24 00 79 0D 4E 02 81 49 49 B2 31 |$" "J$.y.N..II.1| 00000570: A4 32 30 30 30 3A 82 49 49 00 84 0D 58 02 8D 36 |.2000:.II...X..6| 00000580: 31 30 3A 8A 00 B6 0D 62 02 9F 31 35 2C 38 2C 31 |10:....b..15,8,1| 00000590: 35 3A 98 31 35 2C 22 49 30 22 3A 99 22 93 22 3B |5:.15,"I0":.".";| 000005A0: 3A 9F 31 2C 38 2C 30 2C 22 24 30 22 3A A1 23 31 |:.1,8,0,"$0":.#1| 000005B0: 2C 41 24 2C 42 24 00 DD 0D 6C 02 99 22 A3 A3 A3 |,A$,B$...l.."...| 000005C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000005D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 D0 22 00 09 0E |............"...| 000005E0: 76 02 A1 23 31 2C 41 24 2C 42 24 3A A1 23 31 2C |v..#1,A$,B$:.#1,| 000005F0: 41 24 2C 42 24 3A 43 B2 30 3A 8B 41 24 B3 B1 22 |A$,B$:C.0:.A$.."| 00000600: 22 A7 43 B2 C6 28 41 24 29 00 23 0E 80 02 8B 42 |".C..(A$).#....B| 00000610: 24 B3 B1 22 22 A7 43 B2 43 AA C6 28 42 24 29 AC |$.."".C.C..(B$).| 00000620: 32 35 36 00 39 0E 8A 02 99 CA 28 C4 28 43 29 2C |256.9.....(.(C),| 00000630: 32 29 A3 38 29 22 DD 22 3B 00 50 0E 94 02 A1 23 |2).8)".";.P....#| 00000640: 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 89 37 34 30 |1,B$:.ST..0..740| 00000650: 00 63 0E 9E 02 8B 42 24 B3 B1 C7 28 33 34 29 A7 |.c....B$...(34).| 00000660: 36 36 30 00 89 0E A8 02 A1 23 31 2C 42 24 3A 8B |660......#1,B$:.| 00000670: 42 24 B3 B1 C7 28 33 34 29 A7 99 42 24 3B 3A 4C |B$...(34)..B$;:L| 00000680: B2 4C AA 31 3A 89 36 38 30 00 A2 0E B2 02 A1 23 |.L.1:.680......#| 00000690: 31 2C 42 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 36 |1,B$:.B$..(32).6| 000006A0: 39 30 00 AB 0E BC 02 43 24 B2 22 00 CB 0E C6 02 |90.....C$.".....| 000006B0: 43 24 B2 43 24 AA 42 24 3A A1 23 31 2C 42 24 3A |C$.C$.B$:.#1,B$:| 000006C0: 8B 42 24 B3 B1 22 22 A7 37 31 30 00 FB 0E D0 02 |.B$.."".710.....| 000006D0: 81 4B 4B B2 30 A4 31 37 AB 4C 3A 99 22 20 22 3B |.KK.0.17.L:." ";| 000006E0: 3A 82 3A 99 C8 28 43 24 2C 33 29 3A A1 4B 24 3A |:.:..(C$,3):.K$:| 000006F0: 8B 4B 24 B3 B1 22 22 A7 37 33 30 00 0E 0F DA 02 |.K$.."".730.....| 00000700: 8B 53 54 B2 30 A7 4C B2 30 3A 89 36 33 30 00 29 |.ST.0.L.0:.630.)| 00000710: 0F E4 02 99 22 42 4C 4F 43 4B 53 20 46 52 45 45 |...."BLOCKS FREE| 00000720: 22 3A A0 31 3A A0 31 35 3A 00 41 0F EE 02 99 22 |":.1:.15:.A...."| 00000730: 12 44 52 55 4B 20 45 45 4E 20 54 4F 45 54 53 92 |.DRUK EEN TOETS.| 00000740: 22 00 54 0F F8 02 A1 41 24 3A 8B 41 24 B2 22 22 |".T....A$:.A$.""| 00000750: A7 37 36 30 00 5A 0F 02 03 8E 00 6F 0F 0C 03 99 |.760.Z.....o....| 00000760: 22 11 1D 20 20 20 20 20 52 45 4E 41 4D 45 22 00 |".. RENAME".| 00000770: 83 0F 16 03 85 22 4F 55 44 45 20 4E 41 41 4D 22 |....."OUDE NAAM"| 00000780: 3B 47 24 00 99 0F 20 03 85 22 4E 49 45 55 57 45 |;G$... .."NIEUWE| 00000790: 20 4E 41 41 4D 22 3B 48 24 00 A5 0F 2A 03 9F 31 | NAAM";H$...*..1| 000007A0: 2C 38 2C 31 35 00 BF 0F 34 03 98 31 2C 22 52 30 |,8,15...4..1,"R0| 000007B0: 3A 22 3B 48 24 3B 22 3D 22 3B 47 24 3B 22 22 00 |:";H$;"=";G$;"".| 000007C0: C6 0F 3E 03 A0 31 00 CF 0F 48 03 8D 36 31 30 00 |..>..1...H..610.| 000007D0: D5 0F 52 03 8A 00 DB 0F 84 03 8F 00 00 10 CA 03 |..R.............| 000007E0: 85 22 93 11 4E 41 41 4D 20 56 20 56 45 52 4C 4F |."..NAAM V VERLO| 000007F0: 52 45 4E 20 50 52 4F 47 52 41 4D 3D 22 3B 46 24 |REN PROGRAM=";F$| 00000800: 00 08 10 DE 03 44 B2 30 00 26 10 E8 03 85 22 54 |.....D.0.&...."T| 00000810: 59 50 45 20 28 53 45 51 2D 50 52 47 2D 55 53 52 |YPE (SEQ-PRG-USR| 00000820: 2E 22 3B 54 59 24 00 66 10 F2 03 54 59 B2 31 32 |.";TY$.f...TY.12| 00000830: 38 AB 28 54 59 24 B2 22 53 45 51 22 29 AB 32 AC |8.(TY$."SEQ").2.| 00000840: 28 54 59 24 B2 22 50 52 47 22 29 AB 33 AC 28 54 |(TY$."PRG").3.(T| 00000850: 59 24 B2 22 55 53 52 22 29 3A 8B 54 59 B2 31 32 |Y$."USR"):.TY.12| 00000860: 38 A7 31 30 30 30 00 7C 10 FC 03 9F 31 35 2C 38 |8.1000.|....15,8| 00000870: 2C 31 35 3A 4E 4C 24 B2 C7 28 30 29 00 92 10 06 |,15:NL$..(0)....| 00000880: 04 9F 32 2C 38 2C 32 2C 22 23 22 3A A1 23 32 2C |..2,8,2,"#":.#2,| 00000890: 58 24 00 9E 10 10 04 81 53 B2 31 A4 31 39 00 B5 |X$......S.1.19..| 000008A0: 10 1A 04 98 31 35 2C 22 55 31 3A 22 3B 32 3B 44 |....15,"U1:";2;D| 000008B0: 3B 31 38 3B 53 00 C0 10 24 04 81 49 B2 30 A4 37 |;18;S...$..I.0.7| 000008C0: 00 DA 10 2E 04 98 31 35 2C 22 42 2D 50 3A 22 3B |......15,"B-P:";| 000008D0: 32 3B 28 32 AA 33 32 AC 49 29 00 E6 10 38 04 A1 |2;(2.32.I)...8..| 000008E0: 23 32 2C 46 54 24 00 FA 10 42 04 8B 46 54 24 B2 |#2,FT$...B..FT$.| 000008F0: 22 22 A7 46 54 24 B2 4E 4C 24 00 2C 11 4C 04 46 |"".FT$.NL$.,.L.F| 00000900: 54 B2 C6 28 46 54 24 29 3A 8B 46 54 B3 B1 30 AF |T..(FT$):.FT..0.| 00000910: 46 54 B3 B1 31 32 39 AF 46 54 B3 B1 31 33 30 AF |FT..129.FT..130.| 00000920: 46 54 B3 B1 31 33 31 A7 31 31 38 30 00 46 11 56 |FT..131.1180.F.V| 00000930: 04 98 31 35 2C 22 42 2D 50 3A 22 3B 32 3B 28 35 |..15,"B-P:";2;(5| 00000940: AA 33 32 AC 49 29 00 50 11 60 04 57 24 B2 22 22 |.32.I).P.`.W$.""| 00000950: 00 5C 11 6A 04 81 51 B2 31 A4 31 36 00 75 11 74 |.\.j..Q.1.16.u.t| 00000960: 04 A1 23 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 |..#2,A$:.A$."".A| 00000970: 24 B2 4E 4C 24 00 82 11 7E 04 57 24 B2 57 24 AA |$.NL$...~.W$.W$.| 00000980: 41 24 00 89 11 88 04 82 51 00 A2 11 92 04 8B 46 |A$......Q......F| 00000990: 24 B2 C8 28 57 24 2C C3 28 46 24 29 29 A7 31 32 |$..(W$,.(F$)).12| 000009A0: 31 30 00 A9 11 9C 04 82 49 00 C8 11 A6 04 82 53 |10......I......S| 000009B0: 3A 99 20 22 12 11 4E 49 45 54 20 47 45 56 4F 4E |:. "..NIET GEVON| 000009C0: 44 45 4E 92 20 21 21 22 00 D2 11 B0 04 89 31 35 |DEN. !!"......15| 000009D0: 32 30 00 EF 11 BA 04 99 22 11 11 48 45 54 20 50 |20......"..HET P| 000009E0: 52 4F 47 52 2E 48 45 45 54 20 3A 22 3B 57 24 00 |ROGR.HEET :";W$.| 000009F0: FD 11 C4 04 49 31 B2 49 3A 53 31 B2 53 00 17 12 |....I1.I:S1.S...| 00000A00: CE 04 98 31 35 2C 22 42 2D 50 3A 22 3B 32 3B 28 |...15,"B-P:";2;(| 00000A10: 32 AA 33 32 AC 49 29 00 2B 12 D8 04 A1 23 32 2C |2.32.I).+....#2,| 00000A20: 46 54 24 2C 54 52 24 2C 53 53 24 00 3F 12 E2 04 |FT$,TR$,SS$.?...| 00000A30: 8B 46 54 24 B2 22 22 A7 46 54 24 B2 4E 4C 24 00 |.FT$."".FT$.NL$.| 00000A40: 53 12 EC 04 8B 54 52 24 B2 22 22 A7 54 52 24 B2 |S....TR$."".TR$.| 00000A50: 4E 4C 24 00 67 12 F6 04 8B 53 53 24 B2 22 22 A7 |NL$.g....SS$."".| 00000A60: 53 53 24 B2 4E 4C 24 00 7F 12 00 05 54 52 B2 C6 |SS$.NL$.....TR..| 00000A70: 28 54 52 24 29 3A 53 53 B2 C6 28 53 53 24 29 00 |(TR$):SS..(SS$).| 00000A80: 9A 12 0A 05 98 31 35 2C 22 42 2D 50 3A 22 3B 32 |.....15,"B-P:";2| 00000A90: 3B 28 33 30 AA 33 32 AC 49 29 00 B6 12 14 05 A1 |;(30.32.I)......| 00000AA0: 23 32 2C 4E 31 24 3A 8B 4E 31 24 B2 22 22 A7 4E |#2,N1$:.N1$."".N| 00000AB0: 31 24 B2 4E 4C 24 00 D2 12 1E 05 A1 23 32 2C 4E |1$.NL$......#2,N| 00000AC0: 32 24 3A 8B 4E 32 24 B2 22 22 A7 4E 32 24 B2 4E |2$:.N2$."".N2$.N| 00000AD0: 4C 24 00 E7 12 28 05 4E 42 B2 C6 28 4E 31 24 29 |L$...(.NB..(N1$)| 00000AE0: AA C6 28 4E 32 24 29 00 FC 12 50 05 54 35 B2 54 |..(N2$)...P.T5.T| 00000AF0: 52 3A 53 35 B2 53 53 3A 41 54 B2 30 00 14 13 5A |R:S5.SS:AT.0...Z| 00000B00: 05 98 31 35 2C 22 55 31 3A 22 3B 32 3B 44 3B 54 |..15,"U1:";2;D;T| 00000B10: 35 3B 53 35 00 2C 13 64 05 A1 23 32 2C 54 4C 24 |5;S5.,.d..#2,TL$| 00000B20: 2C 53 4C 24 3A 41 54 B2 41 54 AA 31 00 40 13 6E |,SL$:AT.AT.1.@.n| 00000B30: 05 8B 54 4C 24 B2 22 22 A7 54 4C 24 B2 4E 4C 24 |..TL$."".TL$.NL$| 00000B40: 00 54 13 78 05 8B 53 4C 24 B2 22 22 A7 53 4C 24 |.T.x..SL$."".SL$| 00000B50: B2 4E 4C 24 00 6C 13 82 05 54 4C B2 C6 28 54 4C |.NL$.l...TL..(TL| 00000B60: 24 29 3A 53 4C B2 C6 28 53 4C 24 29 00 89 13 96 |$):SL..(SL$)....| 00000B70: 05 8B 54 4C B3 B1 30 A7 54 35 B2 54 4C 3A 53 35 |..TL..0.T5.TL:S5| 00000B80: B2 53 4C 3A 89 31 33 37 30 00 C2 13 A0 05 8B 41 |.SL:.1370......A| 00000B90: 54 B3 B1 4E 42 A7 99 22 49 4B 20 4B 41 4E 20 48 |T..NB.."IK KAN H| 00000BA0: 45 54 20 50 52 4F 47 52 20 4E 49 45 54 20 54 45 |ET PROGR NIET TE| 00000BB0: 52 55 47 20 4B 52 49 4A 47 45 4E 22 3A 89 31 35 |RUG KRIJGEN":.15| 00000BC0: 32 30 00 DB 13 AA 05 99 22 11 48 45 54 20 49 53 |20......".HET IS| 00000BD0: 20 47 45 4C 55 4B 54 20 21 21 22 00 F4 13 B4 05 | GELUKT !!".....| 00000BE0: 98 31 35 2C 22 42 2D 52 3A 22 3B 32 3B 44 3B 31 |.15,"B-R:";2;D;1| 00000BF0: 38 3B 53 31 00 0F 14 BE 05 98 31 35 2C 22 42 2D |8;S1......15,"B-| 00000C00: 50 3A 22 3B 32 3B 28 32 AA 33 32 AC 49 31 29 00 |P:";2;(2.32.I1).| 00000C10: 1D 14 C8 05 98 32 2C C7 28 54 59 29 3B 00 35 14 |.....2,.(TY);.5.| 00000C20: D2 05 98 31 35 2C 22 55 32 3A 22 3B 32 3B 44 3B |...15,"U2:";2;D;| 00000C30: 31 38 3B 53 31 00 48 14 DC 05 98 31 35 2C 22 56 |18;S1.H....15,"V| 00000C40: 41 4C 49 44 41 54 45 22 00 53 14 F0 05 A0 32 3A |ALIDATE".S....2:| 00000C50: A0 31 35 00 5E 14 FA 05 8D 35 30 30 3A 8A 00 00 |.15.^....500:...| 00000C60: 00 |. |
......."..":.53280,1:.53281,1.&....170.K
....".********.RENAME.********":D.0.C.(.
.15,8,15:.2,8,2,"#".Z.2..15,"U1:";2;D;18
;0...<..15,"B-P:"2;144...F.S$."
":A$.G(34).N.P..".NIEUWE DISK NAA
M, ID".Y.Z..D$,I$...D.D$.H(D$.S$,16):I$.
H(I$,2)...N..T.1.16...X..2,J(D$,T,1);:..
+....15,"B-P:"2;162.C....2,H(I$,1);I(I$,
1);.Z....15,"U2:";2;D;18;0.V. . 2:.X.1.2
000:.:.15,"I0"..... 15:.610......".SSSSS
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"....
.."F1=VALIDATE =ORDEND PROGR OP DISKETE
"......".F2=FORMATEREN=.PAS OP MAAKT SCH
IJF NIEUW".B.H..".F3=SCRATCHEN =WIST EEN
PROGR V D SCHIJF".O.R..".F4=RESCRATCH =
HAALT EEN PROGR TERUG "......".F5=RENAME
=VERANDERD PROGR NAAM".D....".F6=REN
AME ID =VERANDERD DISK NAAM"......".F7=D
IRECTORI =WAT ER OP DE SCHIJF STAAT".(..
..".............(C).TELEMARC 20-4-84.. B
Y DICK.".;....D$:.D$."".250.K....D$.".".
340.A....D$."."..610:.420.Q....D$.".".49
0..."..D$.".".900...,..D$."."..610:....6
..D$."."..610:.780...@..D$.".".850.J.J..
D$.."".250.S.T.."."...^..".. FORMATE
REN"...H.....R..".........DISKETTE NAAM"
;A$.-.|.."..DISKETTE CODE";B$.:....15,8,
15.U....15,"N0:";A$;",";B$;"".^....570.D
.....|....".. SCRATCHEN".........B..
"....SCRATCH NAAM ";F$...L..15,8,15...V.
.15,"S0:";F$.E....570.K.........."..
VALIDATE"............15,8,15,"V0":.570.
...........".. INITIALIZE ".%.&...7.
0..15,8,15,"I0".O.:..15,G$,H$,I$,J$: 15.
F.D..G$" "H$" "I$" "J$.Y.N..II.1.2000:.I
I...X..610:....B..15,8,15:.15,"I0":.".";
:.1,8,0,"$0":.#1,A$,B$...L.."...........
...................P"...V..#1,A$,B$:.#1,
A$,B$:C.0:.A$.."".C.F(A$).#....B$.."".C.
C.F(B$).256.9....J(D(C),2).8)".";.P....#
1,B$:.ST..0..740.C....B$..G(34).660.....
.#1,B$:.B$..G(34)..B$;:L.L.1:.680......#
1,B$:.B$.G(32).690.....C$.".K.F.C$.C$.B$
:.#1,B$:.B$.."".710...P..KK.0.17.L:." ";
:.:.H(C$,3):.K$:.K$.."".730...Z..ST.0.L.
0:.630.)...."BLOCKS FREE": 1: 15:.A...."
.DRUK EEN TOETS.".T....A$:.A$."".760.Z..
...O....".. RENAME"......"OUDE NAAM"
;G$... .."NIEUWE NAAM";H$...*..1,8,15...
4..1,"R0:";H$;"=";G$;"".F.>. 1.O.H..610.
U.R...........J.."..NAAM V VERLOREN PROG
RAM=";F$.....D.0.&...."TYPE (SEQ-PRG-USR
.";TY$.F...TY.128.(TY$."SEQ").2.(TY$."PR
G").3.(TY$."USR"):.TY.128.1000.|....15,8
,15:NL$.G(0)......2,8,2,"#":.#2,X$......
S.1.19......15,"U1:";2;D;18;S...$..I.0.7
.Z....15,"B-P:";2;(2.32.I)...8..#2,FT$..
.B..FT$."".FT$.NL$.,.L.FT.F(FT$):.FT..0.
FT..129.FT..130.FT..131.1180.F.V..15,"B-
P:";2;(5.32.I).P.`.W$."".\.J..Q.1.16.U.T
..#2,A$:.A$."".A$.NL$...~.W$.W$.A$......
Q......F$.H(W$,C(F$)).1210......I.H....S
:. "..NIET GEVONDEN. !!".R....1520......
"..HET PROGR.HEET :";W$...D.I1.I:S1.S...
N..15,"B-P:";2;(2.32.I).+.X..#2,FT$,TR$,
SS$.?....FT$."".FT$.NL$.S....TR$."".TR$.
NL$.G....SS$."".SS$.NL$....TR.F(TR$):SS
.F(SS$)......15,"B-P:";2;(30.32.I)......
#2,N1$:.N1$."".N1$.NL$.R....#2,N2$:.N2$.
"".N2$.NL$...(.NB.F(N1$).F(N2$)...P.T5.T
R:S5.SS:AT.0...Z..15,"U1:";2;D;T5;S5.,.D
..#2,TL$,SL$:AT.AT.1.@.N..TL$."".TL$.NL$
.T.X..SL$."".SL$.NL$.L...TL.F(TL$):SL.F(
SL$)......TL..0.T5.TL:S5.SL:.1370.B. ..A
T..NB.."IK KAN HET PROGR NIET TERUG KRIJ
GEN":.1520......".HET IS GELUKT !!".....
.15,"B-R:";2;D;18;S1......15,"B-P:";2;(2
.32.I1)...H..2,G(TY);.5.R..15,"U2:";2;D;
18;S1.H....15,"VALIDATE".S... 2: 15.^...
.500:....
> CLICK IMAGE PREVIEW FOR FULL MODAL