home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 31 / 031.d81 / e.s.p. (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  189 lines
  1. 3 poke53248+16,.
  2. 4 ag$=""
  3. 5 gosub 60100:poke650,128
  4. 6 poke53276,.
  5. 10 goto 100
  6. 20 poke54296,15:poke54276,.:poke54273,hf:poke54272,100
  7. 22 poke54277,10:poke54278,10:poke54276,33:return
  8. 30 for t=1 to 30:next:return
  9. 50 poke 781,ln:poke 782,col:poke 783,0:sys 65520:return
  10. 60 n=int(rnd(1)*25+1):if c(n)=0 then 60
  11. 70 deck=deck-1:return
  12. 100 :
  13. 104 print"[147][208]oking data into memory.":x=rnd(-ti):v=53248:s=54272
  14. 105 dim c(26),g(20):sprite=12288
  15. 110 for j=1 to 6:for i=0 to 63:read a:poke sprite+i,a:next:sp=sp+64:next
  16. 120 for i=1 to 5:poke v+i+39,1:poke 2040+i,191+i:next
  17. 125 poke 2046,197:poke v+45,7:pokev+39,2:pokev+23,1
  18. 130 poke v+29,1:poke v,156:poke v+1,102:game=1:h=90:fori=2to10step2
  19. 140 poke v+i,h:poke v+i+1,190:h=h+40:next:poke v+13,210
  20. 199 :
  21. 200 b1$="[152][160]     [160][157][157][157][157][157][157][157][160][166][166][166][166][166][152][160][157][157][157][157][157][157][157]"
  22. 205 b1$=b1$+" [166][166][166][166][166][152][160][157][157][157][157][157][157][157][160][166][166][166][166][166][152][160][157][157][157][157][157][157][157]"
  23. 210 b1$=b1$+"[160][166][166][166][166][166][152][160][157][157][157][157][157][157][157][160][166][166][166][166][166][152][160][157][157][157][157][157][157][157][160]      "
  24. 220 b2$="       [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157]"
  25. 230 b2$=b2$+" [160][160][160][160][160] [157][157][157][157][157][157][157] [160][160][160][160][160] [157][157][157][157][157][157][157]       "
  26. 240 t$(0)="     [146]    [169]    [223][146]          [223]"
  27. 250 t$(1)="  [146]         [146]    [146]      [146]     "
  28. 260 t$(2)="  [146]         [146]          [146]     "
  29. 270 t$(3)="    [146]     [223]    [223][146]          [146][169]"
  30. 275 t$(4)="  [146]             [146]      "
  31. 280 t$(5)="  [146]    [162][162]   [146]    [146] [162][162]   [146] [162][162]"
  32. 290 t$(6)="     [146]   [146] [223]    [146][169]   [146]   [146]   "
  33. 292 poke198,0
  34. 299 :
  35. 300 poke 53281,0:poke 53280,0:print"[147][142]":h$="[159][156][158][129][149][150][153][154]"
  36. 310 for j=1 to 3:for i=1 to 12:print"" mid$(h$,i,1)
  37. 312 ifpeek(198)<>0then 390
  38. 320 for k=0 to 6:printtab(7) t$(k):next:next:next
  39. 389 :
  40. 390 ifga<21then392
  41. 391 print"            [210]esetting number of games.":ga=1:forz1=1to1000:next
  42. 392 for i=1to5:c(i)=1:c(i+5)=2:c(i+10)=3:c(i+15)=4:c(i+20)=5:next
  43. 395 poke v+12,170:deck=26
  44. 399 :
  45. 400 print"[147]  [206]umber"spc(22)"[206]umber"
  46. 402 pokes+24,15:c0=3:cs=0:ws=0:k=1:print"  [195]orrect"spc(21)"[215]rong"
  47. 404 print"[158] [202]oystick       [212]o [205]ove       [202]oystick
  48. 405 [153]"       <----------------------->
  49. 406 print"    [198]1            [200]and           [198]7
  50. 410 col[178]16:ln[178]5:[141] 50:[151] v[170]21,126:[153] b1$:[141] 60:cc[178]c(n):c(n)[178]0
  51. 420 ln[178]15:col[178]1:[141] 50:[153]"         sys(NULL)ake your selection:          ";
  52. 422 [153]"         with <(NULL)val(NULL)(NULL)(NULL)(NULL)> or peek(NULL)(NULL)(NULL)(NULL)(NULL)":[151]198,.
  53. 424 ln[178]23:col[178]3:[141] 50:[153]"       [(NULL)ress '(NULL)' to (NULL)uit]"
  54. 430 joy[178][168][194](56320)[175]15:fire[178]([194](56320)[175]16)[173]16
  55. 431 [139]joy[179][177].[167]440
  56. 432 [139]fire[178]0[167] 470
  57. 433 [161]a$:[139]a$[178]""[167]430
  58. 434 [139]a$[178][199](13)[167]470
  59. 435 [139]a$[178]"input"[167]joy[178]4
  60. 436 [139]a$[178]"let"[167]joy[178]8
  61. 437 [139]a$[178]"q"[176]a$[178]"(NULL)"[167]800
  62. 440 [139] joy[178]8 [167] [139] [194](v[170]12)[179]250 [167] [151] v[170]12,[194](v[170]12)[170]40:c0[178]c0[170]1
  63. 445 z8[178][194](203)
  64. 450 [139] joy[178]4 [167] [139] [194](v[170]12)[177]90 [167] [151] v[170]12,[194](v[170]12)[171]40:c0[178]c0[171]1
  65. 460 [141] 30:[137] 430
  66. 470 [151] 2040,191[170]cc:col[178]16:ln[178]5:[141] 50:[153] b2$:[151] v[170]21,127
  67. 480 [139]c0[178]cc[167]hf[178]50:[137]495
  68. 490 hf[178]10
  69. 495 [141]20
  70. 499 :
  71. 500 [139] c0[178]cc [167] cs[178]cs[170]1:[137] 520
  72. 510 ws[178]ws[170]1
  73. 520 ln[178]10:col[178]4:[141] 50:[153] cs:col[178]31:[141] 50:[153] ws:c(n)[178]0
  74. 530 ln[178]15:col[178]1:[141] 50:[153]"print(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)> or peek(NULL)(NULL)(NULL)(NULL)(NULL) for next card."
  75. 532 ln[178]16:col[178]1:[141] 50:[153]"                                      "
  76. 540 fire[178]([194](56320)[175] 16)[173]16
  77. 542 [139] fire[178]1 [175] [194](197)[179][177]1 [175][194](197)[179][177]62  [167] 540
  78. 544 [139] [194](197)[178]62 [167] 800
  79. 550 [139] deck[177]1 [167] 410
  80. 555 [151]53269,0
  81. 560 [153]"loadsys(NULL)ut of 25 you got"cs"right.":r$[178]" just about "
  82. 570 [139] cs[177]5 [167] r$[178]" higher than "
  83. 580 [139] cs[179]5 [167] r$[178]" lower than "
  84. 590 [153]"(NULL)his result is"r$"what would":[153]"be expected.":ln[178]14:col[178]0:[141]50
  85. 600 [153][200](ag$,19);"sys(NULL)ress "[199](34)"asc1"[199](34)" to review your scores."
  86. 601 [153][200](ag$,20);"sys(NULL)ress "[199](34)"asc3"[199](34)" to play again."
  87. 602 [153][200](ag$,21);"sys(NULL)ress "[199](34)"asc7"[199](34)" to quit."
  88. 610 g(game)[178]cs:[151]198,.
  89. 620 [161]a$:[139]a$[179][177]"input"[175]a$[179][177]"let"[175]a$[179][177]"dim"[167]620
  90. 630 [139] a$[178]"input"[167] 660
  91. 640 [139] a$[178]"dim"[167]game[178]game[170]1:[137] 390
  92. 650 [153]"loadreturncont":[151] v[170]21,0
  93. 652 [147]"hello connect",8
  94. 660 [151]v[170]21,0:[153]"load(NULL)cores:        [(NULL)p to 20 games]"                       
  95. 661 [129] i[178]1 [164] game:[153]"  chr$ame";
  96. 662 [139]i[179]10[167][153]" ";
  97. 663 [153]i"cmd:"g(i);
  98. 664 [139]i[173]3[178][181](i[173]3)[167][153]
  99. 670 [130]:[153]:[153]:[137] 600
  100. 699 :
  101. 700 [131] 0,255,0,3,129,192,14,0,112
  102. 701 [131] 24,0,24,48,0,12,96,0,6
  103. 702 [131] 192,0,3,192,0,3,192,0,3
  104. 703 [131] 192,0,3,96,0,6,48,0,12
  105. 704 [131] 24,0,24,14,0,112,3,129,192
  106. 705 [131] 0,255,0,0,0,0,0,0,0
  107. 706 [131] 0,0,0,0,0,0,0,0,0,0
  108. 709 :
  109. 710 [131] 0,0,0,127,255,254,96,0,6
  110. 711 [131] 96,0,6,96,0,6,96,0,6
  111. 712 [131] 96,0,6,96,0,6,96,0,6
  112. 713 [131] 96,0,6,96,0,6,96,0,6
  113. 714 [131] 96,0,6,96,0,6,127,255,254
  114. 715 [131] 0,0,0,0,0,0,0,0,0
  115. 716 [131] 0,0,0,0,0,0,0,0,0,0
  116. 719 :
  117. 720 [131] 0,60,0,0,60,0,0,60,0
  118. 721 [131] 0,60,0,0,60,0,0,60,0
  119. 722 [131] 127,255,254,127,255,254,0,60,0
  120. 723 [131] 0,60,0,0,60,0,0,60,0
  121. 724 [131] 0,60,0,0,60,0,0,0,0
  122. 725 [131] 0,0,0,0,0,0,0,0,0
  123. 726 [131] 0,0,0,0,0,0,0,0,0,0
  124. 729 :
  125. 730 [131] 0,24,0,0,60,0,0,60,0
  126. 731 [131] 0,102,0,255,231,255,96,0,6
  127. 732 [131] 24,0,24,6,0,96,1,129,128
  128. 733 [131] 3,0,192,3,24,192,6,102,96
  129. 734 [131] 7,129,224,14,0,112,12,0,48
  130. 735 [131] 0,0,0,0,0,0,0,0,0
  131. 736 [131] 0,0,0,0,0,0,0,0,0,0
  132. 739 :
  133. 740 [131] 0,0,0,0,0,0,7,192,124
  134. 741 [131] 28,113,198,112,31,0,7,192,124
  135. 742 [131] 28,113,198,112,31,0,7,192,124
  136. 743 [131] 28,113,198,112,31,0,7,192,124
  137. 744 [131] 28,113,198,112,31,0,0,0,0
  138. 745 [131] 0,0,0,0,0,0,0,0,0
  139. 746 [131] 0,0,0,0,0,0,0,0,0,0
  140. 749 :
  141. 750 [131] 0,6,0,0,15,0,0,15,0
  142. 751 [131] 0,15,0,0,15,0,0,15,0
  143. 752 [131] 0,207,0,9,207,0,25,192,0
  144. 753 [131] 57,207,224,56,15,224,3,224,224
  145. 754 [131] 63,207,224,63,223,224,31,255,192
  146. 755 [131] 12,127,128,1,252,0,7,255,128
  147. 756 [131] 0,0,0,3,255,0,3,255,0,0
  148. 800 z8[178].:ag[178].
  149. 810 [153]"";
  150. 820 [153]"      atnre you sure you want to (NULL)(NULL)right$(NULL)?";
  151. 825 [153]"                                       ":[151]198,.
  152. 830 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167] 830
  153. 840 [139] a$[178]"n"[167]420
  154. 850 [137] 650
  155. 860 :
  156. 60100 pn$[178]"val.(NULL).(NULL).":an$[178]"peek(NULL):  (NULL)atn(NULL)(NULL)val(NULL) val. (NULL)val(NULL)val(NULL)(NULL)"
  157. 60110 bo[178]11:sc[178]1:cl[178]06:c1[178]12:c2[178]00:c3[178]12:c4[178]00:c5[178]00:c6[178]02:c7[178]09
  158. 60130 [151]53280,bo:[151]53281,sc:[153]"load";:[137]60250
  159. 60140 [151]646,c1:[153]" totototototototototototototototototototototototototototototototototototo
  160. 60150 poke646,c2:print" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]
  161. 60170 [151]646,c1:[153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  162. 60180 poke646,c6:print""tab(20-len(pn$)/2);pn$
  163. 60190 poke646