home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 200 / 200.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  52 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]":gosub100
  5. 11 tq=ti:poke198,0:gosub1000
  6. 12 geta$:ifa$=""and(ti<tq+350)then12
  7. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  9. 16 poke251,32:poke252,224:poke253,204
  10. 18 poke53280,0:sys51456:sys51459
  11. 28 tq=ti+240::poke198,0
  12. 30 ifti<tqandpeek(198)=0then30
  13. 40 poke198,0
  14. 50 rem  sys57812"mr.mouse 2+ 1000",dv:poke780,0:poke781,0:poke782,16:sys65493
  15. 51 rem bl=4096+54:b0=4096+177
  16. 60 rem sysb0,"features",dv,96*256
  17. 61 rem sysbl,"frodo.ml",dv,41*256
  18. 62 rem sysbl,"music",dv,106*256
  19. 97 poke53280,0:poke53281,0
  20. 98 poke198,0:poke53265,11:print"[144][147]":
  21. 99 poke157,0:load"presenter",dv
  22. 100 print"[158][147]        [215]elcome to [204][207][193][196][211][212][193][210] 200
  23. 105 [129]i[178]0[164]9:[135]b$(i):[130]
  24. 110 [151]214,1:[153]
  25. 120 [129]i[178]0[164]9:[153]
  26. 130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
  27. 140 [130]:[143]:print"":stop
  28. 150 [142]
  29. 300 [131]"atn(NULL)str$ (NULL)(NULL) (NULL)(NULL) (NULL)(NULL)(NULL) (NULL)val(NULL)(NULL) lenval(NULL)(NULL)(NULL)(NULL)(NULL)
  30. 301 data"
  31. 303 [131]"list(NULL)icture by
  32. 304 data"[215]alt [200]arned
  33. 305 [131]"
  34. 306 data"[155][212]he music is
  35. 307 [131]"(NULL)a-(NULL)a-(NULL)a peekoom str$e valy
  36. 308 data"[155]by [200]enry [202]. [211]ayers
  37. 309 [131]"list(NULL)ranscribed by
  38. 310 data"[196]ave [205]arquis
  39. 1000 [158]57812"bmfh",dv:[151]780,0:[151]781,0:[151]782,149:[158]65493
  40. 1002 [158]57812"reciter",dv:[151]780,0:[151]781,0:[151]782,125:[158]65493
  41. 1006 [151]39440,10:[151]39439,40
  42. 1009 [151]214,22:[153]"verify"
  43. 1010 [129]x[178]1[164]2:[135]sa$
  44. 1012 [135]a$:[153][163]20[171][195](a$)[173]2)a$:[158]39430:[130]:[142]
  45. 1020 [131]"wellcome to.lode star.too.huhndred
  46. 1021 data"[215]elcome to [204][207][193][196][211][212][193][210] 200
  47. 1022 [131]".ready for our next century
  48. 1023 data"[145][210]eady for our next [195]entury
  49. 9999 [128]
  50. 10000 dv[178][194](186):[159]15,dv,15,"s0:star":[160]15:[148]"star",dv:[128]
  51. 60000 [137]10000
  52.