0 'CSHREG.103 by Richard Hanson 9/85 Mods by Bill Templeton 4/86 <<>> 1 ' Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR:MAXFILES=3:DEFINTA-D:E$=CHR$(27):R$=E$+"p":N$=E$+"q":B=0:ONERRORGOTO33:CLS:PRINT@53,R$" CASH REGISTER "N$;:B=INP(187)AND6:IFB=2THENA=1:F$="LPT:":GOTO4 3 PRINT@130,"Printer not connected...":PRINT@171,"Use LCD display (Y/N)?":W$=INPUT$(1):IFINSTR("yY",W$)THENA=2:F$="LCD:":GOTO6ELSEMENU 4 PRINT@172,"Printer connected...":PRINT@248,R$" Going to main program... "N$:FORD=1TO2000:NEXT 5 OPEN"grand"FOROUTPUTAS2 6 CLS:CLOSE:OPEN"temp"FOROUTPUTAS1:C=1:RESTORE32 7 READT$(C),I$(C),P(C):IFP(C)=0THEN9 8 C=C+1:GOTO7 9 CLS:PRINT:FORR=1TOC-1:PRINT" <"T$(R)">"I$(R)" ";:NEXT:PRINT@280,R$" Go "N$" "R$" Clr"N$" "R$" Sum"N$"