> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 36 08 50 00 86 4D 24 28 31 32 29 2C 57 24 |..6.P..M$(12),W$|
00000010: 28 37 29 3A 81 49 B2 31 A4 31 32 3A 87 4D 24 28 |(7):.I.1.12:.M$(|
00000020: 49 29 3A 82 49 3A 81 49 B2 31 A4 37 3A 87 57 24 |I):.I:.I.1.7:.W$|
00000030: 28 49 29 3A 82 49 00 59 08 5A 00 9E 36 35 35 31 |(I):.I.Y.Z..6551|
00000040: 37 3A 41 B2 C2 28 37 38 31 29 3A 8B 41 B2 34 30 |7:A..(781):.A.40|
00000050: A7 97 35 33 32 38 31 2C 31 00 8A 08 64 00 99 22 |..53281,1...d.."|
00000060: 93 11 20 20 20 54 48 49 53 20 49 53 20 41 20 50 |.. THIS IS A P|
00000070: 52 4F 47 52 41 4D 22 3A 99 22 1D 1D 1D 1D 1D 1D |ROGRAM":."......|
00000080: 54 4F 20 53 48 4F 57 20 41 22 00 BC 08 69 00 99 |TO SHOW A"...i..|
00000090: 22 1D 1D 9C 4D 4F 4E 54 48 4C 59 20 43 41 4C 45 |"...MONTHLY CALE|
000000A0: 4E 44 41 52 1F 22 3A 99 22 1D 1D 1D 4F 4E 20 54 |NDAR.":."...ON T|
000000B0: 48 45 20 50 52 49 4E 54 45 52 11 22 00 EE 08 6E |HE PRINTER."...n|
000000C0: 00 99 22 1D 50 4C 45 41 53 45 20 54 59 50 45 20 |..".PLEASE TYPE |
000000D0: 49 4E 20 54 48 45 22 3A 99 22 1D 1D 1D 1C 4D 4F |IN THE":."....MO|
000000E0: 4E 54 48 1F 41 4E 44 1C 59 45 41 52 1F 22 00 26 |NTH.AND.YEAR.".&|
000000F0: 09 6F 00 99 22 54 48 41 54 20 59 4F 55 20 57 49 |.o.."THAT YOU WI|
00000100: 53 48 20 54 4F 20 53 45 45 22 3A 99 22 1D 28 45 |SH TO SEE":.".(E|
00000110: 58 41 4D 50 4C 45 3A 20 1C 31 32 2C 31 39 38 33 |XAMPLE: .12,1983|
00000120: 1F 29 9C 11 11 22 00 36 09 78 00 99 A3 35 29 3B |.)...".6.x...5);|
00000130: 3A 85 4D 30 2C 59 00 6D 09 82 00 99 22 11 11 20 |:.M0,Y.m....".. |
00000140: 20 1F 54 48 41 4E 4B 20 59 4F 55 21 20 4E 4F 57 | .THANK YOU! NOW|
00000150: 2D 2D 22 3A 99 22 20 50 4C 45 41 53 45 20 9C 54 |--":." PLEASE .T|
00000160: 55 52 4E 20 4F 4E 20 1F 20 54 48 45 22 00 99 09 |URN ON . THE"...|
00000170: 83 00 99 22 50 52 49 4E 54 45 52 20 41 4E 44 20 |..."PRINTER AND |
00000180: 54 48 45 4E 20 54 59 50 45 22 3A 99 A3 39 29 22 |THEN TYPE":..9)"|
00000190: 9C 4F 4B 11 22 3A 85 52 24 00 AB 09 97 00 8B 52 |.OK.":.R$......R|
000001A0: 24 B3 B1 22 4F 4B 22 A7 31 33 30 00 D3 09 9A 00 |$.."OK".130.....|
000001B0: 99 22 1F 50 52 49 4E 54 49 4E 47 11 22 3A 81 49 |.".PRINTING.":.I|
000001C0: B2 31 A4 38 30 30 3A 82 3A 8D 31 32 39 32 3A 9F |.1.800:.:.1292:.|
000001D0: 31 2C 34 00 0E 0A CA 00 98 31 2C C7 28 31 34 29 |1,4......1,.(14)|
000001E0: 22 20 20 20 22 3B 4D 24 28 4D 30 29 3B 22 20 22 |" ";M$(M0);" "|
000001F0: 3B 59 3A 8D 31 36 30 30 3A 8D 31 37 30 30 3A 81 |;Y:.1600:.1700:.|
00000200: 44 B2 31 A4 45 31 3A 4A 31 B2 4A 31 AA 31 00 25 |D.1.E1:J1.J1.1.%|
00000210: 0A D2 00 8D 31 30 35 30 3A 8B 44 B3 31 30 A7 47 |....1050:.D.10.G|
00000220: 24 B2 22 20 22 00 36 0A D5 00 8B 44 B1 B2 31 30 |$." ".6....D..10|
00000230: A7 47 24 B2 22 22 00 74 0A D6 00 8B 44 31 B2 31 |.G$."".t....D1.1|
00000240: A7 98 31 2C C7 28 31 35 29 22 20 20 20 22 57 24 |..1,.(15)" "W$|
00000250: 28 44 31 29 3B C7 28 31 34 29 47 24 3B 22 12 22 |(D1);.(14)G$;"."|
00000260: 44 22 92 22 3B C7 28 31 35 29 22 28 22 3B 4A 31 |D".";.(15)"(";J1|
00000270: 3B 22 29 22 00 84 0A D7 00 8B 44 31 B2 31 A7 8D |;")"......D1.1..|
00000280: 31 36 30 30 00 93 0A D9 00 8B 44 31 B2 31 A7 89 |1600......D1.1..|
00000290: 32 32 30 00 CB 0A DB 00 98 31 2C C7 28 31 35 29 |220......1,.(15)|
000002A0: 22 20 20 20 22 57 24 28 44 31 29 3B C7 28 31 34 |" "W$(D1);.(14|
000002B0: 29 47 24 3B 44 3B C7 28 31 35 29 22 28 22 3B 4A |)G$;D;.(15)"(";J|
000002C0: 31 3B 22 29 22 3A 8D 31 36 30 30 00 D2 0A DC 00 |1;")":.1600.....|
000002D0: 82 44 00 DB 0A E8 03 A0 31 3A 80 00 F7 0A 1A 04 |.D......1:......|
000002E0: 8B 4D 30 B2 31 A7 4D 30 B2 31 33 3A 59 B2 59 AB |.M0.1.M0.13:Y.Y.|
000002F0: 31 3A 89 31 30 38 30 00 0D 0B 24 04 8B 4D 30 B2 |1:.1080...$..M0.|
00000300: 32 A7 4D 30 B2 31 34 3A 59 B2 59 AB 31 00 18 0B |2.M0.14:Y.Y.1...|
00000310: 38 04 4D B2 4D 30 AB 32 00 43 0B 4C 04 44 31 B2 |8.M.M0.2.C.L.D1.|
00000320: B5 28 32 2E 36 AC 4D AB 30 2E 32 29 AA 44 AA 59 |.(2.6.M.0.2).D.Y|
00000330: AB 31 39 30 30 AA B5 28 28 59 AB 31 39 30 30 29 |.1900..((Y.1900)|
00000340: AD 34 29 00 5A 0B 7E 04 44 31 B2 44 31 AA B5 28 |.4).Z.~.D1.D1..(|
00000350: 31 39 AD 34 29 AB 32 AC 31 39 00 70 0B B0 04 44 |19.4).2.19.p...D|
00000360: 31 B2 44 31 AB B5 28 44 31 AD 37 29 AC 37 AA 31 |1.D1..(D1.7).7.1|
00000370: 00 87 0B BA 04 8B 4D 30 B2 34 B0 4D 30 B2 39 A7 |......M0.4.M0.9.|
00000380: 44 31 B2 44 31 AA 31 00 A3 0B CE 04 8B 4D 30 B2 |D1.D1.1......M0.|
00000390: 31 33 A7 4D 30 B2 31 3A 59 B2 59 AA 31 3A 89 31 |13.M0.1:Y.Y.1:.1|
000003A0: 32 34 35 00 C1 0B D8 04 8B 4D 30 B2 31 34 A7 4D |245......M0.14.M|
000003B0: 30 B2 32 3A 59 B2 59 AA 31 3A 44 31 B2 44 31 AA |0.2:Y.Y.1:D1.D1.|
000003C0: 31 00 D0 0B DC 04 8B 44 31 B2 38 A7 44 31 B2 31 |1......D1.8.D1.1|
000003D0: 00 00 0C DD 04 8B 28 59 B2 32 31 30 30 AF 4D 30 |......(Y.2100.M0|
000003E0: B1 B2 33 29 B0 28 59 B1 32 31 30 30 29 A7 44 31 |..3).(Y.2100).D1|
000003F0: B2 44 31 AB 31 3A 8B 44 31 B2 30 A7 44 31 B2 37 |.D1.1:.D1.0.D1.7|
00000400: 00 31 0C DF 04 8B 28 59 B2 32 32 30 30 20 AF 4D |.1....(Y.2200 .M|
00000410: 30 B1 B2 33 29 B0 28 59 B1 32 32 30 30 29 A7 44 |0..3).(Y.2200).D|
00000420: 31 B2 44 31 AB 31 3A 8B 44 31 B2 30 A7 44 31 B2 |1.D1.1:.D1.0.D1.|
00000430: 37 00 61 0C E1 04 8B 28 59 B2 32 33 30 30 AF 4D |7.a....(Y.2300.M|
00000440: 30 B1 B2 33 29 B0 28 59 B1 32 33 30 30 29 A7 44 |0..3).(Y.2300).D|
00000450: 31 B2 44 31 AB 31 3A 8B 44 31 B2 30 A7 44 31 B2 |1.D1.1:.D1.0.D1.|
00000460: 37 00 67 0C E2 04 8E 00 97 0C 0C 05 8B 4D 30 B2 |7.g..........M0.|
00000470: 31 B0 4D 30 B2 33 B0 4D 30 B2 35 B0 4D 30 B2 37 |1.M0.3.M0.5.M0.7|
00000480: B0 4D 30 B2 38 B0 4D 30 B2 31 30 B0 4D 30 B2 31 |.M0.8.M0.10.M0.1|
00000490: 32 A7 45 31 B2 33 31 00 B7 0C 0D 05 8B 4D 30 B2 |2.E1.31......M0.|
000004A0: 34 B0 4D 30 B2 36 B0 4D 30 B2 39 B0 4D 30 B2 31 |4.M0.6.M0.9.M0.1|
000004B0: 31 A7 45 31 B2 33 30 00 D3 0C 0E 05 8B 4D 30 B2 |1.E1.30......M0.|
000004C0: 32 AF 59 AD 34 B3 B1 B5 28 59 AD 34 29 A7 45 31 |2.Y.4...(Y.4).E1|
000004D0: B2 32 38 00 EE 0C 0F 05 8B 4D 30 B2 32 AF 59 AD |.28......M0.2.Y.|
000004E0: 34 B2 B5 28 59 AD 34 29 A7 8D 31 34 30 30 00 F4 |4..(Y.4)..1400..|
000004F0: 0C 10 05 8E 00 28 0D 78 05 8B 28 59 AD 31 30 30 |.....(.x..(Y.100|
00000500: B2 B5 28 59 AD 31 30 30 29 29 AF 28 59 AD 34 30 |..(Y.100)).(Y.40|
00000510: 30 B3 B1 B5 28 59 AD 34 30 30 29 29 A7 45 31 B2 |0...(Y.400)).E1.|
00000520: 32 38 3A 89 31 34 31 30 00 32 0D 7D 05 45 31 B2 |28:.1410.2.}.E1.|
00000530: 32 39 00 38 0D 82 05 8E 00 54 0D 40 06 81 49 B2 |29.8.....T.@..I.|
00000540: 31 A4 32 30 3A 98 31 2C C7 28 31 35 29 22 20 22 |1.20:.1,.(15)" "|
00000550: 3B 3A 82 49 00 7A 0D 45 06 81 4B B2 31 A4 31 38 |;:.I.z.E..K.1.18|
00000560: 3A 98 31 2C 22 2E 22 3B 22 20 22 3B 22 20 22 3B |:.1,".";" ";" ";|
00000570: 3A 82 4B 3A 98 31 2C 22 2E 22 00 80 0D 4A 06 8E |:.K:.1,"."...J..|
00000580: 00 8F 0D A4 06 8B 4D 30 B2 31 A7 4A 31 B2 30 00 |......M0.1.J1.0.|
00000590: 9F 0D A6 06 8B 4D 30 B2 32 A7 4A 31 B2 33 31 00 |.....M0.2.J1.31.|
000005A0: AF 0D A8 06 8B 4D 30 B2 33 A7 4A 31 B2 35 39 00 |.....M0.3.J1.59.|
000005B0: BF 0D AA 06 8B 4D 30 B2 34 A7 4A 31 B2 39 30 00 |.....M0.4.J1.90.|
000005C0: D0 0D AB 06 8B 4D 30 B2 35 A7 4A 31 B2 31 32 30 |.....M0.5.J1.120|
000005D0: 00 E1 0D AD 06 8B 4D 30 B2 36 A7 4A 31 B2 31 35 |......M0.6.J1.15|
000005E0: 31 00 F2 0D AF 06 8B 4D 30 B2 37 A7 4A 31 B2 31 |1......M0.7.J1.1|
000005F0: 38 31 00 03 0E B1 06 8B 4D 30 B2 38 A7 4A 31 B2 |81......M0.8.J1.|
00000600: 32 31 32 00 14 0E B3 06 8B 4D 30 B2 39 A7 4A 31 |212......M0.9.J1|
00000610: B2 32 34 33 00 26 0E B5 06 8B 4D 30 B2 31 30 A7 |.243.&....M0.10.|
00000620: 4A 31 B2 32 37 33 00 38 0E B7 06 8B 4D 30 B2 31 |J1.273.8....M0.1|
00000630: 31 A7 4A 31 B2 33 30 34 00 4A 0E B9 06 8B 4D 30 |1.J1.304.J....M0|
00000640: B2 31 32 A7 4A 31 B2 33 33 34 00 61 0E BB 06 8B |.12.J1.334.a....|
00000650: 59 AD 34 B3 B1 B5 28 59 AD 34 29 A7 89 31 37 33 |Y.4...(Y.4)..173|
00000660: 30 00 8F 0E BD 06 8B 28 59 AD 31 30 30 B2 B5 28 |0......(Y.100..(|
00000670: 59 AD 31 30 30 29 29 AF 28 59 AD 34 30 30 B3 B1 |Y.100)).(Y.400..|
00000680: B5 28 59 AD 34 30 30 29 29 A7 89 31 37 33 30 00 |.(Y.400))..1730.|
00000690: B1 0E BF 06 8B 28 59 AD 34 B2 B5 28 59 AD 34 29 |.....(Y.4..(Y.4)|
000006A0: 29 AF 28 4D 30 B1 B2 33 29 A7 4A 31 B2 4A 31 AA |).(M0..3).J1.J1.|
000006B0: 31 00 B7 0E C2 06 8E 00 F9 0E D0 07 83 20 22 20 |1............ " |
000006C0: 20 4A 41 4E 55 41 52 59 22 2C 22 20 46 45 42 52 | JANUARY"," FEBR|
000006D0: 55 41 52 59 22 2C 22 20 20 20 20 4D 41 52 43 48 |UARY"," MARCH|
000006E0: 22 2C 22 20 20 20 20 41 50 52 49 4C 22 2C 22 20 |"," APRIL"," |
000006F0: 20 20 20 20 20 4D 41 59 22 00 3B 0F DA 07 83 20 | MAY".;.... |
00000700: 22 20 20 20 20 20 4A 55 4E 45 22 2C 22 20 20 20 |" JUNE"," |
00000710: 20 20 4A 55 4C 59 22 2C 22 20 20 20 41 55 47 55 | JULY"," AUGU|
00000720: 53 54 22 2C 22 53 45 50 54 45 4D 42 45 52 22 2C |ST","SEPTEMBER",|
00000730: 22 20 20 4F 43 54 4F 42 45 52 22 00 59 0F E4 07 |" OCTOBER".Y...|
00000740: 83 20 22 20 4E 4F 56 45 4D 42 45 52 22 2C 22 20 |. " NOVEMBER"," |
00000750: 44 45 43 45 4D 42 45 52 22 00 A2 0F EE 07 83 20 |DECEMBER"...... |
00000760: 22 20 20 20 20 12 53 55 4E 44 41 59 92 22 2C 22 |" .SUNDAY.","|
00000770: 20 20 20 20 4D 4F 4E 44 41 59 22 2C 22 20 20 20 | MONDAY"," |
00000780: 54 55 45 53 44 41 59 22 2C 22 20 57 45 44 4E 45 |TUESDAY"," WEDNE|
00000790: 53 44 41 59 22 2C 22 20 20 54 48 55 52 53 44 41 |SDAY"," THURSDA|
000007A0: 59 22 00 C2 0F F8 07 83 20 22 20 20 20 20 46 52 |Y"...... " FR|
000007B0: 49 44 41 59 22 2C 22 20 20 53 41 54 55 52 44 41 |IDAY"," SATURDA|
000007C0: 59 22 00 00 00 3D C9 |Y"...=. |
..6.P..M$(12),W$(7):.I.1.12:.M$(I):.I:.I
.1.7:.W$(I):.I.Y.Z..65517:A.B(781):.A.40
..53281,1...D..".. THIS IS A PROGRAM":
."......TO SHOW A"...I.."...MONTHLY CALE
NDAR.":."...ON THE PRINTER."...N..".PLEA
SE TYPE IN THE":."....MONTH.AND.YEAR.".&
.O.."THAT YOU WISH TO SEE":.".(EXAMPLE:
.12,1983.)...".6.X...5);:.M0,Y.M...."..
.THANK YOU! NOW--":." PLEASE .TURN ON .
THE"......"PRINTER AND THEN TYPE":..9)"
.OK.":.R$......R$.."OK".130.S....".PRINT
ING.":.I.1.800:.:.1292:.1,4...J..1,G(14)
" ";M$(M0);" ";Y:.1600:.1700:.D.1.E1:J
1.J1.1.%.R..1050:.D.10.G$." ".6.U..D..10
.G$."".T.V..D1.1..1,G(15)" "W$(D1);G(1
4)G$;"."D".";G(15)"(";J1;")"...W..D1.1..
1600...Y..D1.1..220.K....1,G(15)" "W$(
D1);G(14)G$;D;G(15)"(";J1;")":.1600.R...
.D..... 1:.......M0.1.M0.13:Y.Y.1:.1080.
..$..M0.2.M0.14:Y.Y.1...8.M.M0.2.C.L.D1.
.(2.6.M.0.2).D.Y.1900..((Y.1900).4).Z.~.
D1.D1..(19.4).2.19.P...D1.D1..(D1.7).7.1
......M0.4.M0.9.D1.D1.1...N..M0.13.M0.1:
Y.Y.1:.1245.A.X..M0.14.M0.2:Y.Y.1:D1.D1.
1.P....D1.8.D1.1......(Y.2100.M0..3).(Y.
2100).D1.D1.1:.D1.0.D1.7.1....(Y.2200 .M
0..3).(Y.2200).D1.D1.1:.D1.0.D1.7.A....(
Y.2300.M0..3).(Y.2300).D1.D1.1:.D1.0.D1.
7.G..........M0.1.M0.3.M0.5.M0.7.M0.8.M0
.10.M0.12.E1.31......M0.4.M0.6.M0.9.M0.1
1.E1.30.S....M0.2.Y.4...(Y.4).E1.28.....
.M0.2.Y.4..(Y.4)..1400.......(.X..(Y.100
..(Y.100)).(Y.400...(Y.400)).E1.28:.1410
.2.}.E1.29.8.....T.@..I.1.20:.1,G(15)" "
;:.I.Z.E..K.1.18:.1,".";" ";" ";:.K:.1,"
."...J........M0.1.J1.0......M0.2.J1.31.
.....M0.3.J1.59......M0.4.J1.90.P....M0.
5.J1.120......M0.6.J1.151......M0.7.J1.1
81......M0.8.J1.212......M0.9.J1.243.&..
..M0.10.J1.273.8....M0.11.J1.304.J....M0
.12.J1.334.A....Y.4...(Y.4)..1730......(
Y.100..(Y.100)).(Y.400...(Y.400))..1730.
.....(Y.4..(Y.4)).(M0..3).J1.J1.1...B...
..P.. " JANUARY"," FEBRUARY"," MARCH
"," APRIL"," MAY".;.Z.. " JU
NE"," JULY"," AUGUST","SEPTEMBER",
" OCTOBER".Y.... " NOVEMBER"," DECEMBER
"...... " .SUNDAY."," MONDAY","
TUESDAY"," WEDNESDAY"," THURSDAY".B....
" FRIDAY"," SATURDAY"...=I
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL