home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 222 / 222.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  601b  |  28 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 5 poke32767,13:poke53371,0
  3. 6 poke65534,1:rem s-key on
  4. 10 poke53281,0:poke53280,0:print"[147][159]":ifpeek(653)=0thengosub100
  5. 11 t=5*60+ti
  6. 12 ift>tithen12
  7. 13 load"worm.pkd",dv
  8. 100 print"[158][147]        [215]elcome to [204][207][193][196][211][212][193][210] 222
  9. 105 [129]i[178]0[164]9:[135]b$(i):[130]
  10. 110 [151]214,1:[153]
  11. 120 [129]i[178]0[164]9:[153]
  12. 130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
  13. 140 [130]:[143]:print"":stop
  14. 150 [142]
  15. 300 [131]"(NULL)he (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)ormhole
  16. 301 data"[198]ound in the [205]andelbrot [211]et
  17. 303 [131]"listby
  18. 304 data"[196]ave [205]oorman "
  19. 305 data"
  20. 306 [131]"list(NULL)he music is "
  21. 307 [131]"(NULL)onata
  22. 308 data"[155]by [199]eorge [200]andel
  23. 309 [131]"list(NULL)ranscribed to the len-64
  24. 310 data"[155]by [196]ave [205]arquis
  25. 9999 [128]
  26. 10000 dv[178][194](186):[159]15,dv,15,"s0:star":[160]15:[148]"star",dv:[128]
  27. 60000 [137]10000
  28.