1 REM Ins{nd av Bo Kullmar * <1789>    1985-10-06 11.52.46
2 ! **********************************************************************
3 ! Program          TESTDR           Utg}va  1.0      1985-10-06
4 ! av Bo Kullmar
5 ! Ins{nd av Bo Kullmar
6 ! F|r ABC800M ABC800C ABC802 ABC806
8 ! Testad p} ABC806
9 ! Programmet kan anv{ndas f|r att testa hur snabba olika drivarar {r.
10 ! Observera att det d} har betydlese hur full skivan {r. Det g}r {ven att
11 ! test mot RAM:. Jag skall i MSG-m|tet ABC800 ange hur snabb min nya ABC834:a
12 ! {r med DIAB:s nya controllerkort {r. Du kan g|ra motsvarade tester.
13 ! **********************************************************************
60 INTEGER : EXTEND 
1000 ; CHR$(12) 'Vi testar hur l}ng tid det tar att skriva och l{sa 400 sektorer' : ; : ; 
1010 INPUT 'Ange enhet: 'Enh$
1020 ; : ; 'Vi skriver 400 sektorer nu!' : ; 
1030 IF Enh$='' Enh$='DR0:'
1040 IF INSTR(1,Enh$,':')=0 Enh$=Enh$+':'
1050 IF LEN(Enh$)<>4 GOTO 1010
1060 Str$=STRING$(253,42)
1070 Str2$=STRING$(253,35)
1080 PREPARE Enh$+'TEST.FIL' AS FILE 1
1090 POKE 65522,0,0,0,0
1100 FOR I=1 TO 200
1110   PUT #1,Str$+Str2$
1120 NEXT I 
1130 ; 'Tid f|r skrivning av 400 sektorer: ' RIGHT$(TIME$,12); : Hdel=PEEK(65525)
1140 IF Hdel<10 ; USING '_.0#' Hdel ELSE ; USING '_.##' Hdel
1150 CLOSE 
1160 ; : ; 'Vi l{ser de 400 sektorer som vi nyss skrev!' : ; 
1170 OPEN Enh$+'TEST.FIL' AS FILE 1
1180 POKE 65522,0,0,0,0
1190 FOR I=1 TO 400
1200   GET #1,Str$ COUNT 253
1210 NEXT I 
1220 ; 'Tid f|r l{sning av 400 sektorer:   ' RIGHT$(TIME$,12); : Hdel=PEEK(65525)
1230 IF Hdel<10 ; USING '_.0#' Hdel ELSE ; USING '_.##' Hdel
1240 CLOSE 
1250 ; : ; 'Klart!'
1260 END