home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 July / 64er_Magazin_87-07_1987_Markt__Technik_de.d64 / bank0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.