COPYPROG DB 1
FILE INFORMATION
FILENAME(S): COPYPROG DB 1
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:23:23
APPEARS ON: 2 disk(s)
FILE HASH
d0cdca0a5216093d4c7c0162a3bf154724213d0a1b9f2e98477ca6f7ea1482dc
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 9 2 | COPYPROG DB 1 | PRG | DuncanTwain | 17 | 7 | DOWNLOAD FILE |
| SUPERHULP 1 2 | COPYPROG DB 1 | PRG | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 8F 2B 2B 2B 2B 2B 2B 2B 2B 2B |.......+++++++++|
00000010: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 35 08 14 00 |+++++++++++.5...|
00000020: 8F 2B 20 20 20 43 4F 50 59 50 52 4F 47 20 20 20 |.+ COPYPROG |
00000030: 20 20 20 20 2B 00 4F 08 1E 00 8F 2B 20 20 44 49 | +.O....+ DI|
00000040: 43 4B 20 42 52 55 49 4A 4E 20 28 43 29 20 2B 00 |CK BRUIJN (C) +.|
00000050: 69 08 28 00 8F 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |i.(..+++++++++++|
00000060: 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 89 08 32 00 8F 20 |+++++++++...2.. |
00000070: 5A 45 54 20 54 4F 50 20 4F 46 20 42 41 53 49 43 |ZET TOP OF BASIC|
00000080: 20 4F 50 20 24 31 46 30 30 00 A9 08 3C 00 97 35 | OP $1F00...<..5|
00000090: 31 2C 30 3A 97 35 32 2C 33 30 3A 97 35 35 2C 30 |1,0:.52,30:.55,0|
000000A0: 3A 97 35 36 2C 33 30 3A 9C 00 CE 08 46 00 8B C2 |:.56,30:....F...|
000000B0: 28 37 39 34 33 29 B3 B1 38 A7 93 22 43 4F 50 59 |(7943)..8.."COPY|
000000C0: 50 52 4F 47 20 44 42 20 32 22 2C 38 2C 31 00 E4 |PROG DB 2",8,1..|
000000D0: 08 47 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.G..53280,0:.532|
000000E0: 38 31 2C 30 00 ED 08 48 00 8D 39 30 30 00 12 09 |81,0...H..900...|
000000F0: 49 00 99 22 11 11 11 20 20 20 20 46 31 20 3D 20 |I.."... F1 = |
00000100: 44 49 52 45 43 54 4F 52 59 20 56 41 4E 20 44 49 |DIRECTORY VAN DI|
00000110: 53 4B 00 35 09 4A 00 99 22 11 11 11 20 20 20 20 |SK.5.J.."... |
00000120: 46 33 20 3D 20 43 4F 50 59 20 50 52 4F 47 52 41 |F3 = COPY PROGRA|
00000130: 4D 4D 41 27 53 00 47 09 4B 00 A1 53 24 3A 8B 53 |MMA'S.G.K..S$:.S|
00000140: 24 B2 22 22 A7 37 35 00 57 09 4C 00 8B 53 24 B3 |$."".75.W.L..S$.|
00000150: B1 22 85 22 A7 38 30 00 7B 09 4D 00 8D 39 30 30 |.".".80.{.M..900|
00000160: 3A 9E 37 36 38 30 3A 99 22 11 11 12 52 41 41 4B |:.7680:."...RAAK|
00000170: 20 45 45 4E 20 54 4F 45 54 53 22 00 8D 09 4E 00 | EEN TOETS"...N.|
00000180: A1 57 24 3A 8B 57 24 B2 22 22 A7 37 38 00 95 09 |.W$:.W$."".78...|
00000190: 4F 00 89 37 32 00 A5 09 50 00 8B 53 24 B3 B1 22 |O..72...P..S$.."|
000001A0: 86 22 A7 37 35 00 CB 09 55 00 8F 20 38 32 38 2D |.".75...U.. 828-|
000001B0: 38 32 39 20 20 20 20 20 4F 55 44 20 20 42 45 47 |829 OUD BEG|
000001C0: 49 4E 20 4C 4F 57 2F 48 49 47 48 00 F1 09 5A 00 |IN LOW/HIGH...Z.|
000001D0: 8F 20 32 35 31 2D 32 35 32 20 20 20 20 20 4C 41 |. 251-252 LA|
000001E0: 41 44 20 42 45 47 49 4E 20 4C 4F 57 2F 48 49 47 |AD BEGIN LOW/HIG|
000001F0: 48 00 17 0A 64 00 8F 20 32 35 33 2D 32 35 34 20 |H...d.. 253-254 |
00000200: 20 20 20 20 4C 41 41 44 20 45 49 4E 44 20 20 4C | LAAD EIND L|
00000210: 4F 57 2F 48 49 47 48 00 35 0A 6E 00 8F 20 32 20 |OW/HIGH.5.n.. 2 |
00000220: 20 20 20 20 20 20 20 20 20 20 4C 45 4E 47 54 45 | LENGTE|
00000230: 20 4E 41 41 4D 00 55 0A 78 00 8F 20 38 33 30 2D | NAAM.U.x.. 830-|
00000240: 38 34 35 20 20 20 20 20 4E 41 41 4D 20 28 4D 41 |845 NAAM (MA|
00000250: 58 20 31 36 29 00 70 0A 82 00 8F 20 5A 45 54 20 |X 16).p.... ZET |
00000260: 42 45 47 49 4E 20 4C 41 41 44 20 41 44 52 45 53 |BEGIN LAAD ADRES|
00000270: 00 8B 0A 8C 00 97 32 35 32 2C 33 32 3A 97 32 35 |......252,32:.25|
00000280: 31 2C 30 3A 8F 20 24 32 30 30 30 00 A5 0A 96 00 |1,0:. $2000.....|
00000290: 86 4E 24 28 31 34 34 29 3A 8F 20 54 41 42 45 4C |.N$(144):. TABEL|
000002A0: 20 50 52 47 53 00 D3 0A A0 00 42 4C 24 B2 22 20 | PRGS.....BL$." |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 22 00 DE 0A AA 00 8F 20 4D 41 49 4E 00 E7 | "...... MAIN..|
000002E0: 0A BE 00 8D 39 30 30 00 F2 0A C8 00 81 49 B2 31 |....900......I.1|
000002F0: A4 34 00 21 0B D2 00 99 22 B0 C3 C3 C3 C3 C3 C3 |.4.!....".......|
00000300: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000310: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 AE |................|
00000320: 22 00 50 0B DC 00 99 22 C2 20 20 20 20 20 20 20 |".P....". |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 22 | ."|
00000350: 00 81 0B E6 00 99 22 AD C3 C3 C3 C3 C3 C3 C3 C3 |......".........|
00000360: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000370: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 BD 11 11 |................|
00000380: 22 00 87 0B F0 00 82 00 A5 0B FA 00 99 22 13 11 |"............"..|
00000390: 11 1E 43 42 4D 2D 36 34 20 42 45 5A 49 47 20 4D |..CBM-64 BEZIG M|
000003A0: 45 54 20 3A 22 00 C1 0B 04 01 99 22 13 11 11 11 |ET :"......"....|
000003B0: 11 11 11 11 1E 50 52 4F 47 52 41 4D 4D 41 20 3A |.....PROGRAMMA :|
000003C0: 22 00 E7 0B 0E 01 99 22 13 11 11 11 11 11 11 11 |"......"........|
000003D0: 11 11 11 11 11 1E 4F 50 45 52 41 54 4F 52 20 41 |......OPERATOR A|
000003E0: 4B 54 49 45 20 3A 22 00 0F 0C 18 01 99 22 13 11 |KTIE :"......"..|
000003F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000400: 1E 53 54 41 54 55 53 20 44 49 53 4B 20 3A 22 00 |.STATUS DISK :".|
00000410: 3F 0C 22 01 99 A3 32 29 22 05 12 91 91 91 91 49 |?."...2)"......I|
00000420: 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 53 |NSERT SOURCE DIS|
00000430: 4B 45 54 54 45 20 2D 54 4F 45 54 53 2D 11 22 00 |KETTE -TOETS-.".|
00000440: 62 0C 27 01 99 22 13 11 11 11 11 22 A3 32 29 42 |b.'..".....".2)B|
00000450: 4C 24 3A 99 A3 32 29 22 12 91 57 41 43 48 54 45 |L$:..2)"..WACHTE|
00000460: 4E 22 00 75 0C 2C 01 A1 57 24 3A 8B 57 24 B2 22 |N".u.,..W$:.W$."|
00000470: 22 A7 33 30 30 00 A7 0C 36 01 99 22 13 11 11 11 |".300...6.."....|
00000480: 11 11 11 11 11 11 11 11 11 11 11 22 A3 32 29 42 |...........".2)B|
00000490: 4C 24 3A 99 A3 32 29 22 12 91 57 41 43 48 54 20 |L$:..2)"..WACHT |
000004A0: 41 2E 55 2E 42 2E 22 00 C9 0C 40 01 99 22 13 11 |A.U.B."...@.."..|
000004B0: 11 11 11 22 A3 32 29 22 12 4C 45 5A 45 4E 20 44 |...".2)".LEZEN D|
000004C0: 49 52 45 43 54 4F 52 59 22 00 DF 0C 4A 01 A0 31 |IRECTORY"...J..1|
000004D0: 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 |5:.15,8,15,"I0".|
000004E0: EE 0C 54 01 9F 33 2C 38 2C 33 2C 22 24 22 00 03 |..T..3,8,3,"$"..|
000004F0: 0D 5E 01 98 31 35 2C 22 42 2D 50 3A 22 3B 33 3B |.^..15,"B-P:";3;|
00000500: 32 35 34 00 10 0D 68 01 4A B2 33 3A 8D 37 35 30 |254...h.J.3:.750|
00000510: 00 1C 0D 72 01 49 B2 31 3A 45 B2 31 00 37 0D 7C |...r.I.1:E.1.7.||
00000520: 01 8F 20 4C 45 45 53 20 44 49 52 45 43 54 4F 52 |.. LEES DIRECTOR|
00000530: 59 20 45 4E 54 52 59 00 55 0D 86 01 A1 23 33 2C |Y ENTRY.U....#3,|
00000540: 54 24 2C 41 24 2C 41 24 3A 54 B2 C6 28 54 24 AA |T$,A$,A$:T..(T$.|
00000550: C7 28 30 29 29 00 65 0D 90 01 8B 53 54 A7 A0 33 |.(0)).e....ST..3|
00000560: 3A 89 34 36 30 00 80 0D 9A 01 4A B2 31 36 3A 8D |:.460.....J.16:.|
00000570: 37 35 30 3A 4E 24 B2 42 24 3A 8F 20 4E 41 41 4D |750:N$.B$:. NAAM|
00000580: 00 9C 0D A4 01 4A B2 31 31 3A 8D 37 35 30 3A 8B |.....J.11:.750:.|
00000590: 49 B3 38 A7 4A B2 32 3A 8D 37 35 30 00 BA 0D AE |I.8.J.2:.750....|
000005A0: 01 8B 54 B2 32 B0 54 B2 31 33 30 A7 4E 24 28 45 |..T.2.T.130.N$(E|
000005B0: 29 B2 4E 24 3A 45 B2 45 AA 31 00 CD 0D B8 01 49 |).N$:E.E.1.....I|
000005C0: B2 49 AA 31 3A 8B 49 B1 38 A7 49 B2 31 00 D6 0D |.I.1:.I.8.I.1...|
000005D0: C2 01 89 33 38 30 00 F0 0D CC 01 54 42 B2 31 3A |...380.....TB.1:|
000005E0: 8F 20 42 45 48 41 4E 44 45 4C 20 54 41 42 45 4C |. BEHANDEL TABEL|
000005F0: 00 13 0E D1 01 99 22 13 11 11 11 11 22 A3 32 29 |......".....".2)|
00000600: 42 4C 24 3A 99 A3 32 29 22 12 91 57 41 43 48 54 |BL$:..2)"..WACHT|
00000610: 45 4E 22 00 46 0E D6 01 99 22 13 11 11 11 11 11 |EN".F...."......|
00000620: 11 11 11 11 11 11 11 11 11 22 A3 32 29 42 4C 24 |.........".2)BL$|
00000630: 3A 99 A3 32 29 22 91 12 53 45 4C 45 4B 54 45 45 |:..2)"..SELEKTEE|
00000640: 52 20 59 2F 4E 22 00 63 0E E0 01 4E 24 B2 4E 24 |R Y/N".c...N$.N$|
00000650: 28 54 42 29 3A 8B 4E 24 28 54 42 29 B2 22 22 A7 |(TB):.N$(TB)."".|
00000660: 37 33 30 00 7B 0E EA 01 99 22 13 11 11 11 11 11 |730.{...."......|
00000670: 11 11 11 11 22 A3 32 29 42 4C 24 00 95 0E F4 01 |....".2)BL$.....|
00000680: 99 22 13 11 11 11 11 11 11 11 11 11 22 A3 32 29 |."..........".2)|
00000690: 22 12 22 4E 24 00 9E 0E FE 01 8D 38 32 30 00 B1 |"."N$......820..|
000006A0: 0E 08 02 A1 57 24 3A 8B 57 24 B2 22 22 A7 35 32 |....W$:.W$."".52|
000006B0: 30 00 C1 0E 12 02 8B 57 24 B2 22 4E 22 A7 37 33 |0......W$."N".73|
000006C0: 30 00 D2 0E 1C 02 8B 57 24 B3 B1 22 59 22 A7 35 |0......W$.."Y".5|
000006D0: 32 30 00 04 0F 26 02 99 22 13 11 11 11 11 11 11 |20...&..".......|
000006E0: 11 11 11 11 11 11 11 11 22 A3 32 29 42 4C 24 3A |........".2)BL$:|
000006F0: 99 A3 32 29 22 12 91 57 41 43 48 54 20 41 2E 55 |..2)"..WACHT A.U|
00000700: 2E 42 2E 22 00 33 0F 2B 02 99 22 13 11 11 11 11 |.B.".3.+..".....|
00000710: 22 A3 32 29 42 4C 24 3A 99 A3 32 29 22 12 91 4C |".2)BL$:..2)"..L|
00000720: 45 5A 45 4E 20 56 41 4E 20 50 52 4F 47 52 41 4D |EZEN VAN PROGRAM|
00000730: 4D 41 22 00 4E 0F 30 02 97 32 2C C3 28 4E 24 29 |MA".N.0..2,.(N$)|
00000740: 3A 8F 20 4C 45 4E 47 54 45 20 4E 41 41 4D 00 89 |:. LENGTE NAAM..|
00000750: 0F 3A 02 81 49 B2 38 33 30 A4 38 33 30 AA C3 28 |.:..I.830.830..(|
00000760: 4E 24 29 AB 31 3A 97 49 2C C6 28 CA 28 4E 24 2C |N$).1:.I,.(.(N$,|
00000770: 49 AB 38 33 30 AA 31 2C 31 29 AA C7 28 30 29 29 |I.830.1,1)..(0))|
00000780: 3A 82 3A 8F 20 4E 41 41 4D 00 A2 0F 44 02 9E 37 |:.:. NAAM...D..7|
00000790: 39 33 36 3A 8F 20 4C 4F 41 44 20 52 4F 55 54 49 |936:. LOAD ROUTI|
000007A0: 4E 45 00 AB 0F 4E 02 8D 38 32 30 00 C0 0F 58 02 |NE...N..820...X.|
000007B0: 8F 20 42 45 52 45 4B 45 4E 20 4C 45 4E 47 54 45 |. BEREKEN LENGTE|
000007C0: 00 ED 0F 62 02 4C 45 B2 C2 28 32 35 33 29 AA C2 |...b.LE..(253)..|
000007D0: 28 32 35 34 29 AC 32 35 36 AB 28 C2 28 32 35 31 |(254).256.(.(251|
000007E0: 29 AA C2 28 32 35 32 29 AC 32 35 36 29 00 11 10 |)..(252).256)...|
000007F0: 6C 02 99 22 13 11 11 11 11 11 11 11 11 11 22 A3 |l.."..........".|
00000800: 32 33 29 22 12 4C 45 4E 47 54 45 20 3A 22 3B 4C |23)".LENGTE :";L|
00000810: 45 00 34 10 71 02 99 22 13 11 11 11 11 22 A3 32 |E.4.q..".....".2|
00000820: 29 42 4C 24 3A 99 A3 32 29 22 12 91 57 41 43 48 |)BL$:..2)"..WACH|
00000830: 54 45 4E 22 00 74 10 76 02 99 22 13 11 11 11 11 |TEN".t.v..".....|
00000840: 11 11 11 11 11 11 11 11 11 11 22 A3 32 29 22 12 |..........".2)".|
00000850: 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 |INSERT DESTINATI|
00000860: 4F 4E 20 44 49 53 4B 45 54 54 45 20 2D 54 4F 45 |ON DISKETTE -TOE|
00000870: 54 53 2D 22 00 87 10 80 02 A1 57 24 3A 8B 57 24 |TS-"......W$:.W$|
00000880: B2 22 22 A7 36 34 30 00 BA 10 8A 02 99 22 13 11 |."".640......"..|
00000890: 11 11 11 22 A3 32 29 42 4C 24 3A 99 A3 32 29 22 |...".2)BL$:..2)"|
000008A0: 12 91 53 43 48 52 49 4A 56 45 4E 20 56 41 4E 20 |..SCHRIJVEN VAN |
000008B0: 50 52 4F 47 52 41 4D 4D 41 22 00 EC 10 94 02 99 |PROGRAMMA"......|
000008C0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000008D0: 22 A3 32 29 42 4C 24 3A 99 A3 32 29 22 12 91 57 |".2)BL$:..2)"..W|
000008E0: 41 43 48 54 20 41 2E 55 2E 42 2E 22 00 FD 10 9E |ACHT A.U.B."....|
000008F0: 02 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 00 16 11 |..15:.15,8,15...|
00000900: A8 02 9E 38 30 36 35 3A 8F 20 53 41 56 45 20 52 |...8065:. SAVE R|
00000910: 4F 55 54 49 4E 45 00 1F 11 B2 02 8D 38 32 30 00 |OUTINE......820.|
00000920: 5F 11 BC 02 99 22 13 11 11 11 11 11 11 11 11 11 |_...."..........|
00000930: 11 11 11 11 11 22 A3 32 29 22 12 49 4E 53 45 52 |.....".2)".INSER|
00000940: 54 20 53 4F 55 52 43 45 20 44 49 53 4B 45 54 54 |T SOURCE DISKETT|
00000950: 45 20 2D 54 4F 45 54 53 2D 20 20 20 20 20 22 00 |E -TOETS- ".|
00000960: 82 11 C1 02 99 22 13 11 11 11 11 22 A3 32 29 42 |.....".....".2)B|
00000970: 4C 24 3A 99 A3 32 29 22 12 91 57 41 43 48 54 45 |L$:..2)"..WACHTE|
00000980: 4E 22 00 95 11 C6 02 A1 57 24 3A 8B 57 24 B2 22 |N"......W$:.W$."|
00000990: 22 A7 37 31 30 00 AB 11 DA 02 54 42 B2 54 42 AA |".710.....TB.TB.|
000009A0: 31 3A 8B 54 42 B3 45 A7 34 37 30 00 E0 11 E4 02 |1:.TB.E.470.....|
000009B0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000009C0: 11 11 11 11 11 11 11 11 11 12 45 49 4E 44 45 20 |..........EINDE |
000009D0: 44 49 52 45 43 54 4F 52 59 91 22 3A 89 38 37 30 |DIRECTORY.":.870|
000009E0: 00 F2 11 EE 02 8F 20 42 4F 55 57 20 53 54 52 49 |...... BOUW STRI|
000009F0: 4E 47 00 FC 11 F8 02 42 24 B2 22 22 00 07 12 02 |NG.....B$.""....|
00000A00: 03 81 4C B2 31 A4 4A 00 12 12 0C 03 A1 23 33 2C |..L.1.J......#3,|
00000A10: 41 24 00 2B 12 16 03 8B 41 24 B3 B1 C7 28 31 36 |A$.+....A$...(16|
00000A20: 30 29 A7 42 24 B2 42 24 AA 41 24 00 31 12 20 03 |0).B$.B$.A$.1. .|
00000A30: 82 00 37 12 2A 03 8E 00 4F 12 34 03 84 31 35 2C |..7.*...O.4..15,|
00000A40: 45 31 24 2C 45 32 24 2C 45 33 24 2C 45 34 24 00 |E1$,E2$,E3$,E4$.|
00000A50: 6A 12 3E 03 99 22 13 11 11 11 11 11 11 11 11 11 |j.>.."..........|
00000A60: 11 11 11 11 11 11 11 11 11 22 00 93 12 48 03 99 |........."...H..|
00000A70: A3 32 29 3B 22 12 22 3B 45 31 24 3B 22 2C 22 3B |.2);".";E1$;",";|
00000A80: 45 32 24 3B 22 2C 22 3B 45 33 24 3B 22 2C 22 3B |E2$;",";E3$;",";|
00000A90: 45 34 24 00 A4 12 52 03 8B 45 31 24 B3 B1 22 30 |E4$...R..E1$.."0|
00000AA0: 30 22 A7 90 00 AA 12 5C 03 8E 00 D9 12 66 03 97 |0".....\.....f..|
00000AB0: 35 31 2C 30 3A 97 35 32 2C 31 36 30 3A 97 35 35 |51,0:.52,160:.55|
00000AC0: 2C 30 3A 97 35 36 2C 31 36 30 3A 9C 3A 81 54 B2 |,0:.56,160:.:.T.|
00000AD0: 31 A4 35 30 30 3A 82 3A 8A 00 F3 12 70 03 A0 31 |1.500:.:....p..1|
00000AE0: 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A |5:.15,8,15,"I0":|
00000AF0: A0 31 35 00 F9 12 7A 03 80 00 2F 13 84 03 99 22 |.15...z.../...."|
00000B00: 93 12 81 20 20 20 20 20 20 43 4F 50 59 50 52 4F |... COPYPRO|
00000B10: 47 20 44 2E 42 52 55 49 4A 4E 20 20 20 4D 41 58 |G D.BRUIJN MAX|
00000B20: 2E 20 34 34 4B 20 20 20 20 20 11 11 22 3A 8E 00 |. 44K ..":..|
00000B30: 00 00 |.. |
.......++++++++++++++++++++.5....+ COP
YPROG +.O....+ DICK BRUIJN (C) +.
I.(..++++++++++++++++++++...2.. ZET TOP
OF BASIC OP $1F00...<..51,0:.52,30:.55,0
:.56,30:..N.F..B(7943)..8.."COPYPROG DB
2",8,1...G..53280,0:.53281,0...H..900...
I.."... F1 = DIRECTORY VAN DISK.5.J..
"... F3 = COPY PROGRAMMA'S.G.K..S$:.S
$."".75.W.L..S$..".".80.{.M..900:.7680:.
"...RAAK EEN TOETS"...N..W$:.W$."".78...
O..72...P..S$..".".75.K.U.. 828-829
OUD BEGIN LOW/HIGH...Z.. 251-252 LA
AD BEGIN LOW/HIGH...D.. 253-254 LAAD
EIND LOW/HIGH.5.N.. 2 LENGTE
NAAM.U.X.. 830-845 NAAM (MAX 16).P.
... ZET BEGIN LAAD ADRES......252,32:.25
1,0:. $2000......N$(144):. TABEL PRGS.S.
.BL$."
"...... MAIN......900...H..I.1.4.!.R..
".CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.
".P...."B
B"......".CCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCC..."............"....CBM-64
BEZIG MET :".A....".........PROGRAMMA :
"......"..............OPERATOR AKTIE :".
....."...................STATUS DISK :".
?."...2)"......INSERT SOURCE DISKETTE -T
OETS-.".B.'..".....".2)BL$:..2)"..WACHTE
N".U.,..W$:.W$."".300...6.."............
...".2)BL$:..2)"..WACHT A.U.B.".I.@.."..
...".2)".LEZEN DIRECTORY"...J. 15:.15,8,
15,"I0"...T..3,8,3,"$"...^..15,"B-P:";3;
254...H.J.3:.750...R.I.1:E.1.7.|.. LEES
DIRECTORY ENTRY.U....#3,T$,A$,A$:T.F(T$.
G(0)).E....ST. 3:.460.....J.16:.750:N$.B
$:. NAAM.....J.11:.750:.I.8.J.2:.750....
..T.2.T.130.N$(E).N$:E.E.1.M...I.I.1:.I.
8.I.1.V.B..380...L.TB.1:. BEHANDEL TABEL
...Q..".....".2)BL$:..2)"..WACHTEN".F.V.
."...............".2)BL$:..2)"..SELEKTEE
R Y/N".C...N$.N$(TB):.N$(TB)."".730.{...
."..........".2)BL$......"..........".2)
"."N$......820......W$:.W$."".520.A....W
$."N".730.R....W$.."Y".520...&..".......
........".2)BL$:..2)"..WACHT A.U.B.".3.+
..".....".2)BL$:..2)"..LEZEN VAN PROGRAM
MA".N.0..2,C(N$):. LENGTE NAAM...:..I.83
0.830.C(N$).1:.I,F(J(N$,I.830.1,1).G(0))
:.:. NAAM...D..7936:. LOAD ROUTINE...N..
820...X.. BEREKEN LENGTE...B.LE.B(253).B
(254).256.(B(251).B(252).256)...L.."....
......".23)".LENGTE :";LE.4.Q..".....".2
)BL$:..2)"..WACHTEN".T.V..".............
..".2)".INSERT DESTINATION DISKETTE -TOE
TS-"......W$:.W$."".640......".....".2)B
L$:..2)"..SCHRIJVEN VAN PROGRAMMA"......
"...............".2)BL$:..2)"..WACHT A.U
.B."..... 15:.15,8,15......8065:. SAVE R
OUTINE......820._...."...............".2
)".INSERT SOURCE DISKETTE -TOETS- ".
..A..".....".2)BL$:..2)"..WACHTEN"...F..
W$:.W$."".710...Z.TB.TB.1:.TB.E.470.....
."........................EINDE DIRECTOR
Y.":.870...... BOUW STRING.....B$.""....
..L.1.J......#3,A$.+....A$..G(160).B$.B$
.A$.1. ...7.*...O.4..15,E1$,E2$,E3$,E4$.
J.>.."..................."...H...2);".";
E1$;",";E2$;",";E3$;",";E4$...R..E1$.."0
0".....\...Y.F..51,0:.52,160:.55,0:.56,1
60:.:.T.1.500:.:....P. 15:.15,8,15,"I0":
15...Z.../...."... COPYPROG D.BRUI
JN MAX. 44K ..":....
> CLICK IMAGE PREVIEW FOR FULL MODAL