DIM f(10)
REM Data entry program for filb
REM get name, data
CLS
1 INPUT "name of object"; n$
 REM input data

10 INPUT "aspect ratio=INT (L/W) (if >7 then =7)"; AR
 INPUT "curvature: 0=blocked or 1=rounded"; curv
 INPUT "Does it have an eye (y=1,n=0)"; eye
 INPUT "fill color for: RED   (0-15)"; red
 INPUT "                Green (0-15)"; green
 INPUT "                Blue  (0-15)"; blue
 INPUT "        Shiney (0) or dull (1)"; sd
 INPUT "        Brightness (0-7)"; bright
INPUT " are these the correct parameters"; nnnn$
IF nnnn$ = "n" OR nnnn$ = "N" THEN GOTO 10
vis$ = ""
IF AR > 7 THEN GOTO 10
acc = AR + 1
FOR i = 2 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vis$ = vis$ + "0"
        ELSE
        vis$ = vis$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i
IF curv > 1 THEN GOTO 10
vis$ = vis$ + CHR$(curv + ASC("0"))
IF eye > 1 THEN GOTO 10
vis$ = vis$ + CHR$(eye + ASC("0"))
IF red > 15 THEN 10
acc = red + 1
FOR i = 3 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vis$ = vis$ + "0"
        ELSE
        vis$ = vis$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i
IF green > 15 THEN 10
acc = green + 1
FOR i = 3 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vis$ = vis$ + "0"
        ELSE
        vis$ = vis$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i
IF blue > 15 THEN 10
acc = blue + 1
FOR i = 3 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vis$ = vis$ + "0"
        ELSE
        vis$ = vis$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i

IF sd > 1 THEN GOTO 10
vis$ = vis$ + CHR$(sd + ASC("0"))

IF bright > 7 THEN 10
acc = bright + 1
FOR i = 2 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vis$ = vis$ + "0"
        ELSE
        vis$ = vis$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i

20 CLS
FP$ = ""
PRINT "fill pattern:"
FOR i = 1 TO 4
21  PRINT "   (4 bits-across level"; i; ")"; : INPUT f(1), f(2), f(3), f(4)
IF f(1) > 1 OR f(2) > 1 OR f(3) > 1 OR f(4) > 1 THEN 21
        FOR j = 1 TO 4
                FP$ = FP$ + CHR$(f(j) + ASC("0"))
        NEXT j
NEXT i
INPUT "is this the correct fill pattern"; nnnn$
IF nnnn$ = "n" OR nnnn$ = "N" THEN GOTO 20
vis$ = vis$ + FP$

30 INPUT "size = int((Lbass/Lobject)+.5) (if  >7 then =7) "; sze
IF sze > 7 THEN GOTO 30
acc = sze + 1
FOR i = 2 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vis$ = vis$ + "0"
        ELSE
        vis$ = vis$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i

40 INPUT "speed = INT(Sbass/Sobject) (if Sobject=0 then 7)"; speed
IF speed > 7 OR speed < 0 THEN 40
acc = speed + 1
FOR i = 2 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vis$ = vis$ + "0"
        ELSE
        vis$ = vis$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i

50 PRINT "   motion path (6 bits) (L=1,R=0)"; : INPUT f(1), f(2), f(3), f(4), f(5), f(6)
INPUT "is this the correct path"; nnnn$
IF nnnn$ = "n" OR nnnn$ = "N" THEN GOTO 50
IF f(1) > 1 OR f(2) > 1 OR f(3) > 1 OR f(4) > 1 OR f(5) > 1 OR f(6) > 1 THEN 50
        FOR j = 1 TO 6
                vis$ = vis$ + CHR$(f(j) + ASC("0"))
        NEXT j

PRINT "visual cue string="; vis$
PRINT "length of total string= "; LEN(vis$); " bits"
INPUT "hit enter to continue"; nnnn$
xinp$ = vis$

REM scent cues
scent$ = ""
100 INPUT "Scent components (each 0-3) Lipid="; lpd
INPUT "                        Protien="; prot
INPUT "                        mineral="; miner
IF lpd > 3 OR prot > 3 OR miner > 3 THEN GOTO 100
INPUT "is this the CORRECT scent type"; nnnn$
IF nnnn$ = "n" OR nnnn$ = "N" THEN GOTO 100
acc = lpd + 1
FOR i = 1 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        scent$ = scent$ + "0"
        ELSE
        scent$ = scent$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i
acc = prot + 1
FOR i = 1 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        scent$ = scent$ + "0"
        ELSE
        scent$ = scent$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i
acc = miner + 1
FOR i = 1 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        scent$ = scent$ + "0"
        ELSE
        scent$ = scent$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i

110 INPUT "scent strength(0-7)="; sstr
IF sstr > 7 OR sstr < 0 THEN 110
INPUT "is this the CORRECT scent strength"; nnnn$
IF nnnn$ = "n" OR nnnn$ = "N" THEN GOTO 110
acc = sstr + 1
FOR i = 2 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        scent$ = scent$ + "0"
        ELSE
        scent$ = scent$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i

PRINT "scent cue string="; scent$
PRINT "length of total string= "; LEN(scent$); " bits"
INPUT "hit enter to continue"; nnnn$
xinp$ = xinp$ + scent$

REM vibrational cues
vibr$ = ""
200 INPUT "vibrational psudeo-spectra (8bits)="; f(1), f(2), f(3), f(4), f(5), f(6), f(7), f(8)
FOR i = 1 TO 8
        IF f(i) > 1 OR f(i) < 0 THEN 200
NEXT i
INPUT "is this the CORRECT pseudo-spectra"; nnnn$
IF nnnn$ = "n" OR nnnn$ = "N" THEN GOTO 200
FOR i = 1 TO 8
        vibr$ = vibr$ + CHR$(f(i) + ASC("0"))
NEXT i
210 INPUT "vibrational strength (0-7) (7=very loud, 0=silent)"; vibrstr
IF vibrstr > 7 OR vibrstr < 0 THEN 210
INPUT "is this the CORRECT strength"; nnnn$
IF nnnn$ = "n" OR nnnn$ = "N" THEN GOTO 210
acc = vibrstr + 1
FOR i = 2 TO 0 STEP -1
IF (acc - 2 ^ i) <= 0 THEN
        vibr$ = vibr$ + "0"
        ELSE
        vibr$ = vibr$ + "1"
        acc = acc - 2 ^ i
END IF
NEXT i

PRINT "vibrational cue string="; vibr$
PRINT "length of total string= "; LEN(vibr$); " bits"
INPUT "hit enter to continue"; nnnn$
xinp$ = xinp$ + vibr$

PRINT "xinput string="; xinp$
PRINT "length of total string= "; LEN(xinp$); " bits"
INPUT "save(y=yes)"; svew$
IF svew$ = "n" OR svew$ = "N" THEN 500
INPUT "food (=1) or no food( =-1)"; bitavd
INPUT "hit enter to continue"; nnnn$


REM save data set
INPUT "data file name and directory="; fil$
REM page to end of file
OPEN fil$ FOR APPEND AS #1
PRINT #1, n$
PRINT #1, xinp$
PRINT #1, bitavd
CLOSE #1
500 INPUT "do you wish to input another data item"; nnnn$
IF nnnn$ = "Y" OR nnnn$ = "y" THEN GOTO 1 ELSE END
END