home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / ACCEL-GRAVITY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  103 lines
  1. 0 POKE53280,0:POKE53281,0
  2. 1 GOSUB1000
  3. 2 PRINT"[147]"
  4. 3 M$="  GRAVITY ACCELERATION  PAPER MAKER ":PL$="":GOSUB20000
  5. 4 M$="             PAUL BOYLE             ":PL$=PL$+"":GOSUB20000
  6. 5 M$="        GLENWOOD MIDDLE SCHOOL      ":PL$=PL$+"":GOSUB20000
  7. 6 FORT=1TO1300:NEXTT
  8. 7 N=0
  9. 11 PRINT"[147]CHOOSE ONE"
  10. 12 PRINT"(A) QUIZ"
  11. 13 PRINT"(B) TEST"
  12. 14 PRINT"(C) WORKSHEET"
  13. 15 PRINT"AFTER CHOOSING PRESS RETURN ":INPUT W$:IFW$="" THEN GOTO 11
  14. 16 IF W$="A" THEN X$= "QUIZ"
  15. 17 IF W$="B" THEN X$= "TEST"
  16. 18 IF W$="C" THEN X$= "WORKSHEET"
  17. 25 PRINT"[147]DO YOU WANT TO FIGURE FOR"
  18. 30 PRINT"CHOOSE ONE"
  19. 31 PRINT"(A) VELOCITY
  20. 32 [153]"(B) ACCELERATION
  21. 33 PRINT"(C) TIME"
  22. 34 PRINT"(D) MIXED
  23. 35 [153]"AFTER CHOOSING PRESS RETURN ":[133] E$:[139]E$[178]"" [167] [137] 25
  24. 36 [139] E$[178]"A" [167] Y [178]1
  25. 37 [139] E$[178]"B" [167] Y [178]2
  26. 38 [139] E$[178]"C" [167] Y [178]3
  27. 39 [139] E$[178]"D" [167] Y [178]4
  28. 155 [159]4,4
  29. 156 [152]4,:[152]4,[199](15)
  30. 160 [152]4, "NAMETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  31. 165 [152]4
  32. 170 [152]4,"DATETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";[163]23);"SCORETOTOTOTOTOTOTOTOTOTOTOTO"
  33. 175 [152]4,[199](14)
  34. 180 [152]4, "** ACCELERATION OF GRAVITY ";X$;" **"
  35. 181 [152]4,
  36. 182 [139] W$[178]"A" [167] [137] 187
  37. 183 [139] W$[178]"B" [167] [137] 187
  38. 184 [152]4,
  39. 186 [152]4,[199](15)    
  40. 8233    "VELOCITY = ACCELERATION * TIME   V = A * T"
  41. 187 [152]4,[199](14)
  42. 188 A[178][181](89 [172][187](1) [170]10)
  43. 189 M[178][181](89 [172][187](1) [170]10)
  44. 190 A1[178][181](89 [172][187](1) [170]10)
  45. 191 M1[178][181](89 [172][187](1) [170]10)
  46. 192 F[178][181](89 [172][187](1) [170]10)
  47. 193 F1[178][181](89 [172][187](1) [170]10)
  48. 194 [139] F[179]A [176] F[179]M [167] [137] 188
  49. 195 [139] F[179]A1 [176] F[179]M1 [167] [137] 188
  50. 196 N[178]N[170]1:[139] N[179][178]9 [167] S$[178]" "
  51. 197 [139] N[177]9   [167] S$[178]""
  52. 198 [152]4,
  53. 199 [139] Y[178]1 [167] [137] 250
  54. 200 [139] Y[178]2 [167] [137] 254
  55. 210 [139] Y[178]3 [167] [137] 258
  56. 215 EE [178][181](3[172][187](1)[170]1)
  57. 220 [139] EE[178]1 [167] [137] 250
  58. 225 [139] EE[178]2 [167] [137] 254
  59. 230 [139] EE[178]3 [167] [137] 258
  60. 250 [152]4,S$;N;". TOTOTOTOTOTO M/S= ";M1;"M/S^2 * ";A1; " S "
  61. 252 [137] 350
  62. 254 [152]4,S$;N;    
  63. 17979 1;" M/S= TOTOTOTOTO M/S^2 * ";A1;" S"
  64. 256 [137] 350
  65. 258 [152]4,S$;N;". ";F1;" M/S= ";M1;"M/S^2 * TOTOTOTOTOTO S "
  66. 260 N[178]N[170]1:[139] N[179][178]9 [167] S$[178]" "
  67. 265 [139] N[177][178]10 [167] S$[178]""
  68. 280 [139] Y[178]1 [167] [137] 309
  69. 285 [139] Y[178]2 [167] [137] 319
  70. 290 [139] Y[178]3 [167] [137] 329
  71. 291 EA [178][181](3[172][187](1)[170]1)
  72. 293 [139] EA[178]1 [167] [137] 309
  73. 294 [139] EA[178]2 [167] [137] 319
  74. 295 [139] EA[178]3 [167] [137] 329
  75. 309 [152]4,
  76. 310 [152]4,S$;N;". TOTOTOTOTOTO M/S= ";M;"M/S^2 * ";A; " S "
  77. 311 [137] 350
  78. 319 [152]4,
  79. 320 [152]4,S$;N;". ";F;" M/S= TOTOTOTOTO M/S^2 * ";A;" S"
  80. 321 [137] 350
  81. 329 [152]4,
  82. 330 [152]4,S$;N;". ";F;" M/S= ";M;"M/S^2 * TOTOTOTOTOTO S "
  83. 350 [139] N[179]22 [167] [137]188
  84. 355 [139] N[178]22 [167] [152]4,:[152]4,:[152]    
  85. 13344 :[137] 915
  86. 915 [153]"LOADDO YOU WANT ANOTHER WORKSHEET (Y/N)?
  87. 916 PRINT"CHOOSE Y[146] OR N[146] THEN PRESS RETURN"
  88. 919 INPUT H$
  89. 920 IF H$="Y" THEN GOTO 7
  90. 921 IF H$="N" THEN END
  91. 922 IF H$="" THEN 916
  92. 1000 PRINT"[147]":DEF FNS(A)=INT(RND(0)*1000)
  93. 1010 S=1024:D=54272:C=S+D
  94. 1020 FOR X= 1 TO 30
  95. 1030 F= FNS(X)
  96. 1040 FORY=1TO2:FORR=1TO4:READA,B
  97. 1050 POKES+F,A:POKEC+F,B
  98. 1060 NEXT:RESTORE:NEXT:NEXT:
  99. 1070 DATA 86,1,91,5,42,7,46,1
  100. 1080 GOTO 3
  101. 20000 L=LEN(M$):MI=38-L/2:FORI=1TOLEN(M$)-19
  102. 20010 PRINTPL$SPC(MI)LEFT$(M$,I)RIGHT$(M$,L-(L-I)):MI=MI-1:NEXT:RETURN
  103.