home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 62 / 64er_Magazin_Sonderheft_62_19xx_Markt__Technik_de_Side_A.d64 / veraenderer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  463b  |  20 lines
  1. 10 rem   ev. wichtige poke's
  2. 11 sys 52736
  3. 12 print "[147] (1) 50 hz   (2) 60 hz ";
  4. 15 gosub 200
  5. 20 on asc (a$)-48 goto 30,32
  6. 30 poke56334,peek(56334)and127:goto40
  7. 32 poke56334,peek(56334)or 128
  8. 40 print "farbe der anzeige (a-p) ";
  9. 45 gosub 200
  10. 47 poke 52886,asc(a$)-65:sys 52736
  11. 50 input "x-koordinate des anzeigeteils 1 ";x
  12. 55 poke 52867,x:sys 52736
  13. 60 input "x-koordinate des anzeigeteils 2 ";x
  14. 65 poke 52872,x:sys 52736
  15. 70 input "msb der x-koordinaten";x
  16. 75 poke 52862,x:sys 52736
  17. 80 end
  18. 200 get a$:if a$="" then 200
  19. 210 print a$:return
  20.