1 ' AUTHORS NOTE TO USERS : The program is designed for the Televideo terminals.
2 ' If you are using some other terminal, change the codes (as needed) in the
3 ' screen attributes section of each module...
10 '			BANNER PROGRAM
20 '

		+++++++ SCREEN ATTRIBUTES +++++++++++++
21 '
22 '
30 CLS$=CHR$(26)'		clear screen
40 ESC$=CHR$(27)'		escape
50 SEQ$=ESC$+CHR$(71)'		escape + ^G
60 NORMAL$=SEQ$+CHR$(48)'	normal screen
70 BLANK$=SEQ$+CHR$(49)'	blank screen
80 BLINK$=SEQ$+CHR$(50)'	blinking video
90 REVERSE$=SEQ$+CHR$(52)'	reverse video
100 REVBLINK$=SEQ$+CHR$(54)'	reverse & blink
110 HALF$=ESC$+CHR$(41)'	half intensity
120 FULL$=ESC$+CHR$(40)'	full intensity
130 '

		++++++ POSITIONING VARIABLES ++++++++
140 '
150 STAB=10
160 LENGTH=60'			length of field
170 NDOWN=8'			number rows
180 '

		+++++ DEFINE FUNCTIONS ++++++++++


190 DEF FNFLASH$=HALF$+BLINK$+"****"+FULL$+NORMAL$'  ** blinking ****
210 DEF FNDOTS$=HALF$+STRING$((LENGTH-(LEN(WORD$)+16))," ")+FULL$
220 DEF FNTOP$=HALF$+BLINK$+STRING$(LENGTH-5,"*")+FULL$
10000 '******************************************************************
10010 '*                      TENANT BILLING MASTER MENU                *
10020 '*       (MENU)                                    9/05/82        *
10030 '******************************************************************
10040 TIMELIMIT%=5000
10080 PRINT CHR$(26)
10085 IF PEEK(255)=1 THEN GOTO 10150
10086 POKE(255),1
10090 PRINT TAB(18)REVERSE$;"MOBILE HOME PARK BILLING SYSTEM VERSION 1.6";NORMAL$
10091 PRINT:PRINT:PRINT TAB(STAB);FNTOP$
10092 'WORD$="Serial No. 1002 "
10100 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTS$;FNFLASH$
10105 WORD$="Copyright (C) 1982"
10110 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTS$;FNFLASH$
10115 WORD$="Stephen Gerling"
10120 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTS$;FNFLASH$
10125 WORD$="Portions Copyrighted by MICROSOFT,1981"
10130 PRINT TAB(STAB)FNFLASH$;WORD$;FNDOTS$;FNFLASH$
10135 PRINT TAB(STAB);FNTOP$
10140 FOR X=1 TO 5000:NEXT X
10150 PRINT CHR$(26)
10160 DEF FNDOTSS$=HALF$+STRING$((LENGTH-(LEN(WORD$)+16)),".")+FULL$
10170 PRINT
10181 PRINT:PRINT:PRINT FULL$
10185 PRINT BLINK$;HALF$;TAB(STAB);"   ****************** ";FULL$;NORMAL$;REVERSE$;" MASTER MENU ";BLINK$;HALF$;"********************";NORMAL$
10186 WORD$="Tenant Masterfile"
10187 PRINT BLINK$;HALF$;TAB(STAB);"   ****                                               ****"
10190 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTSS$;"T";FNFLASH$
10195 WORD$="Billing Program"
10200 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTSS$;"B";FNFLASH$
10205 WORD$="Rate Program"
10210 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTSS$;"R";FNFLASH$
10215 WORD$="Month End Report"
10220 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTSS$;"M";FNFLASH$
10221 WORD$="History Program"
10222 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTSS$;"H";FNFLASH$
10225 WORD$="Exit program"
10230 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTSS$;"E";FNFLASH$
10240 WORD$="Make your selection to continue"
10250 PRINT TAB(STAB);FNFLASH$;WORD$;FNDOTSS$;" ";FNFLASH$
10255 PRINT TAB(STAB);FNTOP$
10256 R=14:C=60
10257 GOSUB 20000
10258 PRINT AT$;AN$;
10260 GOSUB 10350
10270 IF TIMEOUT%=1 THEN PRINT CHR$(7);:GOTO 10260
10280 PRINT:PRINT
10290 IF LEFT$(AN$,1)="E" THEN RESET:POKE 255,0:PRINT NORMAL$:SYSTEM
10300 IF LEFT$(AN$,1)="T" THEN PRINT TAB(22);REVERSE$;"LOADING TENANT PROGRAM";NORMAL$:RUN"TENUP
10310 IF LEFT$(AN$,1)="B" THEN PRINT TAB(22);REVERSE$;"LOADING BILLING PROGRAM";NORMAL$:RUN"BILLING
10320 IF LEFT$(AN$,1)="R" THEN PRINT TAB(23);REVERSE$;"LOADING RATE PROGRAM";NORMAL$:RUN"RATE"
10321 IF LEFT$(AN$,1)="H" THEN PRINT TAB(22);REVERSE$;"LOADING HISTORY PROGRAM";NORMAL$:RUN"HISTORY"
10330 IF LEFT$(AN$,1)="M" THEN PRINT TAB(20);REVERSE$;"LOADING MONTH END REPORT PROGRAM";NORMAL$:RUN"COLLECT"
10331 R=26:C=26:GOSUB 20000
10340 PRINT AT$;REVBLINK$;"SELECTION NOT VALID -- ";NORMAL$;CHR$(7):AN$="":FOR XX%=1 TO 5000:FOR XY%=1 TO 9:NEXT XY%:NEXT XX%:GOTO 10150
10350 GOTO 10390
10360 IF TIMEOUT%=1 THEN PRINT CHR$(7);:GOTO 10400
10370 GOTO 10350
10380 RETURN
10390 '
10400 FOR I%=1 TO TIMELIMIT%
10410 AN$=INKEY$:IF LEN(AN$)=0 THEN 10440
10420 PRINT AT$;AN$
10430 IF LEN(AN$)>0 THEN TIMEOUT%=0:RETURN
10440 NEXT I%
10450 TIMEOUT%=1:GOTO 10360
20000 R=R+31:C=C+31:AT$=CHR$(27)+"="+CHR$(R)+CHR$(C):RETURN