> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 53 49 4D 50 4C 49 46 49 |..(.... SIMPLIFI|
00000010: 45 44 20 4C 4F 47 42 4F 4F 4B 20 50 52 4F 47 52 |ED LOGBOOK PROGR|
00000020: 41 4D 20 28 43 36 34 29 00 4E 08 0B 00 8F 20 28 |AM (C64).N.... (|
00000030: 43 29 31 39 38 33 20 42 59 20 48 41 59 44 45 4E |C)1983 BY HAYDEN|
00000040: 20 42 4F 4F 4B 20 43 4F 2E 2C 49 4E 43 2E 00 6E | BOOK CO.,INC..n|
00000050: 08 0C 00 9F 31 33 2C 34 3A 8F 20 56 49 43 20 50 |....13,4:. VIC P|
00000060: 52 49 4E 54 45 52 20 43 48 41 4E 4E 45 4C 00 8A |RINTER CHANNEL..|
00000070: 08 0E 00 99 20 C7 28 31 34 37 29 3A 8F 20 43 4C |.... .(147):. CL|
00000080: 45 41 52 20 53 43 52 45 45 4E 00 9E 08 0F 00 86 |EAR SCREEN......|
00000090: 20 4C 47 24 28 31 30 30 30 29 3A 4A B2 31 00 C8 | LG$(1000):J.1..|
000000A0: 08 12 00 99 20 22 20 20 20 20 20 20 20 53 49 4D |.... " SIM|
000000B0: 50 4C 49 46 49 45 44 20 4C 4F 47 42 4F 4F 4B 20 |PLIFIED LOGBOOK |
000000C0: 50 52 4F 47 52 41 4D 22 00 EA 08 13 00 99 3A 99 |PROGRAM"......:.|
000000D0: 20 22 57 48 41 54 20 49 53 20 59 4F 55 52 20 43 | "WHAT IS YOUR C|
000000E0: 41 4C 4C 22 3A 85 20 43 4C 24 00 0D 09 16 00 99 |ALL":. CL$......|
000000F0: 3A 99 3A 99 20 22 48 45 52 45 20 41 52 45 20 59 |:.:. "HERE ARE Y|
00000100: 4F 55 52 20 4F 50 54 49 4F 4E 53 3A 22 00 3D 09 |OUR OPTIONS:".=.|
00000110: 18 00 99 3A 99 20 22 31 2E 20 43 52 45 41 54 45 |...:. "1. CREATE|
00000120: 20 41 20 4E 45 57 20 4C 4F 47 20 28 44 45 4C 45 | A NEW LOG (DELE|
00000130: 54 45 53 20 4F 4C 44 20 4F 4E 45 29 22 00 64 09 |TES OLD ONE)".d.|
00000140: 1A 00 99 20 22 32 2E 20 41 44 44 20 45 4E 54 52 |... "2. ADD ENTR|
00000150: 49 45 53 20 54 4F 20 45 58 49 53 54 49 4E 47 20 |IES TO EXISTING |
00000160: 4C 4F 47 22 00 86 09 1C 00 99 20 22 33 2E 20 50 |LOG"...... "3. P|
00000170: 52 49 4E 54 20 48 41 52 44 20 43 4F 50 59 20 4F |RINT HARD COPY O|
00000180: 46 20 4C 4F 47 22 00 A4 09 1E 00 99 3A 85 20 22 |F LOG"......:. "|
00000190: 43 48 4F 49 43 45 20 31 2C 20 32 2C 20 4F 52 20 |CHOICE 1, 2, OR |
000001A0: 33 22 3B 43 00 C9 09 1F 00 8B 20 43 B1 33 20 A7 |3";C...... C.3 .|
000001B0: 20 99 20 22 49 4E 56 41 4C 49 44 20 43 48 4F 49 | . "INVALID CHOI|
000001C0: 43 45 2D 22 3A 89 20 32 32 00 DA 09 20 00 8B 20 |CE-":. 22... .. |
000001D0: 43 B3 B1 31 20 A7 20 31 30 30 00 F7 09 22 00 9F |C..1 . 100..."..|
000001E0: 20 32 2C 38 2C 32 2C 22 40 30 3A 4D 49 4E 49 4C | 2,8,2,"@0:MINIL|
000001F0: 4F 47 2C 53 2C 57 22 00 17 0A 24 00 99 3A 99 20 |OG,S,W"...$..:. |
00000200: 22 43 52 45 41 54 49 4E 47 20 41 20 4E 45 57 20 |"CREATING A NEW |
00000210: 4C 4F 47 2E 2E 2E 22 00 43 0A 26 00 99 3A 99 20 |LOG...".C.&..:. |
00000220: 22 59 4F 55 20 4D 41 59 20 4E 4F 57 20 45 4E 54 |"YOU MAY NOW ENT|
00000230: 45 52 20 43 4F 4E 54 41 43 54 53 20 4F 4E 45 20 |ER CONTACTS ONE |
00000240: 41 54 22 00 6E 0A 27 00 99 20 22 41 20 54 49 4D |AT".n.'.. "A TIM|
00000250: 45 2C 20 55 53 49 4E 47 20 41 4E 59 20 46 4F 52 |E, USING ANY FOR|
00000260: 4D 41 54 20 59 4F 55 20 57 49 53 48 2C 22 00 9B |MAT YOU WISH,"..|
00000270: 0A 28 00 99 20 22 50 52 4F 56 49 44 45 44 20 45 |.(.. "PROVIDED E|
00000280: 41 43 48 20 45 4E 54 52 59 20 48 41 53 20 4E 4F |ACH ENTRY HAS NO|
00000290: 20 4D 4F 52 45 20 54 48 41 4E 22 00 C7 0A 29 00 | MORE THAN"...).|
000002A0: 99 20 22 33 38 20 43 48 41 52 41 43 54 45 52 53 |. "38 CHARACTERS|
000002B0: 2E 20 20 44 4F 4E 27 54 20 55 53 45 20 43 4F 4D |. DON'T USE COM|
000002C0: 4D 41 53 20 49 4E 22 00 DD 0A 2A 00 99 20 22 59 |MAS IN"...*.. "Y|
000002D0: 4F 55 52 20 45 4E 54 52 49 45 53 2E 22 00 02 0B |OUR ENTRIES."...|
000002E0: 2C 00 99 3A 99 20 22 4C 4F 47 20 45 4E 54 52 59 |,..:. "LOG ENTRY|
000002F0: 20 28 27 58 58 27 20 57 48 45 4E 20 44 4F 4E 45 | ('XX' WHEN DONE|
00000300: 29 22 00 0F 0B 2D 00 85 20 4C 47 24 28 4A 29 00 |)"...-.. LG$(J).|
00000310: 3C 0B 2E 00 8B 20 C3 28 4C 47 24 28 4A 29 29 B1 |<.... .(LG$(J)).|
00000320: 33 38 20 A7 20 99 20 22 45 4E 54 52 59 20 54 4F |38 . . "ENTRY TO|
00000330: 4F 20 4C 4F 4E 47 22 3A 89 20 34 35 00 53 0B 2F |O LONG":. 45.S./|
00000340: 00 8B 20 4C 47 24 28 4A 29 B2 22 58 58 22 20 A7 |.. LG$(J)."XX" .|
00000350: 20 36 30 00 62 0B 32 00 4A B2 4A AA 31 3A 89 20 | 60.b.2.J.J.1:. |
00000360: 34 35 00 7E 0B 3C 00 81 20 4E B2 31 20 A4 20 4A |45.~.<.. N.1 . J|
00000370: 3A 98 32 2C 4C 47 24 28 4E 29 3A 82 20 4E 00 8D |:.2,LG$(N):. N..|
00000380: 0B 50 00 A0 20 32 3A A0 20 31 33 3A 80 00 A7 0B |.P.. 2:. 13:....|
00000390: 64 00 9F 20 33 2C 38 2C 33 2C 22 4D 49 4E 49 4C |d.. 3,8,3,"MINIL|
000003A0: 4F 47 2C 53 2C 52 22 00 B5 0B 6E 00 84 33 2C 4C |OG,S,R"...n..3,L|
000003B0: 47 24 28 4A 29 00 CD 0B 73 00 8B 20 4C 47 24 28 |G$(J)...s.. LG$(|
000003C0: 4A 29 B2 22 58 58 22 20 A7 20 31 33 30 00 DD 0B |J)."XX" . 130...|
000003D0: 78 00 4A B2 4A AA 31 3A 89 20 31 31 30 00 E5 0B |x.J.J.1:. 110...|
000003E0: 82 00 A0 20 33 00 F5 0B 8C 00 8B 20 43 B2 33 20 |... 3...... C.3 |
000003F0: A7 20 31 38 30 00 27 0C 8E 00 99 3A 99 20 22 57 |. 180.'....:. "W|
00000400: 41 4E 54 20 54 4F 20 53 45 45 20 50 52 45 56 49 |ANT TO SEE PREVI|
00000410: 4F 55 53 20 45 4E 54 52 49 45 53 20 28 59 2F 4E |OUS ENTRIES (Y/N|
00000420: 29 22 3A 85 20 53 24 00 3B 0C 8F 00 8B 20 53 24 |)":. S$.;.... S$|
00000430: B3 B1 22 59 22 20 A7 20 31 35 31 00 60 0C 90 00 |.."Y" . 151.`...|
00000440: 99 3A 81 20 4E B2 31 20 A4 20 4A AB 31 3A 99 20 |.:. N.1 . J.1:. |
00000450: 4E 3B 22 20 22 3B 4C 47 24 28 4E 29 3A 82 20 4E |N;" ";LG$(N):. N|
00000460: 00 8E 0C 91 00 99 3A 99 20 22 57 41 4E 54 20 54 |......:. "WANT T|
00000470: 4F 20 43 48 41 4E 47 45 20 41 4E 20 45 4E 54 52 |O CHANGE AN ENTR|
00000480: 59 20 28 59 2F 4E 29 22 3A 85 20 43 48 24 00 A3 |Y (Y/N)":. CH$..|
00000490: 0C 92 00 8B 20 43 48 24 B3 B1 22 59 22 20 A7 20 |.... CH$.."Y" . |
000004A0: 31 35 31 00 B4 0C 93 00 85 20 22 57 48 41 54 20 |151...... "WHAT |
000004B0: 23 22 3B 58 00 D1 0C 94 00 99 3A 99 20 22 4F 4C |#";X......:. "OL|
000004C0: 44 20 45 4E 54 52 59 3A 20 22 3B 4C 47 24 28 58 |D ENTRY: ";LG$(X|
000004D0: 29 00 FB 0C 95 00 99 20 22 4E 4F 57 20 54 59 50 |)...... "NOW TYP|
000004E0: 45 20 43 4F 52 52 45 43 54 45 44 20 45 4E 54 52 |E CORRECTED ENTR|
000004F0: 59 22 3A 85 20 4C 47 24 28 58 29 00 1C 0D 96 00 |Y":. LG$(X).....|
00000500: 99 20 22 43 4F 52 52 45 43 54 45 44 20 54 4F 3A |. "CORRECTED TO:|
00000510: 20 20 22 3B 4C 47 24 28 58 29 3A 99 00 47 0D 97 | ";LG$(X):..G..|
00000520: 00 99 3A 99 20 22 52 45 4D 49 4E 44 45 52 3A 20 |..:. "REMINDER: |
00000530: 4E 4F 20 43 4F 4D 4D 41 53 2C 20 33 38 20 43 48 |NO COMMAS, 38 CH|
00000540: 41 52 20 4D 41 58 22 00 6A 0D 98 00 99 20 22 4E |AR MAX".j.... "N|
00000550: 45 57 20 45 4E 54 52 59 20 28 27 58 58 27 20 57 |EW ENTRY ('XX' W|
00000560: 48 45 4E 20 44 4F 4E 45 29 22 00 77 0D 9A 00 85 |HEN DONE)".w....|
00000570: 20 4C 47 24 28 4A 29 00 8F 0D 9C 00 8B 20 4C 47 | LG$(J)...... LG|
00000580: 24 28 4A 29 B2 22 58 58 22 20 A7 20 31 37 30 00 |$(J)."XX" . 170.|
00000590: 9F 0D A0 00 4A B2 4A AA 31 3A 89 20 31 35 32 00 |....J.J.1:. 152.|
000005A0: BC 0D AA 00 9F 20 32 2C 38 2C 32 2C 22 40 30 3A |..... 2,8,2,"@0:|
000005B0: 4D 49 4E 49 4C 4F 47 2C 53 2C 57 22 00 DC 0D AC |MINILOG,S,W"....|
000005C0: 00 81 20 4E B2 31 20 A4 20 4A 3A 98 32 2C 4C 47 |.. N.1 . J:.2,LG|
000005D0: 24 28 4E 29 3A 82 20 4E 3A A0 20 32 00 11 0E B2 |$(N):. N:. 2....|
000005E0: 00 99 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 |.. "DO YOU WANT |
000005F0: 54 4F 20 50 52 49 4E 54 20 4F 55 54 20 54 48 45 |TO PRINT OUT THE|
00000600: 20 4C 4F 47 20 28 59 2F 4E 29 22 3A 85 20 4C 50 | LOG (Y/N)":. LP|
00000610: 24 00 29 0E B3 00 8B 20 4C 50 24 B3 B1 22 59 22 |$.).... LP$.."Y"|
00000620: 20 A7 20 A0 20 31 33 3A 80 00 58 0E B4 00 99 20 | . . 13:..X.... |
00000630: 22 54 55 52 4E 20 4F 4E 20 50 52 49 4E 54 45 52 |"TURN ON PRINTER|
00000640: 2E 20 3C 43 52 3E 20 57 48 45 4E 20 52 45 41 44 |. <CR> WHEN READ|
00000650: 59 22 3A 85 20 43 52 24 00 61 0E B6 00 9D 20 31 |Y":. CR$.a.... 1|
00000660: 33 00 86 0E B8 00 99 20 22 20 20 20 20 20 20 20 |3...... " |
00000670: 20 20 20 4C 4F 47 20 42 4F 4F 4B 20 4F 46 20 22 | LOG BOOK OF "|
00000680: 3B 43 4C 24 3A 99 00 AD 0E B9 00 81 20 4E B2 31 |;CL$:....... N.1|
00000690: 20 A4 20 4A AB 31 3A 99 20 4E 3B 22 20 22 3B 4C | . J.1:. N;" ";L|
000006A0: 47 24 28 4E 29 3A 82 20 4E 3A 98 31 33 00 C5 0E |G$(N):. N:.13...|
000006B0: C2 00 81 20 4A B2 31 20 A4 20 32 30 30 30 3A 99 |... J.1 . 2000:.|
000006C0: 3B 3A 82 20 4A 00 D0 0E C4 00 A0 20 31 33 3A 80 |;:. J...... 13:.|
000006D0: 00 00 00 |... |
..(.... SIMPLIFIED LOGBOOK PROGRAM (C64)
.N.... (C)1983 BY HAYDEN BOOK CO.,INC..N
....13,4:. VIC PRINTER CHANNEL...... G(1
47):. CLEAR SCREEN...... LG$(1000):J.1.H
.... " SIMPLIFIED LOGBOOK PROGRAM"
......:. "WHAT IS YOUR CALL":. CL$......
:.:. "HERE ARE YOUR OPTIONS:".=....:. "1
. CREATE A NEW LOG (DELETES OLD ONE)".D.
... "2. ADD ENTRIES TO EXISTING LOG"....
.. "3. PRINT HARD COPY OF LOG"......:. "
CHOICE 1, 2, OR 3";C.I.... C.3 . . "INVA
LID CHOICE-":. 22.Z. .. C..1 . 100..."..
2,8,2,"@0:MINILOG,S,W"...$..:. "CREATIN
G A NEW LOG...".C.&..:. "YOU MAY NOW ENT
ER CONTACTS ONE AT".N.'.. "A TIME, USING
ANY FORMAT YOU WISH,"...(.. "PROVIDED E
ACH ENTRY HAS NO MORE THAN".G.).. "38 CH
ARACTERS. DON'T USE COMMAS IN"...*.. "Y
OUR ENTRIES."...,..:. "LOG ENTRY ('XX' W
HEN DONE)"...-.. LG$(J).<.... C(LG$(J)).
38 . . "ENTRY TOO LONG":. 45.S./.. LG$(J
)."XX" . 60.B.2.J.J.1:. 45.~.<.. N.1 . J
:.2,LG$(N):. N...P. 2: 13:....D.. 3,8,
3,"MINILOG,S,R"...N..3,LG$(J).M.S.. LG$(
J)."XX" . 130...X.J.J.1:. 110..... 3...
... C.3 . 180.'....:. "WANT TO SEE PREVI
OUS ENTRIES (Y/N)":. S$.;.... S$.."Y" .
151.`....:. N.1 . J.1:. N;" ";LG$(N):. N
......:. "WANT TO CHANGE AN ENTRY (Y/N)"
:. CH$...... CH$.."Y" . 151...... "WHAT
#";X.Q....:. "OLD ENTRY: ";LG$(X)......
"NOW TYPE CORRECTED ENTRY":. LG$(X).....
. "CORRECTED TO: ";LG$(X):..G....:. "RE
MINDER: NO COMMAS, 38 CHAR MAX".J.... "N
EW ENTRY ('XX' WHEN DONE)".W.... LG$(J).
..... LG$(J)."XX" . 170... .J.J.1:. 152.
..... 2,8,2,"@0:MINILOG,S,W"...... N.1 .
J:.2,LG$(N):. N: 2...... "DO YOU WANT
TO PRINT OUT THE LOG (Y/N)":. LP$.)....
LP$.."Y" . 13:..X.... "TURN ON PRINTER
. <CR> WHEN READY":. CR$.A.... 13......
" LOG BOOK OF ";CL$:....... N.1
. J.1:. N;" ";LG$(N):. N:.13.E.B.. J.1
. 2000:.;:. J.P.D. 13:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL