1 KEY OFF
2 COLOR 1, 7
3 DIM AF$(100, 5, 1), NF(100, 5, 1)



400 CLS : PRINT : PRINT : PRINT : PRINT : PRINT "          DATA ENTRY         BY JOEY EVANS    LINE 400": PRINT "===============================================================================": PRINT
401 PRINT "         J.M. LABS EXECUTIVE COMPUTING       MAIN MENU 1"
402 PRINT : PRINT "===============================================================================": PRINT
410 PRINT "1.    LOAD SEQUENTIAL FILE..LANS"
420 PRINT "2.    LOAD SEQUENTIAL FILE..BRIDGES"
430 PRINT "3.    LOAD SEQUENTIAL FILE..ROUTER"
440 PRINT "4.    LOAD SEQUENTIAL FILE..BROUTER"
450 PRINT "5.    LOAD SEQUENTIAL FILE..GATEWAYS"
460 PRINT "6.    LOAD SEQUENTIAL FILE.."
470 PRINT "7.    LOAD SEQUENTIAL FILE.."
484 PRINT "8.    REVIEW SEQ FILE"
485 PRINT
486 PRINT : PRINT "===============================================================================": CODE1 = 0: b = 0
490 INPUT b
492 ON b GOSUB 2000, 2010, 2020, 2030, 2040, 2050, 2060, 8000
500 GOTO 400
2000 NM$ = "7LAN30.txt": NR = 30: AF = 5: NF = 0: NC = 1
2003 GOSUB 3050
2005 RETURN
2010 NM$ = "8LAN40": NR = 40: AF = 5: NF = 0: NC = 1: GOSUB 3050
2015 RETURN
2020 NM$ = "9LAN40": NR = 40: AF = 5: NF = 0: NC = 1: GOSUB 3050
2025 RETURN
2030 NM$ = "11LAN3": NR = 30: AF = 5: NF = 0: NC = 1: GOSUB 3050
2035 RETURN
2040 NM$ = "ROUT.txt": NR = X: AF = 5: NF = 0: NC = 1: GOSUB 3050
2045 RETURN
2050 NM$ = "ROUT.txt": NR = X: AF = 3: NF = 5: NC = 1: GOSUB 3050
2055 RETURN
2060 NM$ = "ROUT.txt": NR = X: AF = 3: NF = 5: NC = 1: GOSUB 3050
2065 RETURN
2950 RETURN: REM=========
3000 REM ************************* NEW SEQUENTIAL FILE LOADER
3010 PRINT "FILE NAME IS...": INPUT NM$
3015 PRINT "HOW MANY ROWS/RECORDS": INPUT NR
3020 PRINT "HOW MANY ALPHA FIELDS": INPUT AF
3025 PRINT "HOW MANY NUMERIC FIELDS": INPUT NF
3030 PRINT "HOW MANY COLUMNS 0R PAGES": INPUT NC
3050 PRINT NM$
3055 OPEN "I", #1, NM$
3090 REM
3100 FOR a% = 1 TO NR
3105 FOR b% = 1 TO AF
3110 INPUT #1, AF$(a%, b%, 1): PRINT AF$(a%, b%, 1)
3115 NEXT b%
3120 FOR b% = 1 TO NF
3125 INPUT #1, NF(a%, b%, 1)
3130 NEXT b%
3140 REM
3150 NEXT a%
3155 CLOSE #1: PRINT "fini": INPUT tt: PRINT "fini"
3190 RETURN
4000 REM ************************* NEW SEQUENTIAL FILE SAVER
4050 OPEN "O", #1, NM$
4090 FOR C% = 1 TO NC
4100 FOR a% = 1 TO NR
4105 FOR b% = 1 TO AF
4110 PRINT #1, AF$(a%, b%, C%)
4200 NEXT b%
4400 FOR b% = 1 TO NF
4510 PRINT #1, NF(a%, b%, C%)
4550 NEXT b%
4600 NEXT a%
4650 NEXT C%
4660 CLOSE #1
4690 RETURN
4700 REM ====================================   DELIMITER FORMATING
6730 CLOSE #2
6740 END
7000 REM ********************************** CREATE SEQUENTIAL FILE ROUTINE
7010 PRINT "FILE NAME IS...": INPUT NM$
7015 PRINT "HOW MANY ROWS/RECORDS": INPUT NR
7020 PRINT "HOW MANY ALPHA FIELDS": INPUT AF
7025 PRINT "HOW MANY NUMERIC FIELDS": INPUT NF
7030 PRINT "HOW MANY COLUMNS 0R PAGES": INPUT NC
7040 PRINT "START AT WHICH RECORD": INPUT ST
7045 PRINT "STOP AT WHICH RECORD": INPUT SP
7055 PRINT "START AT WHICH COLUMN": INPUT CST
7056 PRINT "STOP AT WHICH COLUMN": INPUT CSTOP
7090 FOR C% = CST TO CSTOP
7100 FOR a% = ST TO SP
7105 FOR b% = 1 TO AF
7108 T9 = 999
7109 PRINT "RECORD NO."; a%; ", FIELD "; b%; "="; F$(b%): INPUT "TYPE 1 TO CHANGE THIS FIELD"; T9
7110 IF T9 <> 1 THEN 7120
7118 INPUT AF$(a%, b%, C%)
7120 NEXT b%
7130 FOR b% = 1 TO NF
7137 T9 = 9
7139 PRINT "RECORD NO."; a%; ", FIELD "; AF + b%; "="; F$(b% + AF): INPUT "TYPE 1 TO CHANGE THIS FIELD"; T9
7142 IF T9 <> 1 THEN 7150
7145 INPUT NF(a%, b%, C%)
7150 NEXT b%
7160 NEXT a%
7170 NEXT C%
7180 RETURN
8000 REM ********************************** REVIEW SEQUENTIAL FILE ROUTINE
8010 PRINT "HEYY!!!!!!!!!!!!"
8090 REM
8100 FOR a% = 1 TO NR
8104 PRINT "RECORD NUMBER = "; a%,
8105 FOR b% = 1 TO AF: INPUT xx
8110 PRINT AF$(a%, b%, 1); "  ";
8120 NEXT b%
8130 FOR b% = 1 TO NF
8145 PRINT NF(a%, b%, 1); "  ";
8150 NEXT b%
8155 INPUT NX
8156 PRINT
8160 NEXT a%
8170 REM
8175 INPUT HEY
8180 RETURN
9000 PRINT "===============================================================================": PRINT "     J.M. LABS      SUPERFLEX  ACCOUNTING  SOFTWARE       BY JOE ANDERSON EVANS"