home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / whatzit (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  125 lines
  1. 0 rem  from chug pd disk # chc 194              named on disk 'whizit'
  2. 10 dimd$(23),ts(5),w$(20),l1(12),l2(12)
  3. 20 d$(0)="":forx=1to23:d$(x)=d$(x-1)+"":next:c=54272:forx=1to160:readw$:next
  4. 30 forx=1to12:readl1(x):next:print"[147]":poke53280,5:poke53281,15:poke646,5
  5. 40 printd$(12)tab(16)" whatzit ":forx= 6to2step-1:zz=x:ifzz=3thenzz=7:
  6. 45 poke646,zz
  7. 50 printd$(10)tab(15)"           ":fory=1to3:printtab(15)" "tab(25)" ":next
  8. 60 printtab(15)"           ":printd$(8)tab(13)"               "
  9. 70 fory=1to7:printtab(13)" "tab(27)" ":next:printtab(13)"               "
  10. 80 printd$(6)tab(11)"                   ":fory=1to11
  11. 90 printtab(11)" "tab(29)" ":next:printtab(11)"                   "
  12. 100 printd$(4)tab(9)"                       ":fory=1to15
  13. 110 printtab(9)" "tab(31)" ":next:printtab(9)"                       ":next
  14. 120 forx=ctoc+23:pokex,0:next:pokec+24,15:pokec+5,10:pokec+6,10
  15. 130 readh:ifh=0then151
  16. 140 readl:pokec,l:pokec+1,h:pokec+4,17:forx=1to100:next:pokec+4,16
  17. 150 forx=1to75:next:goto130
  18. 151 print"[147]               whatzit
  19. 152 [153]"  words are scrambled on a grid and
  20. 153 print"  you try to unscramble them for
  21. 154 [153]"  high scores. bonus for speed.
  22. 159 forde=1to3e3:next
  23. 160 print"[147]":poke53280,2:poke53281,3:poke646,6:printtab(6)"i'm hungry"
  24. 170 printtab(6)"music makers":printtab(6)"people parts"
  25. 180 printtab(6)"pretty petals":printtab(6)"home sweet home"
  26. 190 printtab(6)"how's the weather?":printtab(6)"all work and no play"
  27. 200 printtab(6)"two legs, four legs, no legs":poke646,2
  28. 210 printtab(2)"move cursor with joystick..port #2"
  29. 220 printtab(6)"press fire button to select":op=1108:pokeop,160:pokeop+c,1
  30. 225 print"move star (*) to unscramble words"
  31. 227 print" place * under letter,press fire button
  32. 230 [129]x[178]1[164]100:[130]:[139]([194](56320)[175]16)[178]0[167]290
  33. 240 j[178]15[171]([194](56320)[175]15):[139]j[178]1[167]di[178][171]80:[137]270
  34. 250 [139]j[178]2[167]di[178]80:[137]270
  35. 260 [137]230
  36. 270 np[178]op[170]di:[139]np[179]1108[176]np[177]1668[167]230
  37. 280 [151]np[170]c,1:[151]op,32:[151]np,160:[151]op[170]c,3:op[178]np:[137]230
  38. 290 [140]:ca[178](op[171]1028)[173]80:[145]ca[141]300,310,320,330,340,350,360,370:[137]380
  39. 300 [142]
  40. 310 [129]x[178]1[164]20:[135]w$:[130]:[142]
  41. 320 [129]x[178]1[164]40:[135]w$:[130]:[142]
  42. 330 [129]x[178]1[164]60:[135]w$:[130]:[142]
  43. 340 [129]x[178]1[164]80:[135]w$:[130]:[142]
  44. 350 [129]x[178]1[164]100:[135]w$:[130]:[142]
  45. 360 [129]x[178]1[164]120:[135]w$:[130]:[142]
  46. 370 [129]x[178]1[164]140:[135]w$:[130]:[142]
  47. 380 [129]x[178]1[164]20:[135]w$(x):[130]
  48. 390 [153]"load":[151]53280,15:[151]53281,15:[151]646,1
  49. 400 [153]d$(18)[163]4)"word"[163]17)"score"[163]24)"bonus"[163]31)"total"
  50. 410 wc[178]0:tc[178]0:cu[178]18
  51. 420 wc[178]wc[170]1:[139]wc[177]5[167]800
  52. 430 tc[178]tc[170]2:[151]646,tc:[153]d$(2)[163]11)"                 ":[129]x[178]1[164]3
  53. 440 [153][163]11)"     ":[153][163]11)" "[163]27)" "
  54. 450 [153][163]11)"     ":[153][163]11)"             ":[130]
  55. 460 [153][163]11)"on                 ":[151]646,13
  56. 470 [129]x[178]1[164]12:l2(x)[178]l1(x):[130]:lp[178]0:wp$[178]""
  57. 480 wn[178][181]([187](1)[172]20)[170]1:[139]w$(wn)[178]""[167]480
  58. 490 lp[178]lp[170]1:[139]lp[177][195](w$(wn))[167]520
  59. 500 x[178][181]([187](1)[172]12)[170]1:[139]l2(x)[178]0[167]500
  60. 510 [151]l2(x),[198]([202](w$(wn),lp,1))[171]64:[151]l2(x)[170]c,14:l2(x)[178]0:[137]490
  61. 520 x[178][181]([187](1)[172]12)[170]1:[139]l2(x)[178]0[167]520
  62. 530 op[178]l2(x):[151]op,42:[151]op[170]c,7:ti$[178]"000000"
  63. 540 [129]x[178]1[164]60:[130]:[139]([194](56320)[175]16)[178]0[167]620
  64. 550 j[178]15[171]([194](56320)[175]15):[139]j[178]1[167]di[178][171]40:[137]600
  65. 560 [139]j[178]2[167]di[178]40:[137]600
  66. 570 [139]j[178]4[167]di[178][171]1:[137]600
  67. 580 [139]j[178]8[167]di[178]1:[137]600
  68. 590 [137]540
  69. 600 np[178]op[170]di:[139][194](np)[179][177]32[167]540
  70. 610 [151]np[170]c,7:[151]op,32:[151]np,42:[151]op[170]c,0:op[178]np:[137]540
  71. 620 [139][194](op[171]40)[177]26[167]540
  72. 630 wp$[178]wp$[170][199](([194](op[171]40))[170]64):[153]d$(1)[163]11)wp$:[151]op[171]40,32
  73. 635 [129]bu[178]15[164]0[169][171]1:[151]54296,bu:[151]54296,0:[130]
  74. 640 [151]op[171]40[170]c,0:[139][195](wp$)[179][177][195](w$(wn))[167]550
  75. 650 t[178][197](ti$):[151]646,10:[151]op,32:[151]op[170]c,0:[139]wp$[178]w$(wn)[167]680
  76. 660 [129]x[178]c[164]c[170]24:[151]x,0:[130]:[129]x[178]1[164]10:[151]c[170]24,15:[129]q[178]1[164]3:[130]
  77. 670 [151]c[170]24,0:[129]q[178]1[164]3:[130]:[130]:[137]690
  78. 680 [151]c[170]24,15:[151]c,10:[151]c[170]1,100:[151]c[170]5,9:[151]c[170]6,9:[151]c[170]4,17:[151]c[170]4,16
  79. 690 cu[178]cu[170]1:[153]d$(cu)[163]4)w$(wn);:sc[178]0:[139]wp$[178]w$(wn)[167]sc[178][195](wp$)
  80. 700 [153][163]19);:[139]sc[179]10[167][153]" ";
  81. 710 [153]sc;[163]26);:bo[178]0:[139]t[179]30[167]bo[178]30[171]t
  82. 720 [139]sc[178]0[167]bo[178]0
  83. 730 [139]bo[179]10[167][153]" ";
  84. 740 [153]bo;[163]33);:ts(wc)[178]sc[170]bo:[139]ts(wc)[179]10[167][153]" ";
  85. 750 [153]ts(wc):[151]646,2
  86. 760 [153]d$(16)[163]11)"press fire button":[129]x[178]1[164]50:[130]
  87. 770 [153]d$(16)[163]11)"                 ":[129]x[178]1[164]30:[130]
  88. 780 [139]([194](56320)[175]16)[178]16[167]760
  89. 790 [153]d$(1)[163]11)"            ":w$(wn)[178]"":[137]420
  90. 800 [153]d$(23):[129]x[178]1[164]15:[153]:[130]:[151]646,8
  91. 810 [153]d$(12)[163]16)"game over":gt[178]0:[129]x[178]1[164]5:gt[178]gt[170]ts(x):[130]
  92. 820 [153][163]13)"grand total"gt:[139]gt[177]hs[167]hs[178]gt
  93. 830 [151]646,7:[153][163]13)"high score"hs:[151]646,12
  94. 840 [153][163]11)"play again? yes/no":op[178]1807:[151]op,30:[151]op[170]c,7
  95. 850 [151]646,13:[153][163]10)"move ";:[151]646,7:[153]"^";:[151]646,13
  96. 860 [153]" with joystick":[153][163]7)"press fire button to select"
  97. 870 [139]([194](56320)[175]16)[178]0[167]930
  98. 880 j[178]15[171]([194](56320)[175]15):[139]j[178]4[167]di[178][171]4:[137]910
  99. 890 [139]j[178]8[167]di[178]4:[137]910
  100. 900 [137]870
  101. 910 np[178]op[170]di:[139]np[179]1807[176]np[177]1811[167]870
  102. 920 [151]np[170]c,7:[151]op,32:[151]np,30:[151]op[170]c,0:op[178]np:[137]870
  103. 930 [139]op[178]1807[167]160
  104. 940 [158]64759
  105. 950 [131]hamburger,pizza,cabbage,carrot,spaghetti,strawberry,pineapple,raisin
  106. 960 [131]cheese,eggplant,potato,banana,cucumber,yogurt,bologna,marshmallow,chili
  107. 970 [131]onion,squash,rhubarb,guitar,banjo,violin,drum,saxophone,trumpet
  108. 980 [131]clarinet,piano,accordion,harmonica,harp,mandolin,flute,xylophone,organ
  109. 990 [131]cello,tuba,trombone,cymbal,tambourine,shoulder,ankle,heart,stomach
  110. 1000 [131]kidney,cornea,liver,spleen,brain,elbow,finger,tooth,aorta,knuckle
  111. 1010 [131]wrist,lung,intestine,foot,neck,tongue,orchid,petunia,zinnia,marigold
  112. 1020 [131]aster,rose,peony,tulip,crocus,amaryllis,hyacinth,iris,pansy,gloxinia
  113. 1030 [131]begonia,snapdragon,geranium,daisy,violet,lily,stereo,carpet
  114. 1040 [131]silverware,telephone,television,shelf,toaster,curtain,clock,cabinet
  115. 1050 [131]chair,stove,blanket,pillow,table,lamp,calendar,clothing,thermostat
  116. 1060 [131]broom,tornado,lightning,thunder,snow,sleet,rainbow,hurricane,humidity
  117. 1070 [131]temperature,barometer,forecast,cloud,flood,hail,front,drought,blizzard
  118. 1080 [131]wind,warning,frost,attorney,surgeon,banker,artist,writer,carpenter
  119. 1090 [131]engineer,reporter,architect,librarian,nurse,chef,politician,teacher
  120. 1100 [131]plumber,janitor,farmer,clerk,athlete,electrician,turtle,cougar
  121. 1110 [131]rattlesnake,salmon,ostrich,peacock,zebra,skunk,buffalo,kangaroo,lizard
  122. 1120 [131]hummingbird,chimpanzee,antelope,sheep,dolphin,squirrel,raccoon,gopher
  123. 1130 [131]woodpecker,1197,1201,1205,1209,1357,1361,1365,1369,1517,1521,1525,1529
  124. 1140 [131]22,96,44,193,89,131,25,30,50,60,100,121,28,49,56,99,112,199,0,0
  125.