home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 48 / 64er_Magazin_Sonderheft_48_19xx_Markt__Technik_de.d64 / install / install.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-01-01  |  3.1 KB  |  30 lines
  1. 100 poke53280,0:poke53281,0:poke646,3
  2. 110 printchr$(147);chr$(8);chr$(14)
  3. 120 input"[194]itte eine leere [196]iskette einlegen ";a$
  4. 130 open1,8,15,"n:mustereditor"
  5. 140 open3,8,3,"#"
  6. 150 print#1,"b-a 0";1;0
  7. 160 print#1,"b-a 0";1;1
  8. 300 close3:open3,8,3,"mustereditor,u,w"
  9. 310 fora=02608to04920
  10. 320 print#3,chr$(peek(a));
  11. 330 nexta
  12. 340 close3
  13. 350 open3,8,3,"#"
  14. 360 print#1,"u1 3 0 01 01"
  15. 370 print#1,"b-p 3 0"
  16. 380 fora=04928to05183
  17. 390 print#3,chr$(peek(a));
  18. 400 nexta
  19. 410 print#1,"u2 3 0 01 01"
  20. 420 print#1,"u1 3 0 18 01"
  21. 430 print#1,"b-p 3 21"
  22. 440 print#3,chr$(01);chr$(01);
  23. 450 print#3,chr$(00);chr$(06);
  24. 460 print#3,chr$(89);chr$(09);
  25. 470 print#3,chr$(02);chr$(19);
  26. 480 print#3,chr$(25);
  27. 490 print#1,"u2 3 0 18 01"
  28. 500 close3
  29. 510 close1
  30.