Msg: 4697 *Conference*
10-13-93 18:37:22
From: CARROLL LEWIS
To : ALL
Subj: SCREEN PROGS
0 'CTRPOK.BA 10 CLS:PRINT"CONTROL TEST":PRINT"<C>LIENT":PRINT"C<O>NTRACT":PRINT"<B>ID 1":PRINT"BI<D> 2" 20 ONINSTR(" CcOoBbDd",INKEY$)GOTO20,30,30,40,40,50,50,60,60:GOTO20 30 A$="CLIE":GOTO70'FOR CLIENT 40 A$="CONT":GOTO70'AT END OF BID 50 A$="BID1":GOTO70'AT START OF BID 60 A$="BID2"'AT END OF 2ND BANK 70 X=64900:FORI=1TO4:POKEX,ASC(MID$(A$,I,1)):X=X+1:NEXT 80 MENU 0 'CTRPEK.BA 10 DEFSTRC:CLS:X=64900:FORI=1TO4:CT=CT+CHR$(PEEK(X)):X=X+1:NEXT 11 IFCT="CLIE"THENPRINT"Control word is "CT" FROM CLIENT":INPUTA$:MENU 12 IFCT="BID2"THENPRINT"Control word is "CT" FROM BANK 2":INPUT;A$:MENU'GOTOPRCPEK 13 IFCT="CONT"THENPRINT"Control word is "CT" Contract pending":INPUTA$:MENU'RUN"CONTRC.BA" 14 IFCT="BID1"THENPRINT"Control word is "CT" BID in progress":INPUT;A$:MENU'GOTO100 15 PRINT"no control poke in place ..RUN>>":INPUT;A$:MENU'GOTO100 0 'NMPOKE.BA 10 CLS:INPUT"NAME";CL$:L=LEN(CL$):L$=STR$(L) 15 IFL<10THENL$="0"+MID$(L$,2,1):GOTO17ELSEL$=MID$(L$,2,2) 17 P$=L$+" "+CL$:L2=LEN(P$) 30 X=64704:FORI=1TOL2:POKEX,ASC(MID$(P$,I,1)):X=X+1:NEXT 0 'NMPEEK.BA 10 R$=CHR$(PEEK(64704))+CHR$(PEEK(64705)):R=VAL(R$) 20 X=64707:FORI=1TOR:CL$=CL$+CHR$(PEEK(X)):X=X+1:NEXT 30 CLS:PRINT@45,"Is..."CL$"...the current job?" 40 PRINT@135,"<Y> <N>";:ONINSTR(" YyNn",INKEY$)GOTO40,50,50,60,60:GOTO40 50 GOTO70 60 CLS:PRINT"you pressed no":INPUTA$:MENU'GOTO NAME INPUT 70 CLS:PRINT"continue with name":INPUTA$:MENU'GOTO ROOM INPUT 0 'PRCPOK.BA 5 INPUT "TOTAL ROOMS";R:IFR>10ORR<1 THENBEEP:GOTO5 ELSEFORT=1TOR 10 CLS:PRINT"ROOM #";T:INPUT"PRICE";R(T-1) 20 X=64734+(T*10):P$=STR$(R(T-1)):P=LEN(P$):FORI=1TOP:POKEX,ASC(MID$(P$,I,1)):X=X+1 :NEXT:NEXT 30 X=64731:Z$=STR$(R):Z=LEN(Z$):IFZ<3THENZ$="0"+MID$(Z$,2,1):GOTO40ELSEZ$=MID$(Z$,2 ,2) 40 FORI=1TO2:POKEX,ASC(MID$(Z$,I,1)):X=X+1:NEXT:INPUT;A$:MENU 0 'PRCPEK.BA 10 CLS:R$=CHR$(PEEK(64731))+CHR$(PEEK(64732)):R=VAL(R$):PRINTR 20 FOR I=1TOR:P$="":X=64734:X=X+(I*10):FORB=1TO9:P$=P$+CHR$(PEEK(X)):X=X+1:NEXT:P(I-1)= VAL(P$):TP=TP+P(I-1):NEXT 30 FORI=1TOR:PRINT"ROOM"I;TAB(6);"=";TAB(11);:PRINTUSING"#####.##";P(I-1):NEXT:PRIN T:PRINT"TOTAL =";TAB(11);:PRINTUSING"#####.##";TP ;:INPUTA$:MENU 0 'BUFCLR.BA 10 FORX=64704TO65023 20 POKEX,32:NEXT 0 'SEEBUF.BA 30 CALL21795 40 MENU 0 'MXROOM.BA 10 CLS:CLEAR:FORI=63930TO64128STEP11:IFPEEK(I)>0THENA=A+1:GOTO11ELSENEXT 11 IFPEEK(I)=192THEND=D+1:GOTO28 12 IFPEEK(I)=128THENB=B+1:GOTO28 13 IFPEEK(I)=200ORPEEK(I)=168ORPEEK(I)=136THENV=V+1 28 NEXT 29 PRINT"There are"A"active files":PRINT"("D"documents)":PRINT"("B"programs)":PRINT"("V"invisible files)" 30 PRINT:PRINT"The MAX # of rooms you can input is..." 40 PRINT@255,18-A"Got it";:INPUTB$:MENU