10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program ....   LISTSKYD
12 REM ! Utg}va  3.0    1981-11-01
13 REM ! av (c) Rickard Schoultz
14 REM ! Minne 16 Kbytes f|r flexskiva
15 REM ! Ins{nt av 1185
16 REM +++++++++++++++++++++++++++++++++
17 REM 
18 REM Screened by +TCP+
19 REM 
20 DIM B$=257
21 REM 
22 ; 
23 ; 
24 ; 
25 ; "VILKEN DRIVE"; : INPUT A%
26 Q5%=A%
27 ; "ANGE PROGRAMMETS NAMN"; : INPUT A$ : IF LEN(A$)>8% 27
28 Q6$=A$
29 ; "EXTENTION"; : INPUT A1$ : IF LEN(A1$)>3% 29
30 ; 'S{tta dit eller ta bort listskydd (S/B)'; : ONERRORGOTO 30 : INPUT Y5$
31 IF Y5$='S' OR Y5$='s' THEN Y5=131 ELSE IF Y5$='T' OR Y5$='t' THEN Y5=130
32 Q7$=A1$
33 FOR C%=LEN(A$) TO 7%
34 A$=A$+CHR$(32%)
35 NEXT C%
36 A$=A$+A1$
37 POKE -767%,A%
38 FOR F%=0% TO 7%
39 Z%=CALL(24678%,256%+F%*32%)
40 FOR B%=62720 TO 62976
41 B$=B$+CHR$(PEEK(B%))
42 NEXT B%
43 B%=INSTR(1%,B$,A$)
44 IF B%=0% 50
45 ; 
46 ; "FILEN FINNS P]  ";
47 D%=PEEK(62720%+B%-5%)
48 E%=PEEK(62720%+B%-4%)/32%
49 ; "  SP]R";D%;" SEKTOR ";E% : GOTO 53
50 B$="" : NEXT F%
51 ; 
52 ; "FILEN FINNS EJ P] DENNA DISKETT!"
53 REM Skriv p} skiva
54 A%=Q5%
55 POKE -767%,A%
56 A%=D%
57 IF A%>39% 56
58 B%=E%+1%
59 IF B%>7% 58
60 ; 
61 Z%=CALL(24678%,A%*256%+B%*32%)
62 FOR I%=62720% TO 62975%
63 REM 
64 Q8%=Q8%+1% : IF Q8%=4 THEN A$='S' ELSE IF Q8%>=5 THEN END 
65 IF A$='S' OR A$='s' THEN 66 ELSE IF A$='a' OR A$='A' THEN 70 ELSE NEXT I% : GOTO 69
66 IF Y5$='B' THEN POKE I%,130 ELSE POKE I%,131
67 I%=I%+1%
68 Z%=CALL(24675%,A%*256%+B%*32%) : GOTO 63
69 ; 'OK.' : END 
70 I%=255% : I%=I%+62720% : GOTO 64