00000000: 01 04 0C 04 01 00 89 20 31 31 30 30 00 45 04 02 |....... 1100.E..|
00000010: 00 9F 20 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A |.. 15,8,15,"I0":|
00000020: 98 31 35 2C 22 53 30 3A 42 41 43 4B 55 50 20 46 |.15,"S0:BACKUP F|
00000030: 46 22 3A 94 22 30 3A 42 41 43 4B 55 50 20 46 46 |F":."0:BACKUP FF|
00000040: 22 2C 38 3A 80 00 5B 04 04 00 9F 34 2C 34 3A 9D |",8:..[....4,4:.|
00000050: 34 3A 99 22 93 22 3B 3A 9B 3A AC 00 85 04 05 00 |4:.".";:.:......|
00000060: A1 47 24 3A 81 56 B2 31 A4 C3 28 47 31 24 29 3A |.G$:.V.1..(G1$):|
00000070: 8B 47 24 B3 B1 CA 28 47 31 24 2C 56 2C 31 29 A7 |.G$...(G1$,V,1).|
00000080: 82 56 3A 89 35 00 95 04 06 00 8B 47 24 B3 B1 22 |.V:.5......G$.."|
00000090: 49 22 A7 20 8E 00 B2 04 07 00 47 31 24 B2 22 30 |I". ......G1$."0|
000000A0: 31 22 3A 8D 35 3A 98 43 43 2C 22 49 22 AA 47 24 |1":.5:.CC,"I".G$|
000000B0: 3A 8E 00 CA 04 08 00 84 43 43 2C 45 2C 45 24 2C |:.......CC,E,E$,|
000000C0: 53 2C 54 3A 8B 45 B3 32 A7 8E 00 E5 04 09 00 99 |S,T:.E.2........|
000000D0: 22 44 49 53 4B 20 45 52 52 4F 52 3A 22 45 3B 45 |"DISK ERROR:"E;E|
000000E0: 24 3B 53 3B 54 00 05 05 0A 00 99 22 12 43 92 4F |$;S;T......".C.O|
000000F0: 4E 54 49 4E 55 45 3F 22 3A 47 31 24 B2 22 43 22 |NTINUE?":G1$."C"|
00000100: 3A 8D 35 3A 8E 00 10 05 0B 00 8F 20 4D 41 49 4E |:.5:....... MAIN|
00000110: 00 1B 05 0D 00 8F 20 44 41 54 41 00 26 05 0E 00 |...... DATA.&...|
00000120: 8F 20 44 4F 49 54 00 37 05 0F 00 8F 20 44 49 52 |. DOIT.7.... DIR|
00000130: 45 43 54 49 4F 4E 53 00 42 05 11 00 8F 20 44 41 |ECTIONS.B.... DA|
00000140: 54 41 00 4D 05 4C 04 8F 20 4D 41 49 4E 00 60 05 |TA.M.L.. MAIN.`.|
00000150: 4E 04 43 43 B2 31 35 3A 9F 43 43 2C 38 2C 43 43 |N.CC.15:.CC,8,CC|
00000160: 00 78 05 51 04 8D 20 31 35 30 30 3A 8F 20 44 49 |.x.Q.. 1500:. DI|
00000170: 52 45 43 54 49 4F 4E 53 00 8A 05 56 04 8D 20 31 |RECTIONS...V.. 1|
00000180: 34 30 30 3A 8F 20 43 4F 50 59 00 90 05 60 04 80 |400:. COPY...`..|
00000190: 00 9B 05 78 05 8F 20 44 4F 49 54 00 B3 05 7D 05 |...x.. DOIT...}.|
000001A0: 87 20 44 24 20 3A 20 8B 44 24 B2 22 45 4F 44 22 |. D$ : .D$."EOD"|
000001B0: A7 20 8E 00 DE 05 82 05 99 22 12 22 44 24 3A 99 |. ......."."D$:.|
000001C0: 22 53 43 52 41 54 43 48 49 4E 47 22 3A 98 43 43 |"SCRATCHING":.CC|
000001D0: 2C 22 53 30 3A 22 AA 44 24 3A 8D 20 38 3A 00 11 |,"S0:".D$:. 8:..|
000001E0: 06 87 05 8B 20 47 24 B2 22 43 22 A7 20 99 22 43 |.... G$."C". ."C|
000001F0: 4F 50 59 49 4E 47 22 3A 98 43 43 2C 22 43 30 3A |OPYING":.CC,"C0:|
00000200: 22 AA 44 24 AA 22 3D 31 3A 22 AA 44 24 3A 8D 20 |".D$."=1:".D$:. |
00000210: 38 00 1B 06 8C 05 89 31 34 30 30 00 2C 06 DC 05 |8......1400.,...|
00000220: 8F 20 44 49 52 45 43 54 49 4F 4E 53 00 4D 06 E1 |. DIRECTIONS.M..|
00000230: 05 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000240: 1D 1D 12 42 41 43 4B 55 50 20 46 46 22 00 7D 06 |...BACKUP FF".}.|
00000250: E6 05 99 22 11 54 48 49 53 20 50 52 4F 47 52 41 |...".THIS PROGRA|
00000260: 4D 20 43 4F 50 49 45 53 20 41 4C 4C 20 54 48 45 |M COPIES ALL THE|
00000270: 20 46 4C 45 58 20 46 49 4C 45 20 22 3B 00 BC 06 | FLEX FILE ";...|
00000280: EB 05 99 22 50 52 4F 47 52 41 4D 53 20 46 52 4F |..."PROGRAMS FRO|
00000290: 4D 20 41 20 44 49 53 4B 20 49 4E 20 44 52 49 56 |M A DISK IN DRIV|
000002A0: 45 20 31 20 54 4F 20 41 20 44 49 53 4B 20 49 4E |E 1 TO A DISK IN|
000002B0: 20 44 52 49 56 45 20 30 2E 20 20 22 00 F2 06 F0 | DRIVE 0. "....|
000002C0: 05 99 22 4F 52 20 53 43 52 41 54 43 48 45 53 20 |.."OR SCRATCHES |
000002D0: 41 4C 4C 20 46 4C 45 58 20 46 49 4C 45 20 50 52 |ALL FLEX FILE PR|
000002E0: 4F 47 52 41 4D 53 20 49 4E 20 44 52 49 56 45 20 |OGRAMS IN DRIVE |
000002F0: 30 22 00 19 07 F5 05 99 20 22 11 50 4C 41 43 45 |0"...... ".PLACE|
00000300: 20 54 48 45 20 46 4C 45 58 20 46 49 4C 45 20 44 | THE FLEX FILE D|
00000310: 49 53 4B 20 49 4E 20 22 3B 00 5D 07 FA 05 99 20 |ISK IN ";.].... |
00000320: 22 44 52 49 56 45 20 31 20 41 4E 44 20 41 20 46 |"DRIVE 1 AND A F|
00000330: 4F 52 4D 41 54 54 45 44 20 28 48 45 41 44 45 52 |ORMATTED (HEADER|
00000340: 20 43 4F 4D 4D 41 4E 44 2A 20 44 49 5F 4B 20 49 | COMMAND* DI_K I|
00000350: 4E 20 44 52 49 56 45 20 30 2E 20 20 22 00 6B 07 |N DRIVE 0. ".k.|
00000360: FF 05 99 22 11 12 43 92 4F 50 59 00 7B 07 04 06 |..."..C.OPY.{...|
00000370: 99 22 12 53 92 43 52 41 54 43 48 00 88 07 05 06 |.".S.CRATCH.....|
00000380: 99 22 12 45 92 58 49 54 00 A5 07 09 06 47 31 24 |.".E.XIT.....G1$|
00000390: B2 22 43 45 22 3A 8D 20 35 3A 8B 47 24 B2 22 45 |."CE":. 5:.G$."E|
000003A0: 22 20 A7 20 80 00 C0 07 0E 06 98 43 43 2C 22 49 |" . .......CC,"I|
000003B0: 22 3A 8D 20 38 3A 8B 20 45 20 A7 20 31 35 30 30 |":. 8:. E . 1500|
000003C0: 00 C6 07 13 06 8E 00 D1 07 A4 06 8F 20 44 41 54 |............ DAT|
000003D0: 41 00 FD 07 A9 06 83 20 44 49 53 4B 20 4D 45 4E |A...... DISK MEN|
000003E0: 55 2C 46 49 4C 45 20 4D 45 4E 55 2C 53 54 41 52 |U,FILE MENU,STAR|
000003F0: 54 20 46 49 4C 45 2C 44 49 52 45 43 54 00 0F 08 |T FILE,DIRECT...|
00000400: AE 06 83 20 4D 41 49 4C 20 4C 41 42 45 4C 53 00 |... MAIL LABELS.|
00000410: 39 08 B3 06 83 20 52 45 50 4F 52 54 20 57 52 49 |9.... REPORT WRI|
00000420: 54 45 52 2C 50 52 49 4E 54 20 52 45 50 2C 43 48 |TER,PRINT REP,CH|
00000430: 41 4E 47 45 20 46 4F 52 4D 00 53 08 B8 06 83 20 |ANGE FORM.S.... |
00000440: 43 52 45 41 54 45 20 53 45 51 2C 4C 4F 41 44 20 |CREATE SEQ,LOAD |
00000450: 53 45 51 00 65 08 BD 06 83 20 41 4C 50 48 41 20 |SEQ.e.... ALPHA |
00000460: 4F 52 44 45 52 00 80 08 C2 06 83 20 43 41 4C 43 |ORDER...... CALC|
00000470: 20 46 49 4C 45 2C 4D 41 4B 45 20 43 41 4C 43 53 | FILE,MAKE CALCS|
00000480: 00 92 08 C7 06 83 20 4D 4C 31 2C 4D 4C 32 2C 4D |...... ML1,ML2,M|
00000490: 4C 33 00 AE 08 CC 06 83 20 42 41 43 4B 55 50 20 |L3...... BACKUP |
000004A0: 46 46 2C 56 49 45 57 20 53 45 51 2C 57 50 00 CC |FF,VIEW SEQ,WP..|
000004B0: 08 D1 06 8F 20 20 20 20 20 20 20 20 44 41 54 41 |.... DATA|
000004C0: 20 42 41 54 43 48 20 45 4E 54 52 59 00 EE 08 D6 | BATCH ENTRY....|
000004D0: 06 8F 20 20 20 20 20 20 20 44 41 54 41 20 55 50 |.. DATA UP|
000004E0: 44 41 54 45 2C 44 4F 20 55 50 44 41 54 45 00 08 |DATE,DO UPDATE..|
000004F0: 09 DB 06 8F 20 20 20 20 20 20 20 44 41 54 41 20 |.... DATA |
00000500: 4D 41 49 4C 2C 49 4E 56 00 3F 09 E0 06 8F 20 20 |MAIL,INV.?.... |
00000510: 20 20 20 20 20 44 41 54 41 20 22 4D 4C A2 4D 41 | DATA "ML.MA|
00000520: 49 4C 22 2C 22 52 57 A2 49 4E 56 22 2C 22 44 42 |IL","RW.INV","DB|
00000530: A2 4D 41 49 4C 22 2C 22 44 42 A2 49 4E 56 22 00 |.MAIL","DB.INV".|
00000540: 49 09 E5 06 83 20 45 4F 44 00 00 00 |I.... EOD... |
....... 1100.E.... 15,8,15,"I0":.15,"S0:
BACKUP FF":."0:BACKUP FF",8:..[....4,4:.
4:.".";:.:.......G$:.V.1.C(G1$):.G$..J(G
1$,V,1)..V:.5......G$.."I". ......G1$."0
1":.5:.CC,"I".G$:..J....CC,E,E$,S,T:.E.2
........"DISK ERROR:"E;E$;S;T......".C.O
NTINUE?":G1$."C":.5:....... MAIN...... D
ATA.&.... DOIT.7.... DIRECTIONS.B.... DA
TA.M.L.. MAIN.`.N.CC.15:.CC,8,CC.X.Q.. 1
500:. DIRECTIONS...V.. 1400:. COPY...`..
...X.. DOIT...}.. D$ : .D$."EOD". ......
."."D$:."SCRATCHING":.CC,"S0:".D$:. 8:..
.... G$."C". ."COPYING":.CC,"C0:".D$."=1
:".D$:. 8......1400.,.... DIRECTIONS.M..
.."................BACKUP FF".}....".THI
S PROGRAM COPIES ALL THE FLEX FILE ";...
..."PROGRAMS FROM A DISK IN DRIVE 1 TO A
DISK IN DRIVE 0. "......"OR SCRATCHES
ALL FLEX FILE PROGRAMS IN DRIVE 0"......
".PLACE THE FLEX FILE DISK IN ";.]....
"DRIVE 1 AND A FORMATTED (HEADER COMMAND
* DI_K IN DRIVE 0. ".K...."..C.OPY.{...
.".S.CRATCH......".E.XIT.....G1$."CE":.
5:.G$."E" . .......CC,"I":. 8:. E . 1500
.F.....Q.... DATA...... DISK MENU,FILE M
ENU,START FILE,DIRECT...... MAIL LABELS.
9.... REPORT WRITER,PRINT REP,CHANGE FOR
M.S.... CREATE SEQ,LOAD SEQ.E.... ALPHA
ORDER...B.. CALC FILE,MAKE CALCS...G.. M
L1,ML2,ML3...L.. BACKUP FF,VIEW SEQ,WP.L
.Q.. DATA BATCH ENTRY...V..
DATA UPDATE,DO UPDATE...... DATA
MAIL,INV.?.... DATA "ML.MAIL","RW.
INV","DB.MAIL","DB.INV".I.... EOD...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL