10 REM < LIST IDM[RK.BAS  VERS 1.1 >
20 REM < (C) JAN K[RRB[CK 81.03.28 >
30 DIM A$=0 : P%=65065%
40 P%=PEEK(P%)+SWAP%(PEEK(P%+1%))
50 POKE (P%+4%),256%,SWAP%(256%),62720%,SWAP%(62720%),256%,SWAP%(256%)
60 ; CHR$(12%)'* ABC80 IDM[RK Vers 1.1 *'
70 ; : ; 'M{rka eller kolla <M/K> '; : INPUT T$ : ONERRORGOTO 220
80 ; : ; 'Vilken drive '; : INPUT D% : IF (D% AND 254%) POKE 65011%,PEEK(65011%)-2% : GOTO 80
90 POKE -767%,D% : ; 
100 T%=-(T$='M')-(T$='m') : IF T% GOTO 130
110 GOSUB 180 : IF ASC(A$)<65% OR ASC(A$)>93% GOTO 220
120 ; : FOR I%=0% TO 6% : ; MID$(A$,I%*32%+1%,32%) : NEXT I% : GOTO 220
130 GOSUB 180 : ; 
140 A$='' : FOR I%=0% TO 6% : READ A$(I%) : A$(I%)=A$(I%)+SPACE$(32%-LEN(A$(I%)))
150 ; A$(I%) : A$=A$+A$(I%) : NEXT I% : A$=A$+B$
160 ; : ; 'Ok f|r m{rkning <J/N> '; : INPUT T$ : T%=-(T$='J')-(T$='j')
170 IF T% Z%=CALL(24675%) : ; : ; 'Klart !' : IF PEEK(-747%) GOTO 210 ELSE 220 ELSE 220
180 Z%=CALL(24678%) : IF PEEK(-747%) GOTO 210
190 B$=MID$(A$,225%,32%) : IF ASC(B$)>64% AND ASC(B$)<94% ; 'NAMN:'B$ ELSE ; 'NAMN:Skivan {r ej d|pt !'
200 RETURN 
210 ; 'Diskfel drive'D%' !!!'
220 END 
230 DATA 'Denna skiva tillh|r JAN K[RRB[CK'
240 DATA 'Friherregatan 1'
250 DATA '162 34 V[LLINGBY'
260 DATA 'TEL :  08/386285,891910'
270 DATA 'Programmen p} denna skiva {r'
280 DATA 'COPYRIGHTSKYDDADE enligt lagen'
290 DATA 'om upphovsmannar{tten.'