SHARE
TWEET

Untitled

a guest May 31st, 2017 54 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 GO SUB 1000
  2. 20 LET b=15
  3. 30 LET a=10
  4. 40 LET b$=INKEY$
  5. 50 IF b$="d" AND b<26 THEN LET b=b+1
  6. 60 IF b$="a" AND b>1 THEN LET b=b-1
  7. 70 IF b$="w" AND a>1 THEN LET a=a-1
  8. 80 IF b$="s" AND a<20 THEN LET a=a+1
  9. 90 PRINT AT a,b;CHR$ 157
  10. 100 GO TO 40
  11. 1000 FOR c=0 TO 7
  12. 1010 READ n
  13. 1020 POKE USR ("n")+C,n
  14. 1030 NEXT c
  15. 1040 DATA BIN 00000000
  16. 1050 DATA BIN 01100110
  17. 1060 DATA BIN 01100110
  18. 1070 DATA BIN 00000000
  19. 1080 DATA BIN 00000000
  20. 1090 DATA BIN 01100110
  21. 1100 DATA BIN 00111100
  22. 1110 DATA BIN 00000000
  23. 1120 RETURN
RAW Paste Data
Top