1 REM Ins{nd av Bo Kullmar <1789>    1985-01-06 10.25.05
2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     ABCFIL.800
4 ! Utg}va  2.1      1985-01-06
5 ! av (c) Bo Kullmar
9 ! Ins{nt av Bo Kullmar, medlem 1789
10 ! Skapar filen Inifil$ till ABCTERM.800
11 ! +++++++++++++++++++++++++++++++++++
12 EXTEND : INTEGER 
13 ON ERROR GOTO 1020
100 COMMON Parv24$=16,Parpr$=15,Dimbuff,Pf(32),Pf$(32)=81,Meny$(32)=14
110 COMMON Logginnr,Medlemsnr,L|senord$=5,Prom.,Duplex$=11,Enh$=4
120 COMMON Pftkn$(32)=1,Tscreen$=2048,Curpos,]ter,Dator$=8,Inifil$=16,Pfpekare
130 COMMON R|d$=1,Gul$=1,Bl}$=1,Gr|n$=1,Cyan$=1,Magneta$=1,Dubel$=1
300 DIM In$=80,Pftext$=1000
500 IF Dator$='' THEN CHAIN 'START.BAC'
1000 Z=FNSkapaini : F|rsta=-1
1010 CHAIN Enh$+'ABCTERM.BAC'
1020 ; 'FELKOD NR' ERRCODE
1030 END 
2000 ! Fibeskrivning ABCTERM.INI
2010 ! Parameter f|r V24      16 Bytes $
2020 ! Parameter f|r PR:      15 Bytes $
2030 ! Buffertstolek           2 Bytes %
2040 ! Rutinnr f|r 1-32        1 Byte per rutin i ASCII
2050 ! Poster 1-32
2060 ! Antal tecken            1 Byte i ASCII
2070 ! Ev nr p} Pf             1 Byte i ASCII
2080 ! Str{ng                 80 Bytes $
2090 ! Menytext               14 Bytes $
3000 DEF FNSkapaini
3010   PREPARE Inifil$ AS FILE 10
3020   IF Prom.=7.1 THEN Parv24$='V24:TEA70C72.2  ' : Parpr$='PR:VSA36C72.5 '
3030   IF Prom.=7.2 OR Prom.=7.21 THEN Parv24$='V24:TEA70A72.22A' : Parpr$='PR:VSA36A72.55A'
3040   Dimbuff=5000
3050   PUT #10,Parv24$
3060   PUT #10,Parpr$
3070   PUT #10,CVT%$(Dimbuff)
3080   Pf(1)=3 : Pf(9)=4 : Pf(24)=10
3090   Meny$(1)='Meny' : Meny$(9)='Set up mode' : Meny$(24)='Avslutning'
3100   L|senord$=SPACE$(5)
3110   ! F|r varje text som skall skapas vid initeringen av filen skall
3120   ! det anges t ex = Pf$(8)=Chr$(199)+'Sluta'+Chr$(13)
3130   FOR I=1 TO 32
3140     IF Pf(I)=0 THEN Pf(I)=1
3150     PUT #10,CHR$(Pf(I))
3160   NEXT I 
3170   FOR I=1 TO 32
3180     PUT #10,CHR$(0)
3190     PUT #10,SPACE$(81)
3200     L{ngd=LEN(Meny$(I))
3210     IF L{ngd<15 THEN Meny$(I)=Meny$(I)+SPACE$(14-L{ngd)
3220     PUT #10,Meny$(I)
3230   NEXT I 
3270   RETURN 0
3280 FNEND