home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 48 / 048side1.d81 / m3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  644 b   |  25 lines
  1. 5 poke53281,0:poke53280,0
  2. 10 ifx=0thenx=1:load"mf",8,1
  3. 15 c=54272:z=40
  4. 20 poke53272,19:printchr$(14)"[147]           [159][204][207][193][196][211][212][193][210] presents"chr$(8)
  5. 25 l(0)=10:l(1)=8:l(2)=2:l(3)=9
  6. 30 fori=0to1
  7. 40 forj=0to31
  8. 50 poke1188+j+i*z,128+k
  9. 55 poke1339-j-i*z,255-k:k=k+1
  10. 60 next:next:print"[159]   "
  11. 80 forj=0to3
  12. 82 fori=0to15
  13. 84 poke1204+c+i+j*z,l(j)
  14. 86 poke1203+c-i+j*z,l(j)
  15. 88 next:next
  16. 162 print"[152]   [193][206] [201][206][211][208][197][195][212][207][210] [204][193] [205][207][210][212] [205][217][211]-[193][196][214][197][206][212][213][210][197]"
  17. 165 print"[159]       [212]his program is not in the"
  18. 167 print"     public domain.  [208]lease respect"
  19. 168 print"          the author's rights."
  20. 170 print"     [195]opyright 1988 by [154][198][197][206][196][197][210] [212][213][195][203][197][210]"
  21. 300 print"[144]load"chr$(34)"mo"chr$(34)",8"
  22. 310 print"[145][145][145][145]"
  23. 320 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13
  24. 330 new
  25.