home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 96 / 096.d81 / colorburst / colorburst.0829 / colorburst.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  50.0 KB  |  22 lines
  1. 10 print"[147]":dv=peek(186):ifdv<8thendv=8
  2. 11 poke56,16:clr
  3. 20 poke53281,0:poke53280,0:sys4096,6,33,17,17,160,13:fori=1to7
  4. 30 sys4096,7-i,32+i,17-i,17+i,160,13:next:sys4096,0,39,10,10,160,1
  5. 40 sys4096,0,39,24,24,160,5
  6. 50 fori=1to11:reada$:poke214,11+i:poke211,20-len(a$)/2:sys58732:print"[153]"a$:next
  7. 60 goto200
  8. 70 data"[195] [207][160][204] [207] [210]    [194][160][213][160][210] [211] [212]","by [202]eff [202]ones"
  9. 80 data"([195])1992 by [211]oftdisk [208]ublishing",,"[212]his is the copyrighted work of
  10. 90 [131]"(NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$. right$t is (NULL)(NULL)(NULL) intended
  11. 100 data"for distribution as public domain","or shareware.  [208]lease report illegal
  12. 110 [131]"distribution of this program by","calling (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) lenustomer service at:
  13. 120 data"1-800-831-2694 or 1-318-221-8718
  14. 130 [131]"     lenolor peekurst     ","     (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  15. 200 reada1$,a2$
  16. 210 sys49152,2,9,2,6+64,1,13,a1$,a2$
  17. 220 geta$:ifa$="1"thensys32768:sys49158,4:goto210
  18. 225 poke56,160:clr
  19. 230 open15,8,15,"r:hello connect=hello connect":input#15,e:close15
  20. 240 ife<>63thenprint"[147]":end
  21. 250 print"[144]":sys4096+6,"hello connect",8:end
  22.