1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   D\P
3 REM ! Utg}va  1.0    81-04-05
4 REM ! av (c) JAN K[RRB[CK
7 REM ! Minne 16 Kbytes f|r flexskiva
8 REM ! Ins{nt av 765
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screned by C R LERIN.
12 REM 
30 REM < ================ >
31 REM < PROGRAMMET D\PER >
34 REM < FLEXSKIVOR MED   >
37 REM < 32 TECKENS NAMN- >
40 REM < F[LT. DU BEH\VER >
43 REM < EN MODIFIERAD    >
46 REM < (OCH B[TTRE) LIB >
49 REM < F\R ATT HELA     >
52 REM < NAMNF[LTET SKALL >
55 REM < KUNNA VISAS.     >
58 REM < RING OM DU [R    >
61 REM < INTRESSERAD.     >
62 REM < 08/386285,891910 >
64 REM < ================ >
67 DIM A$=0% : P%=65065%
70 P%=PEEK(P%)+SWAP%(PEEK(P%+1%))
73 POKE (P%+4%),256%,SWAP%(256%),62720%,SWAP%(62720%),256%,SWAP%(256%)
76 DEFFNA%(A%)=ASC(RIGHT$(A$,225%))>64% AND ASC(RIGHT$(A$,225%))<94%
79 ; : ; CHR$(12%)'* ABC80 D\P Vers 1.1 *'
82 ONERRORGOTO 106 : ; : ; 'Vilken drive '; : INPUT D% : IF (D% AND 254%) GOTO 82
85 POKE -767%,D% : Z%=CALL(24678%) : IF PEEK(-747%) GOTO 109
88 IF FNA%(A%) ; : ; 'Det gamla namnet {r:' : ; '=>'RIGHT$(A$,225%)'<='
91 ; : ; 'Disknamn (max 32 tkn.)' : ; SPACE$(34%)'<='CHR$(13%)'=>'; : INPUTLINE B$ : B$=LEFT$(B$,LEN(B$)-2%)
94 IF B$='' AND FNA%(A%) ; : ; : ; 'OK, ingen {ndring.' : GOTO 106 ELSE IF B$='' ; : GOTO 106
97 IF ASC(B$)<65% OR ASC(B$)>93% ; : ; CHR$(7%)'Fel f|rsta tecken !' : GOTO 91
100 IF LEN(B$)>32% ; : ; CHR$(7%)'F|r l}ng text !!!' : GOTO 91 ELSE B$=B$+SPACE$(32%-LEN(B$))
103 A$=LEFT$(A$,224%)+B$ : Z%=CALL(24675%) : IF PEEK(-747%) GOTO 109 ELSE ; : ; : ; 'Klart !'
106 END 
109 ; : ; CHR$(7%)'Diskfel drive'D%' !!!'