1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program .... DONALD
3 REM ! Utg}va 1.0 79-05-20
4 REM ! av PER LINDBERG
7 REM ! Minne 16 Kbytes och printer
8 REM ! Ins{nt av 816
9 REM ++++++++++++++++++++++++++++++++
10 REM
11 REM Screened by C R LERIN.
12 REM
140 C%=0%
150 B$="0123456789"
160 OPEN "PR:" ASFILE 1
170 C%=0% : L%=0% : V%=0%
180 GOSUB 650
190 GOSUB 600
200 IF T%<0% THEN 320
210 S%=T%
220 GOSUB 650
230 GOSUB 600
240 IF T%<0% THEN 270
250 S%=10%*S%+T%
260 GOSUB 650
270 FOR I%=C%+1% TO C%+S%
280 C$=C$+MID$(A$,L%,1%)
290 NEXT I%
300 C%=C%+1%
310 GOTO 180
320 A1$=MID$(A$,L%,1%)
330 IF A1$="R" THEN 410
340 IF A1$="V" THEN 710
350 IF A1$="U" THEN 730
360 IF A1$="@" THEN C$=C$+CHR$(12%) : C%=C%+1% : GOTO 180
370 C%=C%+1%
380 C$=C$+MID$(A$,L%,1%)
390 GOTO 180
400 REM CR
410 ; #1C$;CHR$(13%);
420 IF V%=0% THEN 560
430 FOR I%=1% TO LEN(C$)
440 C1$=MID$(C$,I%,1%)
450 IF C1$<>"*" THEN 480
460 ; #1"O";
470 GOTO 550
480 IF C1$<>"M" THEN 510
490 ; #1"C";
500 GOTO 550
510 IF C1$<>"'" THEN 540
520 ; #1",";
530 GOTO 550
540 ; #1" ";
550 NEXT I%
560 ; #1
570 C$=""
580 C%=0%
590 GOTO 180
600 FOR T%=0% TO 9%
610 IF MID$(A$,L%,1%)=MID$(B$,T%+1%,1%) THEN 640
620 NEXT T%
630 T%=-1%
640 RETURN
650 IF L%