A10000:20: **R-W-L TEXT** R$(250):R$(0)"250":LF1 HXHO:VXVE:CR$"#":CM$"@" Y1:X0:MX1:NF$" ":TB0&!SP$"":F0 HX:SP$SP$" ":F:MN$""R!.MN$MN$"----:----I":(MN$)HX2 1070f!8MN$(MN$,HX1)o!100!S1$" RWL-TEXT 2.1 ":S2$(SP$,(S1$))!SR$S2$:1310!SR$S1$:1310!SR$S2$:1310!! :F1 17:SR$:1320:F!"(SP$,HX2);"Funktion: ";:210:1330?"(SP$,HX211);:150::_"((SP$,(HX(SR$))2);SR$:p"2IN83 1800"<(IN48)(IN57) 250:1230"FIN48 4030:1230"PIN50 1420"Z1780"d360:F1 MX"nSR$(SP$,20)R$(F):350#x360:F#360:360:1230(#IN49 14902#1780F#360:F1 MX2`#SR$R$(F):GF(MX2)#GMX SR$SR$(SP$,40(R$(F)))R$(G)#350:(R$(G))40 360#F:360:360:1230#IN51 1550#1780:360:F1 MX#SR$R$(F):350$F2(F2) 360$F0$360:360:1230=$NF57INS$120:HOHX2:110k$"NF2 1780:1610$,"Name: ";:IP$NF$$6120:IP$:T1$CM$:T2$CR$:CR$"*":CM$""$@PL1:IN0:3050:NF$IP$:CM$T1$:CR$T2$$J500%TNF2(NF2) 1670:1640%^1730%h580:12300%540:MX(IN$)=%F1 MXW%540:IN$" " IN$""h%R$(F)IN$:Fn%%SRMX:300:560%F1 MX%SR$R$(F):SR$"" SR$" "%560:F%%120:HOHX2:110:">TASTE< ";:210%&120:HOHX2:110:"wirklich? (J/N)";-&210:IN74 950>&IN78 1230M&&250:1800S&u& ***** command routine ****{&&IN0:T1HO:T2VE:HO0:VEVX:110&"Kommando ?: ";(SP$,HX20);&SD100:450& HO11:VEVX:110:SR$IN$:330'IN31 SR$;' IN0 2150%'*110:" ";9'4HO0:VEVX:110g'>"nach";CM$;" folgt Kommando (H=Hilfe)";z'H(SP$,HX32);'RHOT1:VET2:IN128 IN0'\4060'fIN76 R$(Y)(R$(Y),(R$(Y))1):2870'pIN82 R$(Y)" "(R$(Y),HX):2870(zIN84 2100(IN77 '(IN86 2240>(YMX 250:2100d(MXMX1:FY MX:R$(F)R$(F1):F((BVVX3MX)(BV1) BVBV1:T2T21(2900(IN73 2280(YMX 250:2100(FMX Y 1:R$(F1)R$(F):F:MXMX1:R$(Y)"")IN128:IN$(128):29000)IN66 T21:Y1:BV1:2900B)IN69 2330V)YMX:BVMXVX3f) BV1 BV1z) T2YBV1:2900) IN83 2430)$ MX2 250:2100). MX5 VEVX:HO0:110:"-ich sortiere-";)8 FMX1 1 1)B G1 F *L R$(G)R$(G1) 2400/*V T$R$(G):R$(G)R$(G1):R$(G1)T$6*` G=*j FG*t 2900j*~ (IN85)(T1(R$(Y))) 2480* T$(R$(Y),(R$(Y))T1)* (R$(Y))40 T$(T$,(T$)1)* T10 R$(Y)(R$(Y),T1)" "T$:2870* R$(Y)" "T$:2870+ IN80 TBT1:2100+ IN67 2540/+ (R$(Y),1)" " 2520S+ R$(Y)(R$(Y),(R$(Y))1):2500+ R$(Y)(SP$,((HX1(R$(Y)))2))R$(Y)+ 2870+ IN43 2590+ YYBV:BVBVVX2+ BVVX3MX BVMXVX3:250+ BV1 BV1+ YYBV:2900, IN45 2630,( YYBV:BVBVVX20,2 BV1 BV1:250:,< 2580T,F IN78 LF1LF:2100q,P IN72 IN0:250:2050,Z HO0:VE1:110,d VE1 VX2:110:SP$;:VE,n VE1:110:"R Zeile nach rechts",x VE2:110:"L Zeile nach links"- VE3:110:"M Hauptmenue anzeigen"8- VE4:110:"T Text anzeigen"R- VE5:110:"H Hilfe"u- VE6:110:"V Zeile loeschen"- VE7:110:"I Zeile einfuegen"- VE8:110:"B Cursor Textanfang"- VE9:110:"E Cursor Textende" . VE10:110:"S Zeilen sortieren":. VE11:110:"U ab Cursor Zeile nach rechts"`. VE12:110:"P Tabulator setzen". VE13:110:"C Zeile zentrieren". VE14:110:"+ eine Seite vorwaerts". VE15:110:"- eine Seite zurueck"/ VE16:110:"N Zeilennummer an/aus"/ SD200:4504/ VEVX2 1 1:110:SP$;:VED/" 2920:2060X/6 HO0:VET2:110/@ R$(Y);(SP$,HX1(R$(Y)));:2100/T 2920:2100/h T0:HO0:VE1:110/r R$(BVT);:HX(R$(BVT)) 2950/| (SP$,HX1(R$(BVT))); 0 TT1:(TVX3)(TMX) VE1:#0 VEVE1:110:293060 PL1:110:IP$?0 IN0S0 SC$(IP$,PL,1)d0 IN0 3110x0 110:CR$;:1100 SD1:450:IN0 31100 110:SC$;:1100 SD1:450:30600& 110:SC$;:11000 IN28 3280:30401: IN29 3330:30501D IN127 321091N (IN32)(IN126)(IN$CM$) 3370c1X PL2 IP$IN$(IP$,(IP$)PL):31801b IP$(IP$,PL1)IN$(IP$,(IP$)PL)1l 110:IN$;1v 3330:30501 PL1 250:30401 PL2 IP$(IP$,(IP$)PL1)" ":32402 IP$(IP$,PL2)(IP$,(IP$)PL1)" "#2 3280B2 HOHOPL1:110:HOHOPL1Q2 IP$:3040e2 PLPL1:HOHO1r2 PL0 2 PLPL(IP$):HOHO(IP$)2 2 PLPL1:HOHO12 PL(IP$) IN0:2 PLPL(IP$):HOHO(IP$)2 IN30:3* (IN13)(IN30)(IN31)(IN$CM$) 34 3040A3100:HO0:VE0:110:BV1:Y1g3MN$:HO0:VEVX1:110:MN$;:VE13T1HO:T2VE:2920:IN0:20603IN0:SC$" ":HO(R$(Y)) SC$(R$(Y),HO1,1)3LF1 41003T1HO:T2VE:HOHX7:VEVX:SRY:110:3004"RG=";SR$;" ";:HOT1:VET2)4IN0 4160=4110:CR$;:110X4SD1:450:IN0 4150l4"110:SC$;:1104,SD1:450:410046110:SC$;:1104@IN28 41904JHOHO1:HO0 HOHX4T40604^IN29 42204hHOHO1:HOHX HO04r40605|IN31 4270&5Y1 250:4060D5YY1:VEVE1:VE0 4060d5BVBV8:VEVE8:BV0 4050x5BV1:VEY:40505IN30 43205YMX 250:40605YY1:VEVE1:VEVX1 40605BVBV8:VEVE8:BVVX3MX 40506BVBV9:VEVE9:43006IN13 4350C6HOTB:(YMX)(MX250) MXMX1:R$(MX)""M64280`6IN$CM$ 20306IP$R$(Y)(SP$,HX1(R$(Y)))6PLHO1:30506(YMX)(MX250) MXMX1:R$(MX)""6&THX160(IP$,T,1)" " 44206:TT1:T0 44007DT0 R$(Y)"":4100*7NR$(Y)(IP$,T):4100C7a"0) Text zeigen",""]7a"1) Druck 2-spaltig"w7a"2) Druck 1-spaltig"7a"3) doppelte Breite",""7a"4) SAVE Text auf Disk"7a"5) LOAD Text von Disk",""7a"6) SAVE Text auf Kassette"8a"7) LOAD Text von Kassette","">8a"8) SAVE Text als Basicode-3 File"i8b"9) LOAD Text als Basicode-3 File",""8 b"S) Programmende - BASIC",""80u ************************8:u * *8Du * RWLTEKST 2.1 *9Nu * *&9Xu * is een programma van *E9bu * *d9lu * Robbert Wethmar *9vu * uit Lelystad *9u * *9u * in BASICODE 3 op een *9u * SONY HB75p MSX 1.0 *9u * vanaf januari 1987 *:u * Met dank aan: *=:u * J. Haubrich *\:u * -------------------- *{:u * Deutsch angepasst *:u * auf dem KC85/4 von *:u * U. Zierott, Lehnin *:u ************************:u Erstausstrahlung:;} Computernacht 15/16.9.89$; } ACORN-Masterierott, Lehnin *:u ************************:u Erstausstrahlung:;} C