.;
.;
.; LB:[1,2]PFT.CMD F\R DEFINITION AV EGNA STANDARDORD
.;
.;	HISTORIK:
.;	DATUM	NAMN			]TG[RD
.;	870302	B-E TAPPER		F[RDIGST[LLT F\R ALLM[NT BRUK
.;
.;
.ENABLE SUBSTITUTION
.DISABLE DISPLAY
.ENABLE GLOBAL
.ENABLE ESCAPE
.DISABLE DECIMAL
.;
.ENABLE LOWERCASE
.SETS ALET "A"
.SETS DLET "D"
.SETS HLET "H"
.SETS JLET "J"
.SETS MLET "M"
.SETS NLET "N"
.SETS ULET "U"
.SETS BLLET " "
.SETS CRLET "
"
.SETS DOLET "$"
.;
.SETS UASCII "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
.SETS LASCII "abcdefghijklmnopqrstuvwxyz"
.;
.DISABLE LOWERCASE
.GOTO MERA
.;
.MERA:
;
;#6MENY f|r STANDARDORD
;
;H = Hj{lp !
;D = Definiera eller {ndra standardordlistan '$ANVND'.
;U = Skriva ut standardordlistan p} skrivare.
;A = Avsluta (]terg} till MENY f|r -96)
;
.ASKS VAD Ange bokstav>
.IF <STRLEN> EQ 0 .GOTO MERA
.;
.;
.SETF ED
.SETF PRT
.;
.IF ALET EQ VAD[1:1] .EXIT
.IF HLET EQ VAD[1:1] .GOTO HELP
.IF ULET EQ VAD[1:1] .SETT PRT
.IFT PRT .GOTO EDIT
.IF DLET EQ VAD[1:1] .SETT ED
.IFT ED .GOTO EDIT
;'VAD' kunde jag inte f|rst}.
.GOTO MERA
.;
.;
.;
.HELP:
;Litet HJ[LP med standardordlista.
;
;F|r att underl{tta stavning av l}nga eller sv}ra ord finns m|jlighet att
;anv{nda PF-tangenter f|r detta. De v{rden, som lagras i standardordlistan
;saboterar inte de vanliga standardv{rden, som inlagts med -104, utan de
;v{rden, som inlagts med -104 g{ller som f|rut.
;Om Du anger samma tangent tv} g}nger i tabellen g{ller sista v{rdet.
;
;Du har m|jlighet att skapa, lagra och skriva ut en standardordlista.
;Om Du har skapat en s}dan kan Du lagra upp till ett 50-tal olika ord eller
;sekvenser av tangentnedtryckningar i de programmerbara PF-tangenterna.
;Antalet beror p} Din terminaltyp.
;Det totala antalet tecken i alla tangenterna tillsammans {r begr{nsat.
;Begr{nsningen {r olika f|r olika terminaler.
;
;Genom att trycka p} <ESC> f|r n}gon tangent definieras den som helautomatisk
;ombrytning med "$ "-metoden. Fr}ga staben om Du vill veta mera.
;
;N{r standardordet eller sekvensen ska matas in fr}gar jag efter delimiter.
;En delimiter {r ett tecken, som helt s{kert inte ing}r i det ord eller den
;sekvens, som Du vill mata in. Default {r "~".
;
.ASKS VAD Tryck <RETURN> f|r }terg}ng till menyn >
;
.GOTO MERA
.;
.;
.EDIT:
.IFT ED ;STANDARDORD - [NDRING '$ANVND'. Svara J f|r JA , N eller <RETURN> f|r NEJ.
.IFT PRT ;STANDARDORD - UTSKRIFT '$ID'. Svara J f|r JA , N eller <RETURN> f|r NEJ.
.;
.TESTFILE TNG'$PUSER'.DEF
.IF <FILERR> NE 1 ;Inga standardord {r upplagda.
.IF <FILERR> EQ 1 ;Det finns standardord tidigare.
;
.IF <FILERR> NE 1 .IFT PRT .GOTO MERA
.;
.IFT PRT .GOTO JOPR
.;
.SETF OLDF
.IF <FILERR> EQ 1 .SETT OLDF
.ENABLE CONTROL-Z
.SETF <EOF>
.ENABLE LOWERCASE
;
;Anv{nd <CTRL><Z> f|r avbryt, <RETURN> f|r ()-v{rdet.
;
.IFT OLDF .OPENR #1 TNG'$PUSER'.DEF
.OPEN TNG'$PUSER'.DEF
.SETS DNUM "0"
.;
.RDMORE:
.;
.ENABLE DECIMAL
.SETN JNUM 'DNUM'
.INC JNUM
.;
.SETS DNUM "'JNUM'"
.IFT OLDF .READ #1 DNUM
.IFT <EOF> .CLOSE #1
.IFT <EOF> .SETF OLDF
.SETF <EOF>
.;
.TNUMI:
;
.SETS SLUTA ""
.IFF OLDF .SETS SLUTA ", <ESC>=SLUT"
.ASKN [1.:25.:'DNUM'.] TNUM Ange tangentnummer'SLUTA'. ('DNUM') >
.IFT <EOF> .GOTO ABRT
.IFT <ESCAPE> .IFT OLDF ;Vad} <ESC> ?
.IFT <ESCAPE> .IFT OLDF .GOTO TNUMI
.IFT <ESCAPE> .GOTO FINIS
.SETS DNUM "'TNUM'"
.DATA 'DNUM'
.DISABLE DECIMAL
.;
.SETS DASTR "U"
.IFT OLDF .READ #1 DASTR
.IFT <EOF> .GOSUB SYSFEL
.;
.CASTRI:
;
.ASKS [1:1:DASTR] CASTR Ange U f|r Utan <SHIFT>, M f|r med. ('DASTR') >
.IFT <EOF> .GOTO ABRT
.IF MLET EQ CASTR .GOTO CAOK
.IF ULET EQ CASTR .GOTO CAOK
;Vad} 'CASTR' ?
.GOTO CASTRI
.CAOK:
.SETS DASTR CASTR
.DATA 'DASTR'
.;
.IFT OLDF .READ #1 DUMMY
.IFT <EOF> .GOSUB SYSFEL
.;
.SETS ASCII LASCII
.IF DASTR EQ MLET .SETS ASCII UASCII
.SETS TGKOD ASCII['DNUM':'DNUM']
.DATA 'TGKOD'
.;
.SETS DLSTR "~"
.IFT OLDF .READ #1 DLSTR
.IFT <EOF> .GOSUB SYSFEL
.;
.TLSTRI:
;
.ASKS [1:1:DLSTR] TLSTR Ange delimiter ('DLSTR') >
.IFT <EOF> .GOTO ABRT
.IFT <ESCAPE> ;Vad} <ESC> ?
.IFT <ESCAPE> .GOTO TLSTRI
.SETS DLSTR TLSTR
.DATA 'DLSTR'
.;
.SETS DRSTR "<"
.IFT OLDF .READ #1 DRSTR
.IFT <EOF> .GOSUB SYSFEL
.;
.TRSTRI:
;
.ASKS [1:1:DRSTR] CRSTR Ange tecken i st{llet f|r <RETURN>. ('DRSTR') >
.IFT <EOF> .GOTO ABRT
.IFT <ESCAPE> ;Vad} <ESC> ?
.IFT <ESCAPE> .GOTO TRSTRI
.SETS DRSTR CRSTR
.DATA 'DRSTR'
.;
.;
.SETS DPFTX "Hexa$ decimal$ konfi$ gura$ tions$ para$ meter"
.IFT OLDF .READ #1 DPFTX
.IFT <EOF> .GOSUB SYSFEL
.;
;
;Anv{nd <CTRL><Z> f|r avbryt, <RETURN> f|r ()-v{rdet, <ESC> f|r "$ "-sekvens.
;Anv{nd <LINE FEED> f|r hopp rakt ned}t, <'DRSTR'> f|r ny rad.
;
.PFTXI:
;
;Ange ord eller sekvens ('DPFTX'):
.ASKS [1:130.:DPFTX] TPFTX >
.IFT <EOF> .GOTO ABRT
.;.IF <STRLEN> EQ 1 .IF DOLET EQ TPFTX .SETS TPFTX "0P0wS/$/-/W0M'DRSTR'"
.IFT <ESCAPE> .SETS TPFTX "0P0t0n0P0u0P0x"
.IFT <ESCAPE> .SETS TPFTX TPFTX+"0P0t"
.IFT <ESCAPE> .SETS TPFTX TPFTX+"0P0wS/$ //W0M'DRSTR'"
.IFT <ESCAPE> .SETS TPFTX TPFTX+"0P0t"
.IFT <ESCAPE> .SETS TPFTX TPFTX+"0P0wS/$/-/W0M'DRSTR'"
.SETS DPFTX TPFTX
.TEST DPFTX
.IF <STRLEN> LT 1 ;F\R KORT
.IF <STRLEN> LT 1 .GOTO PFTXI
.;
.SETN STRPAR <STRLEN>-1
.IF STRPAR EQ 0 .IF DRSTR EQ DPFTX[<STRLEN>:<STRLEN>] .GOSUB SYSFEL
.TEST DPFTX
.IF DRSTR EQ DPFTX[<STRLEN>:<STRLEN>] .SETS DPFTX DPFTX[1:STRPAR]+CRLET
.TEST DPFTX
.PFIGEN:
.PARSE DPFTX DRSTR A B
.IF <STRLEN> NE 2 .GOTO PFOK
.SETS DPFTX A+CRLET+B
.GOTO PFIGEN
.;
.PFOK:
.;
.DATA 'DPFTX'
.GOTO RDMORE
.;
.ABRT:
.CLOSE
.IFT OLDF .CLOSE #1
.ENABLE QUIET
PIP TNG'$PUSER'.DEF;0/DE
.DISABLE QUIET
.DISABLE CONTROL-Z
.DISABLE DECIMAL
.DISABLE LOWERCASE
;
;Avbrott. Inget {ndrat.
.GOTO MERA
.;
.;
.FINIS:
.;
.CLOSE
.DISABLE DECIMAL
.DISABLE CONTROL-Z
.;.DISABLE LOWERCASE !ON\DIGT - SE NEDAN
.;
.;
.ENABLE LOWERCASE
.SETS FRAG "Vill Du ha standardorden utskrivna"
.DISABLE LOWERCASE
.GOSUB TESTA
.IFF JA .GOTO NIXPR
.;
.JOPR:
;
;SKRIV INTE UT standardordlistan om du har specialtangenter lagrade i den.
;
;V{lj absolut inte lokal utskrift om Du inte har egen skrivare.
.ENABLE LOWERCASE
.SETS FRAG "Lokal utskrift p} Din egen skrivare"
.DISABLE LOWERCASE
.GOSUB TESTA
.IFT JA ;Utskrift sker p} Din egen skrivare. Den {r v{l p} ?
.ENABLE QUIET
.IFT JA SET /NOECHO=TI:
.DISABLE QUIET
.IFT JA ;W
.ENABLE QUIET
.IFT JA TYP TNG'$PUSER'.DEF
.DISABLE QUIET
.IFT JA ;X
.ENABLE QUIET
.IFT JA SET /ECHO=TI:
.DISABLE QUIET
.IFT JA .GOTO NIXPR
.ENABLE LOWERCASE
.SETS FRAG "Snygg utskrift p} sk|nskrivaren"
.DISABLE LOWERCASE
.GOSUB TESTA
.IFT JA ;Utskrift sker p} sk|nskrivaren i korridoren vid Gamlis kontor.
.ENABLE QUIET
.IFT JA PRI NP:=TNG'$PUSER'.DEF
.DISABLE QUIET
.IFT JA .GOTO NIXPR
;Utskrift sker p} systemprintern hos staben.
.ENABLE QUIET
PRI TNG'$PUSER'.DEF
.DISABLE QUIET
.;
.;
.NIXPR:
.ENABLE QUIET
.IFT JA PIP TNG'$PUSER'.DEF/PU/NM
.DISABLE QUIET
.GOTO MERA
.;
.;
.;
.TESTA:
.SETF JA
.ASKS TST 'FRAG' ?
.IF <STRLEN> EQ 0 .RETURN
.IF NLET EQ TST[1:1] .RETURN
.IF JLET EQ TST[1:1] .SETT JA
.IFT JA .RETURN
;Vad} "'TST'" ?
.GOTO TESTA
.;
.;
.SYSFEL:
;SYSTEMFEL - Ring 120.
.SETF OLDF
.SETF <EOF>
.PAUSE
.RETURN
.;
.; <EOF> PFT.CMD
.;