home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / anpassung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  961b  |  38 lines
  1. 10 if z=0then z=1:load"star-support",8,1
  2. 20 print"giga-star anpassungs routine:"
  3. 30 input"sekundaeradresse ";a
  4. 40 poke 50512,a
  5. 50 input"muss nach einen cr noch ein lf gesendet werden ";a$
  6. 60 if a$="ja" then poke 50605,169:goto 80
  7. 70 if a$="nein" then poke 50605,96:goto 80
  8. 75 goto 50
  9. 80 print"grafik ein - doppelte dichte -          960 zeichen:"
  10. 85 print"beim star nl10: 4 codes, 27, 76, 192, 3"
  11. 90 input"wieviel codes ";a:poke 50589,a
  12. 100 if a<0 or a>7 then 90
  13. 110 for t=0 to a-1
  14. 120 input b
  15. 130 poke 50593+t,b
  16. 140 next
  17. 150 print"zeilenabstand auf 22/216 zoll:"
  18. 155 print"beim nl10: 3 codes, 27, 51, 22"
  19. 160 input"wieviel codes ";a:poke 50549,a
  20. 170 if a<0 or a>6 then 160
  21. 180 for t=0 to a-1
  22. 190 input b
  23. 200 poke 50553+t,b
  24. 210 next
  25. 220 print"zeilenabstand auf 2/216 zoll:"
  26. 225 print"beim nl10: 3 codes, 27, 51, 2"
  27. 230 input"wieviele codes ";a:poke 50569,a
  28. 240 if a<0 or a>6 then 230
  29. 250 for t=0 to a-1
  30. 260 input b
  31. 270 poke 50573+t,b
  32. 280 next
  33. 290 input"ist alles richtig ";a$
  34. 300 if a$="ja" then 330
  35. 310 if a$="nein" then 20
  36. 320 goto 290
  37. 330 poke 43,0:poke 44,192:poke 45,10:poke46,198:save "@:star-support",8:new
  38.