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