home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MLTUTOR.SDA / ANCHOVIES (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  26 lines
  1. 10 PRINT"[147]":V=53248:FORC=0TO16:READA:POKEV+C,A:NEXT
  2. 12 FORC=1TO14:READA,D:POKEV+A,D:NEXT
  3. 14 P=2040:FORC=0TO7:READA:POKEP+C,A:NEXT:FORC=8192TO8291+64:POKEC,255:NEXT
  4. 16 PRINT"[147][159]_[218][197][210][207] [208][193][199][197]":PRINT"[155]_[211][212][193][195][203][158]"
  5. 18 PRINT" PRESS A KEY TO CONTINUE":WAIT197,64,64
  6. 20 DATA 34,77,34,98,34,119,34,140,34,169,34,70,34,112,34,154,0,21,255
  7. 22 DATA 23,224,27,0,29,255,32,11,33,11,39,3,40,3,41,3,42,3,43,15,44,0,45,0,46,0
  8. 24 DATA 0,1,2,3,7,128,128,128
  9. 26 READA:POKE4096+B,A:B=B+1:IFB<26GOTO26
  10. 28 POKE650,128:SYS4096
  11. 30 DATA 120        :REM TURN OFF OPERATING SYSTEM
  12. 32 DATA 169,0      :REM GET A ZERO IN THE ACCUMULATOR
  13. 34 DATA 133,198    :REM PUT IT IN THE BUFFER COUNTER
  14. 36 DATA 32,135,234 :REM SCAN THE KEYBOARD
  15. 38 DATA 165,198    :REM CHECK THE BUFFER COUNTER
  16. 40 DATA 240,249    :REM GO BACK AND SCAN AGAIN IF EMPTY
  17. 42 DATA 173,119,2  :REM OTHERWISE GET THE CHARACTER
  18. 44 DATA 201,95     :REM COMPARE IT WITH "_"
  19. 46 DATA 8          :REM SAVE THE RESULTS ON THE STACK
  20. 48 DATA 32,22,231  :REM PRINT THE CHARACTER ON THE SCREEN
  21. 50 DATA 40         :REM RETRIEVE THE COMPARISON FROM THE STACK
  22. 52 DATA 208,233    :REM GO BACK TO CLEAR THE BUFFER IF NOT "_"
  23. 54 DATA 88         :REM OTHERWISE TURN THE SYSTEM BACK ON
  24. 56 DATA 96         :REM AND RETURN TO "[194][193][211][201][195]"
  25. 58 POKEV+21,0
  26.