> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 64 00 8F 20 4D 45 4E 55 20 53 45 4C |..$.d.. MENU SEL|
00000010: 45 43 54 49 4F 4E 20 57 49 54 48 20 4A 4F 59 53 |ECTION WITH JOYS|
00000020: 54 49 43 4B 00 43 08 6E 00 8F 20 44 49 53 50 4C |TICK.C.n.. DISPL|
00000030: 41 59 20 4D 45 4E 55 20 57 49 54 48 20 43 55 52 |AY MENU WITH CUR|
00000040: 53 4F 52 00 52 08 78 00 4C B2 31 35 31 30 3A 56 |SOR.R.x.L.1510:V|
00000050: B2 30 00 82 08 82 00 97 35 33 32 38 31 2C 30 3A |.0......53281,0:|
00000060: 99 22 93 90 53 41 4D 50 4C 45 20 4D 45 4E 55 20 |."..SAMPLE MENU |
00000070: 3A 22 3A 97 35 33 32 38 31 2C 31 3A 97 20 4C 2C |:":.53281,1:. L,|
00000080: 38 31 00 A6 08 8C 00 99 22 11 55 53 45 20 4A 4F |81......".USE JO|
00000090: 59 53 54 49 43 4B 20 54 4F 20 43 48 4F 4F 53 45 |YSTICK TO CHOOSE|
000000A0: 20 4C 49 4E 45 22 00 C9 08 96 00 99 22 54 48 45 | LINE"......"THE|
000000B0: 4E 20 50 52 45 53 53 20 42 55 54 54 4F 4E 20 54 |N PRESS BUTTON T|
000000C0: 4F 20 53 45 4C 45 43 54 22 00 ED 08 A0 00 99 22 |O SELECT"......"|
000000D0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 41 59 52 |............PAYR|
000000E0: 4F 4C 4C 4C 20 50 52 4F 47 52 41 4D 22 00 19 09 |OLLL PROGRAM"...|
000000F0: AA 00 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00000100: 41 43 43 4F 55 4E 54 53 20 50 41 59 41 42 4C 45 |ACCOUNTS PAYABLE|
00000110: 20 50 52 4F 47 52 41 4D 22 00 40 09 B4 00 99 22 | PROGRAM".@...."|
00000120: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 41 43 43 4F |............ACCO|
00000130: 55 4E 54 53 20 52 45 43 45 49 56 41 42 4C 45 22 |UNTS RECEIVABLE"|
00000140: 00 65 09 BE 00 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |.e....".........|
00000150: 1D 1D 1D 49 4E 56 45 4E 54 4F 52 59 20 50 52 4F |...INVENTORY PRO|
00000160: 47 52 41 4D 22 00 8C 09 C8 00 99 22 11 11 1D 1D |GRAM"......"....|
00000170: 1D 1D 1D 1D 1D 1D 1D 1D 53 54 4F 43 4B 48 4F 4C |........STOCKHOL|
00000180: 44 45 52 20 52 45 43 4F 52 44 53 22 00 A8 09 D2 |DER RECORDS"....|
00000190: 00 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |.."............S|
000001A0: 54 4F 50 20 52 55 4E 22 00 CE 09 DC 00 8D 20 33 |TOP RUN"...... 3|
000001B0: 35 30 3A 8F 20 43 48 45 43 4B 20 4A 4F 59 53 54 |50:. CHECK JOYST|
000001C0: 49 43 4B 20 41 4E 44 20 42 55 54 54 4F 4E 00 EE |ICK AND BUTTON..|
000001D0: 09 E6 00 8F 20 53 45 45 20 49 46 20 42 55 54 54 |.... SEE IF BUTT|
000001E0: 4F 4E 20 57 41 53 20 50 52 45 53 53 45 44 00 FF |ON WAS PRESSED..|
000001F0: 09 F0 00 8B 20 46 42 B2 30 20 A7 20 34 36 30 00 |.... FB.0 . 460.|
00000200: 20 0A FA 00 8F 20 49 46 20 4A 4F 59 53 54 49 43 | .... IF JOYSTIC|
00000210: 4B 20 4E 4F 54 20 55 50 20 4F 52 20 44 4F 57 4E |K NOT UP OR DOWN|
00000220: 00 47 0A 04 01 8F 20 41 4E 44 20 46 49 52 45 20 |.G.... AND FIRE |
00000230: 42 55 54 54 4F 4E 20 57 41 53 20 4E 4F 54 20 50 |BUTTON WAS NOT P|
00000240: 52 45 53 53 45 44 2C 00 66 0A 0E 01 8F 20 47 4F |RESSED,.f.... GO|
00000250: 20 42 41 43 4B 20 54 4F 20 53 43 41 4E 20 4B 45 | BACK TO SCAN KE|
00000260: 59 42 4F 41 52 44 00 82 0A 18 01 8F 20 43 48 45 |YBOARD...... CHE|
00000270: 43 4B 20 46 4F 52 20 4A 4F 59 53 54 49 43 4B 20 |CK FOR JOYSTICK |
00000280: 55 50 00 9B 0A 22 01 8B 20 4A 44 B2 31 20 A7 20 |UP...".. JD.1 . |
00000290: 8B 20 56 B1 34 20 A7 20 32 32 30 00 D7 0A 2C 01 |. V.4 . 220...,.|
000002A0: 8B 20 4A 44 B2 31 20 A7 20 56 B2 56 AA 33 3A 97 |. JD.1 . V.V.3:.|
000002B0: 20 4C 2C 39 36 3A 4C B2 4C AB 31 32 30 3A 97 20 | L,96:L.L.120:. |
000002C0: 4C 2C 38 31 3A 81 20 49 B2 31 A4 32 35 30 3A 82 |L,81:. I.1.250:.|
000002D0: 49 3A 89 20 32 32 30 00 F5 0A 36 01 8F 20 43 48 |I:. 220...6.. CH|
000002E0: 45 43 4B 20 46 4F 52 20 4A 4F 59 53 54 49 43 4B |ECK FOR JOYSTICK|
000002F0: 20 44 4F 57 4E 00 0F 0B 40 01 8B 20 4A 44 B2 32 | DOWN...@.. JD.2|
00000300: 20 A7 20 8B 20 56 B3 AB 37 20 A7 20 32 32 30 00 | . . V..7 . 220.|
00000310: 4B 0B 4A 01 8B 20 4A 44 B2 32 20 A7 20 56 B2 56 |K.J.. JD.2 . V.V|
00000320: AB 33 3A 97 20 4C 2C 39 36 3A 4C B2 4C AA 31 32 |.3:. L,96:L.L.12|
00000330: 30 3A 97 20 4C 2C 38 31 3A 81 20 49 B2 31 A4 32 |0:. L,81:. I.1.2|
00000340: 35 30 3A 82 49 3A 89 20 32 32 30 00 75 0B 54 01 |50:.I:. 220.u.T.|
00000350: 89 20 32 32 30 3A 8F 20 47 4F 20 42 41 43 4B 20 |. 220:. GO BACK |
00000360: 54 4F 20 43 48 45 43 4B 20 46 4F 52 20 4A 4F 59 |TO CHECK FOR JOY|
00000370: 53 54 49 43 4B 00 98 0B 5E 01 8F 20 43 48 45 43 |STICK...^.. CHEC|
00000380: 4B 20 46 4F 52 20 46 49 52 45 42 55 54 54 4F 4E |K FOR FIREBUTTON|
00000390: 20 50 52 45 53 53 45 44 00 BD 0B 68 01 8F 20 41 | PRESSED...h.. A|
000003A0: 4E 44 20 54 4F 20 46 49 4E 44 20 4A 4F 59 53 54 |ND TO FIND JOYST|
000003B0: 49 43 4B 20 44 49 52 45 43 54 49 4F 4E 00 DA 0B |ICK DIRECTION...|
000003C0: 72 01 8F 20 46 42 20 49 53 20 46 49 52 45 42 55 |r.. FB IS FIREBU|
000003D0: 54 54 4F 4E 20 56 41 4C 55 45 00 F0 0B 7C 01 8F |TTON VALUE...|..|
000003E0: 20 46 42 3D 30 20 49 46 20 50 52 45 53 53 45 44 | FB=0 IF PRESSED|
000003F0: 00 0B 0C 86 01 8F 20 46 42 3D 31 36 20 49 46 20 |...... FB=16 IF |
00000400: 4E 4F 54 20 50 52 45 53 53 45 44 00 1B 0C 90 01 |NOT PRESSED.....|
00000410: 4A 56 B2 C2 28 35 36 33 32 31 29 00 2A 0C 9A 01 |JV..(56321).*...|
00000420: 46 42 B2 4A 56 20 AF 20 31 36 00 3E 0C A4 01 4A |FB.JV . 16.>...J|
00000430: 44 B2 31 35 AB 28 4A 56 20 AF 20 31 35 29 00 58 |D.15.(JV . 15).X|
00000440: 0C AE 01 8F 20 4A 44 3D 31 20 49 46 20 4A 4F 59 |.... JD=1 IF JOY|
00000450: 53 54 49 43 4B 20 55 50 00 74 0C B8 01 8F 20 4A |STICK UP.t.... J|
00000460: 44 3D 32 20 49 46 20 4A 4F 59 53 54 49 43 4B 20 |D=2 IF JOYSTICK |
00000470: 44 4F 57 4E 00 7A 0C C2 01 8E 00 AA 0C CC 01 8F |DOWN.z..........|
00000480: 20 48 45 52 45 20 49 53 20 57 48 45 52 45 20 59 | HERE IS WHERE Y|
00000490: 4F 55 20 47 4F 20 49 46 20 42 55 54 54 4F 4E 20 |OU GO IF BUTTON |
000004A0: 49 53 20 50 52 45 53 53 45 44 00 BE 0C D6 01 81 |IS PRESSED......|
000004B0: 20 49 B2 31 20 A4 20 32 35 30 3A 82 20 49 00 F8 | I.1 . 250:. I..|
000004C0: 0C E0 01 8B 20 56 B2 36 20 A7 20 99 22 93 12 11 |.... V.6 . ."...|
000004D0: 11 11 11 11 1D 1D 1D 1D 1D 50 41 59 52 4F 4C 4C |.........PAYROLL|
000004E0: 20 50 52 4F 47 52 41 4D 20 53 45 4C 45 43 54 45 | PROGRAM SELECTE|
000004F0: 44 22 3A 89 20 35 34 30 00 33 0D EA 01 8B 20 56 |D":. 540.3.... V|
00000500: B2 33 20 A7 20 99 22 93 12 11 11 11 11 11 1D 1D |.3 . .".........|
00000510: 1D 1D 1D 41 43 43 4F 55 4E 54 53 20 50 41 59 41 |...ACCOUNTS PAYA|
00000520: 42 4C 45 20 53 45 4C 45 43 54 45 44 22 3A 89 20 |BLE SELECTED":. |
00000530: 35 34 30 00 71 0D F4 01 8B 20 56 B2 30 20 A7 20 |540.q.... V.0 . |
00000540: 99 22 93 12 11 11 11 11 11 1D 1D 1D 1D 1D 41 43 |."............AC|
00000550: 43 4F 55 4E 54 53 20 52 45 43 45 49 56 41 42 4C |COUNTS RECEIVABL|
00000560: 45 20 53 45 4C 45 43 54 45 44 22 3A 89 20 35 34 |E SELECTED":. 54|
00000570: 30 00 AE 0D FE 01 8B 20 56 B2 AB 33 20 A7 20 99 |0...... V..3 . .|
00000580: 22 93 12 11 11 11 11 11 1D 1D 1D 1D 1D 49 4E 56 |"............INV|
00000590: 45 4E 54 4F 52 59 20 50 52 4F 47 52 41 4D 20 53 |ENTORY PROGRAM S|
000005A0: 45 4C 45 43 54 45 44 22 3A 89 20 35 34 30 00 EB |ELECTED":. 540..|
000005B0: 0D 08 02 8B 20 56 B2 AB 36 20 A7 20 99 22 93 12 |.... V..6 . ."..|
000005C0: 11 11 11 11 11 1D 1D 1D 1D 1D 53 54 4F 43 4B 48 |..........STOCKH|
000005D0: 4F 4C 44 45 52 20 52 45 43 4F 52 44 20 50 52 4F |OLDER RECORD PRO|
000005E0: 47 52 41 4D 22 3A 89 20 35 34 30 00 14 0E 12 02 |GRAM":. 540.....|
000005F0: 8B 20 56 B2 AB 39 20 A7 20 99 22 93 12 11 11 11 |. V..9 . .".....|
00000600: 11 11 1D 1D 1D 1D 1D 45 4E 44 20 4F 46 20 52 55 |.......END OF RU|
00000610: 4E 22 3A 90 00 41 0E 1C 02 99 22 11 11 50 52 45 |N":..A...."..PRE|
00000620: 53 53 20 42 55 54 54 4F 4E 20 54 4F 20 52 45 54 |SS BUTTON TO RET|
00000630: 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |URN TO MAIN MENU|
00000640: 22 00 69 0E 26 02 8F 20 57 41 49 54 20 48 45 52 |".i.&.. WAIT HER|
00000650: 45 20 55 4E 54 49 4C 20 42 55 54 54 4F 4E 20 49 |E UNTIL BUTTON I|
00000660: 53 20 50 52 45 53 53 45 44 00 7D 0E 30 02 41 B2 |S PRESSED.}.0.A.|
00000670: C2 28 35 36 33 32 31 29 20 AF 20 31 36 00 8E 0E |.(56321) . 16...|
00000680: 3A 02 8B 20 41 B3 B1 30 20 A7 20 35 36 30 00 A8 |:.. A..0 . 560..|
00000690: 0E 44 02 81 20 49 B2 31 20 A4 20 32 35 30 3A 82 |.D.. I.1 . 250:.|
000006A0: 20 49 3A 89 20 31 33 30 00 00 00 | I:. 130... |
..$.D.. MENU SELECTION WITH JOYSTICK.C.N
.. DISPLAY MENU WITH CURSOR.R.X.L.1510:V
.0......53281,0:."..SAMPLE MENU :":.5328
1,1:. L,81......".USE JOYSTICK TO CHOOSE
LINE".I...."THEN PRESS BUTTON TO SELECT
"... .."............PAYROLLL PROGRAM"...
..."............ACCOUNTS PAYABLE PROGRAM
".@...."............ACCOUNTS RECEIVABLE"
.E...."............INVENTORY PROGRAM"...
H.."............STOCKHOLDER RECORDS"...R
.."............STOP RUN".N.... 350:. CHE
CK JOYSTICK AND BUTTON...... SEE IF BUTT
ON WAS PRESSED...... FB.0 . 460. .... IF
JOYSTICK NOT UP OR DOWN.G.... AND FIRE
BUTTON WAS NOT PRESSED,.F.... GO BACK TO
SCAN KEYBOARD...... CHECK FOR JOYSTICK
UP...".. JD.1 . . V.4 . 220.W.,.. JD.1 .
V.V.3:. L,96:L.L.120:. L,81:. I.1.250:.
I:. 220...6.. CHECK FOR JOYSTICK DOWN...
@.. JD.2 . . V..7 . 220.K.J.. JD.2 . V.V
.3:. L,96:L.L.120:. L,81:. I.1.250:.I:.
220.U.T.. 220:. GO BACK TO CHECK FOR JOY
STICK...^.. CHECK FOR FIREBUTTON PRESSED
...H.. AND TO FIND JOYSTICK DIRECTION.Z.
R.. FB IS FIREBUTTON VALUE...|.. FB=0 IF
PRESSED...... FB=16 IF NOT PRESSED.....
JV.B(56321).*...FB.JV . 16.>...JD.15.(JV
. 15).X.... JD=1 IF JOYSTICK UP.T.... J
D=2 IF JOYSTICK DOWN.Z.B.....L.. HERE IS
WHERE YOU GO IF BUTTON IS PRESSED...V..
I.1 . 250:. I...... V.6 . ."...........
.PAYROLL PROGRAM SELECTED":. 540.3.... V
.3 . ."............ACCOUNTS PAYABLE SELE
CTED":. 540.Q.... V.0 . ."............AC
COUNTS RECEIVABLE SELECTED":. 540......
V..3 . ."............INVENTORY PROGRAM S
ELECTED":. 540...... V..6 . ."..........
..STOCKHOLDER RECORD PROGRAM":. 540.....
. V..9 . ."............END OF RUN":..A..
.."..PRESS BUTTON TO RETURN TO MAIN MENU
".I.&.. WAIT HERE UNTIL BUTTON IS PRESSE
D.}.0.A.B(56321) . 16...:.. A..0 . 560..
.D.. I.1 . 250:. I:. 130...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL