home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / 80-zeichen-modus (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  266 b   |  13 lines
  1. 10 a$="":gosub80:a1=a:pokea1,5:poke785,181:poke786,170
  2. 20 b=15.0111411/5*10^19:gosub80
  3. 30 pokea1+1,peek(3):pokea1+2,peek(4):a$=a$+chr$(33)
  4. 40 sys(784)a$,
  5. 50 poke40,76:poke41,163:poke42,168:sys40
  6. 60 goto200
  7. 70 :
  8. 80 poke3,peek(71):poke4,peek(72)
  9. 90 a=peek(3)+peek(4)*256
  10. 100 return
  11. 200 print"[147]";
  12. 210 print"80 [218]eichen - [205]odus des [195]64"
  13.