home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / MATH.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.4 KB  |  43 lines
  1. 10 INPUT "SUBtraction or ADDition";M$
  2. 20 IF M$="ADD" THEN M1$=" + " ELSE IF M$="SUB" THEN M1$=" - " ELSE PRINT "ENTER EITHER 'SUB' OR 'ADD'":RUN
  3. 50 INPUT "ENTER DIFFICULTY LEVEL (1-10)";D
  4. 100 INPUT "NUMBER OF PROBLEMS";N
  5. 150 RANDOMIZE
  6. 160 FOR I=1 TO D:SP$=SP$+"#":NEXT
  7. 200 FOR I=1 TO N
  8. 220 N9$="                  "
  9. 250 A=INT(RND(1)*(10^D)):IF LEN(STR$(A))-1<D THEN 250
  10. 300 B=INT(RND(1)*(10^D)):IF LEN(STR$(A))-1<D THEN 300
  11. 350 IF A<B THEN EXCHANGE A,B
  12. 400 PRINT "  ";A
  13. 450 PRINT M1$;:PRINT USING SP$,B
  14. 455 IF M$="ADD" THEN AN=A+B ELSE AN=A-B
  15. 460 PRINT " ";:FOR X=1 TO D+2:PRINT "-";:NEXT:PRINT
  16. 500 ?"  ";:FOR I1=1 TO D:?" ";:NEXT
  17. 502 FOR I1=1 TO LEN(STR$(AN))-1
  18. 504 WAIT &72,255,2
  19. 506 N9=INP(&73)
  20. 508 N9=N9-128
  21. 509 IF N9=127 AND I1>1 THEN I1=I1-1:PRINT "  ";CHR$(8);:GOTO 504
  22. 510 IF N9<ASC("0") OR N9>ASC("9") THEN 504
  23. 512 MID$(N9$,D+3-I1,1)=CHR$(N9)
  24. 514 ?CHR$(N9);CHR$(8);CHR$(8);
  25. 516 NEXT
  26. 555 IF VAL(N9$)=AN THEN C=C+1:PRINT CHR$(7):?:?"CORRECT!!":GOTO 750
  27. 560 ?:?
  28. 600 W=W+1:IF W=2 THEN PRINT "WRONG AGAIN....THE ANSWER IS";AN:W=0:GOTO 750"
  29. 650 ?"WRONG....TRY AGAIN"
  30. 660 ?
  31. 700 GOTO 400
  32. 750 C=C-W
  33. 755 W=0
  34. 760 ?
  35. 800 NEXT
  36. 850 ? "YOU GOT";C;"PROBLEMS CORRECT OUT OF"N"PROBLEMS"
  37. 860 ?"YOUR AVERAGE FOR LEVEL"D"IS"INT((C/N)*100)"PERCENT"
  38. 870 DATA "F","D","C","B","A","A+"
  39. 880 A=INT((C/N)*10):IF A<5 THEN A=5
  40. 890 FOR I=5 TO A:READ G$:NEXT I
  41. 900 PRINT "YOU GET ";:IF A=5 OR A>8 THEN PRINT "AN '"; ELSE ?"A '";
  42. 910 PRINT G$;"'"
  43.