home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Educational / FRACT-REDUCE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  54 lines
  1. 8 DIMA$(90),C(90),AN$(15):PRINT"[147]"
  2. 9 PRINT"**************************************************"
  3. 10 PRINT"***                                            ***"
  4. 12 PRINT"***  PRINTING OUT FRACTION REDUCTION PROBLEMS  ***"
  5. 14 PRINT"***                                            ***"
  6. 16 PRINT"***  THERE WILL BE 11 ROWS OF 8 PROBLEMS PER.. ***"
  7. 18 PRINT"***                                            ***"
  8. 24 PRINT"**************************************************"
  9. 26 PRINT:PRINT"       RETURN TO CONTINUE WITH THE PRINTING  [146]"
  10. 28 GETA$:IFA$=""THEN28
  11. 30 IFA$=CHR$(13)THEN38
  12. 34 GOTO200
  13. 38 OPEN4,4:CMD4
  14. 40 PRINT"REDUCE THE FOLLOWING FRACTIONS TO LOWEST TERMS:"
  15. 42 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  16. 44 PRINT
  17. 50 FORI=1TO88:READA$(I):NEXT
  18. 55 FORJ=1TO11
  19. 60 FORA=1TO8
  20. 62 X%=RND(8)*88+1: Y=INT(RND(8)*6+6)
  21. 64 IFC(X%)=1THEN62
  22. 66 R(A)=VAL(LEFT$(A$(X%),1))*Y
  23. 68 R$(A)=RIGHT$("  "+STR$(R(A)),3)
  24. 70 S(A)=VAL(RIGHT$(A$(X%),1))*Y
  25. 72 S$(A)=RIGHT$("  "+STR$(S(A)),3)
  26. 74 C(X%)=1
  27. 76 AN$(J)=AN$(J)+A$(X%)+"   "
  28. 78 NEXT
  29. 80 FORA=1TO8:PRINTR$(A)+"       ";:NEXT
  30. 82 FORA=1TO8:PRINT"[195][195][195] =     ";:NEXT
  31. 84 FORA=1TO8:PRINTS$(A)+"       ";:NEXT
  32. 86 PRINT:PRINT:PRINT
  33. 90 NEXT J
  34. 92 PRINT#4:CLOSE4
  35. 95 PRINT"***  RETURN TO PRINT ANSWERS [146]  ****"
  36. 97 GETA$:IFA$=""THEN97
  37. 98 IFA$=CHR$(13)THEN 105
  38. 100 GOTO200
  39. 105 OPEN4,4:CMD4
  40. 0 FOR J=1TO11
  41. 110 PRINT AN$(J):PRINT
  42. 113 NEXT J
  43. 115 PRINT#4:CLOSE4
  44. 150 DATA 1/2,2/3,3/8,3/5,3/4,5/9,1/4,3/4,1/4,7/9
  45. 155 DATA 1/3,3/4,2/9,3/7,7/8,3/8,5/6,1/5,2/5,1/5
  46. 160 DATA 1/4,2/5,3/5,5/8,4/5,4/5,6/7,1/6,5/6,1/6
  47. 165 DATA 1/5,5/6,2/7,4/9,4/7,1/2,1/2,2/3,1/5,2/3
  48. 170 DATA 1/6,2/7,5/8,7/9,7/8,5/7,1/3,3/8,1/3,3/4
  49. 175 DATA 1/2,2/3,3/8,3/5,3/4,5/9,1/4,3/4,1/4,7/9
  50. 180 DATA 1/3,3/4,2/9,3/7,7/8,3/8,5/6,1/5,2/5,1/5
  51. 185 DATA 1/4,2/5,3/4,5/8,4/5,4/5,6/7,1/6,5/6,1/6
  52. 190 DATA 1/5,5/6,2/7,4/9,4/7,1/2,1/2,2/3,1/5,2/3
  53. 200 END
  54.