home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD036B.D64 / star (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  63 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. 15 SYS57812"MULTI LS SPR",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
  10. 16 POKE251,32:POKE252,224:POKE253,204
  11. 18 POKE53280,0:PRINT"[147]":SYS51456:SYS51459
  12. 19 L$="12345678":V=53248:FORI=0TO9
  13. 20 X1(I)=134+26*I:Y2(I)=190
  14. 21 X2(I,0)=X1(I)-8:X2(I,1)=134+26*I
  15. 22 NEXT:POKEV+21,0:FORI=0TO7:POKE53240+I,I:POKEV+39+I,0:NEXT
  16. 23 POKEV+29,0:POKEV+23,0:POKEV+27,0:POKEV+28,255:POKEV+37,2
  17. 24 FORI=0TO10:Z(I)=VAL(MID$(L$,I+1,1)):NEXT
  18. 25 POKEV+16,224:FORI=0TO10:IFZ(I)=0THEN27
  19. 26 POKEV+(Z(I)-1)*2,(X2(I,-(N>5))AND255):POKEV+1+(Z(I)-1)*2,Y2(I)
  20. 27 NEXT:POKEV+21,255
  21. 28 TQ=TI+240::POKE198,0:J=0:POKE53370,0
  22. 30 IFTI>TQORPEEK(198)>0THEN40
  23. 31 J=1-J:FORI=0TO7:POKEV+39+I,7-6*J:NEXT:GOTO30
  24. 32 STOP
  25. 40 POKE198,0:POKEV+21,0
  26. 50 REM
  27. 98 POKE198,0
  28. 99 POKE157,0:LOAD"PRESENTER",DV
  29. 100 PRINT"[158][147]        [215]ELCOME TO [204][207][193][196][211][212][193][210] 211
  30. 105 [129]I[178]0[164]9:[135]B$(I):[130]
  31. 110 [151]214,1:[153]
  32. 120 [129]I[178]0[164]9:[153]
  33. 130 [153][163]20[171](([195](B$(I))[173]2)))B$(I)
  34. 140 [130]:[143]:PRINT"":STOP
  35. 150 [142]
  36. 300 [131]"(null)AGGEDY ATNNN
  37. 301 DATA"OR [211]HE [215]HO [212]RULY [213]NDERSTANDS
  38. 303 [131]"LIST(null)ICTURE BY
  39. 304 DATA"[215]ALT [200]ARNED
  40. 305 [131]"
  41. 306 DATA"[155][212]HE MUSIC IS
  42. 307 [131]"(null)HIS (null)LD (null)AN
  43. 308 DATA"[155][193] [212]RADITIONAL [212]UNE
  44. 309 [131]"LIST(null)RANSCRIBED TO THE LEN-64
  45. 310 DATA"[155]BY [195]ORKY [195]OCHRAN
  46. 1000 [137]2000
  47. 1001 C0[178][194](151):C1[178][194](253)
  48. 1002 [158]57812"PLAY",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  49. 1003 [158]49155"WELCOME.VOX",DV
  50. 1010 [151]151,0:[151]253,12
  51. 1020 [151]214,22:[153]"FOR":[135]A1$,B1$
  52. 1030 [153][163]19[171][195](A1$)[173]2)A1$
  53. 1040 [153][163]19[171][195](B1$)[173]2)B1$;
  54. 1050 [158]49152
  55. 1051 [151]151,C0:[151]253,C1
  56. 1055 [142]
  57. 1060 [131]"(null)ELCOME TO (null)(null)ATNSTR$(null)(null)ATN(null)!"
  58. 1061 [131]"(null)HIS IS STR$AVE (null)OORMAN"
  59. 2000 T[178]TI[170]240:[129]X[178][171]1[164]0:X[178]TI[179]T:[130]:[142]
  60. 9999 [128]
  61. 10000 DV[178][194](186):[159]15,DV,15,"S0:STAR":[160]15:[148]"STAR",DV:[128]
  62. 60000 [137]10000
  63.