Skip to content

Instantly share code, notes, and snippets.

@sloanlance

sloanlance/three_reasons.bas

Last active December 10, 2018 14:30
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sloanlance/e73dff620875527988b2ef982e9635ce to your computer and use it in GitHub Desktop.
Save sloanlance/e73dff620875527988b2ef982e9635ce to your computer and use it in GitHub Desktop.
Download ZIP
"Three Reasons To Own a Computer" for Commodore 64, from Compute!'s Gazette (via https://www.lemon64.com/forum/viewtopic.php?p=429351&sid=a78679bc4b8671443f9300905275b9e5#429351)
Raw
three_reasons.bas
0 REM "THREE REASONS TO OWN A COMPUTER" FOR COMMODORE 64
1 REM FROM COMPUTE!'S GAZETTE
10 FORL=54272 TO 54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23
30 F2=4
40 FORZ=1TO3:POKE54287,F2
50 FORF1=1TO200
60 POKE54273,F1:F2=F2+.01:NEXTF1:NEXTZ:POKE54278,15
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment