00010 read a,b,d,e 00015 let g=a*e-b*d 00020 if g=0 then 65 00030 read c,f 00037 let x=(c*e-b*f)/g 00042 let y=(a*f-c*d)/g 00055 print x,y 00060 goto 30 00065 print "No unique solution" 00070 data 1,2,4 00080 data 2,-7,5 00085 data 1,3,4,-7 00090 end