1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   DISKDOP2
3 REM ! Utg}va  2.10   1983-01-10
4 REM ! Av (c) ?????????
5 REM ! [ndrat av Bengt Larsson <2728>
7 REM ! Minne 16 Kbytes f|r flexskiva
9 REM +++++++++++++++++++++++++++++++++
10 REM Programet m{rker en diskette
11 REM med max 32 tecken.
12 REM 
13 REM Screening av
14 REM Allan Varcoe & G|ran Olsson
15 REM 
17 REM +++++++++++++++++++++++++++++++++
20 ; CHR$(12%)TAB(14%)'** ABC80 DISKDOP Ver. 2.10 **'
30 ; : ; 'Detta program g|r det m|jligt att'
40 ; 'd|pa flexskivor med max 32 tecken.'
50 ; 'Alla tecken inkl. mellanslag {r'
60 ; 'till}tna. Namnet m}ste dock b|rja'
70 ; 'med en versal.'
80 ; 'F|r att namnet skall listas m}ste'
90 ; 'flexskivan l{sas av med det "CAT.DSK"'
100 ; : ; 
110 ONERRORGOTO 110
120 ; 'DRIVE ....'; : INPUT D% : IF D%<>0% AND D%<>1% 120
130 ; : ONERRORGOTO 0
140 POKE -767%,D%
150 ; 'Vad skall flexskivan heta ...'; : INPUTLINE N$ : N$=LEFT$(N$,LEN(N$)-2%) : ; 
160 IF ASC(N$)<65% OR ASC(N$)>93% OR LEN(N$)>32% ; 'OTILL]TET NAMN'STRING$(4000%,7%) : GOTO 150
170 IF LEN(N$)<32% N$=N$+SPACE$(32%-LEN(N$))
180 Z%=CALL(24678%,0%) : IF PEEK(-747%) 230
190 FOR T%=1% TO 32% : POKE T%-2593%,ASC(MID$(N$,T%,1%)) : NEXT T%
200 Z%=CALL(24675%,0%) : IF PEEK(-747%) 230
210 ; : ; 'K L A R T'
220 END 
230 ; : ; 'DISKFEL' : END