home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 December / 64er_Magazin_88-12_1988_Markt__Technik_de_Side_A.d64 / seitenformat (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  47 lines
  1. 100 rem randeinstellung
  2. 110 open 1,4
  3. 115 print#1,"@"
  4. 120 print"[147] randeinstellung"
  5. 125 :
  6. 130 print"seitenlaenge in zeilen oder inch <z/i>"
  7. 140 poke 198,0 : wait 198,1 : get a$
  8. 150 if a$<>"i" then 200
  9. 160 input"wieviel inch";a
  10. 170 a=int(a):if a<1 or a>32 then 160
  11. 180 print#1,"c";chr$(0);chr$(a);
  12. 190 goto 240
  13. 200 input"wieviele zeilen";a
  14. 210 a=int(a):if a<1 or a>255 then 160
  15. 220 print#1,"c";chr$(a);
  16. 230 :
  17. 240 input"wieviele zeilen oberer rand";a
  18. 250 a=int(a):if a<1 or a>255 then 240
  19. 260 print#1,"";chr$(99);chr$(a);
  20. 265 o=a
  21. 270 :
  22. 280 input"wieviele zeilen unterer rand";a
  23. 290 a=int(a):if a<1 or a>255 then 280
  24. 300 print#1,"n";chr$(a);
  25. 310 :
  26. 340 input"wieviele spalten linker rand";a
  27. 350 a=int(a):if a<0 or a>152 then 340
  28. 360 print#1,"";chr$(108);chr$(a);
  29. 365 l=a
  30. 370 :
  31. 380 input"wieviele spalten rechter rand";a
  32. 390 a=int(a):if a<2 or a>160 then 380
  33. 395 if a-l<2 then print"!!! mindestens 2 druckspalten !!!" : goto 340
  34. 400 print#1,"q";chr$(a);
  35. 410 :
  36. 420 input"welche masterdruckart";a
  37. 430 a=int(a):if a<0 or a>255 then 420
  38. 440 print#1,"!"chr$(a);
  39. 450 :
  40. 460 print"seitenvorschub/formfeed <j/n>"
  41. 470 poke 198,0 : wait 198,1 : get a$
  42. 480 if a$="j" then print#1,chr$(12) : goto 500
  43. 490 print#1 : if o=0 then 500
  44. 495 for i=1 to o : print#1 : next
  45. 500 close1
  46. 510 print"druckereinstellungen sind aktiviert"
  47.