home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 74
/
074.d81
/
bits
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
41 lines
100 ifpeek(49153)<>253thena=1:load"char swap $c000",8,1
110 ifpeek(8193)<>129thenload"bits.font",8,1
120 dimi,c,a,s,a(20):poke53272,24
130 s=49152:fori=1to18:reada(i):next
140 poke53280,0:poke53281,0:print"[147][158]"
150 print"[179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179]"
160 print"[159] [212]he [205]ighty [195]haracter [211]wapper"
170 print"[155] [194]y [202]eff [202]ones"
180 print" [211][208][193][195][197][160][212][207][160][195][207][206][212][201][206][213][197]
190 [153]"<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
200 i[178]116
210 c[178]c[170]1:[158]s,i[171]1,i,a(c):[139]c[178]17[167]c[178]1
220 [139][194](197)[179][177]64[167]250
230 i[178]i[170]1:[139]i[179]124[167]210
240 [158]s,123,115,a(c):[137]200
250 [153]"load"
260 [153]"loadsys(NULL)ow right$'ll swap every space on the screen"
270 [153]"with every character in the un-reversed font.
280 print"[159] [208]ress [211][208][193][195][197]":poke198,0:wait198,1:geta$
290 print"[147]":sys49152,32,0,3:fori=0to127:sys49152,i,i+1,3:next:fori=1to2000
300 next:print"[147][158][193]nd now for something completely different:"
310 print"[159][208]ress [211][208][193][195][197]":poke198,0:wait198,1:geta$
320 l=124:h=132:c=5:gosub390
330 l=133:h=133+28:c=6:gosub390
340 l=115:h=123:c=7:gosub390
350 print"[147][159][211][208][193][195][197][159] see demo again/ [209][159] [204][207][193][196][211][212][193][210]":poke198,0
360 geta$:ifa$<>"q"anda$<>" "then360
370 ifa$=" "thenrun
380 goto440
390 t=l+1:print"[147]":syss,32,l,4
400 fori=1to90:syss,t-1,t,c
410 t=t+1:ift>hthent=l+1:syss,h,l,c
420 next:return
430 data11,12,15,15,12,11,11,12,15,1,1,1,13,14,4,5,3,3
440 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
450 if er<>63 then print"[147]":end
460 q$=chr$(34):poke646,peek(53281):print"[147]"
470 print"load"q$a$q$",8"
480 print"run":poke631,13:poke632,13:poke198,2:end
490 fori=1to255:ford=1to55:next:poke1024,i:print""i:next