0 BEGIN PGM 8150_nl MM 
1 ;**********************************
2 ;Er wordt een machineparameter
3 ;uitgelezen en in Q1 opgeslagen.
4 ;Q1 bevat dan een decimale waarde
5 ;die in een binaire waarde moet
6 ;worden opgedeeld.
7 ;In de tabel BIT.tab wordt dan de
8 ;betreffende bit ingesteld, die
9 ;aansluitend afzonderlijk kan
10 ;worden uitgelezen.
11 ;**********************************
12 ;***Machineparameters uitlezen
13 ;**********************************
14 FN 18: SYSREAD Q1 = ID1000 NR730
15 ;**********************************
16 ;***Parameters terugzetten
17 ;**********************************
Q10 = - 1 ;Teller terugzetten
Q100 = 1 ;Getal voor tabelinvoer
18 ;**********************************
19 ;Tabel kopiëren
20 FUNCTION FILECOPY "8150-1-nl.tab" TO "BIT.tab"
21 FN 26: TABOPEN BIT.tab
22 LBL 1
Q10 = Q10 + 1 ;Teller cycli
Q1 = Q1 / 2 ;DEC-waarde delen
Q2 = FRAC Q1 ;Decimalen scheiden
Q1 = INT Q1 ;Posities voor de komma scheiden
Q3 = Q1 + Q2
23 ;Controle of nog verdere berekeningen nodig zijn
24 FN 9: IF +Q3 EQU +0 GOTO LBL "END"
25 FN 9: IF +Q2 EQU +0 GOTO LBL 1
26 ;Q10 converteren naar string QS1
QS1 = TOCHAR( DAT+Q10 )
27 ;Waarde uit Q100 (1) in tabel schrijven
28 FN 27: TABWRITE 0 / QS1 = Q100
29 ;Terugsprong
30 FN 9: IF +0 EQU +0 GOTO LBL 1
31 LBL "END"
32 END PGM 8150_nl MM