home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D3.D64 / underline (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  251 b   |  14 lines
  1. 2 POKE56333,127:P=PEEK(1):POKE1,PAND251
  2. 3 FORJ=0TO2047:POKE12288+J,PEEK(53248+J):NEXT
  3. 4 POKE1,POR4:POKE56333,129
  4. 5 POKE53272,29
  5. 30 FORX=0TO1023
  6. 40 POKEX+13312,PEEK(X+12288)
  7. 50 NEXT
  8. 60 A=13312
  9. 70 FORX=0TO127
  10. 80 POKEA+7,255
  11. 90 A=A+8
  12. 100 NEXT
  13. 110 PRINT"[147]YOU NOW HAVE UNDERLINED[146] CHARACTERS."
  14.