00000000: 01 1C 13 1C 0A 00 8F 20 43 2D 31 32 38 20 46 49 |....... C-128 FI|
00000010: 4C 45 52 00 2F 1C 14 00 8F 20 46 4F 52 20 43 2D |LER./.... FOR C-|
00000020: 31 32 38 20 49 4E 20 31 32 38 20 4D 4F 44 45 00 |128 IN 128 MODE.|
00000030: 46 1C 1E 00 8F 20 42 59 20 42 52 59 41 4E 20 50 |F.... BY BRYAN P|
00000040: 41 53 43 48 41 4C 00 54 1C 28 00 8F 20 34 2F 31 |ASCHAL.T.(.. 4/1|
00000050: 39 2F 38 36 00 63 1C 32 00 E7 30 2C 37 3A E7 34 |9/86.c.2..0,7:.4|
00000060: 2C 31 35 00 8D 1C 3C 00 99 22 93 12 9B 11 11 11 |,15...<.."......|
00000070: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000080: 1D 43 2D 31 32 38 20 46 49 4C 45 52 22 00 96 1C |.C-128 FILER"...|
00000090: 46 00 8D 35 34 30 00 B6 1C 50 00 99 22 93 9B 1D |F..540...P.."...|
000000A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000B0: 1D 4D 45 4E 55 22 00 CD 1C 5A 00 81 4C 49 4E 45 |.MENU"...Z..LINE|
000000C0: B2 31 A4 34 30 3A 99 22 A3 22 3B 3A 82 00 E3 1C |.1.40:.".";:....|
000000D0: 64 00 81 4E 4F B2 31 A4 37 3A 99 4E 4F 22 9D 29 |d..NO.1.7:.NO".)|
000000E0: 22 3A 82 00 2D 1D 6E 00 99 22 91 91 91 91 91 91 |":..-.n.."......|
000000F0: 91 1D 1D 1D 1D 57 52 49 54 45 20 41 20 46 49 4C |.....WRITE A FIL|
00000100: 45 22 3A 99 22 1D 1D 1D 1D 52 45 41 44 20 41 20 |E":."....READ A |
00000110: 46 49 4C 45 22 3A 99 22 1D 1D 1D 1D 41 44 44 20 |FILE":."....ADD |
00000120: 4F 4E 20 54 4F 20 41 20 46 49 4C 45 22 00 84 1D |ON TO A FILE"...|
00000130: 78 00 99 22 1D 1D 1D 1D 44 45 4C 45 54 45 20 41 |x.."....DELETE A|
00000140: 20 46 49 4C 45 22 3A 99 22 1D 1D 1D 1D 44 49 52 | FILE":."....DIR|
00000150: 45 43 54 4F 52 59 22 3A 99 22 1D 1D 1D 1D 43 48 |ECTORY":."....CH|
00000160: 45 43 4B 20 44 49 53 4B 20 45 52 52 4F 52 22 3A |ECK DISK ERROR":|
00000170: 99 22 1D 1D 1D 1D 46 4F 52 4D 41 54 20 41 20 44 |."....FORMAT A D|
00000180: 49 53 4B 22 00 A1 1D 82 00 85 22 11 45 4E 54 45 |ISK"......".ENTE|
00000190: 52 20 43 48 4F 49 43 45 20 28 31 2D 37 29 22 3B |R CHOICE (1-7)";|
000001A0: 43 00 C3 1D 8C 00 8B 43 B3 31 A7 85 22 91 45 4E |C......C.1..".EN|
000001B0: 54 45 52 20 43 48 4F 49 43 45 20 28 31 2D 37 29 |TER CHOICE (1-7)|
000001C0: 22 3B 43 00 D0 1D 96 00 8B 43 B2 31 A7 32 39 30 |";C......C.1.290|
000001D0: 00 DD 1D A0 00 8B 43 B2 32 A7 32 32 30 00 EA 1D |......C.2.220...|
000001E0: AA 00 8B 43 B2 33 A7 33 35 30 00 F7 1D B4 00 8B |...C.3.350......|
000001F0: 43 B2 34 A7 34 31 30 00 04 1E BE 00 8B 43 B2 35 |C.4.410......C.5|
00000200: A7 34 37 30 00 11 1E C8 00 8B 43 B2 36 A7 35 36 |.470......C.6.56|
00000210: 30 00 1E 1E D2 00 8B 43 B2 37 A7 35 38 30 00 30 |0......C.7.580.0|
00000220: 1E DC 00 8F 20 52 45 41 44 20 41 20 46 49 4C 45 |.... READ A FILE|
00000230: 00 52 1E E6 00 85 22 93 11 3E 20 50 52 4F 47 52 |.R...."..> PROGR|
00000240: 41 4D 20 4E 41 4D 45 05 2D 2D 3E 22 3B 46 49 4C |AM NAME.-->";FIL|
00000250: 45 24 00 63 1E F0 00 FE 0D 23 32 2C 28 46 49 4C |E$.c.....#2,(FIL|
00000260: 45 24 29 00 7E 1E FA 00 8B 53 54 B2 30 A7 A1 23 |E$).~....ST.0..#|
00000270: 32 2C 41 24 3A 99 41 24 3B 3A 89 32 35 30 00 8A |2,A$:.A$;:.250..|
00000280: 1E 04 01 A0 32 3A 8D 35 34 30 00 92 1E 0E 01 89 |....2:.540......|
00000290: 38 30 00 A5 1E 18 01 8F 20 57 52 49 54 45 20 41 |80...... WRITE A|
000002A0: 20 46 49 4C 45 00 C0 1E 22 01 85 22 93 11 3E 20 | FILE...".."..> |
000002B0: 46 49 4C 45 4E 41 4D 45 20 2D 2D 3E 22 3B 46 24 |FILENAME -->";F$|
000002C0: 00 D6 1E 2C 01 FE 0D 23 34 2C 28 46 24 29 2C 44 |...,...#4,(F$),D|
000002D0: 30 2C 55 38 2C 57 00 1B 1F 36 01 99 22 93 45 4E |0,U8,W...6..".EN|
000002E0: 54 45 52 20 5E 20 54 4F 20 51 55 49 54 20 49 4E |TER ^ TO QUIT IN|
000002F0: 46 4F 20 49 4E 50 55 54 22 3A 85 22 45 4E 54 45 |FO INPUT":."ENTE|
00000300: 52 20 4C 49 4E 45 20 31 36 20 4D 41 58 20 43 48 |R LINE 16 MAX CH|
00000310: 41 52 53 20 2D 2D 3E 22 3B 50 24 00 2E 1F 40 01 |ARS -->";P$...@.|
00000320: 8B 50 24 B2 22 5E 22 A7 A0 34 3A 89 38 30 00 3A |.P$."^"..4:.80.:|
00000330: 1F 4A 01 98 34 2C 28 50 24 29 00 43 1F 54 01 89 |.J..4,(P$).C.T..|
00000340: 33 31 30 00 5A 1F 5E 01 8F 20 41 44 44 20 4F 4E |310.Z.^.. ADD ON|
00000350: 20 54 4F 20 41 20 46 49 4C 45 00 8A 1F 68 01 85 | TO A FILE...h..|
00000360: 22 93 11 41 50 50 45 4E 44 20 54 4F 20 57 48 41 |"..APPEND TO WHA|
00000370: 54 20 46 49 4C 45 22 3B 41 24 3A FE 0E 23 34 2C |T FILE";A$:..#4,|
00000380: 28 41 24 29 2C 44 30 2C 55 38 00 BC 1F 72 01 99 |(A$),D0,U8...r..|
00000390: 22 11 45 4E 54 45 52 20 5E 20 54 4F 20 51 55 49 |".ENTER ^ TO QUI|
000003A0: 54 22 3A 85 22 45 4E 54 45 52 20 49 4E 46 4F 52 |T":."ENTER INFOR|
000003B0: 4D 41 54 49 4F 4E 2D 2D 22 3B 49 24 00 C8 1F 7C |MATION--";I$...||
000003C0: 01 98 34 2C 28 49 24 29 00 DB 1F 86 01 8B 49 24 |..4,(I$)......I$|
000003D0: B2 22 5E 22 A7 A0 34 3A 89 38 30 00 E5 1F 90 01 |."^"..4:.80.....|
000003E0: 89 20 33 37 30 00 F9 1F 9A 01 8F 20 44 45 4C 45 |. 370...... DELE|
000003F0: 54 45 20 41 20 46 49 4C 45 00 16 20 A4 01 85 22 |TE A FILE.. ..."|
00000400: 93 53 43 52 41 54 43 48 20 57 48 41 54 20 46 49 |.SCRATCH WHAT FI|
00000410: 4C 45 22 3B 53 24 00 29 20 AE 01 85 22 50 4F 53 |LE";S$.) ..."POS|
00000420: 49 54 49 56 45 22 3B 5A 24 00 38 20 B8 01 8B 5A |ITIVE";Z$.8 ...Z|
00000430: 24 B2 22 4E 22 A7 38 30 00 4A 20 C2 01 8B 5A 24 |$."N".80.J ...Z$|
00000440: B2 22 59 22 A7 F2 28 53 24 29 00 52 20 CC 01 89 |."Y"..(S$).R ...|
00000450: 38 30 00 62 20 D6 01 8F 20 44 49 52 45 43 54 4F |80.b ... DIRECTO|
00000460: 52 59 00 6B 20 E0 01 99 22 93 22 00 72 20 EA 01 |RY.k ...".".r ..|
00000470: FE 0C 00 7B 20 F4 01 8D 35 34 30 00 8F 20 FE 01 |...{ ...540.. ..|
00000480: A1 F9 41 24 3A 8B 41 24 B2 22 20 22 A7 38 30 00 |..A$:.A$." ".80.|
00000490: A0 20 08 02 8B 41 24 B3 B1 22 20 22 A7 35 31 30 |. ...A$.." ".510|
000004A0: 00 B4 20 12 02 8F 20 53 50 41 43 45 20 52 4F 55 |.. ... SPACE ROU|
000004B0: 54 49 4E 45 00 D6 20 1C 02 99 22 12 11 1D 1D 1D |TINE.. ...".....|
000004C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 52 45 53 53 20 |..........PRESS |
000004D0: 53 50 41 43 45 22 00 EC 20 26 02 EB 3A A1 F9 53 |SPACE".. &..:..S|
000004E0: 24 3A EC FC 53 24 B2 22 20 22 3A 8E 00 FE 20 30 |$:..S$." ":... 0|
000004F0: 02 8F 20 45 52 52 4F 52 20 43 48 45 43 4B 00 23 |.. ERROR CHECK.#|
00000500: 21 3A 02 99 22 93 12 44 49 53 4B 20 53 54 41 54 |!:.."..DISK STAT|
00000510: 55 53 20 22 3B 44 53 24 3A FE 0B 31 3A FE 15 3A |US ";DS$:..1:..:|
00000520: 89 38 30 00 37 21 44 02 8F 20 46 4F 52 4D 41 54 |.80.7!D.. FORMAT|
00000530: 20 41 20 44 49 53 4B 00 4D 21 4E 02 85 22 93 44 | A DISK.M!N..".D|
00000540: 49 53 4B 20 4E 41 4D 45 22 3B 44 4E 24 00 61 21 |ISK NAME";DN$.a!|
00000550: 58 02 85 22 11 44 49 53 4B 20 49 44 22 3A 49 44 |X..".DISK ID":ID|
00000560: 24 00 75 21 62 02 85 22 11 50 4F 53 49 54 49 56 |$.u!b..".POSITIV|
00000570: 45 22 3B 50 24 00 85 21 6C 02 8B 50 24 B2 22 59 |E";P$..!l..P$."Y|
00000580: 22 A7 36 33 30 00 95 21 76 02 8B 50 24 B2 22 4E |".630..!v..P$."N|
00000590: 22 A7 31 30 30 00 A7 21 80 02 F1 28 44 4E 24 29 |".100..!...(DN$)|
000005A0: 2C 49 28 49 44 24 29 00 00 00 |,I(ID$)... |
....... C-128 FILER./.... FOR C-128 IN 1
28 MODE.F.... BY BRYAN PASCHAL.T.(.. 4/1
9/86.C.2..0,7:.4,15...<.."..............
.........C-128 FILER"...F..540...P.."...
.................MENU".M.Z..LINE.1.40:."
.";:....D..NO.1.7:.NO".)":..-.N.."......
.....WRITE A FILE":."....READ A FILE":."
....ADD ON TO A FILE"...X.."....DELETE A
FILE":."....DIRECTORY":."....CHECK DISK
ERROR":."....FORMAT A DISK"......".ENTE
R CHOICE (1-7)";C.C....C.1..".ENTER CHOI
CE (1-7)";C.P....C.1.290... ..C.2.220...
...C.3.350......C.4.410......C.5.470...H
..C.6.560...R..C.7.580.0.... READ A FILE
.R...."..> PROGRAM NAME.-->";FILE$.C....
.#2,(FILE$).~....ST.0..#2,A$:.A$;:.250..
... 2:.540......80...... WRITE A FILE...
".."..> FILENAME -->";F$.V.,...#4,(F$),D
0,U8,W...6..".ENTER ^ TO QUIT INFO INPUT
":."ENTER LINE 16 MAX CHARS -->";P$...@.
.P$."^". 4:.80.:.J..4,(P$).C.T..310.Z.^.
. ADD ON TO A FILE...H.."..APPEND TO WHA
T FILE";A$:..#4,(A$),D0,U8...R..".ENTER
^ TO QUIT":."ENTER INFORMATION--";I$.H.|
..4,(I$)......I$."^". 4:.80...... 370...
... DELETE A FILE.. ...".SCRATCH WHAT FI
LE";S$.) ..."POSITIVE";Z$.8 ...Z$."N".80
.J B..Z$."Y"..(S$).R L..80.B V.. DIRECTO
RY.K ...".".R .....{ ...540.. ....A$:.A$
." ".80. ...A$.." ".510.. ... SPACE ROU
TINE.V ..."...............PRESS SPACE"..
&..:..S$:..S$." ":... 0.. ERROR CHECK.#
!:.."..DISK STATUS ";DS$:..1:..:.80.7!D.
. FORMAT A DISK.M!N..".DISK NAME";DN$.A!
X..".DISK ID":ID$.U!B..".POSITIVE";P$..!
L..P$."Y".630..!V..P$."N".100..!...(DN$)
,I(ID$)...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL