home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  53 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 tq=ti:poke198,0:ifpeek(653)=0thengosub1000:goto13
  6. 12 poke53280,11:poke53281,11:goto50
  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,00:print"[147]":sys51456:sys51459
  11. 28 tq=ti+300::poke198,0:j=0:poke53370,0
  12. 30 ifpeek(v+1)<40orti>tqorpeek(198)>0then40
  13. 31 goto30
  14. 32 stop
  15. 40 poke198,0:pokev+21,0
  16. 50 rem
  17. 98 poke198,0
  18. 99 poke157,0:load"presenter",dv
  19. 100 print"[158][147]        [215]elcome to [204][207][193][196][211][212][193][210] 231
  20. 105 [129]i[178]0[164]9:[135]b$(i):[130]
  21. 110 [151]214,1:[153]
  22. 120 [129]i[178]0[164]9:[153]
  23. 130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
  24. 140 [130]:[143]:print"":stop
  25. 150 [142]
  26. 300 [131]"
  27. 301 data" [193] [199]rand [207]ld [204][207][193][196][211][212][193][210] [195]over"
  28. 302 data"
  29. 303 [131]"  listascrom right$ssue 2"
  30. 305 [131]"
  31. 306 data" [155][212]he music is"
  32. 307 data" [193]merica"
  33. 308 data"  [155]by [204]. [194]ernstein & [211]. [211]ondheim
  34. 309 [131]
  35. 310 [131]"  list(NULL)ranscribed by atn (NULL)(NULL)ink (NULL)erson
  36. 1000 goto2000
  37. 1001 c0=peek(151):c1=peek(253)
  38. 1002 sys57812"play",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  39. 1003 sys49155"welcome.vox",dv
  40. 1010 poke151,0:poke253,12
  41. 1020 poke214,22:print"[129]":reada1$,b1$
  42. 1030 printtab(19-len(a1$)/2)a1$
  43. 1040 printtab(19-len(b1$)/2)b1$;
  44. 1050 sys49152
  45. 1051 poke151,c0:poke253,c1
  46. 1055 return
  47. 1060 data"[215]elcome to [204][207][193][196][211][212][193][210]!"
  48. 1061 data"[212]his is [196]ave [205]oorman"
  49. 2000 t=ti+240:forx=-1to0:x=ti<t:next:return
  50. 9999 end
  51. 10000 dv=peek(186):open15,dv,15,"s0:star":close15:save"star",dv:end
  52. 60000 goto10000
  53.