home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47a.d64 / anpassung (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.