10 'Typewriter simulation program.  Copyright 7.9.1989, Keith Simons.
20 DEF FNtab$(x,y)=CHR$(27)+"Y"+CHR$(y+32)+CHR$(x+32)
30 DEF FNmdl$(y,word$)=FNtab$(ROUND(45-(LEN(word$)/2)),y)+word$
40 DEF FNbox$(y,word$)=FNmdl$(y,CHR$(134)+STRING$(LEN(word$),CHR$(138))+CHR$(140))+FNmdl$(y+1,CHR$(133)+word$+CHR$(133))+FNmdl$(y+2,CHR$(131)+STRING$(LEN(word$),CHR$(138))+CHR$(137))
50 DEF FNboxB$(y,word$)=CHR$(27)+"p"+FNbox$(y,word$)+CHR$(27)+"q"
60 x$=CHR$(27):LPRINT x$"M";:WIDTH 255:PRINT x$"E"x$"H";
70 GOSUB 190:PRINT r$;
80 y$=CHR$(1)+CHR$(6)+CHR$(127)+CHR$(7)
90 z$=INPUT$(1):ON INSTR(y$,z$) GOSUB 150,160,170,180:IF INSTR(y$,z$) GOTO 90
100 IF z$=CHR$(13) THEN PRINT:PRINT SPC(10);:LPRINT l$:p=0:l$="":GOTO 90:
110 IF z$=CHR$(27) THEN PRINT:LPRINT l$;CHR$(12);:p=0:l$="":GOTO 25000:END
120 l$=LEFT$(l$,p)+z$+MID$(l$,p+1):PRINT x$"j"MID$(l$,p+1)x$"k"x$"C";:p=p+1
130 IF LEN(l$)>70 THEN PRINT CHR$(7);
140 GOTO 90
150 IF p>0 THEN p=p-1:PRINT x$"D";:RETURN ELSE PRINT CHR$(7);:RETURN
160 IF p<LEN(l$) THEN p=p+1:PRINT x$"C";:RETURN ELSE PRINT CHR$(7);:RETURN
170 IF p>0 THEN p=p-1:PRINT x$"D";:ELSE PRINT CHR$(7);:RETURN
180 l$=LEFT$(l$,p)+MID$(l$,p+2):PRINT x$"N";:RETURN
190 PRINT FNboxB$(0," Typewriter Simulation Program ");FNmdl$(4,"(Press [EXIT] to finish using)"):PRINT SPACE$(10);CHR$(149);"....:....|....:....|....:....|....:....|....:....|....:....|....:...."+CHR$(149):PRINT SPACE$(10);
200 RETURN
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any key to return to main menu or press (STO