1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program .... GETSKRIV
3 REM ! Utg}va 01 82.01.18
4 REM ! av (c) Stig Johansson, Brastad
5 REM ! {ndrat av Sixten L|gdberg
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
10 REM ! Subrutin ORDBEHANDLING. !
11 REM +------------------------------+
90 REM ** R% = RADNUMMER.
100 REM ** Z% = RADL[NGD.
110 REM ** K% = BEGR[NSAD RADL[NGD.
120 DIM S$(10%)=25%
130 ; CHR$(12%)'INFO:' : ; 'Denna subrutin kan l{mpligen anv{ndas i'
140 ; 'ex.register-pgm d{r samma text eller'
150 ; 'delvis samma text beh|ver upprepas'
160 ; 'flera g}nger.Inskrivna rader lagrar man'
170 ; 'i en variabel ( se ex.p} rad:330 ).'
180 ; 'Viss rad kan h{mtas med t.ex. INPUT I%,'
190 ; 'och sedan enkelt korrigerigeras.'
200 ; 'Ny text kan skjutas in i h{mtade rader.'
210 ; 'Varje radl{ngd kan begr{nsas, och man'
220 ; 'kan sp{rra s} att end.siffror kan'
230 ; 'skrivar p} viss rad,som p} rad 3 nedan.'
240 ; : ; 'Anv{nd -> f|r att h{mta skriven text'
250 ; 'och <- f|r att backa.'
260 ; : ; 'Detta {r allts} inget komplett'
270 ; 'program, utan en subrutin att anv{ndas'
280 ; 'i andra program.'
290 ; : ; 'TRYCK RETURN. '; : GET A$
300 ; CHR$(12%)
310 Z%=18% : R%=1% : ; CUR(5%,5%)'Rad:1 > '; : GOSUB 360
320 Z%=18% : R%=2% : ; CUR(6%,5%)'Rad:2 > '; : GOSUB 360
330 Z%=5% : R%=3% : ; CUR(7%,5%)'Rad:3 > '; : GOSUB 360 : V$(I%)=S$
340 ; CUR(22%,0%)'** N[STA TEXT: