home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #3 / Commodore_Disk_User_Vol.1_3_1988_-.d64 / underline (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  251b  |  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.