Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0102/infran.bas
There are 2 other files named infran.bas in the archive. Click here to see a list.
00002	REM INFRAN SAPSFORD/NADDOR 75
00004	REM WEAVE INTO INFSAR
00140 N8=20
00142 N9=10
00144 DIM N(200)
00146 MAT READ N
00150 DATA 65,68,65,77,83,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00151 DATA 66,82,79,87,78,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00152 DATA 67,72,65,83,69,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00153 DATA 67,76,65,82,75,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00154 DATA 68,65,86,73,83,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00155 DATA 70,82,65,78,75,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00156 DATA 71,65,82,82,69,84,84,1,1,1,1,1,1,1,1,1,1,1,1,1
00157 DATA 71,82,69,69,78,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00158 DATA 72,79,87,65,82,68,1,1,1,1,1,1,1,1,1,1,1,1,1,1
00159 DATA 74,79,72,78,83,79,78,1,1,1,1,1,1,1,1,1,1,1,1,1
00170 DEF FNT(X,Y)
00172 X=FNR(X,Y)
00174 IF X<32 THEN 178
00176 X=X+1
00178 FNT=X
00180 FN END
00950 T2=4.5
10000 F7=0				'RANDOM  GENERATOR	10000
10010 ' F2=1 FOR DETAILS,=2 FOR COUNT ONLY
10015 IF NUM<>3 THEN 990
10020 T$=S$(2)+S$(3)
10024 GOSUB 81000
10026 IF F4=-1 THEN 990
10030 F2=VAL(S$(2))
10040 K9=VAL(S$(3))
10050 IF K9<1 THEN 1000
10060 IF F2<>1 THEN 10100
10070 PRINT U0$
10080 PRINT
10090 MAT T=ZER
10100 FOR L1=1 TO K9
10110 S(0)=G9-1
10120 FOR I=1 TO C9
10122 C1=C(I,1)
10124 C2=C(I,2)
10126 C3=C1+C2-1
10130 ON C(I,3) GOTO 11010,13010,14010,15010,15010,11050
10140 NEXT I
10150 CHANGE S TO V$
10160 IF F2=2 THEN 10200
10165 S$=V$
10170 GOSUB 60000
10180 PRINT
10190 GOTO 10210
10200 PRINT L1;
10210 V$(L1)=V$+CHR$(1)
10220 NEXT L1
10230 IF F2<>1 THEN 10260
10240 IF F7<2 THEN 10260
10250 GOSUB 34000
10260 GOSUB 51000
10290 GOTO 1000
11000 'NAMES
11010 IF C2<4 THEN 11050
11015 IF C2>N8 THEN 11050
11020 T=FNR(0,N9-1)*N8+1
11025 FOR J=C1 TO C3
11030 S(J)=N(T)
11035 T=T+1
11040 NEXT J
11045 GOTO 10140
11050 FOR J=C1 TO C3
11055 S(J)=FNR(65,90)
11060 NEXT J
11070 GOTO 10140
13000 'DATES
13010 S(C1)=FNT(15,114)
13020 S(C1+1)=FNR(16,27)
13030 S(C1+2)=FNT(16,43)
13040 GOTO 10140
14000 'SSN
14010 S(C1)=FNR(15,24)
14020 FOR J=C1+1 TO C3
14030 S(J)=FNT(25,114)
14040 NEXT J
14050 GOTO 10140
15000 'NUMBERS
15010 IF INT(C(I,4))/2=INT(INT(C(I,4))/2) THEN 15040
15020 S(C1)=FNR(15,24)
15030 GOTO 15050
15040 S(C1)=FNT(15,114)
15050 FOR J=C1+1 TO C3
15060 S(J)=FNT(15,114)
15070 NEXT J
15100 GOTO 10140
99999 END
IIIAAAA>>AAA>						AA@@@@IIIAAA				)F~~``III6~~FIII1*U*&*