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