home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_004_19xx_-_de_Disk_2_of_2_Side_B.d64 / senso (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  107 lines
  1. 0 poke53281,0:poke53280,0:poke646,1:poke53272,20
  2. 1 zx=800
  3. 10 s=54272:pokes+24,15:pokes+5,0:pokes+6,249:pokes+4,17:pokes,0
  4. 20 pokes+1,0
  5. 30 e=54272:poke198,0
  6. 40 le=3
  7. 50 a=0
  8. 100 print"[152][147][144] [157][156]score [176][192][192][174][157][157][157][157][221]f1[221][157][157][157][157][173][192][192][189]
  9. 102 [153]"clrcmdcmdcmdcmdcmdcmdlives
  10. 110 print"[158][176][192][192][174][157][157][157][157][221]f3[221][157][157][157][157][173][192][192][189]
  11. 120 [153]"ortantan^cmdcmdcmdcmd(NULL)f5(NULL)cmdcmdcmdcmd/tantanexp
  12. 130 print"[154][176][192][192][174][157][157][157][157][221]f7[221][157][157][157][157][173][192][192][189]
  13. 132 [153]"opensenso by marek r.
  14. 140 print"[153]<taste>":wait198,1:poke198,0
  15. 142 print"[145]       "
  16. 144 fori=0to1000:next
  17. 150 ifn=6thenn=0:goto200
  18. 156 a=a+1:s=int(4*rnd(s))
  19. 160 ifs=0thengosub1000
  20. 170 ifs=1thengosub1100
  21. 180 ifs=2thengosub1200
  22. 190 ifs=3thengosub1300
  23. 200 poke55296,0:poke1024,0:zt=1
  24. 210 ifa> 4thenzx=400
  25. 211 ifa> 8thenzx=200
  26. 212 ifa>16thenzx=100      
  27. 214 ifa>24thenzx=050
  28. 216 ifa>32thenzx=025
  29. 220 poke1060,le+48:poke55332,11
  30. 240 print"[151]";a-1
  31. 250 goto3000
  32. 1000 print"[176][192][192][174][157][157][157][157][221]f1[221][157][157][157][157][173][192][192][189]
  33. 1010 [141]5400:[129]p[178]0[164]zx:[130]::[141]5500:[141]2100
  34. 1020 [151]a[170]49152,s
  35. 1030 [142]
  36. 1100 [153]"sysortantan^cmdcmdcmdcmd(NULL)f3(NULL)cmdcmdcmdcmd/tantanexp
  37. 1110 gosub5400:forp=0tozx:next::gosub5500:gosub2100
  38. 1120 pokea+49152,s
  39. 1130 return
  40. 1200 print"[176][192][192][174][157][157][157][157][221]f5[221][157][157][157][157][173][192][192][189]
  41. 1210 [141]5400:[129]p[178]0[164]zx:[130]::[141]5500:[141]2100
  42. 1220 [151]a[170]49152,s
  43. 1230 [142]
  44. 1300 [153]"contortantan^cmdcmdcmdcmd(NULL)f7(NULL)cmdcmdcmdcmd/tantanexp
  45. 1310 gosub5400:forp=0tozx:next::gosub5500:gosub2100
  46. 1320 pokea+49152,s
  47. 1330 return
  48. 2100 print"[176][192][192][174][157][157][157][157][221]f1[221][157][157][157][157][173][192][192][189]
  49. 2110 [153]"sysortantan^cmdcmdcmdcmd(NULL)f3(NULL)cmdcmdcmdcmd/tantanexp
  50. 2120 print"[176][192][192][174][157][157][157][157][221]f5[221][157][157][157][157][173][192][192][189]
  51. 2130 [153]"contortantan^cmdcmdcmdcmd(NULL)f7(NULL)cmdcmdcmdcmd/tantanexp
  52. 2140 return
  53. 3000 poke198,0:forr=1toa
  54. 3010 geta$:ifa$=""thenpoke1024,peek(1024)+1::g=5
  55. 3020 ifg=5thenifpeek(1024)=100thengoto7000
  56. 3022 ifg=5theng=0:goto3010
  57. 3030 ifa$=chr$(133)theny=0
  58. 3050 ifa$=chr$(134)theny=1
  59. 3060 ifa$=chr$(135)theny=2
  60. 3070 ifa$=chr$(136)theny=3
  61. 3080 zt=0:ifpeek(r+49152)=ythen3400
  62. 3090 goto6000
  63. 3400 s=y
  64. 3500 ify=0thengosub5000
  65. 3570 ify=1thengosub5100
  66. 3580 ify=2thengosub5200
  67. 3590 ify=3thengosub5300
  68. 3600 nextr:fori=0to800:next:zt=1
  69. 3700 forw=1tor-1
  70. 3710 s=peek(w+49152):zt=1
  71. 4160 ifs=0thengosub5000
  72. 4170 ifs=1thengosub5100
  73. 4180 ifs=2thengosub5200
  74. 4190 ifs=3thengosub5300
  75. 4200 nextw
  76. 4220 goto150
  77. 5000 print"[176][192][192][174][157][157][157][157][221]f1[221][157][157][157][157][173][192][192][189]
  78. 5010 [141]5400
  79. 5012 [139]zt[178]1[167][129]p[178]0[164]zx:[130]
  80. 5014 [139]zt[178]0[167][146]203,64
  81. 5030 [141]5500:[141]2100:[142]
  82. 5100 [153]"sysortantan^cmdcmdcmdcmd(NULL)f3(NULL)cmdcmdcmdcmd/tantanexp
  83. 5110 gosub5400:goto5012
  84. 5200 print"[176][192][192][174][157][157][157][157][221]f5[221][157][157][157][157][173][192][192][189]
  85. 5210 [141]5400:[137]5012
  86. 5300 [153]"contortantan^cmdcmdcmdcmd(NULL)f7(NULL)cmdcmdcmdcmd/tantanexp
  87. 5310 gosub5400:goto5012
  88. 5400 pokee+1,20+9*s
  89. 5410 return
  90. 5500 pokee+1,0:poke1024,0
  91. 5510 return
  92. 6000 fori=0to200:pokee+4,33:pokee+1,3:next:pokee+1,0:pokee+4,17
  93. 6002 print"             "
  94. 6010 le=le-1:ifle=0thenprint"[155]g a m e  o v e r
  95. 6012 [151]1060,le[170]48:[151]55332,11
  96. 6020 [139]le[178]0[167][153]"":[141]7100
  97. 6022 [139]le[178]0[167][151]646,9:[151]631,150:[151]198,1:[128]
  98. 6030 [129]i[178]0[164]600:[130]
  99. 6040 n[178]6:[129]r[178]1[164]a:[130]
  100. 6050 [137]3700
  101. 7000 [153]"out of time
  102. 7010 goto6000
  103. 7100 print"[152]your score:";a-1;
  104. 7110 fori=1024to1070:pokei,32:next
  105. 7112 fori=1094to1104:pokei,32:next
  106. 7120 return
  107.