home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 February / Ahoy_Magazine_86-02_1986_Double_L.d64 / slipshod (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  136 lines
  1. 10 print"[147]slipshod version"
  2. 20 print" copyright 1985 cheryl peterson"
  3. 130 print"using my microwave's automatic timer and pre-programmed"
  4. 131 print"cooking cycles disturbs me"
  5. 132 print"1) none"
  6. 133 print"2) a little"
  7. 134 print"3) some"
  8. 135 input"4) very much";a
  9. 136 if a=1thent=0
  10. 137 if a=2thent=1
  11. 138 if a=3thent=2
  12. 139 if a=4thent=3
  13. 148 if a>0anda<5then goto 230
  14. 149 print"try a number, 1-4":goto 130
  15. 230 print"using the automatic recording features of a vcr bothers me"
  16. 232 print"1) none"
  17. 233 print"2) a little"
  18. 234 print"3) some"
  19. 235 input"4) very much";a
  20. 236 if a=1thent=t+0
  21. 237 if a=2thent=t+1
  22. 238 if a=3thent=t+2
  23. 239 if a=4thent=t+3
  24. 248 if a>0anda<5then goto 330
  25. 249 print"try a number, 1-4":goto 230
  26. 330 print"watching a television set or monitor for hours"
  27. 331 print"1) gives me a headache, so i don't do it."
  28. 332 print"2) makes my eyes hurt so i don't do it."
  29. 333 print"3) keeps me pleasantly occupied."
  30. 334 input"4) is a way of life.";a
  31. 336 if a=1thent=t+3
  32. 337 if a=2thent=t+2
  33. 338 if a=3thent=t+1
  34. 339 if a=4thent=t+0
  35. 348 if a>0anda<5then goto 430
  36. 349 print"try a number, 1-4":goto 330
  37. 430 print"a remote control device for a television is "
  38. 431 print"1) a nuisance."
  39. 432 print"2) a waste of time."
  40. 433 print"3) sometimes convenient."
  41. 434 input"4) wonderful.";a
  42. 436 if a=1thent=t+3
  43. 437 if a=2thent=t+2
  44. 438 if a=3thent=t+1
  45. 439 if a=4thent=t+0
  46. 448 if a>0anda<5then goto 530
  47. 449 print"try a number, 1-4":goto 430
  48. 530 print"automatic teller machines are"
  49. 531 print"1) a nuisance."
  50. 532 print"2) a waste of time."
  51. 533 print"3) sometimes convenient."
  52. 534 input"4) wonderful.";a
  53. 536 if a=1thent=t+3
  54. 537 if a=2thent=t+2
  55. 538 if a=3thent=t+1
  56. 539 if a=4thent=t+0
  57. 548 if a>0anda<5then goto 630
  58. 549 print"try a number, 1-4":goto 530
  59. 630 print"i find using a self correcting typewriter"
  60. 631 print"1) frightening."
  61. 632 print"2) confusing."
  62. 633 print"3) better then using a manual."
  63. 634 input"4) a royal pain compared to using a word processor.";a
  64. 636 if a=1thent=t+3
  65. 637 if a=2thent=t+2
  66. 638 if a=3thent=t+1
  67. 639 if a=4thent=t+0
  68. 648 if a>0anda<5then goto 730
  69. 649 print"try a number, 1-4":goto 630
  70. 730 print"setting the auto-dialing feature on a phone is"
  71. 731 print"1) beyond me."
  72. 732 print"2) too much bother."
  73. 733 print"3) worth it in convenience."
  74. 734 input"4) easy, but i let my computer do all my dialing.";a
  75. 736 if a=1thent=t+3
  76. 737 if a=2thent=t+2
  77. 738 if a=3thent=t+1
  78. 739 if a=4thent=t+0
  79. 748 if a>0anda<5then goto 830
  80. 749 print"try a number, 1-4":goto 730
  81. 830 print"if my car's dashboard looked like the cockpit of the space shuttle"
  82. 831 print"1) i'd sell it"
  83. 832 print"2) i'd ignore it."
  84. 833 print"3) eventually i'd figure everything out."
  85. 834 input"4) i'd be figuring out how to get computer mapping running";a
  86. 836 if a=1thent=t+3
  87. 837 if a=2thent=t+2
  88. 838 if a=3thent=t+1
  89. 839 if a=4thent=t+0
  90. 848 if a>0anda<5then goto 930
  91. 849 print"try a number, 1-4":goto 830
  92. 930 print"i'd like to have a computer because"
  93. 931 print"1) it's a great status symbol."
  94. 932 print"2) my kids will need one."
  95. 933 print"3) there must be something i can do with one."
  96. 934 input"4) i can think of at least a dozen things to do with one";a
  97. 936 if a=1thent=t+3
  98. 937 if a=2thent=t+2
  99. 938 if a=3thent=t+1
  100. 939 if a=4thent=t+0
  101. 948 if a>0anda<5then goto 1030
  102. 949 print"try a number, 1-4":goto 930
  103. 1030 print"i wouldn't go through the rides at epcot center because"
  104. 1031 print"1) i don't trust those computer run contraptions."
  105. 1032 print"2) who cares about techno mumble anyway."
  106. 1033 print"3) i'd be too busy eating!"
  107. 1034 input"4) i've already ridden on all of them";a
  108. 1036 if a=1thent=t+3
  109. 1037 if a=2thent=t+2
  110. 1038 if a=3thent=t+1
  111. 1039 if a=4thent=t+0
  112. 1048 if a>0anda<5then goto 1100
  113. 1049 print"try a number, 1-4":goto 1030
  114. 1100 input "how many computers do you own";a
  115. 1105 if a>10 then print"try a number less than 11"
  116. 1110 if a>10 then goto 1100
  117. 1120 if t>10 or t=10 then t=t-a
  118. 1300 if t>10 then 1400
  119. 1310 print"your score is a measly";t;"which means you are at home with"
  120. 1320 print"the coming computer revolution. if you aren't already actively"
  121. 1330 print"involved with the beasties, you should be."
  122. 1340 end
  123. 1400 if t>20 then 1500
  124. 1405 print"your score is";t;"."
  125. 1410 print"with a very slight attitude adjustment, you could be"
  126. 1420 print"happily enjoying the benefits of a computer companion."
  127. 1440 end
  128. 1500 if t>25 then 1600
  129. 1505 print"your score is";t;"."
  130. 1510 print"getting you into communion with a computer will take"
  131. 1520 print"a tremendous effort. better off leaving to the next generation."
  132. 1540 end
  133. 1599 print"your score is";t;"!"
  134. 1600 print"forget it! it's hopeless. a classic case of compuphobia."
  135. 1610 print"how did you survive taking this test?!"
  136.