00000000: 01 40 21 40 0A 00 FE 26 3A E7 30 2C 37 3A E7 34 |.@!@...&:.0,7:.4|
00000010: 2C 37 3A E7 31 2C 32 3A E7 35 2C 32 3A DE 31 2C |,7:.1,2:.5,2:.1,|
00000020: 31 00 5A 40 14 00 E1 2C 30 2C 30 2C 33 31 39 2C |1.Z@...,0,0,319,|
00000030: 31 37 39 3A E0 30 2C 35 2C 32 2C 22 43 31 32 38 |179:.0,5,2,"C128|
00000040: 20 44 49 53 4B 20 42 41 53 45 44 20 31 39 39 30 | DISK BASED 1990|
00000050: 20 43 41 4C 45 4E 44 41 52 22 00 78 40 1E 00 E0 | CALENDAR".x@...|
00000060: 30 2C 31 32 2C 34 2C 22 42 59 20 50 41 55 4C 20 |0,12,4,"BY PAUL |
00000070: 54 52 41 59 4E 4F 52 22 00 B8 40 28 00 E1 2C 34 |TRAYNOR"..@(..,4|
00000080: 2C 34 2C 33 31 35 2C 34 38 3A E0 30 2C 31 2C 37 |,4,315,48:.0,1,7|
00000090: 2C 22 44 45 56 49 43 45 20 54 4F 20 42 45 20 55 |,"DEVICE TO BE U|
000000A0: 53 45 44 20 46 4F 52 20 43 41 4C 45 4E 44 41 52 |SED FOR CALENDAR|
000000B0: 3F 20 28 38 2D 39 29 22 00 C3 40 32 00 A1 F9 20 |? (8-9)"..@2... |
000000C0: 55 4E 24 00 E5 40 3C 00 55 4E B2 C5 28 55 4E 24 |UN$..@<.UN..(UN$|
000000D0: 29 3A 8B 20 55 4E B3 38 20 B0 20 55 4E B1 31 31 |):. UN.8 . UN.11|
000000E0: 20 A7 20 35 30 00 19 41 46 00 E0 30 2C 31 2C 37 | . 50..AF..0,1,7|
000000F0: 2C 22 20 20 20 20 20 20 20 20 20 43 41 4C 45 4E |," CALEN|
00000100: 44 41 52 20 4F 4E 20 44 45 56 49 43 45 20 20 20 |DAR ON DEVICE |
00000110: 20 20 20 20 20 20 20 20 22 00 29 41 50 00 E0 30 | ".)AP..0|
00000120: 2C 32 39 2C 37 2C 55 4E 24 00 3A 41 5A 00 8B 20 |,29,7,UN$.:AZ.. |
00000130: 55 4E B2 39 20 A7 20 31 31 30 00 61 41 64 00 F9 |UN.9 . 110.aAd..|
00000140: 20 31 2C 22 4F 50 45 4E 31 2C 38 2C 38 2C 22 AA | 1,"OPEN1,8,8,".|
00000150: C7 28 33 34 29 AA 22 43 41 4C 2E 22 3A 89 31 32 |.(34)."CAL.":.12|
00000160: 30 00 83 41 6E 00 F9 20 31 2C 22 4F 50 45 4E 31 |0..An.. 1,"OPEN1|
00000170: 2C 39 2C 38 2C 22 AA C7 28 33 34 29 AA 22 43 41 |,9,8,"..(34)."CA|
00000180: 4C 2E 22 00 C0 41 78 00 F9 20 34 2C 22 47 52 41 |L."..Ax.. 4,"GRA|
00000190: 50 48 49 43 30 3A 43 4F 4C 4F 52 34 2C 31 34 3A |PHIC0:COLOR4,14:|
000001A0: 43 4F 4C 4F 52 30 2C 31 3A 43 4F 4C 4F 52 35 2C |COLOR0,1:COLOR5,|
000001B0: 31 34 3A 53 43 4E 43 4C 52 22 AA C7 28 31 33 29 |14:SCNCLR"..(13)|
000001C0: 00 F2 41 82 00 F9 20 38 2C 22 47 52 41 50 48 49 |..A... 8,"GRAPHI|
000001D0: 43 30 3A 47 52 41 50 48 49 43 31 2C 31 3A 53 59 |C0:GRAPHIC1,1:SY|
000001E0: 53 20 36 35 34 37 38 2C 30 2C 31 22 AA C7 28 31 |S 65478,0,1"..(1|
000001F0: 33 29 00 23 42 8C 00 E1 2C 34 2C 37 32 2C 33 31 |3).#B...,4,72,31|
00000200: 35 2C 31 37 35 3A E0 30 2C 32 2C 31 30 2C 22 43 |5,175:.0,2,10,"C|
00000210: 41 4C 45 4E 44 41 52 20 4F 50 45 52 41 54 49 4F |ALENDAR OPERATIO|
00000220: 4E 3B 22 00 3E 42 96 00 E0 30 2C 35 2C 31 32 2C |N;".>B...0,5,12,|
00000230: 22 50 52 45 53 53 20 46 4B 45 59 20 31 22 00 65 |"PRESS FKEY 1".e|
00000240: 42 A0 00 E0 30 2C 35 2C 31 34 2C 22 45 4E 54 45 |B...0,5,14,"ENTE|
00000250: 52 20 4D 4F 4E 54 48 20 28 45 47 20 4A 41 4E 2C |R MONTH (EG JAN,|
00000260: 46 45 42 29 22 00 84 42 AA 00 E0 30 2C 35 2C 31 |FEB)"..B...0,5,1|
00000270: 36 2C 22 50 52 45 53 53 20 52 45 54 55 52 4E 20 |6,"PRESS RETURN |
00000280: 4B 45 59 22 00 B3 42 B4 00 E0 30 2C 35 2C 31 38 |KEY"..B...0,5,18|
00000290: 2C 22 50 52 45 53 53 20 46 4B 45 59 20 38 20 54 |,"PRESS FKEY 8 T|
000002A0: 4F 20 45 58 45 43 55 54 45 20 43 41 4C 45 4E 44 |O EXECUTE CALEND|
000002B0: 41 52 22 00 DE 42 BE 00 E0 30 2C 35 2C 32 30 2C |AR"..B...0,5,20,|
000002C0: 22 50 52 45 53 53 20 46 4B 45 59 20 34 20 54 4F |"PRESS FKEY 4 TO|
000002D0: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 22 00 0F | CLEAR SCREEN"..|
000002E0: 43 C8 00 E0 30 2C 33 2C 32 34 2C 22 50 52 45 53 |C...0,3,24,"PRES|
000002F0: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 45 58 49 |S ANY KEY TO EXI|
00000300: 54 20 54 48 49 53 20 50 52 4F 47 52 41 4D 22 00 |T THIS PROGRAM".|
00000310: 32 43 D2 00 A1 F9 20 41 24 3A DE 20 30 3A E7 34 |2C.... A$:. 0:.4|
00000320: 2C 31 34 3A E7 35 2C 31 34 3A E7 30 2C 31 3A E8 |,14:.5,14:.0,1:.|
00000330: 3A A2 00 00 00 |:.... |
.@!@...&:.0,7:.4,7:.1,2:.5,2:.1,1.Z@...,
0,0,319,179:.0,5,2,"C128 DISK BASED 1990
CALENDAR".X@...0,12,4,"BY PAUL TRAYNOR"
..@(..,4,4,315,48:.0,1,7,"DEVICE TO BE U
SED FOR CALENDAR? (8-9)".C@2... UN$..@<.
UN.E(UN$):. UN.8 . UN.11 . 50..AF..0,1,7
," CALENDAR ON DEVICE
".)AP..0,29,7,UN$.:AZ.. UN.9 . 110.AAD..
1,"OPEN1,8,8,".G(34)."CAL.":.120..AN..
1,"OPEN1,9,8,".G(34)."CAL."..AX.. 4,"GRA
PHIC0:COLOR4,14:COLOR0,1:COLOR5,14:SCNCL
R".G(13)..A... 8,"GRAPHIC0:GRAPHIC1,1:SY
S 65478,0,1".G(13).#B...,4,72,315,175:.0
,2,10,"CALENDAR OPERATION;".>B...0,5,12,
"PRESS FKEY 1".EB ..0,5,14,"ENTER MONTH
(EG JAN,FEB)"..B...0,5,16,"PRESS RETURN
KEY"..B...0,5,18,"PRESS FKEY 8 TO EXECUT
E CALENDAR"..B...0,5,20,"PRESS FKEY 4 TO
CLEAR SCREEN"..CH..0,3,24,"PRESS ANY KE
Y TO EXIT THIS PROGRAM".2CR... A$:. 0:.4
,14:.5,14:.0,1:.:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL