1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   S\KAREN
3 REM ! Utg}va  1.1    1981-03-16
4 REM ! av (c) Magnus Svernl|v
5 REM ! Minne 16 Kbytes f|r flexskiva
6 REM +++++++++++++++++++++++++++++++++
7 REM 
8 REM 
9 DIM A$=260%
10 ; CHR$(12%)"S\KAREN - FINNER ALLT !"
11 ; : ; 'MATA IN "ENHET:FILNAMN"' : INPUT A$
12 L%=0% : ; "\NSKAS PRINTERLISTA(J/N)"; : GET U$ : ; : IF U$<>"J" THEN L%=0% : GOTO 14
13 OPEN "PR:A" ASFILE 2% : L%=2%
14 ; "MATA IN S\KT KOMMANDO E.D" : INPUTLINE C$ : ; : C$=LEFT$(C$,LEN(C$)-2%) : ONERRORGOTO 26
15 OPEN A$+".BAS" ASFILE 1%
16 ONERRORGOTO 24
17 ; "FILEN ";A$+".BAS FUNNEN."
18 ; : ; #L%,"P] F\LJANDE RADER FINNS ";C$ : ; #L%
19 INPUTLINE #1%,A$
20 Q%=LEN(A$)+1%
21 P%=INSTR(1%,LEFT$(A$,Q%-1%),C$)
22 IF P%<>0% THEN ; #L%,LEFT$(A$,LEN(A$)-1%)
23 GOTO 19
24 ; #L% : ; #L% : ; #L%"*** READY ***" : ; #L% : ; #L% : CLOSE 1%
25 ; "FLER S\KTA KOMMANDON E.D ?" : GET D$ : IF D$="N" THEN 27 ELSE 10
26 ; #L% : ; #L% : ; #L% : ; "FILEN EJ ANTR[FFBAR" : ; "TRYCK P] RETURN"; : GET D$ : ; : GOTO 10
27 ; "TACK F\R IDAG"