AT&T 6300 Programmer's Manual page 45

Example
Getting Started
Enter:
NEW
This clears memory.
Then enter:
10 REM RECTANGLE1
20 INPUT ULength"iL
30 IF L< =0 THEN 20
40 INPUT UWidth"iW
50 IF W< =0 THEN 40
60 LET AREA=L*W
70 PRINT uArea=";AREAi"L="iLiu W="iW
80 GOTO 20
90 END
2-27