> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 01 00 8F 20 4E 4F 54 45 3A 20 47 4F |..(.... NOTE: GO|
00000010: 4C 44 20 42 41 53 49 43 20 4D 55 53 54 20 42 45 |LD BASIC MUST BE|
00000020: 20 49 4E 56 4F 4B 45 44 00 2E 08 02 00 8F 00 51 | INVOKED.......Q|
00000030: 08 0A 00 8F 20 54 48 49 53 20 45 58 41 4D 50 4C |.... THIS EXAMPL|
00000040: 45 20 49 4C 4C 55 53 54 52 41 54 45 53 20 54 48 |E ILLUSTRATES TH|
00000050: 45 00 74 08 14 00 8F 20 55 53 45 20 4F 46 20 54 |E.t.... USE OF T|
00000060: 48 45 20 47 4F 4C 44 20 42 41 53 49 43 20 42 49 |HE GOLD BASIC BI|
00000070: 54 4D 41 50 00 83 08 1E 00 8F 20 43 4F 4D 4D 41 |TMAP...... COMMA|
00000080: 4E 44 53 00 89 08 28 00 8F 00 AD 08 32 00 D6 20 |NDS...(.....2.. |
00000090: 24 34 30 30 30 20 3A 20 8F 20 43 48 41 4E 47 45 |$4000 : . CHANGE|
000000A0: 20 45 4E 44 20 4F 46 20 42 41 53 49 43 00 D2 08 | END OF BASIC...|
000000B0: 3C 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |<.. |
000000C0: 54 4F 20 50 52 4F 54 45 43 54 20 42 49 54 20 4D |TO PROTECT BIT M|
000000D0: 41 50 00 F1 08 46 00 CE 20 31 2C 38 2C 30 2C 30 |AP...F.. 1,8,0,0|
000000E0: 20 3A 20 8F 20 43 48 41 4E 47 45 20 42 41 4E 4B | : . CHANGE BANK|
000000F0: 53 00 08 09 50 00 DE 20 30 20 3A 20 8F 20 48 49 |S...P.. 0 : . HI|
00000100: 52 45 53 20 4D 4F 44 45 00 20 09 5A 00 DD 20 3A |RES MODE. .Z.. :|
00000110: 20 8F 20 43 4C 45 41 52 20 42 49 54 20 4D 41 50 | . CLEAR BIT MAP|
00000120: 00 3A 09 64 00 DF 20 31 2C 32 20 3A 20 8F 20 53 |.:.d.. 1,2 : . S|
00000130: 45 54 20 43 4F 4C 4F 55 52 53 00 5F 09 6E 00 DC |ET COLOURS._.n..|
00000140: 20 31 20 20 20 3A 20 8F 20 44 52 41 57 49 4E 47 | 1 : . DRAWING|
00000150: 20 4D 4F 44 45 20 54 4F 20 27 44 52 41 57 27 00 | MODE TO 'DRAW'.|
00000160: 74 09 78 00 8F 20 4E 4F 57 20 44 52 41 57 20 41 |t.x.. NOW DRAW A|
00000170: 20 42 4F 58 00 80 09 82 00 E3 20 31 30 2C 31 30 | BOX...... 10,10|
00000180: 00 8D 09 8C 00 E1 20 33 31 30 2C 31 30 00 9B 09 |...... 310,10...|
00000190: 96 00 E1 20 33 31 30 2C 31 39 30 00 A8 09 A0 00 |... 310,190.....|
000001A0: E1 20 31 30 2C 31 39 30 00 B4 09 AA 00 E1 20 31 |. 10,190...... 1|
000001B0: 30 2C 31 30 00 CA 09 B4 00 8F 20 57 52 49 54 45 |0,10...... WRITE|
000001C0: 20 53 4F 4D 45 20 54 45 58 54 00 DD 09 BE 00 E4 | SOME TEXT......|
000001D0: 31 32 2C 31 39 2C 30 2C 22 42 4F 58 22 00 F8 09 |12,19,0,"BOX"...|
000001E0: C8 00 E4 31 34 2C 31 35 2C 30 2C 22 48 49 54 20 |...14,15,0,"HIT |
000001F0: 41 4E 59 20 4B 45 59 22 00 13 0A D2 00 8F 20 57 |ANY KEY"...... W|
00000200: 41 49 54 20 46 4F 52 20 41 20 4B 45 59 53 54 52 |AIT FOR A KEYSTR|
00000210: 4F 4B 45 00 19 0A DC 00 E5 00 21 0A E6 00 A1 41 |OKE.......!....A|
00000220: 24 00 2D 0A F0 00 E6 41 24 B3 B1 22 22 00 48 0A |$.-....A$.."".H.|
00000230: FA 00 8F 20 47 4F 20 42 41 43 4B 20 54 4F 20 54 |... GO BACK TO T|
00000240: 45 58 54 20 4D 4F 44 45 00 66 0A 04 01 CE 30 2C |EXT MODE.f....0,|
00000250: 31 2C 32 2C 30 20 3A 20 8F 20 44 45 46 41 55 4C |1,2,0 : . DEFAUL|
00000260: 54 20 42 41 4E 4B 00 6C 0A 0E 01 E0 00 00 00 |T BANK.l....... |
..(.... NOTE: GOLD BASIC MUST BE INVOKED
.......Q.... THIS EXAMPLE ILLUSTRATES TH
E.T.... USE OF THE GOLD BASIC BITMAP....
.. COMMANDS...(.....2.V $4000 : . CHANGE
END OF BASIC.R.<.. TO PROTE
CT BIT MAP...F.N 1,8,0,0 : . CHANGE BANK
S...P.. 0 : . HIRES MODE. .Z.. : . CLEAR
BIT MAP.:.D.. 1,2 : . SET COLOURS._.N..
1 : . DRAWING MODE TO 'DRAW'.T.X.. NO
W DRAW A BOX...... 10,10...... 310,10...
... 310,190... .. 10,190...... 10,10.J..
.. WRITE SOME TEXT......12,19,0,"BOX"...
H..14,15,0,"HIT ANY KEY"...R.. WAIT FOR
A KEYSTROKE.......!....A$.-....A$.."".H.
... GO BACK TO TEXT MODE.F...N0,1,2,0 :
. DEFAULT BANK.L.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL