bwBASIC/T80C/SETUP.BAS

1 MERGE "MERGE.BAS"
 :GOSUB 32000



3100 REM
3110 TN = 1
3120 HN = 1
3130 F = 0
3140 V(1) = 1
3150 OPEN "O",1,PI$
    :WRITE #1,TN,HN,F
    :FOR N=1 TO TN-1
    :  WRITE #1,V(N)
    :NEXT
    :CLOSE 1

3200 REM
3210 OPEN "R",2,PD$
3230 JR = 1: HR = 1
3240 FIELD 2, 19 AS FD$, ZINT AS FQ$, ZSNG AS FC$, ZSNG AS FP$, 10 AS FL$, ZINT AS FR$, ZINT AS FA$, ZINT AS FO$, 8 AS FM$, 6 AS FV$, ZINT AS P1$, ZINT AS P2$
3250 LSET FD$=ID$:RSET FQ$=MKI$(IQ%):RSET FC$=MKS$(IC)
3260 RSET FP$=MKS$(IP):LSET FL$=IL$:RSET FR$=MKI$(IR%):RSET FA$=MKI$(IN%)
3270 RSET FO$=MKI$(IO%):LSET FM$=IM$:LSET FV$=IV$:RSET P1$=MKI$(P1):RSET P2$=MKI$(P2)
3280 PUT 2,JR:CLOSE 2

3300 REM
3310 OPEN "O",3,PT$:WRITE #3,TC#,TP#,TR#,TI,HI:CLOSE 3

3400 REM
3410 OPEN "R",3,PS$:FIELD 3, 10 AS N$:LSET N$=IS$:PUT 3,JR:CLOSE 3

3500 REM
3510 OPEN "R",1,PR$:FIELD 1,10 AS H1$,ZINT AS H2$:LSET H1$=HA$:RSET H2$=MKI$(HB):PUT 1,HR:CLOSE 1

9999 END