1 REM Ins{nt av 2314
10 ; CHR$(12)
20 ; CHR$(12)"ANDRAGRADSEKVATION"
30 ; 
40 ; "KOEFFICIENTERNA A,B,C";
50 INPUT A,B,C
60 S=B^2-4*A*C
70 R=SQR(ABS(S))
80 IF S<0 THEN 110
90 ; "R\TTERNA(REELA) X1=";(-B-R)/(2*A);"   X2=";(-B+R)/(2*A)
100 GOTO 120
110 ; "R\TTERNA(KOMPLEXA)";-B/(2*A);"+/-";R/(2*A);"i"
120 ; 
130 ; : ; "EN TILL? (J/N):"; : GET B$
140 IF B$="n" OR B$="N" THEN 150 ELSE ; CHR$(12) : GOTO 10
150 END