44 S$=CHR$(137):P=15:GOSUB76:IFD=0THEND=TB
70 PRINT@L-20,STRING$(9,32)CHR$(245)STRING$(9,32)"0";:RETURN
86 L=65+OF:S1=86+OF*6:S2=152+OF*6:CLS:LINE(S1,3)-(S2,59),1,B:LINE(S1,19)-(S2,19):PRINT@136+OF,"7 8 9 "CHR$(137)" *"
88 PRINT@176+OF,"4 5 6 % /":PRINT@216+OF,"1 2 3   +":PRINT@256+OF,"0 . C - =":RETURN