home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / bits (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  818 b   |  29 lines
  1. 100 poke53281,0:poke53280,0:print"[147][154]"chr$(142)""
  2. 110 f$="colorizer.o":poke147,0:sys57812f$,8,1:sys62631
  3. 120 forx=1to73:print" abracadabra ";:next:print" abracadab[145][145]"
  4. 130 fori=217to242:pokei,peek(i)or128:next:rem fix the line links
  5. 140 poke214,18:print
  6. 150 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 160 print"[221] [159]press space to return to loadstar [158][221]"
  8. 170 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  9. 180 poke828,1:poke829,2:poke830,3: rem   choose the characters to glow
  10. 190 poke831,11:poke832,12:poke833,15
  11. 200 sys834:gosub310
  12. 210 poke831,12:poke832,15:poke833,11
  13. 220 sys834:gosub310
  14. 230 poke831,15:poke832,11:poke833,12
  15. 240 sys834:gosub310
  16. 250 poke831,12:poke832,15:poke833,11
  17. 260 sys834:gosub310
  18. 270 geta$:ifa$=" "then320
  19. 280 goto 190
  20. 290 rem
  21. 300 rem
  22. 310 for x=1to60:next:return
  23. 320 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  24. 330 ifer%<>63thenend
  25. 340 poke53281,peek(646)
  26. 350 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  27. 360 print"run"
  28. 370 poke631,13:poke632,13:poke633,13:poke198,3:end
  29.