Equations

   10 REM EQUATIONS
   20 INK 7: PAPER 1
   30 BORDER 1: CLS 
   40 DEF FN M(N)=INT (RND*N)+1
   50 LET A=FN M(10)
   60 LET B=FN M(10)
   70 LET C=FN M(10)
   80 LET D=FN M(10)
   90 LET X=FN M(10)
  100 LET Y=FN M(10)
  110 LET E=A*X+B*Y
  120 LET F=C*X+D*Y
  130 PRINT ''' INK 6;"The equations are:"
  140 PRINT 'TAB 8; INVERSE 1;A;"x + ";B;"y = ";E
  150 PRINT 'TAB 8; INVERSE 1;C;"x + ";D;"y = ";F
  160 PRINT '"You must solve them for "; INVERSE 1;"x"; INVERSE 0;" and "; INVERSE 1;"y"
  170 PRINT ''"Press any key for the solution"
  180 PAUSE 0
  190 CLS 
  200 PRINT ''''TAB 8;A;"x + ";B;"y = ";E
  210 PRINT 'TAB 8;C;"x + ";D;"y = ";F
  220 PRINT 'TAB 4;"The value ot x is "; FLASH 1;x
  230 PRINT 'TAB 4;"The value of y is "; FLASH 1;Y
  240 PRINT 'TAB 8;A;"*";X;" + ";B;"*";Y;" = ";E
  250 PRINT 'TAB 8;C;"*";X;" + ";D;"*";Y;" = ";F
  260 PRINT '''"Press any key for a new problem"
  270 PAUSE 0
  280 RUN 
 9997 STOP 
 9998 SAVE "EQUATIONS" LINE 1