> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 8F 20 27 48 52 50 52 49 4E 54 |....d.. 'HRPRINT|
00000010: 27 20 44 45 4D 4F 00 38 08 6E 00 8B 20 41 B2 30 |' DEMO.8.n.. A.0|
00000020: 20 A7 20 41 B2 31 3A 93 20 22 48 52 50 52 49 4E | . A.1:. "HRPRIN|
00000030: 54 22 2C 20 38 2C 20 31 00 5C 08 78 00 8B 20 41 |T", 8, 1.\.x.. A|
00000040: B2 31 20 A7 20 41 B2 32 3A 93 20 22 48 52 43 48 |.1 . A.2:. "HRCH|
00000050: 41 52 53 45 54 22 2C 20 38 2C 20 31 00 6B 08 82 |ARSET", 8, 1.k..|
00000060: 00 97 20 35 33 32 38 30 2C 31 35 00 83 08 8C 00 |.. 53280,15.....|
00000070: 8F 20 53 45 54 20 53 59 53 20 41 44 44 52 45 53 |. SET SYS ADDRES|
00000080: 53 45 53 00 9A 08 96 00 49 4E B2 34 39 31 35 32 |SES.....IN.49152|
00000090: 3A 20 50 52 B2 34 39 32 30 37 00 BF 08 A0 00 8F |: PR.49207......|
000000A0: 20 42 49 20 41 52 52 41 59 20 49 53 20 55 53 45 | BI ARRAY IS USE|
000000B0: 44 20 54 4F 20 44 52 41 57 20 43 55 52 56 45 00 |D TO DRAW CURVE.|
000000C0: D9 08 AA 00 81 20 4A B2 30 20 A4 20 37 3A 42 49 |..... J.0 . 7:BI|
000000D0: 28 4A 29 B2 32 AE 4A 3A 82 00 EE 08 B4 00 8F 20 |(J).2.J:....... |
000000E0: 42 49 54 4D 41 50 20 41 54 20 38 31 39 32 00 FC |BITMAP AT 8192..|
000000F0: 08 BE 00 42 41 53 45 B2 38 31 39 32 00 15 09 C8 |...BASE.8192....|
00000100: 00 97 20 35 33 32 37 32 2C C2 28 35 33 32 37 32 |.. 53272,.(53272|
00000110: 29 20 B0 20 38 00 22 09 D2 00 8F 20 48 49 2D 52 |) . 8.".... HI-R|
00000120: 45 53 00 3D 09 DC 00 97 20 35 33 32 36 35 2C 20 |ES.=.... 53265, |
00000130: C2 28 35 33 32 36 35 29 20 B0 20 33 32 00 89 09 |.(53265) . 32...|
00000140: E6 00 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 4D |... INITIALIZE M|
00000150: 55 4C 54 49 2F 52 56 53 28 32 29 2C 42 49 54 4D |ULTI/RVS(2),BITM|
00000160: 41 50 20 41 54 20 38 31 39 32 2C 43 48 41 52 53 |AP AT 8192,CHARS|
00000170: 45 54 20 41 54 20 31 36 33 38 34 2C 43 4F 4C 4F |ET AT 16384,COLO|
00000180: 52 20 41 54 20 31 30 32 34 00 A8 09 F0 00 9E 20 |R AT 1024...... |
00000190: 49 4E 2C 20 32 2C 20 38 31 39 32 2C 20 31 36 33 |IN, 2, 8192, 163|
000001A0: 38 34 2C 20 31 30 32 34 00 CA 09 FA 00 8F 20 43 |84, 1024...... C|
000001B0: 4C 45 41 52 20 53 43 52 45 45 4E 20 41 4E 44 20 |LEAR SCREEN AND |
000001C0: 44 52 41 57 20 43 55 52 56 45 00 ED 09 04 01 46 |DRAW CURVE.....F|
000001D0: 24 B2 22 22 3A 81 20 4A B2 31 20 A4 20 34 30 3A |$."":. J.1 . 40:|
000001E0: 46 24 B2 46 24 AA C7 28 33 32 29 3A 82 00 11 0A |F$.F$..(32):....|
000001F0: 0E 01 81 20 4A B2 30 20 A4 20 32 34 3A 9E 20 50 |... J.0 . 24:. P|
00000200: 52 2C 20 31 35 2C 20 30 2C 20 4A 2C 20 46 24 3A |R, 15, 0, J, F$:|
00000210: 82 00 26 0A 18 01 81 20 59 B2 30 20 A4 20 31 39 |..&.... Y.0 . 19|
00000220: 39 20 A9 20 2E 35 00 42 0A 22 01 58 20 B2 20 B5 |9 . .5.B.".X . .|
00000230: 28 31 36 30 AA 34 30 20 AC 20 BF 28 59 AD 31 30 |(160.40 . .(Y.10|
00000240: 29 29 00 73 0A 2C 01 42 59 20 B2 20 42 41 53 45 |)).s.,.BY . BASE|
00000250: AA 34 30 20 AC 20 28 59 20 AF 20 32 34 38 29 20 |.40 . (Y . 248) |
00000260: AA 20 28 59 20 AF 20 37 29 AA 28 58 20 AF 20 35 |. (Y . 7).(X . 5|
00000270: 30 34 29 00 93 0A 36 01 97 20 42 59 2C 20 C2 28 |04)...6.. BY, .(|
00000280: 42 59 29 20 B0 20 28 42 49 28 A8 20 58 20 AF 20 |BY) . (BI(. X . |
00000290: 37 29 29 00 9B 0A 40 01 82 20 59 00 E3 0A 4A 01 |7))...@.. Y...J.|
000002A0: 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 48 49 52 |. INITIALIZE HIR|
000002B0: 45 53 28 31 29 2C 42 49 54 4D 41 50 20 41 54 20 |ES(1),BITMAP AT |
000002C0: 38 31 39 32 2C 43 48 41 52 53 45 54 20 41 54 20 |8192,CHARSET AT |
000002D0: 31 36 33 38 34 2C 43 4F 4C 4F 52 20 41 54 20 31 |16384,COLOR AT 1|
000002E0: 30 32 34 00 02 0B 54 01 9E 20 49 4E 2C 20 31 2C |024...T.. IN, 1,|
000002F0: 20 38 31 39 32 2C 20 31 36 33 38 34 2C 20 31 30 | 8192, 16384, 10|
00000300: 32 34 00 28 0B 5E 01 8F 20 50 52 49 4E 54 20 4D |24.(.^.. PRINT M|
00000310: 45 53 53 41 47 45 53 20 4F 4E 20 48 49 2D 52 45 |ESSAGES ON HI-RE|
00000320: 53 20 53 43 52 45 45 4E 00 4B 0B 68 01 9E 20 50 |S SCREEN.K.h.. P|
00000330: 52 2C 20 36 2C 20 31 2C 20 31 2C 20 22 50 52 49 |R, 6, 1, 1, "PRI|
00000340: 4E 54 20 48 52 20 44 45 4D 4F 22 00 72 0B 72 01 |NT HR DEMO".r.r.|
00000350: 9E 20 50 52 2C 20 32 2C 20 31 2C 20 32 2C 20 22 |. PR, 2, 1, 2, "|
00000360: 28 43 29 20 31 39 38 37 20 43 4F 4D 50 55 54 45 |(C) 1987 COMPUTE|
00000370: 21 22 00 9D 0B 7C 01 9E 20 50 52 2C 20 31 2C 20 |!"...|.. PR, 1, |
00000380: 31 37 2C 20 32 31 2C 20 22 48 49 54 20 41 4E 59 |17, 21, "HIT ANY|
00000390: 20 4B 45 59 20 54 4F 20 45 58 49 54 22 00 CA 0B | KEY TO EXIT"...|
000003A0: 86 01 9E 20 50 52 2C 20 38 2C 20 31 37 2C 20 35 |... PR, 8, 17, 5|
000003B0: 2C 20 22 59 4F 55 20 43 41 4E 20 50 52 49 4E 54 |, "YOU CAN PRINT|
000003C0: 20 4E 4F 52 4D 41 4C 4C 59 22 00 E7 0B 90 01 8F | NORMALLY"......|
000003D0: 20 49 4E 49 54 49 41 4C 49 5A 45 20 46 4F 52 20 | INITIALIZE FOR |
000003E0: 52 45 56 45 52 53 45 00 06 0C 9A 01 9E 20 49 4E |REVERSE...... IN|
000003F0: 2C 20 32 2C 20 38 31 39 32 2C 20 31 36 33 38 34 |, 2, 8192, 16384|
00000400: 2C 20 31 30 32 34 00 33 0C A4 01 9E 20 50 52 2C |, 1024.3.... PR,|
00000410: 20 35 2C 20 31 37 2C 20 31 33 2C 20 22 4F 52 20 | 5, 17, 13, "OR |
00000420: 49 4E 20 52 45 56 45 52 53 45 20 4C 45 54 54 45 |IN REVERSE LETTE|
00000430: 52 53 22 00 51 0C AE 01 8F 20 4E 4F 52 4D 41 4C |RS".Q.... NORMAL|
00000440: 20 43 48 41 52 41 43 54 45 52 53 20 41 47 41 49 | CHARACTERS AGAI|
00000450: 4E 00 70 0C B8 01 9E 20 49 4E 2C 20 31 2C 20 38 |N.p.... IN, 1, 8|
00000460: 31 39 32 2C 20 31 36 33 38 34 2C 20 31 30 32 34 |192, 16384, 1024|
00000470: 00 8D 0C C2 01 9E 20 50 52 2C 20 31 34 2C 20 32 |...... PR, 14, 2|
00000480: 2C 20 39 2C 20 22 54 49 4D 45 52 3A 22 00 AB 0C |, 9, "TIMER:"...|
00000490: CC 01 9E 20 50 52 2C 20 31 34 2C 20 32 2C 20 31 |... PR, 14, 2, 1|
000004A0: 37 2C 20 22 53 43 4F 52 45 3A 22 00 C8 0C D6 01 |7, "SCORE:".....|
000004B0: 8F 20 55 50 44 41 54 45 20 53 43 4F 52 45 20 41 |. UPDATE SCORE A|
000004C0: 4E 44 20 54 49 4D 45 52 00 DA 0C E0 01 81 20 4A |ND TIMER...... J|
000004D0: B2 30 20 A4 20 31 30 30 30 30 00 F0 0C EA 01 9E |.0 . 10000......|
000004E0: 20 50 52 2C 20 30 2C 20 38 2C 20 39 2C 20 54 49 | PR, 0, 8, 9, TI|
000004F0: 00 06 0D F4 01 9E 20 50 52 2C 20 30 2C 20 38 2C |...... PR, 0, 8,|
00000500: 20 31 37 2C 20 4A 00 0F 0D FE 01 A1 20 58 24 00 | 17, J...... X$.|
00000510: 21 0D 08 02 8B 20 58 24 B2 22 22 20 A7 20 82 20 |!.... X$."" . . |
00000520: 4A 00 42 0D 12 02 8F 20 42 41 43 4B 20 54 4F 20 |J.B.... BACK TO |
00000530: 4E 4F 52 4D 41 4C 20 54 45 58 54 20 53 43 52 45 |NORMAL TEXT SCRE|
00000540: 45 4E 00 5C 0D 1C 02 97 20 35 33 32 36 35 2C 32 |EN.\.... 53265,2|
00000550: 37 3A 97 20 35 33 32 37 32 2C 32 31 00 6B 0D 26 |7:. 53272,21.k.&|
00000560: 02 99 20 C7 28 31 34 37 29 3A 80 00 00 00 |.. .(147):.... |
....D.. 'HRPRINT' DEMO.8.N.. A.0 . A.1:.
"HRPRINT", 8, 1.\.X.. A.1 . A.2:. "HRCH
ARSET", 8, 1.K.... 53280,15...... SET SY
S ADDRESSES.....IN.49152: PR.49207... ..
BI ARRAY IS USED TO DRAW CURVE.Y.... J.
0 . 7:BI(J).2.J:....... BITMAP AT 8192..
...BASE.8192...H.. 53272,B(53272) . 8.".
R.. HI-RES.=.... 53265, B(53265) . 32...
... INITIALIZE MULTI/RVS(2),BITMAP AT 81
92,CHARSET AT 16384,COLOR AT 1024......
IN, 2, 8192, 16384, 1024.J.... CLEAR SCR
EEN AND DRAW CURVE.....F$."":. J.1 . 40:
F$.F$.G(32):....... J.0 . 24:. PR, 15, 0
, J, F$:..&.... Y.0 . 199 . .5.B.".X . .
(160.40 . .(Y.10)).S.,.BY . BASE.40 . (Y
. 248) . (Y . 7).(X . 504)...6.. BY, B(
BY) . (BI(. X . 7))...@.. Y...J.. INITIA
LIZE HIRES(1),BITMAP AT 8192,CHARSET AT
16384,COLOR AT 1024...T.. IN, 1, 8192, 1
6384, 1024.(.^.. PRINT MESSAGES ON HI-RE
S SCREEN.K.H.. PR, 6, 1, 1, "PRINT HR DE
MO".R.R.. PR, 2, 1, 2, "(C) 1987 COMPUTE
!"...|.. PR, 1, 17, 21, "HIT ANY KEY TO
EXIT".J.... PR, 8, 17, 5, "YOU CAN PRINT
NORMALLY"...... INITIALIZE FOR REVERSE.
..... IN, 2, 8192, 16384, 1024.3.... PR,
5, 17, 13, "OR IN REVERSE LETTERS".Q...
. NORMAL CHARACTERS AGAIN.P.... IN, 1, 8
192, 16384, 1024...B.. PR, 14, 2, 9, "TI
MER:"...L.. PR, 14, 2, 17, "SCORE:".H.V.
. UPDATE SCORE AND TIMER.Z.... J.0 . 100
00...... PR, 0, 8, 9, TI...... PR, 0, 8,
17, J...... X$.!.... X$."" . . J.B....
BACK TO NORMAL TEXT SCREEN.\.... 53265,2
7:. 53272,21.K.&.. G(147):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL