File: PAGE.TE of Tape: Various/ETH/htb1
(Source file text)
PAGE ROUTINEN --------------- werden geladen mit PAGELD.TE 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 12I!(FF)! !4! 0,.P0,.K0MH @@OE 1 LETZTE ZEILE (Q9) 3 FF ANHAENGEN 4 RAUSSCHREIBEN, LOESCHEN, NEUER KOPF 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 L.U1 S@be.-5U2 Q1J Q2-Q1-68"GO1'OEND !1! L.-Q2"G 2RI 1%2 Q1J O5' -2D I -1%2 O1 !5!:S "EQ1JO2' Q2-."G2RD-1%2 O5'Q1J !2! 68C !3! 0A-32"E O4' R O3 !4!D I 3%2 Q2-.-67"G O2' 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 C: ascii Werte der folgenden char drucken @@C 0u1<Q1A=1%1> @@CE