1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   MINIDOS 
3 REM ! Utg}va  1.0    840925 
4 REM ! av (c) Stig Johansson
5 REM ! Tel.0523-40209 / 40976
8 REM ! Minne 16 Kbytes f|r flexskiva 
9 REM +++++++++++++++++++++++++++++++++
10 REM  Detta prog. h{mtar sektorer fr}n flex-skiva
12 REM  utan att att anv{nda datorns DOS.(diskoperativsystem).
14 REM  Med detta lilla pgm kan du kanske ocks} laborera med att
16 REM  h{mta de byte-ar som finns mellan sektorerna.
18 REM  === BESKRIVNING AV RAD 120 ===
20 REM  OUT 2,0    startar motorn.
22 REM  OUT 1,45   kopplar in kontrollkortet 
24 REM  OUT 0,3  = l{sning. ( OUT 0,12 = skrivning )
26 REM  OUT 0,1  = drive 1
28 REM  OUT 0,T  = sp}r
30 REM  OUT 0,S  = sektor.
32 REM  F|r skrivn.p} sektor anv{nds rad 140 + 3 i rad 120 {ndras till 12
34 REM  Adr.62720-62976 kan {ndras och p} det adr.-omr}det ska f|rst
36 REM  vara inskrivet vad som ska hamna p} sektorn.
100 DIM A(256%) : ; 'FR]N VILKET SP]R:'; : INPUT T
110 ; : ; '--Sp}r:'T'-----Sektor:'S/32'--'
120 OUT 2,0,1,45,0,3,0,1,0,T,0,S
130 FOR I=1 TO 900 : NEXT I : REM F|rdr|jn.Driven beh|ver tid f|r att hitta sekt
140 REM FOR I=62720 TO 62976 :   OUT 0,PEEK(I) :   NEXT I :    GOTO 210
150 FOR I%=1% TO 256% : A(I%)=INP(0%) : NEXT I%
160 ; : ; : FOR I%=1% TO 256%
170 IF A(I%)=13% ; : GOTO 200
180 IF A(I%)=12% GOTO 200
190 ; CHR$(A(I%));
200 NEXT I%
210 S=S+32 : IF S=256 S=0 : T=T+1
220 GET A$ : ; : IF A$='.' END ELSE 110