home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / earthology (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  31KB  |  852 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 print"[147]":poke53280,.:poke53281,.:printchr$(142)""
  3. 15 gosub60000
  4. 25 sys57812"animate.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 30 sys57812"earth fonts",dv,0:poke780,0:poke781,0:poke782,224:sys65493
  6. 65 poke56576,(peek(56576)and252)or.
  7. 70 poke53272,(peek(53272)and15)or48
  8. 75 poke648,204
  9. 80 poke53272,(peek(53272)and240)or14
  10. 85 sys49152:print"[147]"
  11. 90 dv=peek(186):ifdv<8thendv=8
  12. 91 i=rnd(-ti)
  13. 92 print"[147]":poke53280,.:poke53281,.:poke49158,.:gosub920
  14. 95 c$(1)="the planet":c$(2)="oceanography":c$(3)="geology"
  15. 100 c$(4)="atmosphere":c$(5)="zoology":c$(6)="resources"
  16. 105 c$(7)="pollution":kn$=" knowledge of"
  17. 110 ek$="[171] [172] [173] [174] [175] [176] [177] [176] [178] [179]"
  18. 115 print:printtab(10)"[153]";ek$
  19. 120 print:printtab(3)"[159]what do you know of planet earth?"
  20. 125 printtab(2)"[150][167][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][181]"
  21. 130 print:print"[158]   growth for the sake of growth is "
  22. 135 print"   the ideology of the cancer cell[150]!"
  23. 140 print:print"           [150]* [154]edward abbey [150]*"
  24. 145 print:print"  [192][146][211][211][211][211][150][211][211][211][211][158][211][211][211][211][153][211][211][211][211][212][212][212][212][154][212][212][212][212][212][212][212][212][156][212][212][212][212][194]"
  25. 150 print:print"[153]   what is the use of a house if you "
  26. 155 print"   haven't got a tolerable planet to"
  27. 160 print"   put it on!"
  28. 165 print:print"[150]        * [154]henry david thoreau [150]*"
  29. 170 print:printtab(13)"press a key":poke198,.
  30. 175 getq$:ifq$=""then175
  31. 180 print"[147]":poke53280,.:poke53281,10
  32. 185 poke214,8:print:printtab(10)"[144]:computer interlock[144]:"
  33. 190 print:printtab(8)"[144]t h e    q u i r k o n s"
  34. 195 print:printtab(11)"have another quiz":gosub1085
  35. 200 wf$="[154][193][195][157][157][149][201][154][203][157][157][149][202][154][206][157][157][149][201][154][206][157][157][149][202][154][206][157][157][149][201][154][206][168][157][157][157][149][202][154][206][166]"
  36. 205 rv$="[149][216][154][205][219][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221][220][221]"
  37. 210 pt$="  [198] [217] [217] [217] [198] [198] [198] [217] [217] [217] [198] [198] [198] [217] [217] [217] [198]"
  38. 215 rb$="[149]  [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218] [218]"
  39. 220 sb$(1)="[152][165][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][162]"
  40. 225 sb$(2)="[152][164][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][163]"
  41. 230 bb$="[192][146][159][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][194]"
  42. 235 dimet(71)
  43. 240 fori=0to70:et(i)=0:next
  44. 245 print"[147]":poke53280,.:poke53281,.:poke49158,6:pokean+7,4
  45. 250 print:printtab(8)"[153]an enviromental quiz!"
  46. 255 print:print"[150]   the quirkon's second challenge!"
  47. 260 print"[153]   the categories are:"
  48. 265 print:print"   1. [159]"c$(1);tab(22)"5. [159]"c$(5)
  49. 270 print"   2. [159]"c$(2);tab(22)"6. [159]"c$(6)
  50. 275 print"   3. [159]"c$(3);tab(22)"7. [159]"c$(7)
  51. 280 print"   4. [159]"c$(4)
  52. 285 print:print"[153] statements deal with enviromental"
  53. 290 print" aspects of each category above."
  54. 295 print"[156] enter [158]first name please[154]:          "
  55. 300 printtab(16)"-------[145][145]"
  56. 305 printtab(16);:l9%=7:gosub1145:ts$=q9$
  57. 310 poke214,21:print:printtab(10)"[159] greetings, human! ":fort=1to1200:nextt
  58. 315 print"[147]":gosub920
  59. 325 print"[158]there are 10 [158]statements in each of the"
  60. 330 print"7 [158]categories.  you must answer 20 [158]in"
  61. 335 print"all to pass.  answer either [153]true [158]or"
  62. 340 print"[153]false.  [158]you receive 1000 [158]points for"
  63. 345 print"each correct answer and lose 1000 [158]for
  64. 347 [153]"each incorrect one."
  65. 350 [153]"10 sysis the most you can miss!  ratings"
  66. 355 [153]"are based on the highest score, 20,000sys."
  67. 360 [153]"syspress 'q'sys to quit.  this means failure!"
  68. 365 [153]"  read all statements carefully!"
  69. 370 [153][163]9)"printgood luck, "ts$
  70. 375 [153]"systhe fate of your planet depends upon"
  71. 380 [153]"how well you do on this quiz.  there is"
  72. 385 [153]"trouble ahead if you can't pass!"
  73. 390 [153]:[153]"printcategories are deleted if used up."
  74. 395 [153]:[153][163]7)" press a key to begin ":[151]198,.
  75. 400 [161]q$:[139]q$[178]""[167]400
  76. 405 [137]570
  77. 410 [140]:sr[178]0:z[178]0:pb[178]0:r[178]0
  78. 415 i[178][181]([187](0)[172]10)[170](he[171]1)[172]10[170]1
  79. 420 [139]et(i)[178]1[167]415
  80. 425 et(i)[178]1:i[178](i[171]1)[172]7[170]1:[129]k[178]1[164]i
  81. 430 [135]qu$(0):[130]k:[135]qu$(1),an$,rp$(0),rp$(1),rp$(2),rp$(3)
  82. 435 [153]"defload":[151]53280,.:[151]53281,.:[151]49158,2
  83. 440 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]i
  84. 445 [145]he[141]1670,1675,1680,1685,1690,1695,1700
  85. 450 [153][163]8)"cont     s c o r i n g     "
  86. 455 [153]sb$(1)
  87. 460 [153][163]2)"print"ts$;"'s score ";[163]18)"      cmdcmdcmdcmdcmdcmd"sr;[163]26)"print# correct"r
  88. 465 [153]:[153][163]2)"liststatements left   cmdcmd"(20[171]pb);[163]26)"def# missed "z
  89. 470 [153]sb$(2)
  90. 475 [153][163]8)"cont   s t a t e m e n t   "
  91. 480 [153]sb$(1)
  92. 485 [153]""sb$(2)
  93. 490 [153][163]7)"openpress print topen orprint fopen key to answer"
  94. 495 [141]1050:[151]214,9:[153]:[153]"sys";qu$(0):[153]qu$(1)
  95. 500 [151]214,21:[153]:[153][163]10)"syspress q-key to quit":[151]198,.
  96. 505 [161]c$:[139]c$[179][177]"t"[175]c$[179][177]"f"[175]c$[179][177]"q"[167]505
  97. 510 [139]c$[178]an$[167]sr[178]sr[170]1000:r[178]r[170]1:[141]1470:[141]770
  98. 515 [139]c$[178]"q"[167]1310
  99. 520 [139]c$[179][177]an$[167]z[178]z[170]1:sr[178]sr[171]1000:[141]1485:[141]845:[137]525
  100. 525 [151]214,13:[153]:[153][163]8)"openanswerdef____";an$;"def^^^^"
  101. 530 [129]i[178]0[164]3:[153]"print"rp$(i):[130]
  102. 535 [151]214,21:[153]:[153][163]5)" press any key to pick again ":[151]198,.
  103. 540 [161]q$:[139]q$[178]""[167]540
  104. 545 [140]
  105. 550 [139]z[178]9[167][141]1430
  106. 555 [139]z[178][177]10[167]1310
  107. 560 [139]pb[178][177]20[175]z[179][178]9[167]1195
  108. 565 [153]"def":[139]pb[179][178]20[167]570
  109. 570 [153]"load":[151]53280,0:[151]53281,0:[151]49158,3:[141]1015
  110. 572 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  111. 575 [151]214,0:[153]:[153][163]9)"print";ek$
  112. 580 [153]bb$
  113. 585 [151]214,2:[153]:[153][163]4)"1.list"kn$"sys "c$(1)
  114. 590 [153][163]4)"2.list"kn$" "c$(2)
  115. 595 [153][163]4)"3.list"kn$"verify "c$(3)
  116. 600 [153][163]4)"4.list"kn$"open "c$(4)
  117. 605 [153][163]4)"5.list"kn$" "c$(5)
  118. 610 [153][163]4)"6.list"kn$"print "c$(6)
  119. 615 [153][163]4)"7.list"kn$" "c$(7)
  120. 620 [153][163]4)"q. listto quit"
  121. 625 [153]bb$
  122. 630 [153][163]10)"listselect sys 1-7 listor sysq"
  123. 635 [153]:[153][163]4)""ts$"'s verifyscore=sys";"       cmdcmdcmdcmdcmdcmdcmd"sr;"print right=sys";r
  124. 640 [153]:[153][163]4)"verifymissed=sys";z;" statements left=   cmdcmdcmdsys";(20[171]pb)
  125. 645 [139]s1[177]10[167]kk[178]2:[141]1120
  126. 650 [139]s2[177]10[167]kk[178]4:[141]1120
  127. 655 [139]s3[177]10[167]kk[178]6:[141]1120
  128. 660 [139]s4[177]10[167]kk[178]8:[141]1120
  129. 665 [139]s5[177]10[167]kk[178]10:[141]1120
  130. 670 [139]s6[177]10[167]kk[178]12:[141]1120
  131. 675 [139]s7[177]10[167]kk[178]14:[141]1120
  132. 680 [161]z$:[139]z$[179]"1"[176]z$[177]"7"[175]z$[179][177]"q"[167]680
  133. 685 [141]990
  134. 690 [139]z$[178]"q"[167]1310
  135. 695 [139]z$[178]"1"[167]he[178]1:s1[178]s1[170]1
  136. 700 [139]z$[178]"2"[167]he[178]2:s2[178]s2[170]1
  137. 705 [139]z$[178]"3"[167]he[178]3:s3[178]s3[170]1
  138. 710 [139]z$[178]"4"[167]he[178]4:s4[178]s4[170]1
  139. 715 [139]z$[178]"5"[167]he[178]5:s5[178]s5[170]1
  140. 720 [139]z$[178]"6"[167]he[178]6:s6[178]s6[170]1
  141. 725 [139]z$[178]"7"[167]he[178]7:s7[178]s7[170]1
  142. 730 [139]s1[177]10[175]z$[178]"1"[167]645
  143. 735 [139]s2[177]10[175]z$[178]"2"[167]645
  144. 740 [13