home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_D.d64 / 02-pst-komppania (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  63 lines
  1. 1 print"[147]":poke53281,0:poke53280,0:poke53272,21
  2. 5 fori=0to24:poke54272+i,0:next:poke54296,15
  3. 10 poke54273,3:poke54272,0:poke54278,224+9:poke54276,33
  4. 11 poke54280,3:poke54279,4:poke54285,224+9:poke54283,33
  5. 20 gosub40:poke53265,91
  6. 25 gosub30:goto100
  7. 30 print"[144]                                       ";
  8. 31 fori=0to15
  9. 32 print"                                                            ";:next
  10. 33 print"";:return
  11. 40 print"   [213][192][178][192][178][192][174] [176][192][178][192][178][192][174][213][178][178][201] [213][192][178][192][178][192][201]"
  12. 41 print"   [221][176][179][221][171][174][221] [221][221][221][221][221][221][171][189][221][221][221] [221][176][179][221][221][221][221]"
  13. 42 print"  [160][221][173][221][192][179][221][221] [221] [179][192][179] [221][221][171][174][221] [221][176][179][221][221] [179] [176][174][176][174][176][174]"
  14. 43 print"   [202][192][177][192][203][173][189] [173][177][177][192][177][177][177][192][177][192][203] [173][189][202][192][177][177][189] [173][189][173][189][173][189]"
  15. 44 print"[176][195][178][192][178][192][178][178][192][178][178][178][178][192][201]"
  16. 45 print"[221][221][221][221][221][221][221][171][174][171][179] [194][221][221]"
  17. 46 print"[221] [179][192][179] [221][221][221][221][221][221][194][192][179]"
  18. 47 print"[173][177][177][192][177][177][177][192][177][177][177][177][177][192][203]"
  19. 48 print"[154]         [213][192][178][192][178][174][213][192][178][178][178][174][176][192][178][192][178][192][174][213][174]"
  20. 49 print"         [221][176][189][221][221][221][221][213][189][221][221][221][221][221][171][174][221][221][171][189][221]"
  21. 50 print"         [221][173][174] [221][173][179][202][174][221][221][173][179] [221][221][221][192][179][221][221]"
  22. 51 print"         [202][192][177][177][177][192][177][192][177][192][177][192][177][177][189][173][177][192][177][192][203]"
  23. 52 print"               [213][192][178][201][213][192][201][213][178][192][201][176][201][213][192][178][201][213][192][174][176][174][176][174]"
  24. 53 print"               [221][192][179][173][179][221][171][189][221][221][221][221][173][179][221][221][173][179][192][179][221][221][221][221]"
  25. 54 print"               [171][192][221][221][221] [221][221][221][192][179][221][221][221][221][221][221][171][192][221][171][179][171][179]"
  26. 55 print"               [173][192][177][177][177][177][177][192][177][192][203][173][192][177][192][177][192][177][192][203][173][189][173][189]"
  27. 56 print"                  [176][174][176][174]"
  28. 57 print"                  [221][221][221][221]"
  29. 58 print"                [176][174][173][189][173][189][176][174]"
  30. 59 print"                [221][173][192][192][192][192][189][221]"
  31. 60 print"                [173][192][192][192][192][192][192][189]";:poke198,0
  32. 61 fori=1to900:geta$:ifa$<>""thenreturn
  33. 62 next:return
  34. 100 poke53280,0:poke53281,0:poke53282,11:poke53283,15:poke53284,1
  35. 103 fori=0to7.7step.125:m=1524+int(cos(i*.75)*10)*40+sin(i)*10
  36. 104 pokem,(peek(m)+64)and255:pokem+1,(peek(m+1)+64)and255
  37. 106 pokem+40,(peek(m+40)+64)and255:pokem+41,(peek(m+41)+64)and255:nexti
  38. 111 fori=0to7.7step.125
  39. 113 m=1524+int(cos(i*.75)*10)*40-sin(i)*10
  40. 114 pokem,(peek(m)+64)and255:pokem+1,(peek(m+1)+64)and255
  41. 116 pokem+40,(peek(m+40)+64)and255:pokem+41,(peek(m+41)+64)and255:nexti
  42. 119 fori=1to1300:next:gosub30
  43. 120 poke53280,1:poke53281,1:poke53282,10:poke53283,2:poke53284,0
  44. 123 fori=0to6.1step.125:m=1524+int(cos(i*.92)*10)*40+sin(i)*10
  45. 124 pokem,(peek(m)+64)and255:pokem+1,(peek(m+1)+64)and255
  46. 126 pokem+40,(peek(m+40)+64)and255:pokem+41,(peek(m+41)+64)and255:nexti
  47. 129 fori=1to1300:next:gosub30
  48. 130 poke53280,0:poke53281,0:poke53282,5:poke53283,13:poke53284,1
  49. 133 fori=0to30step.3:m=1524+int(cos(i*.92)*8)*40+sin(i)*8
  50. 134 pokem,(peek(m)+64)and255:nexti
  51. 139 fori=1to1300:next:gosub30
  52. 140 poke53280,2:poke53281,2:poke53282,8:poke53283,4:poke53284,6
  53. 143 fori=0to20step.18:m=1524+int(sin(i)*10)*40+sin(i*.39)*17
  54. 144 pokem,(peek(m)+64)and255:pokem+1,(peek(m+1)+64)and255
  55. 146 pokem+40,(peek(m+40)+64)and255:pokem+41,(peek(m+41)+64)and255:nexti
  56. 149 fori=1to1300:next:gosub30
  57. 2000 print"[147]";:rem part ends
  58. 2010 poke53265,27:fori=15to0step-.5:poke54296,int(i):next
  59. 2020 print"load"chr$(34)"03*"chr$(34)",8:"
  60. 2030 print"run:"
  61. 2100 print"          try to optimize... =)";
  62. 2200 poke198,2:poke631,13:poke632,13:end
  63.