5 GOTO10010
10 DATAa²-b²,(a+b)(a-b),10,20
20 DATAa³±b³,(a±b)(a²∓ab+b²),10,30
30 DATAa⁴-b⁴,(a-b)(a+b)(a²+b²),20,40
40 DATAa⁴+b⁴,(a²+√➃ab+b²)(a²-√➃ab+b²),30,50
50 DATAa²±2ab+b²,(a±b)²,40,60
60 DATAa³±3a²b+3ab²±b³,(a±b)³,50,70
70 DATA(a±b)²∓4ab,(a∓b)²,60,80
80 DATAa²+b²+c²+2bc+2ca+2ab,(a+b+c)²,70,90
90 DATAa⁴+a²b²+b⁴,(a²+ab+b²)(a²-ab+b²),80,100
100 DATAa³+b³+c³-3abc,(a+b+c)(a²+b²+c²-bc-ca-ab),90,110
110 DATA(ac-bd)²+(ad+bc)²,(a²+b²)(c²+d²),100,120
120 DATA(ac+bd)²+(ad-bc)²,(a²+b²)(c²+d²),110,130
130 DATA(ac+bd)²-(ad+bc)²,(a²-b²)(c²-d²),120,140
140 DATA(ac-bd)²-(ad-bc)²,(a²-b²)(c²-d²),130,150
150 DATAa²(b-c)+b²(c-a)+c²(a-b),-(b-c)(c-a)(a-b),140,160
160 DATA(b-c)³+(c-a)³+(a-b)³,3(b-c)(c-a)(a-b),150,170
170 DATAa⁴+b⁴+c⁴-2b²c²-2c²a²-2a²b²,(a+b+c)(b-c-a)(c-a-b)(a-b-c),160,180
180 DATAx²+(a+b)x+ab,(x+a)(x+b),170,190
190 DATAx³+(a+b+c)x²+(bc+ca+ab)x+abc,(x+a)(x+b)(x+c),180,200
200 DATAa²-b²-c²-2bc,(a+b+c)(a-b-c),190,210
210 DATA(a+b+c)(bc+ca+ab)-abc,(b+c)(c+a)(a+b),200,220
220 DATA(a+b+c)³-(a³+b³+c³),3(b+c)(c+a)(a+b),210,230
230 DATAa³(b-c)+b³(c-a)+c³(a-b),-(b-c)(c-a)(a-b)(a+b+c),220,230
10010 MODE8:DIM:x=10:y=230:r=x
10020 DEFCHR$(255)="A6AAAA9280"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTm$;;TAB(l);l$;"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150