10 !!!!!!!! TABLE.BAS WILL ACCEPT FORTRAN TYPE VARIABLE !!!!!!!
	!!!!!!! AND ASSIGN BASIC TYPE VARIABLE NAMES TO THEM !!
	!!!!!!! ELEVEN UNIQUE VARIABLE NAMES ARE USED BY THE !!
	!!!!!!! PROGRAM ALL OTHERS ARE UNASSIGNES BY THE PROGRAM
20 DIM A$(1000)
30 PRINT:PRINT "FORTRAN TO BASIC VARIABLE ASSIGNMENT":PRINT
40 PRINT "TYPE IN THE FORTRAN VARIABLE NAME ONE PER LINE AFTER THE":
	PRINT "QUESTION MARK  *TYPE IN A '-1' TO TERMINATE INPUT":
	PRINT:PRINT "TYPE A '()' AFTER EACH VARIABLE THAT IS BSCRIPTED"
50 PRINT:PRINT
60 INPUT "THE HEADING LABEL IS ";H$
70 INPUT V$:GOTO 90 IF V$="-1":
	GOTO 70 IF LEN(V$)=0% OR ASCII(V$)=32%:FOR I1%=1% TO I%:
	IF V$=A$(I1%) THEN PRINT V$;" IS PRESENT":GOTO 70
80 NEXT I1%:I%=I%+1%:A$(I%)=V$:GOTO 70
90 FOR I1%=1% TO I%-1%:FOR I2%=1% TO I%-1%:
	IF A$(I2%)<A$(I2%+1%) THEN 100 ELSE
	T$=A$(I2%):A$(I2%)=A$(I2%+1%):A$(I2%+1%)=T$
100 NEXT I2%:NEXT I1%
110 PRINT:PRINT:INPUT "DIRECT OUTPUT TO ";F$:F$="KB:" IF LEN(F$)=0%:
	OPEN F$ FOR OUTPUT AS FILE 2%:&%:&#2%:&#2%:
	&#2% "FORTRAN TO BASIC CONVERSION TABLE FOR ";H$:
	&#2%:&#2%
120 I3%=1%
130 T3%=ASCII(A$(I3%)):T%=0%:T1%=0%:&#2%:&#2%:
	&#2% "**********":&#2% "VARIABLE = ";CHR$(T3%):&#2%
140 IF T3%<79% AND T3%>72% THEN T2%=37% ELSE T2%=0%
150 FOR I1%=I3% TO I%
160 &#2% TAB(T1%);CHR$(ASCII(A$(I1%)));CHR$(T%);CHR$(T2%);:
	&#2% "()"; IF INSTR(1%,A$(I1%),"(")>0%:
	&#2% TAB(T1%+5%);"= ";A$(I1%);:T1%=T1%+15%:
	IF T1%=60% THEN &#2%:T1%=0%
170 T%=47% IF T%=0%:T%=T%+1%:IF T%=58% THEN 210
180 IF1%+1%>I% THEN 270
190 IF ASCII(A$(I1%))<>ASCII(A$(I1%+1%)) THEN I3%=I1%+1%:GOTO 130
200 NEXT I1%
210 &#2%:&#2% "*THE FOLLOWING ARE UNASSIGNED"
220 T1%=7%
230 FOR I4%=I1%+1% TO I%:IF ASCII(A$(I1%))<>ASCII(A$(I4%)) THEN 260
240 &#2% TAB(T1%);A$(I4%);:T1%=T1%+15%:
	IF T1%=67% THEN T1%=7%:PRINT
250 NEXT I4%
260 IF I4%=I% THEN 270 ELSE I3%=I4%:GOTO 130
270 &#2% FOR I%=1% TO 5%:&#2% "END OF TABLE":&#2%:&#2%:END