home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 February / Ahoy_Magazine_86-02_1986_Double_L.d64 / structured (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  124 lines
  1. 10 print"structured version"
  2. 15 poke53280,0:poke53281,7
  3. 20 print"copyright 1985 cheryl peterson"
  4. 30 print"hit any key to continue"
  5. 31 get z$:if z$=""then 31
  6. 100 print"[147][149]"
  7. 130 print"using my microwave's automatic timer and pre-programmed"
  8. 131 print"cooking cycles disturbs me"
  9. 132 gosub 10001
  10. 145 gosub 5000
  11. 146 if a%<0ora%>4 then 130
  12. 150 gosub 10100
  13. 230 print"using the automatic recording features of a vcr bothers me"
  14. 232 gosub 10001
  15. 245 gosub 5000
  16. 246 if a%<0ora%>4 then 230
  17. 260 gosub 10100
  18. 330 print"watching a television set or monitor for hours"
  19. 331 print"1) gives me a headache, so i don't do it."
  20. 332 print"2) makes my eyes hurt, so i don't do it."
  21. 333 print"3) keeps me pleasantly occupied."
  22. 334 input"4) is a way of life.";a%
  23. 340 gosub 5000
  24. 350 if a%<0ora%>4 then 330
  25. 360 gosub 10200
  26. 430 print"a remote control device for a television is "
  27. 431 gosub 10050
  28. 440 gosub 5000
  29. 450 if a%<0ora%>4 then 430
  30. 460 gosub 10200
  31. 530 print"automatic teller machines are"
  32. 531 gosub 10050
  33. 540 gosub 5000
  34. 550 if a%<0ora%>4 then 530
  35. 560 gosub 10200
  36. 630 print"i find using a self correcting typewriter"
  37. 631 print"1) frightening."
  38. 632 print"2) confusing."
  39. 633 print"3) better than using a manual."
  40. 634 input"4) a royal pain compared to using a word processor.";a%
  41. 640 gosub 5000
  42. 650 if a%<0ora%>4 then 630
  43. 660 gosub 10200
  44. 730 print"setting the auto-dialing feature on a phone is"
  45. 731 print"1) beyond me."
  46. 732 print"2) too much bother."
  47. 733 print"3) worth it in convenience."
  48. 734 input"4) easy, but i let my computer do all my dialing.";a%
  49. 740 gosub 5000
  50. 750 if a%<0ora%>4 then 730
  51. 760 gosub 10200
  52. 830 print"if my car's dashboard looked like the cockpit of the space shuttle"
  53. 831 print"1) i'd sell it"
  54. 832 print"2) i'd ignore it."
  55. 833 print"3) eventually i'd figure everything out."
  56. 834 input"4) i'd be figuring out how to get computer mapping system running";a%
  57. 840 gosub 5000
  58. 850 if a%<0ora%>4 then 830
  59. 860 gosub 10200
  60. 930 print"i'd like to have a computer because"
  61. 931 print"1) it's a great status symbol."
  62. 932 print"2) my kids will need one."
  63. 933 print"3) there must be something i can do with one."
  64. 934 input"4) i can think of at least a dozen things to do with one";a%
  65. 940 gosub 5000
  66. 950 if a%<0ora%>4 then 930
  67. 960 gosub 10200
  68. 1030 print"i wouldn't go through the rides at epcot center because"
  69. 1031 print"1) i don't trust those computer run contraptions."
  70. 1032 print"2) who cares about all that techno-mumble anyway."
  71. 1033 print"3) i'd be too busy eating!"
  72. 1034 input"4) i've already ridden on all of them";a%
  73. 1040 gosub 5000
  74. 1050 if a%<0ora%>4 then 1030
  75. 1060 gosub 10200
  76. 1100 input "how many computers do you own";a%
  77. 1105 if a%>10 then print"try a number less than 11"
  78. 1110 if a%>10 then goto 1100
  79. 1120 if t>10 or t=10 then t=t-a%
  80. 1300 if t>10 then 1400
  81. 1310 print"your score is a measly";t;"which means you are at home with"
  82. 1320 print"the coming computer revolution. if you aren't already actively"
  83. 1330 print"involved with the beasties, you should be."
  84. 1340 end
  85. 1400 if t>20 then 1500
  86. 1405 print"your score is";t;"."
  87. 1410 print"with a very slight attitude adjustment, you could be"
  88. 1420 print"happily enjoying the benefits of a computer companion."
  89. 1440 end
  90. 1500 if t>25 then 1599
  91. 1505 print"your score is";t;"."
  92. 1510 print"getting you into communion with a computer will take a"
  93. 1520 print"miracle. but stranger things have happened. good luck!"
  94. 1540 end
  95. 1599 print"your score is";t;"!"
  96. 1600 print"forget it! it's hopeless. a classic case of compuphobia."
  97. 1610 print"how did you survive taking this test?!"
  98. 2000 end
  99. 5000 if a%>0anda%<5then return
  100. 5005 print"[147]"
  101. 5010 print"try choosing an integer between 1 and 4"
  102. 10001 print"1) none"
  103. 10002 print"2) a little"
  104. 10003 print"3) some"
  105. 10004 input"4) very much";a%
  106. 10005 return
  107. 10050 print"1) a nuisance."
  108. 10055 print"2) a waste of time."
  109. 10060 print"3) sometimes convenient."
  110. 10065 input"4) wonderful.";a%
  111. 10070 return
  112. 10100 if a%=1thent=t+0
  113. 10110 if a%=2thent=t+1
  114. 10120 if a%=3thent=t+2
  115. 10130 if a%=4thent=t+3
  116. 10140 print"[147]"
  117. 10150 return
  118. 10200 if a%=1thent=t+3
  119. 10210 if a%=2thent=t+2
  120. 10220 if a%=3thent=t+1
  121. 10230 if a%=4thent=t+0
  122. 10240 print"[147]"
  123. 10250 return
  124.