00000000: 01 08 34 08 0A 00 8F 20 53 45 54 55 50 20 50 52 |..4.... SETUP PR|
00000010: 4F 47 52 41 4D 20 46 4F 52 20 41 57 41 52 44 20 |OGRAM FOR AWARD |
00000020: 49 4E 46 4F 20 44 41 54 41 20 46 49 4C 45 20 28 |INFO DATA FILE (|
00000030: 43 36 34 29 00 6E 08 14 00 8F 20 42 59 20 4B 43 |C64).n.... BY KC|
00000040: 36 41 20 41 4E 44 20 4E 36 4E 42 3B 20 28 43 29 |6A AND N6NB; (C)|
00000050: 20 31 39 38 33 20 42 59 20 48 41 59 44 45 4E 20 | 1983 BY HAYDEN |
00000060: 42 4F 4F 4B 20 43 4F 2E 2C 20 49 4E 43 2E 00 98 |BOOK CO., INC...|
00000070: 08 1E 00 99 20 22 57 41 52 4E 49 4E 47 3A 20 54 |.... "WARNING: T|
00000080: 48 49 53 20 50 52 4F 47 52 41 4D 20 44 45 4C 45 |HIS PROGRAM DELE|
00000090: 54 45 53 20 54 48 45 22 00 BF 08 28 00 99 20 22 |TES THE"...(.. "|
000000A0: 27 41 57 52 44 49 4E 46 4F 27 20 46 49 4C 45 20 |'AWRDINFO' FILE |
000000B0: 46 4F 52 20 54 48 45 20 41 57 41 52 44 53 22 00 |FOR THE AWARDS".|
000000C0: EF 08 32 00 99 20 22 44 41 54 45 20 42 41 53 45 |..2.. "DATE BASE|
000000D0: 20 50 52 4F 47 52 41 4D 20 41 4E 44 20 43 52 45 | PROGRAM AND CRE|
000000E0: 41 54 45 53 20 41 20 4E 45 57 20 4F 4E 45 22 00 |ATES A NEW ONE".|
000000F0: 11 09 3C 00 99 3A 85 20 22 4F 4B 20 54 4F 20 43 |..<..:. "OK TO C|
00000100: 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 22 3B 41 |ONTINUE (Y/N)";A|
00000110: 24 00 23 09 46 00 8B 20 41 24 B3 B1 22 59 22 20 |$.#.F.. A$.."Y" |
00000120: A7 20 80 00 2F 09 4B 00 43 4D 24 B2 22 2C 22 00 |. ../.K.CM$.",".|
00000130: 3C 09 50 00 9F 31 35 2C 38 2C 31 35 00 52 09 5A |<.P..15,8,15.R.Z|
00000140: 00 98 31 35 2C 22 53 30 3A 41 57 52 44 49 4E 46 |..15,"S0:AWRDINF|
00000150: 4F 22 00 6C 09 64 00 9F 34 2C 38 2C 34 2C 22 41 |O".l.d..4,8,4,"A|
00000160: 57 52 44 49 4E 46 4F 2C 53 2C 57 22 00 99 09 6E |WRDINFO,S,W"...n|
00000170: 00 99 3A 99 20 22 45 4E 54 45 52 20 4E 41 4D 45 |..:. "ENTER NAME|
00000180: 20 4F 46 20 54 48 49 53 20 4F 50 45 52 41 54 49 | OF THIS OPERATI|
00000190: 4E 47 20 41 57 41 52 44 22 00 BD 09 70 00 85 20 |NG AWARD"...p.. |
000001A0: 22 45 58 41 4D 50 4C 45 2D 20 46 49 56 45 20 42 |"EXAMPLE- FIVE B|
000001B0: 41 4E 44 20 44 58 43 43 22 3B 41 4E 24 00 C8 09 |AND DXCC";AN$...|
000001C0: 72 00 98 34 2C 41 4E 24 00 F3 09 78 00 99 3A 99 |r..4,AN$...x..:.|
000001D0: 20 22 45 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 | "ENTER THE NAME|
000001E0: 20 4F 46 20 54 48 45 20 41 57 41 52 44 20 55 4E | OF THE AWARD UN|
000001F0: 49 54 22 00 10 0A 7A 00 85 20 22 45 58 41 4D 50 |IT"...z.. "EXAMP|
00000200: 4C 45 2D 20 43 4F 55 4E 54 52 59 22 3B 41 4D 24 |LE- COUNTRY";AM$|
00000210: 00 1B 0A 7C 00 98 34 2C 41 4D 24 00 48 0A 82 00 |...|..4,AM$.H...|
00000220: 99 3A 99 20 22 45 4E 54 45 52 20 54 48 45 20 4E |.:. "ENTER THE N|
00000230: 55 4D 42 45 52 20 4F 46 20 53 45 50 41 52 41 54 |UMBER OF SEPARAT|
00000240: 45 20 42 41 4E 44 53 22 00 5E 0A 84 00 85 20 22 |E BANDS".^.... "|
00000250: 45 58 41 4D 50 4C 45 2D 20 35 22 3B 4E 42 00 68 |EXAMPLE- 5";NB.h|
00000260: 0A 86 00 98 34 2C 4E 42 00 96 0A 8C 00 99 3A 99 |....4,NB......:.|
00000270: 20 22 45 4E 54 45 52 20 54 48 45 20 4E 55 4D 42 | "ENTER THE NUMB|
00000280: 45 52 20 4F 46 20 44 49 46 46 45 52 45 4E 54 20 |ER OF DIFFERENT |
00000290: 41 57 41 52 44 22 00 BF 0A 8E 00 99 20 22 55 4E |AWARD"...... "UN|
000002A0: 49 54 53 20 28 45 2E 47 2E 20 53 54 41 54 45 53 |ITS (E.G. STATES|
000002B0: 20 4F 52 20 43 4F 55 4E 54 52 49 45 53 29 22 00 | OR COUNTRIES)".|
000002C0: C8 0A 90 00 85 20 4E 41 00 D2 0A 92 00 98 34 2C |..... NA......4,|
000002D0: 4E 41 00 FC 0A 96 00 99 20 22 4E 4F 57 2C 20 45 |NA...... "NOW, E|
000002E0: 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 53 20 4F |NTER THE NAMES O|
000002F0: 46 20 54 48 45 20 42 41 4E 44 53 22 00 19 0B 98 |F THE BANDS"....|
00000300: 00 86 20 42 4E 24 28 4E 42 29 2C 50 24 28 4E 41 |.. BN$(NB),P$(NA|
00000310: 29 2C 4E 4D 24 28 4E 41 29 00 28 0B A0 00 81 20 |),NM$(NA).(.... |
00000320: 4A B2 31 20 A4 20 4E 42 00 4B 0B AA 00 99 20 22 |J.1 . NB.K.... "|
00000330: 45 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 20 4F |ENTER THE NAME O|
00000340: 46 20 42 41 4E 44 20 23 22 3B 4A 00 58 0B AC 00 |F BAND #";J.X...|
00000350: 85 20 42 4E 24 28 4A 29 00 87 0B AE 00 8B 20 C3 |. BN$(J)...... .|
00000360: 28 42 4E 24 28 4A 29 29 B1 34 20 A7 20 99 20 22 |(BN$(J)).4 . . "|
00000370: 54 4F 4F 20 4C 4F 4E 47 2E 20 20 34 20 4D 41 58 |TOO LONG. 4 MAX|
00000380: 22 3A 89 20 31 37 30 00 95 0B B0 00 98 34 2C 42 |":. 170......4,B|
00000390: 4E 24 28 4A 29 00 9D 0B B4 00 82 20 4A 00 C8 0B |N$(J)...... J...|
000003A0: BE 00 99 20 22 46 49 4E 41 4C 4C 59 2C 20 45 4E |... "FINALLY, EN|
000003B0: 54 45 52 20 54 48 45 20 53 54 41 4E 44 41 52 44 |TER THE STANDARD|
000003C0: 20 50 52 45 46 49 58 22 00 EE 0B C0 00 99 20 22 | PREFIX"...... "|
000003D0: 4F 52 20 41 42 42 52 45 56 49 41 54 49 4F 4E 20 |OR ABBREVIATION |
000003E0: 46 4F 52 20 45 41 43 48 20 22 3B 41 4D 24 00 13 |FOR EACH ";AM$..|
000003F0: 0C C2 00 99 20 22 41 4E 44 20 49 54 53 20 4E 41 |.... "AND ITS NA|
00000400: 4D 45 20 28 45 2E 47 2E 20 4A 41 2C 4A 41 50 41 |ME (E.G. JA,JAPA|
00000410: 4E 29 22 00 22 0C C8 00 81 20 4A B2 31 20 A4 20 |N)".".... J.1 . |
00000420: 4E 41 00 47 0C D2 00 99 20 22 45 4E 54 45 52 20 |NA.G.... "ENTER |
00000430: 54 48 45 20 50 52 45 46 49 58 20 41 4E 44 20 4E |THE PREFIX AND N|
00000440: 41 4D 45 20 4F 46 22 00 58 0C D4 00 99 20 41 4D |AME OF".X.... AM|
00000450: 24 3B 22 20 23 22 3B 4A 00 6B 0C D6 00 85 20 50 |$;" #";J.k.... P|
00000460: 24 28 4A 29 2C 4E 4D 24 28 4A 29 00 81 0C E0 00 |$(J),NM$(J).....|
00000470: 98 34 2C 50 24 28 4A 29 43 4D 24 4E 4D 24 28 4A |.4,P$(J)CM$NM$(J|
00000480: 29 00 89 0C E6 00 82 20 4A 00 94 0C F0 00 A0 34 |)...... J......4|
00000490: 3A A0 31 35 00 00 00 |:.15... |
..4.... SETUP PROGRAM FOR AWARD INFO DAT
A FILE (C64).N.... BY KC6A AND N6NB; (C)
1983 BY HAYDEN BOOK CO., INC....... "WA
RNING: THIS PROGRAM DELETES THE"...(.. "
'AWRDINFO' FILE FOR THE AWARDS"...2.. "D
ATE BASE PROGRAM AND CREATES A NEW ONE".
..<..:. "OK TO CONTINUE (Y/N)";A$.#.F..
A$.."Y" . ../.K.CM$.",".<.P..15,8,15.R.Z
..15,"S0:AWRDINFO".L.D..4,8,4,"AWRDINFO,
S,W"...N..:. "ENTER NAME OF THIS OPERATI
NG AWARD"...P.. "EXAMPLE- FIVE BAND DXCC
";AN$.H.R..4,AN$...X..:. "ENTER THE NAME
OF THE AWARD UNIT"...Z.. "EXAMPLE- COUN
TRY";AM$...|..4,AM$.H....:. "ENTER THE N
UMBER OF SEPARATE BANDS".^.... "EXAMPLE-
5";NB.H....4,NB......:. "ENTER THE NUMB
ER OF DIFFERENT AWARD"...... "UNITS (E.G
. STATES OR COUNTRIES)".H.... NA.R....4,
NA...... "NOW, ENTER THE NAMES OF THE BA
NDS"...... BN$(NB),P$(NA),NM$(NA).(. ..
J.1 . NB.K.... "ENTER THE NAME OF BAND #
";J.X.... BN$(J)...... C(BN$(J)).4 . . "
TOO LONG. 4 MAX":. 170......4,BN$(J)...
... J.H.... "FINALLY, ENTER THE STANDARD
PREFIX"...... "OR ABBREVIATION FOR EACH
";AM$...B.. "AND ITS NAME (E.G. JA,JAPA
N)".".H.. J.1 . NA.G.R.. "ENTER THE PREF
IX AND NAME OF".X.T.. AM$;" #";J.K.V.. P
$(J),NM$(J)......4,P$(J)CM$NM$(J)......
J..... 4: 15...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL