File: LAYOUT.TE of Tape: Various/ETH/htb1

(Source file text) 

---

LAYOUT ROUTINEN
---------------
werden geladen mit  LAYOUT.LD

Routinen sind gekennzeichnet durch
	@@C  am anfang  (c=routinen char)
	@@CE  am ende.


O: PAGE OUT  ("P" ZU GEFAEHRLICH)
   (LETZTE ZEILE ANGEBEN: #MO)
@@O
U9 1%9 !1! J Q9L !2! S@0A-98"E1A-101"EJQ9L 1%9 I@be
@ba
'' !3! JQ9L   12I!(FF)!
!4! 0,.P0,.K0MH
!5! MA MS ML
@@OE

1	LETZTE ZEILE (Q9)
2	WENN IN TEXTBLOCK, @be, @ba EINSETZEN
3	FF ANHAENGEN
4	RAUSSCHREIBEN, LOESCHEN, NEUER KOPF
5	NEUE SEITE ANSCHLIESSEN




A: APPEND UND KOPF WEG

@@A
ZJ !T2! -L 0A-13"EOT2'0A-10"EOT2'
!1! L .UZ !2! A QZJ S-   0LK 
!3! QZJ !T1! L 0A-13"EOT1' 0A-10"EOT1'
!4! QZ,.K
@@AE

1	LETZTER CHAR=QZ
2	APPEND, KOPF WEG
3	SUCHE ERSTEN CHAR
4	LEERZEILEN LOESCHEN
!


L: LISTE DER BLOECKE

@@L
!1!ZUZ 0UL J !#3!L1%L 0A"EOEND'
!2!0A-64"E
!3!.U1 1AU2 ZJI  QL\ I  (Q2-32)I  Q1J
!4!2A-101"E .U1 ZJ -D I/  Q1J' O#3'
!5!5<0A-45"NO#4'C>
!6!.U1 -L X1 ZJ I
  QL\I  -   G1  Q1J O#3
!7!!#4!O#3 
!END!QZ,ZTQZ,ZK




@@LE


1	LETZTE ZEILE ?
2	CHAR=@ ?
3	JA, IN LISTE
4	BLOCK ENDE
5	UEBERSCHRIFT ? (-----)
6	JA, IN LISTE
7	LISTE TIPPEN





M: BLOECKE SCHIEBEN

@@M

ZUZ ZJ 
ERSTE ZEILE: 
 !T1! ^TI -1A"C OT1'

LETZTE: 
 !T2! ^TI -1A"C OT2'

VOR ZEILE: 
 !T3! ^TI -1A"C OT3'
QZJ \U7 C\U8 C\U9 0LK
JQ7L.U1 JQ8+1L.U2 JQ9L.U3
Q1,Q2X1 Q3J G1 Q3-Q1"GQ1,Q2KOT4' Q2,2*Q2-Q1K
!T4!
@@ME





B: BLOCK ADJUST
@@B
!BLOCK:@ba -@be!
S@ba.U1 S@be.-5U2  Q1JL
!1! L.-Q2"G Q1J O2' -2D I  -1%2 O1
!2! 66C 
!3! 0A-32"E O4' R O3
!4!D I

 3%2  Q2-.-64"G O2'Q1J 
!5!:S  "EQ1JO6' Q2-."G2RD-1%2 O5'Q2J
Q1J
!6!.-Q2"GOEND'L0A-32"ED-1%2'O6!END!
@@BE





H: HEADER  (#MH,  #=0, DANN QH)

@@H
U1Q1 "G Q1UH' J I
			-   QH\ I  -

1%H

@@HE



I: INSERT

@@I
<^TU1Q1-5"E1;'
Q1-127"ER.,.+1TDOEND'Q1IQ1-13"E10I


'!END!>
@@IE



S: SCAN  (TASTE := 10L)

@@S
J !1! ^T .U1 10L Q1-."B O1'
@@SE

---