home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33b.d64 / 80-zeichen-modus (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  266b  |  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.