home *** CD-ROM | disk | FTP | other *** search
/ Loadstar Extras 3 / Ex3side2.d64 / b.udi / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-01-01  |  2.3 KB  |  13 lines
  1. 10 print"[147]":dv=peek(186):ifdv<8thendv=8
  2. 20 poke53281,0:poke53280,0:sys4096,6,33,17,17,160,13:fori=1to7
  3. 30 sys4096,7-i,32+i,17-i,17+i,160,13:next:sys4096,0,39,10,10,160,1
  4. 40 sys4096,0,39,24,24,160,5
  5. 50 fori=1to11:reada$:poke214,11+i:poke211,20-len(a$)/2:sys58732:print"[153]"a$:next
  6. 60 print"[144]":sys4096+6,"udi",dv:end
  7. 70 data"[213][206][201][214][197][210][211][193][204] [196][201][210][197][195][212][207][210][217] [201][206][211][208][197][195][212][207][210]","by [202]eff [202]ones"
  8. 80 data"([195])1992 by [211]oftdisk [208]ublishing",,"[212]his is the copyrighted work of
  9. 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
  10. 100 data"for distribution as public domain","or shareware.  [208]lease report illegal
  11. 110 [131]"distribution of this program by","calling (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) lenustomer service at:
  12. 120 data"1-800-831-2694 or 1-318-221-8718
  13.