THEN ;CTRL-M¢ CLEARSLINE() PRINT8(2,2,¢ "WHICH PATTERN(1 OR 2)?")¢ A=GETD(1)-48¢ IF A=1 OR A=2 THEN MOIRE(A) FI¢ ELSEIF A=' THEN INVERT() ;CTRL-I¢ ELSEIF A='Z THEN¢ CLEARSLINE()¢ PRINT8(6,2,"CURSOR SPEED>")¢ A=GETD(1)¢ IF A>='0 AND A<='9 THEN¢ SPEED=(A-48)*750 PUT8(33,14,A)¢ FI¢ ELSEIF A='◆ THEN LOAD() ;CTRL-G¢ ELSEIF A='③ THEN SAVE() ;CTRL-S¢ FI ¢ IF MOVE=0 AND A#0 THEN¢ STATLINE() SHOWSPECS()¢ FI¢OD¢RETURN¢¢PROC RESET=58484()¢;Leave program by warmstart¢¢PROC SETUP()¢CLOSE(1) OPEN(1,"K:",4,0) ERROR=MYERR¢CLEARGRAPHIC() MAIN() RESET()¢RETURN¢¢