home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / tool-copy (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  569b  |  26 lines
  1. 1 rem tool-basic.obj
  2. 10 poke 53281,15:print"[144][147]"
  3. 20 sys57812 "tool-basic.obj",8,1
  4. 30 poke 780,0:sys 65493
  5. 40 open 1,8,15
  6. 50 input# 1,a:close 1
  7. 60 if a<1 goto 200
  8. 70 print " legen sie bitte die diskette mit"
  9. 80 print "'tool-basic.obj' ein und druecken sie"
  10. 85 print tab(14);"<<< space >>>"
  11. 90 get a$:if a$<>" " goto 90
  12. 100 goto 10
  13. 200 print "bitte legen sie die zieldiskette"
  14. 210 print "ein und druecken sie  <<< space >>>"
  15. 220 get a$:if a$<>" " goto 220
  16. 230 poke 193,0  :poke 194,192
  17. 240 poke 174,0  :poke 175,208
  18. 250 poke 187,7  :poke 188,8
  19. 260 poke 183,14
  20. 270 poke 186,8  :poke 185,0
  21. 280 sys 62954
  22. 290 open1,8,15
  23. 300 input# 1,a,b$,c,d
  24. 310 print a;b$;c;d
  25. 320 close 1
  26.