1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   SKRIVRAD
3 REM ! Utg}va  2.0    82-02-19
4 REM ! av (c) Roger H{ggstr|m
7 REM ! Minne 16 Kbytes f|r flexskiva
8 REM ! Ins{nt av 594
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screened by  C R LERIN.
12 REM 
100 REM / MED DETTA PROGRAM S] KAN DU /
110 REM / SKRIV & RADERINGSKYDDA DINA /
120 REM / PROGRAM GENOM ATT SKRIVA IN /
130 REM / SKYDDET DIREKT P] SKIVAN.   /
140 REM / DU SKRIVER IN EN KOD I      /
150 REM / BIBLOTEKET D[R PROGRAMMETS  /
160 REM / NAMN FINNS LAGRAT. DET G]R  /
170 REM / OCKS] ATT TA BORT SKYDDET.  /
180 REM 
190 ; CHR$(12%);CUR(1,0)"** SKRIV & RADERINGSSKYDD F\R ABC-80 **"
200 A4$=" SKRIV-& RADERINGSSKYDDAT"
210 ONERRORGOTO 190
220 ; CUR(5,0)"ANGE DRIVE (0/1)"; : INPUT A%
230 POKE -767%,A% : A%=2% : A2%=0% : B%=0% : Q%=0% : R%=0% : B$="" : E2%=0%
240 ; CUR(8,0)"ANGE PROGRAMMETS NAMN (8 TEK)"; : INPUT A$ : IF LEN(A$)>8% 240
250 ; CUR(10,0)"EXTENTION (3 TEK)"; : INPUT A1$ : IF LEN(A1$)>3% 250
260 ; CUR(5,0);STRING$(239,32); : ; CUR(5,0);
270 FOR C%=LEN(A$) TO 7%
280 A$=A$+CHR$(32%) : NEXT C% : A$=A$+A1$
290 Z%=CALL(24678%,A%*256+B%*32%)
300 FOR I%=62740% TO 62975%
310 IF PEEK(I%)=255 OR B%>7% THEN ; "HITTAR EJ FILEN " : GOTO 570
320 R%=R%+1%
330 B$=B$+CHR$(PEEK(I%))
340 IF R%=11% THEN 350 ELSE 540
350 Q%=INSTR(1%,B$,A$) : IF Q%=0% 530
360 ; LEFT$(B$,8);".";RIGHT$(B$,9)
370 ; : E1%=PEEK(I%-13%) : A2%=E1% : FOR B2%=7 TO 0 STEP -1 : C2%=2^B2% : K=A2%/C2%
380 IF K>=1 THEN K(B2%)=1 : A2%=A2%-C2%
390 IF K<1 THEN K(B2%)=0 : A2%=A2% : NEXT B2%
400 IF K(0)=0 AND K(1)=0 THEN ; "    - [R INTE ";A4$ : GOTO 430
410 ; "     -[R ";A4$ : ; : ; "VILL DU TA BORT SKYDDET "; : INPUT A$
420 IF A$="J" THEN GOTO 480 ELSE 570
430 ; : ; "VILL DU S[TTA DIT SKYDDET "; : INPUT A$
440 IF A$="J" THEN 450 ELSE 550
450 REM ///// S[TTA DIT /////
460 K(0)=1 : K(1)=1 : GOTO 500
470 REM ///// TA BORT /////
480 K(0)=0 : K(1)=0
490 REM ///// BIN-DEC /////
500 FOR B2%=7 TO 0 STEP -1 : M%=2^(7-B2%)
510 IF K(7-B2%)=0 THEN 520 ELSE E2%=E2%+M%
520 NEXT B2% : GOTO 550
530 B$="" : R%=0% : I%=I%+5%
540 NEXT I% : B%=B%+1% : GOTO 280
550 I1%=I%-13% : POKE I1%,E2%
560 Z%=CALL(24675%,A%*256+B%*32%)
570 ; : ; "VILL DU FORTS[TTA (J/N)"; : INPUT Q$
580 IF Q$="J" THEN 190 ELSE ; : ; "  SLUT ?" : END