Skip to content

Instantly share code, notes, and snippets.

@pmachapman

pmachapman/alfred.bas

Created September 10, 2014 06:26
Show Gist options
  • Save pmachapman/6c76b9ce2fd3052bcec0 to your computer and use it in GitHub Desktop.
Save pmachapman/6c76b9ce2fd3052bcec0 to your computer and use it in GitHub Desktop.
Download ZIP
Alfred E. Neuman graphic for Commodore 64/128 from Australian Mad No. 274
Raw
alfred.bas
10 POKE 53280, 6: POKE 53281, 6
20 PRINT CHR$(147)
30 FOR C = 0 TO 63
40 READ BYTE
50 POKE 832 + C, BYTE
60 NEXT C
70 POKE 2040, 13
80 POKE 53287, 1
90 POKE 53248, 50: POKE 53249, 100: POKE 53264, 0
100 POKE 53269, 1
110 POKE 53271, 1: POKE 53277, 1
500 DATA 0, 60, 0, 0, 195, 224, 1
510 DATA 64, 48, 2, 36, 76, 4, 31
520 DATA 76, 4, 31, 224, 12, 223, 144
530 DATA 29, 57, 136, 62, 16, 132, 126
540 DATA 68, 130, 126, 170, 226, 117, 0
550 DATA 94, 100, 0, 67, 68, 40, 67
560 DATA 196, 16, 64, 194, 130, 128, 2
570 DATA 108, 128, 1, 17, 0, 0, 130
580 DATA 0, 0, 68, 0, 0, 56, 0
590 DATA 0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment