home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / g.h.1520 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  42 lines
  1. 100 a=a+1
  2. 110 if a=1 then load "copy 1520",8,1
  3. 200 if a=3 then 400
  4. 250 open3,6,3:print#3,1:close3
  5. 300 print"[147]giga-cad hardcopy"
  6. 310 print"==================="
  7. 320 print"druckertyp: 1520 plotter"
  8. 330 print"hardcopy routine : 'copy 1520'"
  9. 340 print"                    aus 64'er sh. 4/85"
  10. 350 input"name der graphik  : ";n$
  11. 360 input"farbe der graphik (0-3): ";c
  12. 370 print"aufloesung :           1 = normal"
  13. 380 print"                       4 = vierfach"
  14. 390 print"                      10 = zehnfach"
  15. 391 input"welche aufloesung :   1[157][157][157]";d: b=-1
  16. 392 ifd<>1andd<>4andd<>10thengoto391
  17. 393 ifd=4thenn$="hv."+n$
  18. 394 ifd=10thenn$="hz."+n$
  19. 395 print"[147]"
  20. 400 if d=4 or d=10 then 500
  21. 420 if a=2 then gosub 780
  22. 430 gosub 700
  23. 440 gosub 750
  24. 450 goto  800
  25. 500 if a=2 then b=b+2 : gosub 790
  26. 510 gosub 700
  27. 520 a=2
  28. 530 if b=d or b=d-1 then gosub 750
  29. 540 if b=d then goto 800
  30. 550 if b=d-1 then b=0
  31. 560 goto 500
  32. 700 poke 3399,32: poke 3392,0: poke 1000,0:poke 1001,3andc
  33. 710 print"printing : ";n$:poke780,1:sys 3328
  34. 720 open1,6,1:print#1,"m",0,-180:close1
  35. 730 open1,6:print#1,"":close1:return
  36. 750 open1,6:print#1,"":print#1,"":print#1,"":close1:return
  37. 780 print"loading  : ";n$:load n$,8,1
  38. 790 print"loading  : ";n$+str$(b):load n$+str$(b),8,1
  39. 800 input"nochmal (j/n)? :   n[157][157][157]";ea$
  40. 810 ifea$="j"thena=1:goto100
  41. 820 end
  42.