home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8707.d64 / bank0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  373b  |  19 lines
  1. 10 REM BANK0
  2. 15 :
  3. 20 SYS49158,1:REM RUN BANK 1
  4. 30 :
  5. 50 PRINT"[147]HIER IST BANK 0"
  6. 60 PRINT"";
  7. 70 X=X+1:PRINT"DURCHLAUF : "X
  8. 75 FORZ=1TO600:NEXT
  9. 80 SYS49155,1:REM BANK 1 EIN
  10. 90 GETA$:IFA$=""THEN GOTO 60
  11. 95 :
  12. 100 IFA$="1"THEN SYS49164,1:REM STOP BANK 1
  13. 110 IFA$="2"THEN SYS49164,2:REM STOP BANK 2
  14. 120 IFA$="3"THEN SYS49164,3:REM STOP BANK 3
  15. 130 IFA$="0"THEN STOP
  16. 140 IFA$<>"S"THEN GOTO 60
  17. 150 FORX=1TO3:SYS49164,X:NEXT:REM STOP BANK 1-3
  18. 160 END
  19.