1000  REM
1010  REM  =====================================================
1020  REM   $UNIT: WRITTEN AND PROGRAMMED BY JOHN J. STEFANI
1030  REM          REV 1A  COMPLETED 7/23/75
1040  REM  =====================================================
1050  REM
1060  DIM A$[72]
1070  R=W=0
1080  DEF FNR()=INT(*RND(0))+1
1090  PRINT "NEED INSTRUCTIONS";
1100  INPUT A$
1110  IF A$[1,1]="N" THEN 1170
1120  IF A$[1,1] <> "Y" THEN 1090
1130  PRINT "THE PROGRAM TESTS YOUR ABILITY TO PRICE ITEMS."
1140  PRINT "THE QUANTITY AND PRICES OF ITEMS WILL BE PICKED AT RANDOM."
1150  PRINT "REMEMBER IF AN ITEM SELLS 3 FOR 1.00 THE ANSWER IS NOT"
1160  PRINT ".33 BUT .34 CENTS."
1170  N=FNR(20)
1180  FOR J=1 TO N
1190  D=FNR(5)
1200  C=FNR(10)
1210  PRINT 
1220  PRINT "AN ITEM SELLS ";
1230  PRINT  USING 1370;C,D
1240  PRINT "WHAT IS THE PRICE OF ONE ITEM";
1250  INPUT A
1260  I=D/C
1270  IF I/.05=INT(I/.05) THEN 1290
1280  I=I+.01
1290  IF A <> I THEN 1330
1300  PRINT  USING 1380;I
1310  R=R+1
1320  GOTO 1350
1330  PRINT  USING 1390;I
1340  W=W+1
1350  NEXT J
1360  PRINT "OUT OF"J-1"PROBLEMS. YOU GOT"R"RIGHT AND"W"WRONG."
1370  IMAGE 2D," FOR ",D.DD
1380  IMAGE D.DD," WAS THE CORRECT ANSWER."
1390  IMAGE "WRONG, THE CORRECT ANSWER IS ",D.DD
1400  END 
