10 REM INSCREEN ver 1 1982-11-09 15 REM av G Tidner 20 DIM B$=0 30 N%=26 : REM =5 f|r 16 K 40 B0%=53018% : B%=773% 50 DIM A$=40% 60 P%=65065% 70 P%=PEEK(P%)+SWAP%(PEEK(P%+1%)) 80 POKE P%+4%,B%,SWAP%(B%) 90 P%=P%+6% 100 ; "Ladda fr}n filnamn:"; : INPUT F$ 110 ; "Starta i buffert nr:"; : INPUT I% 120 OPEN "CAS:"+F$ ASFILE 1 : ; 130 INPUTLINE #1,A$ : IF ASC(A$)<>35% THEN 130 ELSE A$=LEFT$(A$,LEN(A$)-2%) 140 IF I%>N% OR ERRCODE=34% THEN END 150 B1%=B0%-B%*(N%+1%-I%) 160 POKE P%,B1%,SWAP%(B1%) 170 S%=VAL(RIGHT$(A$,3%)) : ; A$;' '; 180 B$=CHR$(S%,SWAP%(S%) OR 128%) 190 ONERRORGOTO 260 200 FOR J%=0% TO 21% 210 INPUTLINE #1,A$ : A$=LEFT$(A$,LEN(A$)-2%) 220 IF J%=0% THEN ; A$;" Ladda (J/N)" 230 IF ASC(A$)=35% THEN 260 240 B$=B$+A$+SPACE$(36%-LEN(A$)) 250 NEXT J% 260 B$=B$+SPACE$(B%-2%-LEN(B$))+CHR$(0%,0%) 270 IF (INP(56) AND 95%)=74% THEN ; "Laddat";S% : I%=I%+1% : GOTO 140 280 B$=CHR$(0%,0%)+SPACE$(B%-4%)+CHR$(0%,0%) : GOTO 140