10 REM < ================ >
11 REM < LIST D\P.BAS     >
12 REM < (c) JAN K[RRB[CK >
13 REM < FRIHERREGATAN 1  >
14 REM < 162 34 V[LLINGBY >
15 REM < 08/386285,891910 >
16 REM < ================ >
17 REM < PROGRAMMET D\PER >
18 REM < FLEXSKIVOR MED   >
19 REM < 32 TECKENS NAMN- >
20 REM < F[LT. DU BEH\VER >
21 REM < EN MODIFIERAD    >
22 REM < (OCH B[TTRE) LIB >
23 REM < F\R ATT HELA     >
24 REM < NAMNF[LTET SKALL >
25 REM < KUNNA VISAS.     >
26 REM < RING OM DU [R    >
27 REM < INTRESSERAD.     >
28 REM < ================ >
29 DIM A$=0% : P%=65065%
30 P%=PEEK(P%)+SWAP%(PEEK(P%+1%))
31 POKE (P%+4%),256%,SWAP%(256%),62720%,SWAP%(62720%),256%,SWAP%(256%)
32 DEFFNA%(A%)=ASC(RIGHT$(A$,225%))>64% AND ASC(RIGHT$(A$,225%))<94%
33 ; : ; CHR$(12%)'* ABC80 D\P Vers 1.0 *'
34 ONERRORGOTO 41 : ; : ; 'Vilken drive '; : INPUT D% : IF (D% AND 254%) GOTO 34
35 POKE -767%,D% : Z%=CALL(24678%) : IF PEEK(-747%) GOTO 42
36 IF FNA%(A%) ; : ; 'Det gamla namnet {r:' : ; '=>'RIGHT$(A$,225%)'<='
37 ; : ; 'Disknamn (max 32 tkn.)' : ; SPACE$(34%)'<='CHR$(13%)'=>'; : INPUTLINE B$ : B$=LEFT$(B$,LEN(B$)-2%)
38 IF B$='' ; : GOTO 41 ELSE IF ASC(B$)<65% OR ASC(B$)>93% ; : ; CHR$(7%)'Fel f|rsta tecken !' : GOTO 37
39 IF LEN(B$)>32% ; : ; CHR$(7%)'F|r l}ng text !!!' : GOTO 37 ELSE B$=B$+SPACE$(32%-LEN(B$))
40 A$=LEFT$(A$,224%)+B$ : Z%=CALL(24675%) : IF PEEK(-747%) GOTO 42 ELSE ; : ; : ; 'Klart !'
41 END 
42 ; : ; CHR$(7%)'Diskfel drive'D%' !!!'