> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 1A 08 0A 00 8B 20 47 4C |............. GL|
00000010: B2 35 30 30 20 A7 20 31 36 30 00 2D 08 14 00 8B |.500 . 160.-....|
00000020: 20 47 4C B2 37 34 30 20 A7 20 34 32 30 00 40 08 | GL.740 . 420.@.|
00000030: 1E 00 8B 20 47 4C B2 37 36 30 20 A7 20 34 34 30 |... GL.760 . 440|
00000040: 00 57 08 28 00 8F 3A 20 43 52 45 41 54 45 20 41 |.W.(..: CREATE A|
00000050: 52 43 20 46 49 4C 45 00 80 08 32 00 99 22 93 11 |RC FILE...2.."..|
00000060: 05 20 20 20 20 20 20 20 20 20 20 20 20 20 12 C3 |. ..|
00000070: 52 45 41 54 45 20 C1 D2 C3 20 46 49 4C 45 92 22 |REATE ... FILE."|
00000080: 00 B0 08 3C 00 99 22 11 11 20 20 20 20 20 D0 4C |...<..".. .L|
00000090: 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B |EASE INSERT DISK|
000000A0: 20 57 49 54 48 20 C1 D2 C3 20 46 49 4C 45 2E 22 | WITH ... FILE."|
000000B0: 00 E5 08 46 00 99 22 11 11 20 20 D0 52 45 53 53 |...F..".. .RESS|
000000C0: 20 12 9E 24 05 92 20 46 4F 52 20 41 20 44 49 52 | ..$.. FOR A DIR|
000000D0: 45 43 54 4F 52 59 20 4F 46 20 C4 52 49 56 45 20 |ECTORY OF .RIVE |
000000E0: 38 2C 30 2E 22 00 1B 09 50 00 99 22 11 11 20 D0 |8,0."...P..".. .|
000000F0: 52 45 53 53 20 12 9E D3 D0 C1 C3 C5 20 C2 C1 D2 |RESS ....... ...|
00000100: 05 92 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |.. TO RETURN TO |
00000110: 4D 41 49 4E 20 4D 45 4E 55 2E 22 00 48 09 5A 00 |MAIN MENU.".H.Z.|
00000120: 99 22 11 11 20 20 20 20 20 20 20 C1 4E 59 20 4F |.".. .NY O|
00000130: 54 48 45 52 20 4B 45 59 20 57 49 4C 4C 20 43 4F |THER KEY WILL CO|
00000140: 4E 54 49 4E 55 45 2E 22 00 5F 09 64 00 A1 20 41 |NTINUE."._.d.. A|
00000150: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 30 30 00 |$:. A$."" . 100.|
00000160: 73 09 65 00 8B 20 41 24 B3 B1 22 20 22 20 A7 20 |s.e.. A$.." " . |
00000170: 31 32 30 00 A8 09 6B 00 99 22 93 05 11 11 11 11 |120...k.."......|
00000180: 11 20 D0 4C 45 41 53 45 20 49 4E 53 45 52 54 20 |. .LEASE INSERT |
00000190: 44 49 53 4B 20 57 49 54 48 20 C1 D2 C3 20 C1 C9 |DISK WITH ... ..|
000001A0: C4 20 4F 4E 20 49 54 22 00 CD 09 6C 00 99 22 20 |. ON IT"...l.." |
000001B0: 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 50 52 | AND PR|
000001C0: 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 00 E4 09 |ESS ANY KEY."...|
000001D0: 6D 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |m.. A$:. A$."" .|
000001E0: 20 31 30 39 00 02 0A 6E 00 99 22 93 11 11 11 22 | 109...n.."...."|
000001F0: 3B A6 31 35 29 3B 22 CC 4F 41 44 49 4E 47 2E 2E |;.15);".OADING..|
00000200: 2E 22 00 2D 0A 6F 00 99 22 13 90 11 11 4C 4F 41 |.".-.o.."....LOA|
00000210: 44 22 C7 28 33 34 29 22 4D 41 49 4E 22 C7 28 33 |D".(34)"MAIN".(3|
00000220: 34 29 22 2C 38 13 22 3B 3A 89 35 38 30 00 41 0A |4)",8.";:.580.A.|
00000230: 78 00 8B 20 41 24 B3 B1 22 24 22 20 A7 20 31 39 |x.. A$.."$" . 19|
00000240: 30 00 6C 0A 82 00 99 22 93 20 20 20 20 20 20 20 |0.l....". |
00000250: 20 12 C8 4F 4C 44 20 44 4F 57 4E 20 D3 C8 C9 C6 | ..OLD DOWN ....|
00000260: D4 20 54 4F 20 50 41 55 53 45 2E 22 00 85 0A 8C |. TO PAUSE."....|
00000270: 00 99 22 11 11 44 49 52 22 3A 99 22 13 22 3A 47 |.."..DIR":.".":G|
00000280: 4C B2 35 30 30 00 8E 0A 96 00 89 35 38 30 00 C8 |L.500......580..|
00000290: 0A A0 00 97 31 39 38 2C 30 3A 99 22 20 20 20 20 |....198,0:." |
000002A0: 12 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |..RESS ANY KEY T|
000002B0: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU|
000002C0: 2E 92 22 3A 47 4C B2 30 00 DF 0A AA 00 A1 20 41 |..":GL.0...... A|
000002D0: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 37 30 00 |$:. A$."" . 170.|
000002E0: E8 0A B4 00 89 20 34 30 00 10 0B BE 00 99 22 93 |..... 40......".|
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 C3 52 | ..R|
00000300: 45 41 54 45 20 C1 D2 C3 20 46 49 4C 45 2E 92 22 |EATE ... FILE.."|
00000310: 00 3D 0B C8 00 99 22 93 11 20 20 20 CE 4F 57 20 |.=....".. .OW |
00000320: 54 48 41 54 20 59 4F 55 20 4B 4E 4F 57 20 54 48 |THAT YOU KNOW TH|
00000330: 45 20 4E 41 4D 45 20 4F 46 20 54 48 45 00 77 0B |E NAME OF THE.w.|
00000340: D2 00 99 22 46 49 4C 45 20 54 4F 20 42 45 20 C1 |..."FILE TO BE .|
00000350: D2 C3 44 2C 20 41 4E 53 57 45 52 20 54 48 45 20 |..D, ANSWER THE |
00000360: 46 4F 4C 4C 4F 57 49 4E 47 20 20 20 51 55 45 53 |FOLLOWING QUES|
00000370: 54 49 4F 4E 53 3A 22 00 AB 0B DC 00 85 20 22 11 |TIONS:"...... ".|
00000380: 11 11 11 11 11 C1 D2 C3 20 46 49 4C 45 20 54 4F |........ FILE TO|
00000390: 20 42 45 20 43 52 45 41 54 45 44 22 3B 46 24 3A | BE CREATED";F$:|
000003A0: 8B 20 46 24 B2 22 22 20 A7 20 8A 00 DB 0B E6 00 |. F$."" . ......|
000003B0: 8B C2 28 32 29 B1 31 A7 99 22 D0 55 54 20 12 9E |..(2).1..".UT ..|
000003C0: CF 55 54 50 55 54 92 05 20 44 49 53 4B 20 49 4E |.UTPUT.. DISK IN|
000003D0: 20 C4 52 49 56 45 20 38 2C 30 22 00 EB 0B F0 00 | .RIVE 8,0".....|
000003E0: 8B 20 41 B2 39 20 A7 20 33 34 30 00 16 0C FA 00 |. A.9 . 340.....|
000003F0: 85 20 22 C6 49 4C 45 2C 20 50 41 54 54 45 52 4E |. ".ILE, PATTERN|
00000400: 20 4F 52 20 12 9E D2 C5 D4 D5 D2 CE 92 05 22 3B | OR ..........";|
00000410: 46 49 24 28 41 29 00 2C 0C 04 01 8B 20 46 49 24 |FI$(A).,.... FI$|
00000420: 28 41 29 B2 22 22 20 A7 20 33 34 30 00 73 0C 0E |(A)."" . 340.s..|
00000430: 01 8B C2 28 32 29 B1 31 A7 85 22 CF 4E 20 57 48 |...(2).1..".N WH|
00000440: 41 54 20 44 52 49 56 45 20 43 41 4E 20 54 48 49 |AT DRIVE CAN THI|
00000450: 53 20 46 49 4C 45 20 42 45 20 46 4F 55 4E 44 20 |S FILE BE FOUND |
00000460: 20 20 20 28 45 58 2E 20 39 2C 30 29 22 3B 44 56 | (EX. 9,0)";DV|
00000470: 2C 44 52 00 88 0C 18 01 8D 20 34 37 30 3A 46 44 |,DR...... 470:FD|
00000480: 24 28 41 29 B2 44 52 24 00 9E 0C 22 01 81 20 49 |$(A).DR$...".. I|
00000490: B2 31 20 A4 20 C3 28 46 49 24 28 41 29 29 00 D0 |.1 . .(FI$(A))..|
000004A0: 0C 2C 01 8B 20 CA 28 46 49 24 28 41 29 2C 49 2C |.,.. .(FI$(A),I,|
000004B0: 31 29 B2 22 20 22 20 A7 20 54 45 24 28 41 29 B2 |1)." " . TE$(A).|
000004C0: 54 45 24 28 41 29 AA 22 3F 22 3A 89 20 33 32 30 |TE$(A)."?":. 320|
000004D0: 00 F0 0C 36 01 54 45 24 28 41 29 B2 54 45 24 28 |...6.TE$(A).TE$(|
000004E0: 41 29 AA CA 28 46 49 24 28 41 29 2C 49 2C 31 29 |A)..(FI$(A),I,1)|
000004F0: 00 F6 0C 40 01 82 00 06 0D 4A 01 41 B2 41 AA 31 |...@.....J.A.A.1|
00000500: 3A 89 20 32 34 30 00 1A 0D 54 01 8B 20 46 49 24 |:. 240...T.. FI$|
00000510: 28 30 29 B2 22 22 20 A7 20 8A 00 36 0D 5E 01 43 |(0)."" . ..6.^.C|
00000520: 24 B2 22 41 52 43 2F 43 20 41 3A 22 AA 46 24 3A |$."ARC/C A:".F$:|
00000530: 45 58 24 B2 22 22 00 46 0D 68 01 81 20 49 B2 30 |EX$."".F.h.. I.0|
00000540: 20 A4 20 41 AB 31 00 64 0D 72 01 45 58 24 B2 45 | . A.1.d.r.EX$.E|
00000550: 58 24 AA 22 20 22 AA 46 44 24 28 49 29 AA 54 45 |X$." ".FD$(I).TE|
00000560: 24 28 49 29 00 6A 0D 7C 01 82 00 78 0D 86 01 43 |$(I).j.|...x...C|
00000570: 24 B2 43 24 AA 45 58 24 00 93 0D 90 01 99 22 93 |$.C$.EX$......".|
00000580: 11 11 11 22 3B 43 24 3A 99 22 13 22 3A 47 4C B2 |...";C$:.".":GL.|
00000590: 37 34 30 00 9C 0D 9A 01 89 35 38 30 00 BE 0D A4 |740......580....|
000005A0: 01 99 22 93 11 11 11 41 52 43 2F 4C 20 41 3A 22 |.."....ARC/L A:"|
000005B0: 46 24 3A 99 22 13 22 3A 47 4C B2 37 36 30 00 C7 |F$:.".":GL.760..|
000005C0: 0D AE 01 89 35 38 30 00 05 0E B8 01 97 20 31 39 |....580...... 19|
000005D0: 38 2C 30 3A 99 22 20 20 12 D0 52 45 53 53 20 41 |8,0:." ..RESS A|
000005E0: 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E |NY KEY TO RETURN|
000005F0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 92 22 | TO MAIN MENU.."|
00000600: 3A 47 4C B2 30 00 1C 0E C2 01 A1 20 41 24 3A 8B |:GL.0...... A$:.|
00000610: 20 41 24 B2 22 22 20 A7 20 34 35 30 00 22 0E CC | A$."" . 450."..|
00000620: 01 8A 00 2D 0E D6 01 44 52 24 B2 22 22 00 4A 0E |...-...DR$."".J.|
00000630: E0 01 8B 20 44 56 B2 38 20 AF 20 44 52 B2 30 20 |... DV.8 . DR.0 |
00000640: A7 20 44 52 24 B2 22 41 3A 22 00 67 0E EA 01 8B |. DR$."A:".g....|
00000650: 20 44 56 B2 38 20 AF 20 44 52 B2 31 20 A7 20 44 | DV.8 . DR.1 . D|
00000660: 52 24 B2 22 42 3A 22 00 84 0E F4 01 8B 20 44 56 |R$."B:"...... DV|
00000670: B2 39 20 AF 20 44 52 B2 30 20 A7 20 44 52 24 B2 |.9 . DR.0 . DR$.|
00000680: 22 43 3A 22 00 A1 0E FE 01 8B 20 44 56 B2 39 20 |"C:"...... DV.9 |
00000690: AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 44 3A |. DR.1 . DR$."D:|
000006A0: 22 00 BE 0E 08 02 8B 20 44 56 B2 31 30 AF 20 44 |"...... DV.10. D|
000006B0: 52 B2 30 20 A7 20 44 52 24 B2 22 45 3A 22 00 DC |R.0 . DR$."E:"..|
000006C0: 0E 12 02 8B 20 44 56 B2 31 30 20 AF 20 44 52 B2 |.... DV.10 . DR.|
000006D0: 31 20 A7 20 44 52 24 B2 22 46 3A 22 00 FA 0E 1C |1 . DR$."F:"....|
000006E0: 02 8B 20 44 56 B2 31 31 20 AF 20 44 52 B2 30 20 |.. DV.11 . DR.0 |
000006F0: A7 20 44 52 24 B2 22 47 3A 22 00 18 0F 26 02 8B |. DR$."G:"...&..|
00000700: 20 44 56 B2 31 31 20 AF 20 44 52 B2 31 20 A7 20 | DV.11 . DR.1 . |
00000710: 44 52 24 B2 22 48 3A 22 00 1E 0F 30 02 8E 00 24 |DR$."H:"...0...$|
00000720: 0F 3A 02 80 00 60 0F 44 02 97 20 36 33 31 2C 31 |.:...`.D.. 631,1|
00000730: 33 3A 97 36 33 32 2C 37 31 3A 97 20 36 33 33 2C |3:.632,71:. 633,|
00000740: 32 30 37 3A 97 36 33 35 2C 31 33 3A 97 36 33 36 |207:.635,13:.636|
00000750: 2C 31 33 3A 97 31 39 38 2C 35 3A 89 20 35 37 30 |,13:.198,5:. 570|
00000760: 00 00 00 |... |
............. GL.500 . 160.-.... GL.740
. 420.@.... GL.760 . 440.W.(..: CREATE A
RC FILE...2.."... .CREATE AR
C FILE."...<..".. PLEASE INSERT DISK
WITH ARC FILE."...F..".. PRESS ..$.. F
OR A DIRECTORY OF DRIVE 8,0."...P..".. P
RESS ..SPACE BAR.. TO RETURN TO MAIN MEN
U.".H.Z..".. ANY OTHER KEY WILL CO
NTINUE."._.D.. A$:. A$."" . 100.S.E.. A$
.." " . 120...K.."....... PLEASE INSERT
DISK WITH ARC AID ON IT".M.L.."
AND PRESS ANY KEY."...M.. A$:. A$."" .
109...N.."....";.15);"LOADING...".-.O..
"....LOAD"G(34)"MAIN"G(34)",8.";:.580.A.
X.. A$.."$" . 190.L....". .HOLD D
OWN SHIFT TO PAUSE."......"..DIR":.".":G
L.500......580.H. ..198,0:." .PRESS A
NY KEY TO RETURN TO MENU..":GL.0...... A
$:. A$."" . 170...... 40......".
.CREATE ARC FILE..".=.H..".. NOW
THAT YOU KNOW THE NAME OF THE.W.R.."FILE
TO BE ARCD, ANSWER THE FOLLOWING QUES
TIONS:"...... "......ARC FILE TO BE CREA
TED";F$:. F$."" . .......B(2).1.."PUT ..
OUTPUT.. DISK IN DRIVE 8,0"...... A.9 .
340...... "FILE, PATTERN OR ..RETURN..";
FI$(A).,.... FI$(A)."" . 340.S....B(2).1
.."ON WHAT DRIVE CAN THIS FILE BE FOUND
(EX. 9,0)";DV,DR...... 470:FD$(A).DR$
...".. I.1 . C(FI$(A)).P.,.. J(FI$(A),I,
1)." " . TE$(A).TE$(A)."?":. 320...6.TE$
(A).TE$(A).J(FI$(A),I,1)...@.....J.A.A.1
:. 240...T.. FI$(0)."" . ..6.^.C$."ARC/C
A:".F$:EX$."".F.H.. I.0 . A.1.D.R.EX$.E
X$." ".FD$(I).TE$(I).J.|...X...C$.C$.EX$
......"....";C$:.".":GL.740......580....
.."....ARC/L A:"F$:.".":GL.760.G....580.
..... 198,0:." .PRESS ANY KEY TO RETURN
TO MAIN MENU..":GL.0...B.. A$:. A$."" .
450.".L...-.V.DR$."".J.... DV.8 . DR.0
. DR$."A:".G.... DV.8 . DR.1 . DR$."B:".
..... DV.9 . DR.0 . DR$."C:"...... DV.9
. DR.1 . DR$."D:"...... DV.10. DR.0 . DR
$."E:"...... DV.10 . DR.1 . DR$."F:"....
.. DV.11 . DR.0 . DR$."G:"...&.. DV.11 .
DR.1 . DR$."H:"...0...$.:...`.D.. 631,1
3:.632,71:. 633,207:.635,13:.636,13:.198
,5:. 570...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL