home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / CELLBIO / BIOLOGY.BAS (.txt) next >
Encoding:
GW-BASIC  |  1994-02-04  |  10.9 KB  |  331 lines
  1. 1   'CELL PROJECT BY JOHN BRAY
  2. 2   '918 OAKDELL PL
  3. 3   '246-9541
  4. 10  KEY OFF : SCREEN 0 : WIDTH 40 : COLOR 12,1,1 : CLS
  5. 20  BLOAD "TITLE.PIC"
  6. 30  PLAY "L32 O2 CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCD2"
  7. 40  PLAY "L32 O2 GAGAGAGAGAGAGAGAGAGAGAGAGAGAGAGA2"
  8. 50  PLAY "L32 O3 CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCD2"
  9. 60  PLAY "L8  O2 CC"
  10. 70  CLS
  11. 80  LOCATE 4,8:PRINT "Choose one of the following:"
  12. 90  LOCATE 6 ,12:PRINT "1-Cell Lecture"
  13. 100  LOCATE 8,12:PRINT "2-Cell Practice"
  14. 110  LOCATE 10,12:PRINT "3-Cell Test"
  15. 120  A$=INKEY$
  16. 130  IF A$="1" THEN 1000
  17. 140  IF A$="2" THEN L$="p" : GOTO 2000
  18. 150  IF A$="3" THEN L$ ="t" : GOTO 2000
  19. 160  GOTO 120
  20. 500  FOR I = 2 TO 9
  21. 510  LOCATE I,2 : PRINT "                                      "
  22. 520  NEXT I
  23. 530  RETURN
  24. 600  REM
  25. 605  IF PROB = 15 THEN GOTO 4000
  26. 610  IF PROB= 1 THEN GOTO 2100
  27. 620  IF PROB= 2 THEN GOTO 2150
  28. 630  IF PROB= 3 THEN GOTO 2200
  29. 640  IF PROB= 4 THEN GOTO 2250
  30. 650  IF PROB= 5 THEN GOTO 2300
  31. 660  IF PROB= 6 THEN GOTO 2350
  32. 670  IF PROB= 7 THEN GOTO 2400
  33. 680  IF PROB= 8 THEN GOTO 2450
  34. 690  IF PROB= 9 THEN GOTO 2500
  35. 700  IF PROB=10 THEN GOTO 2550
  36. 705  IF PROB=11 THEN GOTO 2600
  37. 710  IF PROB=12 THEN GOTO 2650
  38. 715  IF PROB=13 THEN GOTO 2700
  39. 720  IF PROB=14 THEN GOTO 2750
  40. 725  PRINT "RND PROBLEM":STOP
  41. 1000  SCREEN 1 : CLS : KEY OFF : COLOR 9,0
  42. 1010  DEF SEG = &HB800 : BLOAD "CELL.PIC",0
  43. 1020  LINE (0,80)-(319,0),2,B
  44. 1030  LOCATE 2,2 : PRINT "The cell is the basic unit of all"
  45. 1040  LOCATE 3,2 : PRINT "life.  Its structure is important"
  46. 1050  LOCATE 4,2 : PRINT "to all fields of Biology.  We will"
  47. 1060  LOCATE 5,2 : PRINT "go over the parts of the cell in"
  48. 1070  LOCATE 6,2 : PRINT "the sample below."
  49. 1080  LOCATE 7,2 : PRINT "Press any key to continue."
  50. 1090  A$=INKEY$:IF A$="" THEN 1090
  51. 1100  GOSUB 500
  52. 1105  LOCATE 19,3 : PRINT "->";
  53. 1110  LOCATE 2,2 : PRINT "The first cell structure we will"
  54. 1120  LOCATE 3,2 : PRINT "learn will be the cell membrane."
  55. 1130  LOCATE 4,2 : PRINT "This is found on the outer edge of"
  56. 1140  LOCATE 5,2 : PRINT "the cell.  It is also called the"
  57. 1150  LOCATE 6,2 : PRINT "plasma membrane, and it is semi-"
  58. 1160  LOCATE 7,2 : PRINT "permeable (some things can pass"
  59. 1170  LOCATE 8,2 : PRINT "through, others can't.)"
  60. 1180  LOCATE 9,2 : PRINT "Press any key to continue."
  61. 1190  A$=INKEY$:IF A$="" THEN 1190
  62. 1200  GOSUB 500
  63. 1210  LOCATE 19,3 : PRINT "  ";
  64. 1220  LOCATE 12,29 : PRINT "->";
  65. 1230  LOCATE 2,2 : PRINT "The next structure we will learn is"
  66. 1240  LOCATE 3,2 : PRINT "the microvilli.  These are on the"
  67. 1245  LOCATE 4,2 : PRINT "outer edge of the cell. It is shown"
  68. 1246  LOCATE 5,2 : PRINT "by the arrow."
  69. 1250  LOCATE 6,2 : PRINT "Press any key to continue."
  70. 1260  A$=INKEY$:IF A$="" THEN 1260
  71. 1270  GOSUB 500
  72. 1280  LOCATE 12,29 : PRINT "  ";
  73. 1290  LOCATE 17,15 : PRINT "->";
  74. 1300  LOCATE 2,2 : PRINT "The nuclear membrane surrounds the"
  75. 1310  LOCATE 3,2 : PRINT "nucleus of the cell.  It is near"
  76. 1320  LOCATE 4,2 : PRINT "the center of the cell."
  77. 1330  LOCATE 5,2 : PRINT "Press any key to continue."
  78. 1340  A$=INKEY$:IF A$="" THEN 1340
  79. 1350  GOSUB 500
  80. 1360  LOCATE 2,2 : PRINT "The nucleus is in the center of the"
  81. 1370  LOCATE 3,2 : PRINT "cell.  It is surrounded by the cell"
  82. 1380  LOCATE 4,2 : PRINT "membrane.  The nucleus is the"
  83. 1390  LOCATE 5,2 : PRINT "control center of the cell."
  84. 1400  LOCATE 6,2 : PRINT "Press any key to continue."
  85. 1410  A$ = INKEY$ : IF A$ = "" THEN 1410
  86. 1420  GOSUB 500
  87. 1430  LOCATE 17,15 : PRINT "  ";
  88. 1440  LOCATE 16,15 : PRINT "->";
  89. 1450  LOCATE 2,2 : PRINT "The nucleolus are inside the nucleus."
  90. 1460  LOCATE 3,2 : PRINT "Every nucleus contains at least"
  91. 1470  LOCATE 4,2 : PRINT "one of them."
  92. 1480  LOCATE 5,2 : PRINT "Press any key to continue."
  93. 1490  A$=INKEY$ : IF A$ = "" THEN 1490
  94. 1500  GOSUB 500
  95. 1510  LOCATE 16,15 : PRINT "  ";
  96. 1520  LOCATE 18,34 : PRINT "X";
  97. 1530  LOCATE 2,2 : PRINT "The next part of the cell that we"
  98. 1540  LOCATE 3,2 : PRINT "will look at is the cytoplasm.  The"
  99. 1550  LOCATE 4,2 : PRINT "cytoplasm is a thick fluid in the"
  100. 1560  LOCATE 5,2 : PRINT "cell. It is marked by the letter X."
  101. 1670  LOCATE 6,2 : PRINT "Press any key to continue."
  102. 1680  A$=INKEY$:IF A$="" THEN 1680
  103. 1690  GOSUB 500
  104. 1700  LOCATE 18,34 : PRINT " ";
  105. 1710  LOCATE 17,26 : PRINT "<-";
  106. 1720  LOCATE 2,2 : PRINT "This is the endoplasmic reticulum."
  107. 1730  LOCATE 3,2 : PRINT "They are hallways in the cell."
  108. 1740  LOCATE 4,2 : PRINT "Press any key to continue."
  109. 1750  A$ = INKEY$:IF A$ = "" THEN 1750
  110. 1760  GOSUB 500
  111. 1770  LOCATE 17,26 : PRINT "  ";
  112. 1780  LOCATE 15,27 : PRINT "<-";
  113. 1790  LOCATE 2,2 : PRINT "The next part of the cell is the"
  114. 1800  LOCATE 3,2 : PRINT "ribosomes.  They are the dots on"
  115. 1805  LOCATE 4,2 : PRINT "the endoplasmic reticulum.  They"
  116. 1810  LOCATE 5,2 : PRINT "are the site of protein systhesis."
  117. 1815  LOCATE 6,2 : PRINT "Press any key to continue."
  118. 1820  A$=INKEY$:IF A$="" THEN 1820
  119. 1830  GOSUB 500
  120. 1835  LOCATE 15,27 : PRINT "  ";
  121. 1840  LOCATE 19,33 : PRINT "<-";
  122. 1845  LOCATE 2,2 : PRINT "This is the Golgi Complex.  It"
  123. 1850  LOCATE 3,2 : PRINT "packages cell proteins for export."
  124. 1855  LOCATE 4,2 : PRINT "Press any key to continue."
  125. 1860  A$=INKEY$:IF A$ ="" THEN 1860
  126. 1865  GOSUB 500
  127. 1870  LOCATE 19,33 : PRINT "  ";
  128. 1880  LOCATE 18,10 : PRINT "<-";
  129. 1882  LOCATE 21,9 : PRINT "->";
  130. 1885  LOCATE 2,2 : PRINT "This is the mitochondria.  It is"
  131. 1890  LOCATE 3,2 : PRINT "the powerhouse of the cell.  It"
  132. 1895  LOCATE 4,2 : PRINT "converts glucose to energy."
  133. 1900  LOCATE 5,2 : PRINT "Press any key to continue."
  134. 1901  A$=INKEY$: IF A$ = "" THEN 1901
  135. 1902  GOSUB 500
  136. 1903  LOCATE 18,10 : PRINT "  ";
  137. 1904  LOCATE 21,9 : PRINT "  ";
  138. 1905  LOCATE 17,15: PRINT "<-";
  139. 1906  LOCATE 2,2 : PRINT "This is a vacuole.  It is a sac"
  140. 1907  LOCATE 3,2 : PRINT "which contains food, wastes, and"
  141. 1908  LOCATE 4,2 : PRINT "water for the cell."
  142. 1909  LOCATE 5,2 : PRINT "Press any key to continue."
  143. 1910  A$ = INKEY$ : IF A$ = "" THEN 1910
  144. 1911  GOSUB 500
  145. 1912  LOCATE 17,15: PRINT "  ";
  146. 1913  LOCATE 21,18 : PRINT "->";
  147. 1914  LOCATE 2,2 : PRINT "Pinocytotic vesicles are pouches"
  148. 1915  LOCATE 3,2 : PRINT "in the cell membrane. They are"
  149. 1916  LOCATE 4,2 : PRINT "the mouth of the cell."
  150. 1917  LOCATE 5,2 : PRINT "Press any key to continue."
  151. 1918  A$=INKEY$ : IF A$ = "" THEN 1918
  152. 1919  GOSUB 500
  153. 1920  LOCATE 21,18 : PRINT "  ";
  154. 1921  LOCATE 16,31 : PRINT "<-";
  155. 1922  LOCATE 2,2 : PRINT "The next part of the cell is a"
  156. 1923  LOCATE 3,2 : PRINT "lysosome. It is a sac that"
  157. 1924  LOCATE 4,2 : PRINT "contains digestive enzymes."
  158. 1925  LOCATE 5,2 : PRINT "Press any key to continue."
  159. 1926  A$=INKEY$ : IF A$ = "" THEN 1926
  160. 1927  GOSUB 500
  161. 1928  LOCATE 16,31 : PRINT "  ";
  162. 1929  LOCATE 19,12 : PRINT "->";
  163. 1930  LOCATE 2,2 : PRINT "The last part of the cell that"
  164. 1931  LOCATE 3,2 : PRINT "we'll look at are the centrioles."
  165. 1932  LOCATE 4,2 : PRINT "They are circular organelles in"
  166. 1933  LOCATE 5,2 : PRINT "the cytoplasm."
  167. 1934  LOCATE 6,2 : PRINT "Press any key to continue."
  168. 1935  A$=INKEY$:IF A$="" THEN 1935
  169. 1936  GOSUB 500
  170. 1937  LOCATE 19,12 : PRINT "  ";
  171. 1938  LOCATE 2,2 : PRINT "That's it for the cell lecture."
  172. 1939  LOCATE 3,2 : PRINT "You can go through it again, or"
  173. 1940  LOCATE 4,2 : PRINT "if you think you're ready you can"
  174. 1941  LOCATE 5,2 : PRINT "practice or take the test."
  175. 1942  LOCATE 6,2 : PRINT "Press any key to continue."
  176. 1943  A$=INKEY$:IF A$="" THEN 1943
  177. 1950  SCREEN 0 : WIDTH 40 : COLOR 12,1,1 : CLS
  178. 1960  GOTO 70
  179. 2000  SCREEN 1 : CLS : KEY OFF : COLOR 9,0 :RIGHT = 0:PROB=1
  180. 2010  DEF SEG = &HB800 : BLOAD "CELL.PIC",0
  181. 2020  LINE (0,80)-(319,0),2,B
  182. 2030  LOCATE 2,2 : PRINT "I will point to the parts of the cell."
  183. 2040  LOCATE 3,2 : PRINT "You have to name that part.  Remember"
  184. 2050  LOCATE 4,2 : PRINT "that you must spell it correctly or I"
  185. 2060  LOCATE 5,2 : PRINT "will not recognize it. Use only"
  186. 2065  LOCATE 6,2 : PRINT "lower case letters.  Let's begin."
  187. 2070  LOCATE 7,2 : PRINT "Press any key to continue."
  188. 2080  A$ = INKEY$ : IF A$="" THEN 2080
  189. 2085  T = 3600*VAL(LEFT$(TIME$,2)) + 60*VAL(MID$(TIME$,4,2)) + VAL(RIGHT$(TIME$, 2))
  190. 2086  RANDOMIZE T - 65536*INT(T/65536) - 32768
  191. 2090  GOSUB 500
  192. 2095  GOTO 600
  193. 2100  LOCATE 19,3 : PRINT "->";
  194. 2105  LOCATE 2,2 : PRINT "What is this outer edge around the"
  195. 2110  LOCATE 3,2 : INPUT "cell called: ", A$
  196. 2115  IF A$ = "cell membrane" THEN  LOCATE 4,2 :PRINT "That's right!" : RIGHT = RIGHT + 1          ELSE LOCATE 4,2:PRINT "Wrong!" : WRONG = WRONG + 1
  197. 2120  PROB = PROB + 1
  198. 2125  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  199. 2130  LOCATE 19,3 : PRINT "  ";
  200. 2135  GOTO 600
  201. 2150  LOCATE 12,29 : PRINT "->";
  202. 2155  LOCATE 2,2 : PRINT "What is this structure on the"
  203. 2160  LOCATE 3,2 : INPUT "outer edge called: ",A$
  204. 2165  IF A$ = "microvilli" THEN   LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  205. 2170  PROB = PROB + 1
  206. 2175  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  207. 2180  LOCATE 12,29 : PRINT "  ";
  208. 2185  GOTO 600
  209. 2200  LOCATE 17,15 : PRINT "->";
  210. 2205  LOCATE 2,2 : PRINT "What is the name for the outer edge"
  211. 2210  LOCATE 3,2 : INPUT "of the nucleus: ", A$
  212. 2215  IF A$ = "nuclear membrane" THEN  LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  213. 2220  PROB = PROB + 1
  214. 2225  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  215. 2230  LOCATE 17,15 : PRINT "  ";
  216. 2235  GOTO 600
  217. 2250  LOCATE 17,15 : PRINT "->";
  218. 2255  LOCATE 2,2 : PRINT "What is the name for this"
  219. 2260  LOCATE 3,2 : INPUT "area? ",A$
  220. 2265  IF A$ = "nucleus" THEN LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  221. 2270  PROB = PROB + 1
  222. 2275  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  223. 2280  LOCATE 17,15 : PRINT "  ";
  224. 2285  GOTO 600
  225. 2300  LOCATE 16,15 : PRINT "->";
  226. 2305  LOCATE 2,2 : PRINT "This is inside the nucleus.  What is"
  227. 2310  LOCATE 3,2 : INPUT "it? ", A$
  228. 2315  IF A$ = "nucleolus" THEN LOCATE 4,2 : PRINT "That's right" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  229. 2320  PROB = PROB + 1
  230. 2325  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  231. 2330  LOCATE 16,15 : PRINT "  ";
  232. 2335  GOTO 600
  233. 2350  LOCATE 18,34 : PRINT "X";
  234. 2355  LOCATE 2,2 : PRINT "What is the name of this"
  235. 2360  LOCATE 3,2 : INPUT "fluid? ", A$
  236. 2365  IF A$ = "cytoplasm" THEN LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!": WRONG = WRONG + 1
  237. 2370  PROB = PROB + 1
  238. 2375  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  239. 2380  LOCATE 18,34 : PRINT " ";
  240. 2385  GOTO 600
  241. 2400  LOCATE 17,26 : PRINT "<-";
  242. 2405  LOCATE 2,2 : PRINT "What is the name of this"
  243. 2410  LOCATE 3,2 : INPUT "structure? ", A$
  244. 2415  IF A$ = "endoplasmic reticulum" THEN LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  245. 2420  PROB = PROB + 1
  246. 2425  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  247. 2430  LOCATE 17,26 : PRINT "  ";
  248. 2435  GOTO 600
  249. 2450  LOCATE 15,27 : PRINT "<-";
  250. 2455  LOCATE 2,2 : PRINT "What is the name of these"
  251. 2460  LOCATE 3,2 : INPUT "dots? ", A$
  252. 2465  IF A$ = "ribosomes" THEN LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  253. 2470  PROB = PROB + 1
  254. 2475  FOR I =1 TO 2000 : NEXT : GOSUB 500
  255. 2480  LOCATE 15,27 : PRINT "  ";
  256. 2485  GOTO 600
  257. 2500  LOCATE 19,33 : PRINT "<-";
  258. 2505  LOCATE 2,2 : PRINT "What is the name of this"
  259. 2510  LOCATE 3,2 : INPUT "area? ", A$
  260. 2515  IF A$ = "golgi complex" THEN LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  261. 2520  PROB = PROB + 1
  262. 2525  FOR I = 1 TO 2000 : NEXT : GOSUB 500
  263. 2530  LOCATE 19,33 : PRINT "  ";
  264. 2535  GOTO 600
  265. 2550  LOCATE 18,10  : PRINT "<-";
  266. 2551  LOCATE 21,9 : PRINT "->";
  267. 2555  LOCATE 2,2 : PRINT "What is the name for this"
  268. 2560  LOCATE 3,2 : INPUT "structure? ", A$
  269. 2565  IF A$ = "mitochondria" THEN LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  270. 2570   PROB = PROB + 1
  271. 2575  FOR I=1 TO 2000 : NEXT : GOSUB 500
  272. 2580  LOCATE 18,10 : PRINT "  ";
  273. 2581  LOCATE 21,9 : PRINT "  ";
  274. 2585  GOTO 600
  275. 2600  LOCATE 17,15 : PRINT "<-";
  276. 2605  LOCATE 2,2 : PRINT "What is the name of this"
  277. 2610  LOCATE 3,2 : INPUT "sac? ", A$
  278. 2615  IF A$ = "vacuole" THEN LOCATE 4,2 : PRINT "That's right!" : RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  279. 2620  PROB = PROB + 1
  280. 2625  FOR I=1 TO 2000:NEXT : GOSUB 500
  281. 2630  LOCATE 17,15 : PRINT "  ";
  282. 2635  GOTO 600
  283. 2650  LOCATE 21,18 : PRINT "->";
  284. 2655  LOCATE 2,2 : PRINT "What is the name of this"
  285. 2660  LOCATE 3,2 : INPUT "pouch? ", A$
  286. 2665  IF A$ = "pinocytotic vesicle" THEN  LOCATE 4,2 : PRINT "That's right!": RIGHT =RIGHT+1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG = WRONG + 1
  287. 2670  PROB = PROB+1
  288. 2675  FOR I=1 TO 2000 : NEXT : GOSUB 500
  289. 2680  LOCATE 21,18 : PRINT "  ";
  290. 2685  GOTO 600
  291. 2700  LOCATE 16,31 : PRINT "<-";
  292. 2705  LOCATE 2,2 : PRINT "What is this part of the"
  293. 2710  LOCATE 3,2 : INPUT "cell? ", A$
  294. 2715  IF A$ = "lysosome" THEN LOCATE 4,2 : PRINT "That's right!":RIGHT = RIGHT + 1 ELSE LOCATE 4,2 : PRINT "Wrong!" : WRONG=WRONG+1
  295. 2720  PROB=PROB+1
  296. 2725  FOR I=1TO 2000:NEXT :GOSUB 500
  297. 2730  LOCATE 16,31 : PRINT "  ";
  298. 2735  GOTO 600
  299. 2750  LOCATE 19,12 : PRINT "->";
  300. 2755  LOCATE 2,2 : PRINT "What is this part of the"
  301. 2760  LOCATE 3,2 : INPUT "cell? ", A$
  302. 2765  IF A$ = "centriole" THEN LOCATE 4,2 : PRINT "That's right!":RIGHT=RIGHT+1 ELSE LOCATE 4,2 : PRINT "Wrong!":WRONG=WRONG+1
  303. 2770  PROB=PROB+1
  304. 2775  FOR I=1 TO 2000:NEXT:GOSUB 500
  305. 2780  LOCATE 19,12 : PRINT "  ";
  306. 2785  GOTO 600
  307. 4000  IF L$="t" THEN 5000
  308. 4010  SCREEN 0 : WIDTH 40 : COLOR 12,1,1 : CLS
  309. 4020  LOCATE 5,1 : PRINT "You scored";RIGHT;" out of"
  310. 4030  PRINT "14 problems."
  311. 4040  IF RIGHT >10 THEN PRINT "You should try taking the test now." ELSE IF RIGHT > 5  AND RIGHT <11 THEN PRINT "Keep practicing" ELSE IF RIGHT <  6 THEN PRINT "Go through the lecture again."
  312. 4050  PRINT :PRINT "Press any key to continue."
  313. 4060  A$=INKEY$:IF A$="" THEN 4060
  314. 4070  GOTO 70
  315. 5000  SCREEN 0:WIDTH 40 : COLOR 12,1,1 : CLS
  316. 5010  LOCATE 5,1 : PRINT "You scored";RIGHT;" out of"
  317. 5020  PRINT "14 problems."
  318. 5025  PRINT:PRINT
  319. 5026  PER = (RIGHT/14)*100
  320. 5030  PRINT "That is ";INT(PER);"%."
  321. 5035  PRINT:PRINT
  322. 5040  IF PER >=90 THEN PRINT "You get an `A'.":GOTO 5085
  323. 5050  IF PER >=80 THEN PRINT "You get a `B'." :GOTO 5085
  324. 5060  IF PER >=70 THEN PRINT "You get a `C'."  :GOTO 5085
  325. 5070  IF PER >=60 THEN PRINT "You get a `D'." :GOTO 5085
  326. 5080  PRINT "You flunked!  `F'."
  327. 5085  PRINT :PRINT "Press any key to continue."
  328. 5086  A$=INKEY$:IF A$="" THEN 5086
  329. 5088  PROB=0
  330. 5090  GOTO 70
  331.