00000000: 01 08 2E 08 0A 00 8F 20 42 41 43 4B 55 50 20 50 |....... BACKUP P|
00000010: 52 4F 47 52 41 4D 20 46 4F 52 20 41 57 52 44 49 |ROGRAM FOR AWRDI|
00000020: 4E 46 4F 20 44 41 54 41 20 46 49 4C 45 2E 00 46 |NFO DATA FILE..F|
00000030: 08 14 00 9F 31 35 2C 38 2C 31 35 3A 99 20 C7 28 |....15,8,15:. .(|
00000040: 31 34 37 29 3A 99 00 72 08 1E 00 99 20 22 45 4E |147):..r.... "EN|
00000050: 54 45 52 20 4E 41 4D 45 20 4F 46 20 41 57 41 52 |TER NAME OF AWAR|
00000060: 44 20 44 41 54 41 20 46 49 4C 45 20 54 4F 20 42 |D DATA FILE TO B|
00000070: 45 22 00 9F 08 20 00 99 20 22 43 4F 50 49 45 44 |E"... .. "COPIED|
00000080: 20 28 3C 52 45 54 55 52 4E 3E 20 49 46 20 49 54 | (<RETURN> IF IT|
00000090: 27 53 20 27 41 57 52 44 49 4E 46 4F 27 29 22 00 |'S 'AWRDINFO')".|
000000A0: C3 08 22 00 85 20 46 31 24 3A 8B 20 46 31 24 B2 |..".. F1$:. F1$.|
000000B0: 22 22 20 A7 20 46 31 24 B2 22 41 57 52 44 49 4E |"" . F1$."AWRDIN|
000000C0: 46 4F 22 00 E3 08 28 00 43 4D 24 B2 22 2C 22 3A |FO"...(.CM$.",":|
000000D0: 46 31 24 B2 22 30 3A 22 AA 46 31 24 AA 22 2C 53 |F1$."0:".F1$.",S|
000000E0: 2C 52 22 00 F9 08 32 00 9F 38 2C 38 2C 38 2C 46 |,R"...2..8,8,8,F|
000000F0: 31 24 3A 8D 20 36 30 30 30 00 15 09 34 00 99 20 |1$:. 6000...4.. |
00000100: 22 4E 4F 57 20 52 45 41 44 49 4E 47 20 46 49 4C |"NOW READING FIL|
00000110: 45 2E 2E 2E 22 00 2D 09 3C 00 84 38 2C 41 4E 24 |E...".-.<..8,AN$|
00000120: 3A 84 38 2C 41 4D 24 3A 84 38 2C 4E 42 00 50 09 |:.8,AM$:.8,NB.P.|
00000130: 46 00 84 38 2C 4E 41 3A 86 20 42 4E 24 28 4E 42 |F..8,NA:. BN$(NB|
00000140: 29 2C 50 24 28 4E 41 29 2C 4E 4D 24 28 4E 41 29 |),P$(NA),NM$(NA)|
00000150: 00 6D 09 50 00 81 20 4A B2 31 20 A4 20 4E 42 3A |.m.P.. J.1 . NB:|
00000160: 84 38 2C 42 4E 24 28 4A 29 3A 82 20 4A 00 90 09 |.8,BN$(J):. J...|
00000170: 5A 00 81 20 4A B2 31 20 A4 20 4E 41 3A 84 38 2C |Z.. J.1 . NA:.8,|
00000180: 50 24 28 4A 29 2C 4E 4D 24 28 4A 29 3A 82 20 4A |P$(J),NM$(J):. J|
00000190: 00 C1 09 64 00 A0 38 3A 99 20 22 44 41 54 41 20 |...d..8:. "DATA |
000001A0: 4E 4F 57 20 49 4E 20 52 41 4D 2E 20 20 49 4E 53 |NOW IN RAM. INS|
000001B0: 45 52 54 20 4E 45 57 20 44 49 53 4B 20 41 4E 44 |ERT NEW DISK AND|
000001C0: 22 00 E0 09 66 00 85 20 22 54 48 45 4E 20 54 59 |"...f.. "THEN TY|
000001D0: 50 45 20 3C 52 45 54 55 52 4E 3E 22 3B 43 52 24 |PE <RETURN>";CR$|
000001E0: 00 0F 0A 6E 00 99 3A 99 20 22 4E 4F 57 20 45 4E |...n..:. "NOW EN|
000001F0: 54 45 52 20 4E 41 4D 45 20 41 57 41 52 44 20 44 |TER NAME AWARD D|
00000200: 41 54 41 20 46 49 4C 45 20 49 53 20 54 4F 22 00 |ATA FILE IS TO".|
00000210: 3B 0A 70 00 99 20 22 48 41 56 45 20 28 3C 52 45 |;.p.. "HAVE (<RE|
00000220: 54 55 52 4E 3E 20 49 46 20 27 41 57 52 44 49 4E |TURN> IF 'AWRDIN|
00000230: 46 4F 27 29 22 3A 85 20 46 32 24 00 59 0A 72 00 |FO')":. F2$.Y.r.|
00000240: 8B 20 46 32 24 B2 22 22 20 A7 20 46 32 24 B2 22 |. F2$."" . F2$."|
00000250: 41 57 52 44 49 4E 46 4F 22 00 6B 0A 73 00 98 31 |AWRDINFO".k.s..1|
00000260: 35 2C 22 53 30 3A 22 AA 46 32 24 00 83 0A 74 00 |5,"S0:".F2$...t.|
00000270: 46 32 24 B2 22 30 3A 22 AA 46 32 24 AA 22 2C 53 |F2$."0:".F2$.",S|
00000280: 2C 57 22 00 99 0A 78 00 9F 34 2C 38 2C 34 2C 46 |,W"...x..4,8,4,F|
00000290: 32 24 3A 8D 20 36 30 30 30 00 BA 0A 7A 00 99 20 |2$:. 6000...z.. |
000002A0: 22 4E 4F 57 20 43 52 45 41 54 49 4E 47 20 4E 45 |"NOW CREATING NE|
000002B0: 57 20 46 49 4C 45 2E 2E 2E 22 00 D2 0A 82 00 98 |W FILE..."......|
000002C0: 34 2C 41 4E 24 3A 98 34 2C 41 4D 24 3A 98 34 2C |4,AN$:.4,AM$:.4,|
000002D0: 4E 42 00 DC 0A 84 00 98 34 2C 4E 41 00 F9 0A 8C |NB......4,NA....|
000002E0: 00 81 20 4A B2 31 20 A4 20 4E 42 3A 98 34 2C 42 |.. J.1 . NB:.4,B|
000002F0: 4E 24 28 4A 29 3A 82 20 4A 00 1E 0B 96 00 81 20 |N$(J):. J...... |
00000300: 4A B2 31 20 A4 20 4E 41 3A 98 34 2C 50 24 28 4A |J.1 . NA:.4,P$(J|
00000310: 29 43 4D 24 4E 4D 24 28 4A 29 3A 82 20 4A 00 2B |)CM$NM$(J):. J.+|
00000320: 0B A0 00 A0 34 3A A0 31 35 3A 80 00 61 0B 70 17 |....4:.15:..a.p.|
00000330: 84 31 35 2C 45 41 2C 45 42 24 2C 45 43 2C 45 44 |.15,EA,EB$,EC,ED|
00000340: 3A 8B 20 45 41 B3 32 30 20 A7 20 8E 3A 8F 20 52 |:. EA.20 . .:. R|
00000350: 45 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |EAD ERROR CHANNE|
00000360: 4C 00 71 0B 7A 17 8B 20 45 41 B2 35 30 20 A7 20 |L.q.z.. EA.50 . |
00000370: 8E 00 81 0B 84 17 8B 20 45 41 B2 36 33 20 A7 20 |....... EA.63 . |
00000380: 8E 00 98 0B 8E 17 99 20 45 41 3B 45 42 24 3B 45 |....... EA;EB$;E|
00000390: 43 3B 45 44 3A 90 3A 8E 00 00 00 |C;ED:.:.... |
....... BACKUP PROGRAM FOR AWRDINFO DATA
FILE..F....15,8,15:. G(147):..R.... "EN
TER NAME OF AWARD DATA FILE TO BE"... ..
"COPIED (<RETURN> IF IT'S 'AWRDINFO')".
C.".. F1$:. F1$."" . F1$."AWRDINFO"...(.
CM$.",":F1$."0:".F1$.",S,R"...2..8,8,8,F
1$:. 6000...4.. "NOW READING FILE...".-.
<..8,AN$:.8,AM$:.8,NB.P.F..8,NA:. BN$(NB
),P$(NA),NM$(NA).M.P.. J.1 . NB:.8,BN$(J
):. J...Z.. J.1 . NA:.8,P$(J),NM$(J):. J
.A.D. 8:. "DATA NOW IN RAM. INSERT NEW
DISK AND"...F.. "THEN TYPE <RETURN>";CR$
...N..:. "NOW ENTER NAME AWARD DATA FILE
IS TO".;.P.. "HAVE (<RETURN> IF 'AWRDIN
FO')":. F2$.Y.R.. F2$."" . F2$."AWRDINFO
".K.S..15,"S0:".F2$...T.F2$."0:".F2$.",S
,W"...X..4,8,4,F2$:. 6000...Z.. "NOW CRE
ATING NEW FILE...".R....4,AN$:.4,AM$:.4,
NB......4,NA...... J.1 . NB:.4,BN$(J):.
J...... J.1 . NA:.4,P$(J)CM$NM$(J):. J.+
. . 4: 15:..A.P..15,EA,EB$,EC,ED:. EA.20
. .:. READ ERROR CHANNEL.Q.Z.. EA.50 .
....... EA.63 . ....... EA;EB$;EC;ED:.:.
...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL