home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MLTUTOR.SDA / PIZZAS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  741 b   |  17 lines
  1. 26 READA:POKE4096+B,A:B=B+1:IFB<26GOTO26
  2. 28 POKE650,128:SYS4096
  3. 30 DATA 120        :REM TURN OFF OPERATING SYSTEM
  4. 32 DATA 169,0      :REM GET A ZERO IN THE ACCUMULATOR
  5. 34 DATA 133,198    :REM PUT IT IN THE BUFFER COUNTER
  6. 36 DATA 32,135,234 :REM SCAN THE KEYBOARD
  7. 38 DATA 165,198    :REM CHECK THE BUFFER COUNTER
  8. 40 DATA 240,249    :REM GO BACK AND SCAN AGAIN IF EMPTY
  9. 42 DATA 173,119,2  :REM OTHERWISE GET THE CHARACTER
  10. 44 DATA 201,95     :REM COMPARE IT WITH "_"
  11. 46 DATA 8          :REM SAVE THE RESULTS ON THE STACK
  12. 48 DATA 32,22,231  :REM PRINT THE CHARACTER ON THE SCREEN
  13. 50 DATA 40         :REM RETRIEVE THE COMPARISON FROM THE STACK
  14. 52 DATA 208,233    :REM GO BACK TO CLEAR THE BUFFER IF NOT "_"
  15. 54 DATA 88         :REM OTHERWISE TURN THE SYSTEM BACK ON
  16. 56 DATA 96         :REM AND RETURN TO "[194][193][211][201][195]"
  17.