_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

PROGVECTOR

FILE INFORMATION

FILENAME(S): PROGVECTOR

FILE TYPE(S): PRG

FILE SIZE: 2.3K

FIRST SEEN: 2025-12-02 02:15:03

APPEARS ON: 1 disk(s)

FILE HASH

ea04520af11223511a97f56ac587c9f4dd5e930c27322f9ad9c0fc9c506346a8

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PANS TOOLS 08 PROGVECTOR PRG The BAM Archive 34 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 20 08 01 00 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.. ....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 00 39 08 02 00 8F 20 50  52 4F 47 52 41 4D 20 50  |.9.... PROGRAM P|
00000030: 41 52 41 4D 45 54 45 52  53 00 58 08 03 00 8F 20  |ARAMETERS.X.... |
00000040: 20 20 20 50 52 4F 47 52  41 4D 4D 45 52 20 4A 2E  |   PROGRAMMER J.|
00000050: 4D 41 4C 46 4C 49 45 54  00 77 08 04 00 8F 20 20  |MALFLIET.w....  |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 31 34 2F  |             14/|
00000070: 30 32 2F 31 39 38 34 00  96 08 05 00 8F 2A 2A 2A  |02/1984......***|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000090: 2A 2A 2A 2A 2A 2A 00 B6  08 0A 00 86 20 42 46 24  |******...... BF$|
000000A0: 28 32 35 35 29 2C 4E 4D  24 28 31 36 29 3A 4E 53  |(255),NM$(16):NS|
000000B0: 24 B2 C7 28 30 29 00 D2  08 14 00 85 20 22 93 05  |$..(0)...... "..|
000000C0: 50 52 4F 47 52 41 4D 4D  41 4E 41 41 4D 20 22 3B  |PROGRAMMANAAM ";|
000000D0: 41 24 00 EC 08 1E 00 9F  20 31 35 2C 38 2C 31 35  |A$...... 15,8,15|
000000E0: 3A 9F 20 35 2C 38 2C 35  2C 22 23 22 00 0F 09 28  |:. 5,8,5,"#"...(|
000000F0: 00 8D 35 30 30 3A 8F 20  5A 4F 45 4B 20 42 45 47  |..500:. ZOEK BEG|
00000100: 49 4E 54 52 41 43 4B 20  26 20 42 4C 4F 43 4B 00  |INTRACK & BLOCK.|
00000110: 49 09 5A 00 8B 20 54 52  B2 30 20 A7 20 99 20 22  |I.Z.. TR.0 . . "|
00000120: 11 11 50 52 4F 47 52 41  4D 4D 41 20 4E 49 45 54  |..PROGRAMMA NIET|
00000130: 20 47 45 56 4F 4E 44 45  4E 22 3A A0 20 35 3A A0  | GEVONDEN":. 5:.|
00000140: 20 31 35 3A 89 20 34 30  30 00 94 09 64 00 46 4C  | 15:. 400...d.FL|
00000150: 41 47 B2 31 3A 4E 42 B2  30 3A 8F 20 46 4C 41 47  |AG.1:NB.0:. FLAG|
00000160: 3D 31 20 49 4E 44 49 45  4E 20 45 45 52 53 54 45  |=1 INDIEN EERSTE|
00000170: 50 52 4F 47 52 42 4C 4F  43 4B 2E 20 4E 42 3D 41  |PROGRBLOCK. NB=A|
00000180: 41 4E 54 41 4C 20 50 52  4F 47 52 41 4D 4D 41 42  |ANTAL PROGRAMMAB|
00000190: 59 54 45 53 00 B1 09 69  00 98 31 35 2C 22 55 31  |YTES...i..15,"U1|
000001A0: 3A 35 2C 22 30 3B 54 52  3B 42 4C 3A 8D 20 38 30  |:5,"0;TR;BL:. 80|
000001B0: 30 00 C3 09 6E 00 98 31  35 2C 22 42 2D 50 3A 35  |0...n..15,"B-P:5|
000001C0: 2C 30 22 00 DF 09 70 00  A1 23 35 2C 42 24 3A 8B  |,0"...p..#5,B$:.|
000001D0: 20 42 24 B2 22 22 20 A7  20 42 24 B2 4E 53 24 00  | B$."" . B$.NS$.|
000001E0: EC 09 71 00 42 31 B2 C6  28 42 24 29 00 08 0A 72  |..q.B1..(B$)...r|
000001F0: 00 A1 23 35 2C 42 24 3A  8B 20 42 24 B2 22 22 20  |..#5,B$:. B$."" |
00000200: A7 20 42 24 B2 4E 53 24  00 15 0A 73 00 42 32 B2  |. B$.NS$...s.B2.|
00000210: C6 28 42 24 29 00 31 0A  74 00 A1 23 35 2C 42 24  |.(B$).1.t..#5,B$|
00000220: 3A 8B 20 42 24 B2 22 22  20 A7 20 42 24 B2 4E 53  |:. B$."" . B$.NS|
00000230: 24 00 3E 0A 75 00 42 33  B2 C6 28 42 24 29 00 5A  |$.>.u.B3..(B$).Z|
00000240: 0A 76 00 A1 23 35 2C 42  24 3A 8B 20 42 24 B2 22  |.v..#5,B$:. B$."|
00000250: 22 20 A7 20 42 24 B2 4E  53 24 00 67 0A 77 00 42  |" . B$.NS$.g.w.B|
00000260: 34 B2 C6 28 42 24 29 00  9A 0A 82 00 8B 20 46 4C  |4..(B$)...... FL|
00000270: 41 47 B2 31 20 A7 20 42  41 B2 42 34 AC 32 35 36  |AG.1 . BA.B4.256|
00000280: AA 42 33 3A 8F 20 42 45  47 49 4E 41 44 52 45 53  |.B3:. BEGINADRES|
00000290: 20 50 52 4F 47 52 41 4D  4D 41 00 BB 0A 8C 00 8B  | PROGRAMMA......|
000002A0: 20 42 31 B2 30 20 A7 20  32 30 30 3A 8F 20 4C 41  | B1.0 . 200:. LA|
000002B0: 41 54 53 54 45 20 42 4C  4F 43 4B 00 CE 0A 96 00  |ATSTE BLOCK.....|
000002C0: 8B 20 46 4C 41 47 B2 30  20 A7 20 31 37 30 00 E9  |. FLAG.0 . 170..|
000002D0: 0A A0 00 46 4C 41 47 B2  30 3A 4E 42 B2 4E 42 AA  |...FLAG.0:NB.NB.|
000002E0: 32 35 32 3A 89 20 31 38  30 00 F7 0A AA 00 4E 42  |252:. 180.....NB|
000002F0: B2 4E 42 AA 32 35 34 00  1D 0B B4 00 54 52 B2 42  |.NB.254.....TR.B|
00000300: 31 3A 42 4C B2 42 32 3A  89 31 30 35 3A 8F 20 56  |1:BL.B2:.105:. V|
00000310: 4F 4C 47 45 4E 44 45 20  42 4C 4F 43 4B 00 2A 0B  |OLGENDE BLOCK.*.|
00000320: C8 00 A0 20 35 3A A0 20  31 35 00 47 0B D2 00 8B  |... 5:. 15.G....|
00000330: 20 46 4C 41 47 B2 31 20  A7 20 4E 42 B2 42 32 AB  | FLAG.1 . NB.B2.|
00000340: 33 3A 89 20 32 33 30 00  56 0B DC 00 4E 42 B2 4E  |3:. 230.V...NB.N|
00000350: 42 AA 42 32 AB 31 00 7A  0B E6 00 45 41 B2 42 41  |B.B2.1.z...EA.BA|
00000360: AA 4E 42 3A 8F 20 45 49  4E 41 44 52 45 53 20 50  |.NB:. EINADRES P|
00000370: 52 4F 47 52 41 4D 4D 41  2B 31 00 9E 0B F0 00 99  |ROGRAMMA+1......|
00000380: 20 22 11 11 9E 12 42 45  47 49 4E 41 44 52 45 53  | "....BEGINADRES|
00000390: 20 20 20 20 20 20 3A 22  42 41 22 92 05 22 00 BC  |      :"BA".."..|
000003A0: 0B FA 00 41 48 B2 B5 28  42 41 AD 32 35 36 29 3A  |...AH..(BA.256):|
000003B0: 41 4C B2 42 41 AB 41 48  AC 32 35 36 00 DA 0B 04  |AL.BA.AH.256....|
000003C0: 01 99 20 22 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 50  |.. "...........P|
000003D0: 4F 4B 45 20 34 33 2C 22  41 4C 00 F8 0B 0E 01 99  |OKE 43,"AL......|
000003E0: 20 22 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 50 4F 4B  | "...........POK|
000003F0: 45 20 34 34 2C 22 41 48  00 1C 0C 18 01 99 20 22  |E 44,"AH...... "|
00000400: 11 11 9E 12 45 49 4E 44  41 44 52 45 53 2B 31 20  |....EINDADRES+1 |
00000410: 20 20 20 20 3A 22 45 41  22 92 05 22 00 3A 0C 22  |    :"EA"..".:."|
00000420: 01 41 48 B2 B5 28 45 41  AD 32 35 36 29 3A 41 4C  |.AH..(EA.256):AL|
00000430: B2 45 41 AB 41 48 AC 32  35 36 00 58 0C 2C 01 99  |.EA.AH.256.X.,..|
00000440: 20 22 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 50 4F 4B  | "...........POK|
00000450: 45 20 34 35 2C 22 41 4C  00 76 0C 36 01 99 20 22  |E 45,"AL.v.6.. "|
00000460: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 50 4F 4B 45 20  |...........POKE |
00000470: 34 36 2C 22 41 48 00 A1  0C 40 01 99 20 22 11 11  |46,"AH...@.. "..|
00000480: 9E 12 50 52 4F 47 52 41  4D 4D 41 4C 45 4E 47 54  |..PROGRAMMALENGT|
00000490: 45 20 3A 22 4E 42 22 9D  20 42 59 54 45 53 92 05  |E :"NB". BYTES..|
000004A0: 22 00 E5 0C 90 01 99 20  22 13 11 11 11 11 11 11  |"...... ".......|
000004B0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000004C0: 11 57 45 4E 53 54 20 55  20 45 45 4E 20 56 4F 4C  |.WENST U EEN VOL|
000004D0: 47 45 4E 44 20 50 52 4F  47 52 41 4D 20 28 4A 2F  |GEND PROGRAM (J/|
000004E0: 4E 29 20 3F 22 00 FC 0C  9A 01 A1 20 41 24 3A 8B  |N) ?"...... A$:.|
000004F0: 20 41 24 B2 22 22 20 A7  20 34 31 30 00 0D 0D A4  | A$."" . 410....|
00000500: 01 8B 20 41 24 B2 22 4A  22 20 A7 20 8A 00 21 0D  |.. A$."J" . ..!.|
00000510: AE 01 8B 20 41 24 B3 B1  22 4E 22 20 A7 20 34 31  |... A$.."N" . 41|
00000520: 30 00 2D 0D B8 01 99 20  22 93 22 3A 80 00 47 0D  |0.-.... ".":..G.|
00000530: F4 01 8F 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |... ************|
00000540: 2A 2A 2A 2A 2A 2A 2A 00  6C 0D F5 01 8F 20 52 4F  |*******.l.... RO|
00000550: 55 54 49 4E 45 20 5A 4F  45 4B 20 50 52 4F 47 20  |UTINE ZOEK PROG |
00000560: 49 4E 20 44 49 52 45 43  54 4F 52 59 00 87 0D F6  |IN DIRECTORY....|
00000570: 01 8F 20 20 49 4E 20 20  3A 41 24 3D 50 52 4F 47  |..  IN  :A$=PROG|
00000580: 52 41 4D 4E 41 41 4E 00  AD 0D F7 01 8F 20 20 4F  |RAMNAAN......  O|
00000590: 55 54 20 3A 54 52 3D 45  45 52 53 54 45 20 54 52  |UT :TR=EERSTE TR|
000005A0: 41 43 4B 20 20 42 4C 3D  42 4C 4F 43 4B 00 D3 0D  |ACK  BL=BLOCK...|
000005B0: F8 01 8F 20 20 20 20 20  20 20 54 52 3D 30 20 49  |...       TR=0 I|
000005C0: 4E 44 49 45 4E 20 4E 49  45 54 20 47 45 56 4F 4E  |NDIEN NIET GEVON|
000005D0: 44 45 4E 00 ED 0D F9 01  8F 20 2A 2A 2A 2A 2A 2A  |DEN...... ******|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 FF 0D  |*************...|
000005F0: FE 01 81 20 49 B2 31 20  A4 20 C3 28 41 24 29 00  |... I.1 . .(A$).|
00000600: 18 0E 08 02 4E 4D 24 28  49 29 B2 CA 28 41 24 2C  |....NM$(I)..(A$,|
00000610: 49 2C 31 29 3A 82 20 49  00 27 0E 1C 02 53 50 B2  |I,1):. I.'...SP.|
00000620: 31 38 3A 53 45 B2 31 00  44 0E 26 02 98 31 35 2C  |18:SE.1.D.&..15,|
00000630: 22 55 31 3A 35 2C 22 30  3B 53 50 3B 53 45 3A 8D  |"U1:5,"0;SP;SE:.|
00000640: 20 38 30 30 00 56 0E 30  02 98 31 35 2C 22 42 2D  | 800.V.0..15,"B-|
00000650: 50 3A 35 2C 31 22 00 66  0E 3A 02 81 20 49 B2 31  |P:5,1".f.:.. I.1|
00000660: 20 A4 20 32 35 34 00 82  0E 44 02 A1 23 35 2C 42  | . 254...D..#5,B|
00000670: 24 3A 8B 20 42 24 B2 22  22 20 A7 20 42 24 B2 4E  |$:. B$."" . B$.N|
00000680: 53 24 00 94 0E 4E 02 42  46 24 28 49 29 B2 42 24  |S$...N.BF$(I).B$|
00000690: 3A 82 20 49 00 A6 0E 58  02 98 31 35 2C 22 42 2D  |:. I...X..15,"B-|
000006A0: 50 3A 35 2C 30 22 00 C2  0E 62 02 A1 23 35 2C 42  |P:5,0"...b..#5,B|
000006B0: 24 3A 8B 20 42 24 B2 22  22 20 A7 20 42 24 B2 4E  |$:. B$."" . B$.N|
000006C0: 53 24 00 D0 0E 6C 02 42  46 24 28 30 29 B2 42 24  |S$...l.BF$(0).B$|
000006D0: 00 E5 0E 76 02 81 20 49  B2 32 20 A4 20 32 32 36  |...v.. I.2 . 226|
000006E0: 20 A9 20 33 32 00 FB 0E  80 02 8D 20 37 31 30 3A  | . 32...... 710:|
000006F0: 8B 20 54 52 B3 B1 30 20  A7 20 8E 00 03 0F 8A 02  |. TR..0 . ......|
00000700: 82 20 49 00 21 0F 94 02  53 50 B2 C6 28 42 46 24  |. I.!...SP..(BF$|
00000710: 28 30 29 29 3A 53 45 B2  C6 28 42 46 24 28 31 29  |(0)):SE..(BF$(1)|
00000720: 29 00 35 0F 9E 02 8B 20  53 50 B2 30 20 A7 20 54  |).5.... SP.0 . T|
00000730: 52 B2 30 3A 8E 00 3F 0F  A8 02 89 20 35 35 30 00  |R.0:..?.... 550.|
00000740: 59 0F BC 02 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |Y.... **********|
00000750: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 9D 0F BD 02 8F 20  |*********...... |
00000760: 20 52 4F 55 54 49 4E 45  20 54 45 53 54 20 31 20  | ROUTINE TEST 1 |
00000770: 50 52 4F 47 52 41 4D 45  4E 54 52 59 20 49 4E 20  |PROGRAMENTRY IN |
00000780: 37 30 32 20 52 45 4D 20  20 20 20 20 20 20 20 20  |702 REM         |
00000790: 20 44 45 20 44 49 52 45  43 54 4F 52 59 00 C3 0F  | DE DIRECTORY...|
000007A0: C0 02 8F 20 20 49 4E 20  49 3D 50 4F 49 4E 54 45  |...  IN I=POINTE|
000007B0: 52 20 49 4E 20 44 49 52  45 43 54 4F 52 59 42 4C  |R IN DIRECTORYBL|
000007C0: 4F 43 4B 00 E8 0F C2 02  8F 20 20 4F 55 54 20 54  |OCK......  OUT T|
000007D0: 52 3D 45 45 52 53 54 45  20 54 52 41 43 4B 20 20  |R=EERSTE TRACK  |
000007E0: 42 4C 3D 42 4C 4F 43 4B  00 0C 10 C3 02 8F 20 20  |BL=BLOCK......  |
000007F0: 20 20 20 20 54 52 3D 30  20 49 4E 44 49 45 4E 20  |    TR=0 INDIEN |
00000800: 50 52 4F 47 52 41 4D 20  4E 49 45 54 00 32 10 C4  |PROGRAM NIET.2..|
00000810: 02 8F 20 20 20 20 20 20  20 20 20 20 20 49 4E 20  |..           IN |
00000820: 44 45 5A 45 20 44 49 45  43 54 4F 52 59 42 4C 4F  |DEZE DIECTORYBLO|
00000830: 43 4B 00 4C 10 C5 02 8F  20 2A 2A 2A 2A 2A 2A 2A  |CK.L.... *******|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 7F 10 C6  |************....|
00000850: 02 8B 20 C6 28 42 46 24  28 49 29 29 B3 B1 31 33  |.. .(BF$(I))..13|
00000860: 30 20 A7 20 54 52 B2 30  3A 8E 3A 8F 20 47 45 45  |0 . TR.0:.:. GEE|
00000870: 4E 20 50 52 4F 47 52 41  4D 4D 41 46 49 4C 45 00  |N PROGRAMMAFILE.|
00000880: 91 10 D0 02 81 20 4B B2  31 20 A4 20 C3 28 41 24  |..... K.1 . .(A$|
00000890: 29 00 B3 10 DA 02 8B 20  42 46 24 28 49 AA 4B AA  |)...... BF$(I.K.|
000008A0: 32 29 B3 B1 4E 4D 24 28  4B 29 20 A7 20 54 52 B2  |2)..NM$(K) . TR.|
000008B0: 30 3A 8E 00 BB 10 E4 02  82 20 4B 00 DD 10 EE 02  |0:....... K.....|
000008C0: 54 52 B2 C6 28 42 46 24  28 49 AA 31 29 29 3A 42  |TR..(BF$(I.1)):B|
000008D0: 4C B2 C6 28 42 46 24 28  49 AA 32 29 29 00 E3 10  |L..(BF$(I.2))...|
000008E0: F8 02 8E 00 02 11 20 03  8F 20 2A 2A 2A 2A 2A 20  |...... .. ***** |
000008F0: 44 49 53 4B 20 45 52 52  4F 52 43 4F 4E 54 52 4F  |DISK ERRORCONTRO|
00000900: 4C 45 00 22 11 25 03 84  31 35 2C 45 4E 2C 45 4D  |LE.".%..15,EN,EM|
00000910: 24 2C 45 54 2C 45 53 3A  8B 20 45 4E B2 30 20 A7  |$,ET,ES:. EN.0 .|
00000920: 20 8E 00 47 11 2A 03 99  20 22 11 11 12 44 49 53  | ..G.*.. "...DIS|
00000930: 4B 20 45 52 52 4F 52 92  22 45 4E 2C 45 4D 24 2C  |K ERROR."EN,EM$,|
00000940: 45 54 2C 45 53 3A 80 00  00 00 00                 |ET,ES:.....     |
.. ....*************************.9.... P
ROGRAM PARAMETERS.X....    PROGRAMMER J.
MALFLIET.W....               14/02/1984.
.....*************************...... BF$
(255),NM$(16):NS$.G(0).R.... "..PROGRAMM
ANAAM ";A$...... 15,8,15:. 5,8,5,"#"...(
..500:. ZOEK BEGINTRACK & BLOCK.I.Z.. TR
.0 . . "..PROGRAMMA NIET GEVONDEN":  5: 
 15:. 400...D.FLAG.1:NB.0:. FLAG=1 INDIE
N EERSTEPROGRBLOCK. NB=AANTAL PROGRAMMAB
YTES...I..15,"U1:5,"0;TR;BL:. 800.C.N..1
5,"B-P:5,0"...P..#5,B$:. B$."" . B$.NS$.
..Q.B1.F(B$)...R..#5,B$:. B$."" . B$.NS$
...S.B2.F(B$).1.T..#5,B$:. B$."" . B$.NS
$.>.U.B3.F(B$).Z.V..#5,B$:. B$."" . B$.N
S$.G.W.B4.F(B$)...... FLAG.1 . BA.B4.256
.B3:. BEGINADRES PROGRAMMA...... B1.0 . 
200:. LAATSTE BLOCK.N.... FLAG.0 . 170..
. .FLAG.0:NB.NB.252:. 180.....NB.NB.254.
....TR.B1:BL.B2:.105:. VOLGENDE BLOCK.*.
H.  5:  15.G.R.. FLAG.1 . NB.B2.3:. 230.
V...NB.NB.B2.1.Z...EA.BA.NB:. EINADRES P
ROGRAMMA+1...... "....BEGINADRES      :"
BA"..".....AH..(BA.256):AL.BA.AH.256.Z..
.. "...........POKE 43,"AL...... "......
.....POKE 44,"AH...... "....EINDADRES+1 
    :"EA"..".:.".AH..(EA.256):AL.EA.AH.2
56.X.,.. "...........POKE 45,"AL.V.6.. "
...........POKE 46,"AH...@.. "....PROGRA
MMALENGTE :"NB". BYTES.."...... ".......
.................WENST U EEN VOLGEND PRO
GRAM (J/N) ?"...... A$:. A$."" . 410....
.. A$."J" . ..!.... A$.."N" . 410.-.... 
".":..G.... *******************.L.... RO
UTINE ZOEK PROG IN DIRECTORY......  IN  
:A$=PROGRAMNAAN......  OUT :TR=EERSTE TR
ACK  BL=BLOCK.S....       TR=0 INDIEN NI
ET GEVONDEN...... *******************...
... I.1 . C(A$).....NM$(I).J(A$,I,1):. I
.'...SP.18:SE.1.D.&..15,"U1:5,"0;SP;SE:.
 800.V.0..15,"B-P:5,1".F.:.. I.1 . 254..
.D..#5,B$:. B$."" . B$.NS$...N.BF$(I).B$
:. I...X..15,"B-P:5,0".B.B..#5,B$:. B$."
" . B$.NS$.P.L.BF$(0).B$...V.. I.2 . 226
 . 32...... 710:. TR..0 . ....... I.!...
SP.F(BF$(0)):SE.F(BF$(1)).5.... SP.0 . T
R.0:..?.... 550.Y.... ******************
*......  ROUTINE TEST 1 PROGRAMENTRY IN 
702 REM          DE DIRECTORY.C....  IN 
I=POINTER IN DIRECTORYBLOCK...B..  OUT T
R=EERSTE TRACK  BL=BLOCK...C..      TR=0
 INDIEN PROGRAM NIET.2.D..           IN 
DEZE DIECTORYBLOCK.L.E.. ***************
****..F.. F(BF$(I))..130 . TR.0:.:. GEE
N PROGRAMMAFILE...P.. K.1 . C(A$)...Z.. 
BF$(I.K.2)..NM$(K) . TR.0:....... K.....
TR.F(BF$(I.1)):BL.F(BF$(I.2))......... .
. ***** DISK ERRORCONTROLE.".%..15,EN,EM
$,ET,ES:. EN.0 . ..G.*.. "...DISK ERROR.
"EN,EM$,ET,ES:.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL