home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 January / 64er_Magazin_90-01_1990_Markt__Technik_de_Side_A.d64 / zollrhc (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  1KB  |  42 lines
  1. 1 rem          zollrasterhardcopy
  2. 2 rem
  3. 3 rem          von norbert ramek
  4. 4 rem          ignaz riederkai 17
  5. 5 rem          a-5020 salzburg
  6. 6 rem
  7. 10 if a<>1 then a=1:load"obj loadgr",8,1
  8. 20 if b<>1 then b=1:load"obj zollrhc",8,1
  9. 40 print"[147]"
  10. 50 print," zollrasterhardcopy "
  11. 60 print"    fuer zwei nebeneinanderliegende"
  12. 70 print,"   einzelgrafiken"
  13. 80 sys 26400,0,15:      rem grafik loeschen,punktfarbe,hintergr.farbe
  14. 90 fi$="":input"filename fuer linke grafik";fi$
  15. 100 if fi$="" then 140
  16. 110 gosub 500
  17. 120 if a<>0 then print a;b$:goto 90
  18. 130 sys 26403,fi$,8:     rem linke grafik nach $4000 laden und zeigen
  19. 140 input"o.k. (j/n)";c$
  20. 150 if c$="j" then 180
  21. 160 if c$="n" then 90
  22. 170 goto 140
  23. 180 print
  24. 190 sys 26406:           rem grafik von $4000 nach $2000 verschieben
  25. 200 sys 26400,0,15:      rem grafik loeschen,punktfarbe,hintergr.farbe
  26. 210 fi$="":input"filename fuer rechte grafik";fi$
  27. 220 if fi$="" then 260
  28. 230 gosub 500
  29. 240 if a<>0 then print a;b$:goto 210
  30. 250 sys 26403,fi$,8:     rem rechte grafik laden und zeigen
  31. 260 input"o.k. (j/n)";c$
  32. 270 if c$="j" then 300
  33. 280 if c$="n" then 210
  34. 290 goto 260
  35. 300 open 1,4,1:          rem linearkanal drucker
  36. 310 sys 25600:           rem hardcopy
  37. 320 end
  38. 500 rem filename testen
  39. 510 open 1,8,2,fi$:close 1
  40. 520 open 1,8,15:input#1,a,b$:close 1
  41. 530 return
  42.