Directory of image this file is from
This file as a plain text file
'BEGIN' 'COMENT' LINEAR PLOT PROGRAM;
'INTEGER' X;
'REAL' A1,B;
LIN: WRITE (1, "I'LL PLOT YOUR LINEAR EQUATION FOR YOU!");SKIP;
WRITE (1,"WHAT IS THE COEEFICIENT OF X?");SKIP;
READ (1,A1);SKIP;
WRITE (1,"WHAT IS THE CONSTANT TERM?");SKIP;
READ (1,B);
SKIP;SKIP;SKIP;
WRITE (1," -30 -20 -10 0");
WRITE (1," 10 20 30");SKIP;
WRITE (1," ^ ^ ^ ^");
WRITE (1," ^ ^ ^");SKIP;
'FOR'X:=-10 'STEP'1 'UNTIL'10 'DO'
'BEGIN' 'COMENT' PLOT BLOCK;
'INTEGER' V,PLOT;
'REAL' CONST;
'BOOLEAN' B1,B2;
WRITE (1,X);
CONST:=X*A1+B+34;
PLOT:=ENTIER (CONST);
B1:=PLOT<2; B2:=PLOT>65;
'IF' B1 'THEN' 'GOTO' POINT 'ELSE'
'IF' B2 'THEN' PLOT:=66;
'FOR'V:=1 'STEP'1 'UNTIL'PLOT 'DO'WRITE (1," ");
POINT:WRITE (1,"*");SKIP;
'END'
SKIP;SKIP;SKIP; 'GOTO'LIN
'END'
$