1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   DISKTITT
3 REM ! Utg}va  1.5    1981-02-05
4 REM ! av (c) KALLE LINDSTR\M
7 REM ! Minne 16 Kbytes f|r flexskiva
9 REM +++++++++++++++++++++++++++++++++
10 REM Program som visar vad som finns 
11 REM p} en viss sektor p} skivan.
12 REM 
13 REM 
22 POKE -767%,0%
23 ; CHR$(12%)CUR(0%,13%)'DISKTITT.BAC'
24 ; CUR(4%,0%)'Enkel eller dubbel density (E/D)'; : GET A$ : ; A$
25 IF A$='E' OR A$='e' M%=319% ELSE IF A$='D' OR A$='d' M%=639% ELSE 24
26 ; CHR$(12%);
27 ; CUR(3%,20%)'Drive'D%CUR(3%,0%); : IF M%=319% ; 'Enkel  density' ELSE ; 'Dubbel density'
28 ; CUR(0,0)'B=Byt density, 0=Drive 0, 1=Drive 1     => =N{sta sektor, <= =Backa en sektor   V=V{lj en ny sektor,';
29 ; 'A=Ascii   V{lj'; : GET A$ : GOSUB 68
30 IF V%=66% IF M%=319% M%=639% ELSE M%=319%
31 IF V%=66% 27
32 IF V%=49% POKE -767%,1% : T%=1% : GOTO 37 ELSE IF V%=48% POKE -767%,0% : T%=1% : GOTO 37
33 IF V%=9% S%=S%+1%
34 IF V%=86% ONERRORGOTO 34 : ; CUR(22%,0%); : INPUT S% : ; CUR(22%,0%)SPACE$(10%);
35 IF V%=8% S%=S%-1%
36 IF V%=65% 55
37 IF S%>M% S%=0% ELSE IF S%<0% S%=M%
38 IF T%=0 ; CUR(3,20)'Drive'PEEK(-767%)CUR(4,4)'Sektor'S%'   ' ELSE T%=0% : ; CUR(3,20)'Drive'PEEK(-767%) : GOTO 28
39 Z=CALL(24678%,32%*S%)
40 IF PEEK(-747%) GOTO 67
41 R%=5% : K%=10%
42 FOR I%=62720% TO 62975%
43 P%=PEEK(I%)
44 IF P%<32% OR P%>127% P%=46%
45 ; CUR(R%,K%)CHR$(P%)
46 K%=K%+1%
47 IF K%>25% K%=10% : R%=R%+1%
48 NEXT I%
49 R%=5% : K%=0%
50 ; CUR(4%,22%)'Byte'
51 FOR I%=0% TO 15%
52 ; CUR(R%+I%,K%)I%*16%CUR(R%+I%,K%+30%)I%*16%+15%
53 NEXT I%
54 GOTO 28
55 ; CHR$(12%)CUR(0%,13%)'Byte 0-127'
56 R%=3% : K%=0%
57 FOR I%=62720% TO 62847%
58 ; CUR(R%,K%)PEEK(I%) : K%=K%+5% : IF K%=40% K%=0% : R%=R%+1%
59 NEXT I%
60 ; CUR(23%,38%); : GET R$
61 ; CHR$(12%)CUR(0%,13%)'Byte 128-255'
62 R%=3% : K%=0%
63 FOR I%=62848% TO 62975%
64 ; CUR(R%,K%)PEEK(I%) : K%=K%+5% : IF K%=40% K%=0% : R%=R%+1%
65 NEXT I%
66 ; CUR(23%,38%); : GET A$ : GOTO 26
67 ; CHR$(12%)'Diskfel nr'PEEK(-747%); : END 
68 V%=ASC(A$) : IF V%>95 V%=V%-32%
69 RETURN