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:" AS FILE 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 ; #1 C$;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%