home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-02_1990_-_de_Side_B.d64 / bm_device-change (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  545b  |  18 lines
  1. 30000 rem **************************
  2. 30010 rem * module : device change *
  3. 30020 rem * var: x,c,po            *
  4. 30030 rem **************************
  5. 30040 phi:wina3,12,6,16,11,1,0," -------------- _ -------------- "
  6. 30050 rem+"_[155]    device up   _   device down   _[158]      exit!       _   device #"
  7. 30060 flash"- [144]dev-change -[157][157][157][157]"
  8. 30070 x=peek(50512):gosub30120
  9. 30080 poke198,0:ach12,10,16,5
  10. 30090 ifpo=1thenx=x+1:gosub30120:goto30080
  11. 30100 ifpo=2thenx=x-1:gosub30120:goto30080
  12. 30110 setdnx:wclose:pli:return
  13. 30120 ifx=12thenx=8
  14. 30130 ifx=7thenx=11
  15. 30140 ifx<10thenprint"";x;"[157][157][157]0";:goto30160
  16. 30150 printx;
  17. 30160 print"[157][157][157][157]";:forc=1to300:return
  18.