1 REM Ins{nd av Patric Ljung <5455> 1985-01-23 20.06.58 6000 ! *---- 6010 ! * Ins{nd av <5455> Patric Ljung 850123 6020 ! * Rutinen anropas med I$=FNInline$(Text$) 6030 ! * In$ = Inmatad text 6040 ! * Text$ = Eventuell text skickas med 6050 ! * Man kan utel{mna Text$ men d} m}ste man skriva '' 6060 ! * inom parentesen. In$=FNInline$('') 6065 ! * \vrig info finns tillg{nglig i MSG-systemet 6067 ! * Text nr 441 i Monitorm|tet 6070 ! * 6080 ! * INLINE .BAS - Vers 2.0 f|r ABC800/802/806 6090 ! *--------------------------------------------------------- 6100 ! 6110 ! 6120 ! 7000 ! ----- INLINE Vers. 2.0 ----- 7010 DEF FNInline$(Txt$) LOCAL Line$=35,Pos,Mxpos,Jpt$=8 7020 Jpt$=CHR$(8,9,13,24,192,196,198,199) 7030 IF Txt$<>'' Line$=Txt$ : ; Line$+STRING$(LEN(Line$),8); 7040 Mxpos=LEN(Line$)+1 : Pos=1 7050 GET Q$ : Q=ASCII(Q$) 7060 ON INSTR(1,Jpt$,Q$)+1 GOTO 7070,7150,7160,7200,7180,7200,7200,7200,7210 7070 IF Q<32 OR Q>127 GOTO 7050 7080 IF Pos1 Pos=Pos-1 : ; Q$; : GOTO 7050 ELSE 7050 7160 IF Pos