1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   IDM[RK
3 REM ! Utg}va
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 Screening av
12 REM Allan Varcoe & G|ran Olsson
13 REM 
14 IF PEEK(590)<>40 THEN ; INP(3)
15 REM +++++++++++++++++++++++++++++++++
60 DIM A$=0% : P%=65065%
70 P%=PEEK(P%)+SWAP%(PEEK(P%+1%))
80 POKE (P%+4%),256%,SWAP%(256%),62720%,SWAP%(62720%),256%,SWAP%(256%)
90 DEFFNA%(T%)=-(T$='J')-(T$='j')
100 DEFFNB%(T%)=-(T$='M')-(T$='m')
110 ; CHR$(12%)'* ABC80 IDM[RK Vers 1.1 *'
120 ; : ; 'M{rka eller kolla <M/K> '; : INPUT T$ : ONERRORGOTO 260
130 ; : ; 'Vilken drive '; : INPUT D% : IF (D% AND 254%) POKE 65011%,PEEK(65011%)-2% : GOTO 130
140 POKE -767%,D% : ; : IF FNB%(T%) GOTO 170
150 GOSUB 220 : IF ASC(A$)<65% OR ASC(A$)>93% GOTO 260
160 ; : FOR I%=0% TO 6% : ; MID$(A$,I%*32%+1%,32%) : NEXT I% : GOTO 260
170 GOSUB 220 : ; 
180 A$='' : FOR I%=0% TO 6% : READ A$(I%) : A$(I%)=A$(I%)+SPACE$(32%-LEN(A$(I%)))
190 ; A$(I%) : A$=A$+A$(I%) : NEXT I% : A$=A$+B$
200 ; : ; 'Ok f|r m{rkning <J/N> '; : INPUT T$
210 IF FNA%(T%) Z%=CALL(24675%) : ; : ; 'Klart !' : IF PEEK(-747%) GOTO 250 ELSE 260 ELSE 260
220 Z%=CALL(24678%) : IF PEEK(-747%) GOTO 250
230 B$=MID$(A$,225%,32%) : IF ASC(B$)>64% AND ASC(B$)<94% ; 'NAMN:'B$ ELSE ; 'NAMN:Skivan {r ej d|pt !'
240 RETURN 
250 ; 'Diskfel drive'D%' !!!'
260 END 
270 DATA 'Denna skiva tillh|r JAN K[RRB[CK'
280 DATA 'Friherregatan 1'
290 DATA '162 34 V[LLINGBY'
300 DATA 'TEL :      08/386285,891910'
310 DATA 'Programmen p} denna skiva {r'
320 DATA 'COPYRIGHTSKYDDADE enligt lagen'
330 DATA 'om upphovsmannar{tten.'