|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »RAMMEOS.MAK«
└─⟦0634bcb0f⟧ Bits:30010529 ABA: RTP syndia RC macro DVBS1.SW2114.src.2.6-7 PN 99110141
└─⟦this⟧ »RAMMEOS.MAK«
▶16◀** makro: rammeos bruges til rammer, hvor |verste linie indeholder\r
▶16◀** en overskrift\r
▶16◀** Kald 1: ma rammeos "overskrift" <antal linier>\r
▶16◀** Kald 2: ma rammeos "overskrift" <antal linier> x\r
▶16◀** Hvis der er en tredje parameter (her: x) vil rammen blive\r
▶16◀** "h{vet", dvs. sv{ve i luften\r
▶16◀mk s{t x=$2+4\r
▶16◀mk gruppe $Vx\r
▶16◀mk s{t x=$2+3\r
▶16◀mk s{t t=6\r
▶16◀mk s{t i=$T1+4\r
▶16◀mk s{t l=i+1\r
▶16◀mk s{t b=67-i\r
\r
▶01◀ramme "$Vt 0 -1 $Vl 2"\r
░$1 \r
▶01◀ramme "$Vt 0 -2 1 0"\r
▶01◀skygge "1 -2 1 1"\r
▶01◀ramme "$Vt 0 +$Vi $Vb 0"\r
▶01◀ramme "$Vt 0 -2 0 $Vx"\r
▶01◀ramme "$Vt 0 +67 0 $Vx"\r
▶01◀skygge "1 +$Vi $Vb 1"\r
\r
▶01◀skriv 1 hvis ($P3=1)\r
▶01◀skygge "2 +67 2 $Vx"\r
▶16◀mk s{t x=$2+2\r
▶01◀skygge "1 -2 69 $Vx"\r
▶16◀mk paramlinier $2\r
\r
\r
▶01◀ramme "$Vt 0 -2 69 0"\r
▶01◀skriv 1 hvis ($P3=1)\r
▶01◀skygge "2 +0 69 1"\r
\r
«eof»