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 >
Wrap
Commodore BASIC
|
2022-10-26
|
251b
|
14 lines
2 poke56333,127:p=peek(1):poke1,pand251
3 forj=0to2047:poke12288+j,peek(53248+j):next
4 poke1,por4:poke56333,129
5 poke53272,29
30 forx=0to1023
40 pokex+13312,peek(x+12288)
50 next
60 a=13312
70 forx=0to127
80 pokea+7,255
90 a=a+8
100 next
110 print"[147]you now have underlined[146] characters."