home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  48 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
  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"s.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. 29 rem gosub1000
  13. 30 ifti<tqandpeek(198)=0then30
  14. 40 poke198,0
  15. 50 sys57812"mr.mouse 2+ 1000",dv:poke780,0:poke781,0:poke782,16:sys65493
  16. 51 bl=4096+54:b0=4096+177
  17. 60 sysb0,"features",dv,96*256
  18. 61 sysbl,"frodo.ml",dv,41*256
  19. 62 sysbl,"music",dv,106*256
  20. 97 poke53280,0:poke53281,0
  21. 98 poke198,0:poke53265,11:print"[147]":
  22. 99 poke157,0:load"b.frodo",dv
  23. 100 print"[158][147]        [215]elcome to [204][207][193][196][211][212][193][210] 193
  24. 105 [129]i[178]0[164]9:[135]b$(i):[130]
  25. 110 [151]214,1:[153]
  26. 120 [129]i[178]0[164]9:[153]
  27. 130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
  28. 140 [130]:[143]:print"":stop
  29. 150 [142]
  30. 300 [131]"
  31. 301 data"[194]lip [194]laster!
  32. 303 [131]"list(NULL)icture by
  33. 304 data"[215]alt [200]arned
  34. 305 [131]"
  35. 306 data"[155][212]he music is from
  36. 307 [131]"(NULL)a chr$ioconda
  37. 308 data"[155]by [193]milcare [208]onchielli
  38. 309 [131]"list(NULL)ranscribed by
  39. 310 data"[196]ave [205]arquis
  40. 1000 [158]57812"bmfh",dv:[151]780,0:[151]781,0:[151]782,149:[158]65493
  41. 1002 [158]57812"reciter",dv:[151]780,0:[151]781,0:[151]782,125:[158]65493
  42. 1006 [151]39440,1:[151]39439,55
  43. 1010 [129]x[178]1[164]3:[135]sa$:[158]39430:[130]:[142]
  44. 1020 [131]"wellcome to.e loadstar, o o 3. .
  45. 1021 data"would you like to play a game. . "
  46. 1022 data"how about..dhhhermal.newcleeir.parcheizei?"
  47. 10000 dv=peek(186):open15,dv,15,"s0:star":close15:save"star",dv:end
  48.