Commodore 1541 - Performance Test

5. PERFORMANCE TEST
PEM PERFORMANCE TEST
1020 REM VtC-2?i RMD rOMMCDOPE 64
1030 RF.fi SIMPLE FLOPPY DISK DRIVE
1040
1050 OPEN L8.-150PEm5.6- 13
1PS0 LT-33
Mrtft PPIHT" PEPFCPMRNCE TEST
11 If PRfMT
> 1 ?fl PPIHT
H^ft FPTMT" INSERT
1 t Jtt PFINT
115"? PPIIJT1 DISKETTE 11J WIVE"
U££ PPTPJT
I17fl PFlNTpl PRESS ^ETUPH*'
PPTUT
PRINT" WHEN PEflLiVB"
FOP i=.3 TO 9B-0ET R* NEXT
? GET fl* IF fWOCHS1*'1 ?• THE*I
1 "P
'-M9-TES7
137? Cl*=" DISK MEM CWNRHII "+CHP*M3'»
128Q C?j=-n WRIT FIBDUT RO 5ECCWB9"
1336 DC*=Clf+Ci* CiOSUP 1?J0
130? IF TKHTTHEN1370
I^io PftlHT-iEVSTEM 15"
1320 PPIfJT"W MOT RESPONDING"
15?3 FPitrr- rnppErTL',' TO
1343 eOSLf
1378
1^0 PPHtT" MECHRHICRL TESTU"
1393
TT=^1
140fi OPEN M3.2.H9 TEST FILES.U"
1415 CC*='OFEH WRITE FILE' OOSUB 1S43
1-420 CH=2 O;**"UPIT£ DRTR'1 MJSUB 1936
1430 rCl^'CLOSE "+CC* OTSUD 1840
1440 OPEN 2-9.2- "8 : TEST FILE'S^11
1450 CCI-'-DFEH REPO FILE1 GOSUB 1840
1470 PPIHT*1.-SOFTEST FILE"
1413? CC*«"?CRPTCH FILEM" TT-1 G05UE
1430
152B OPEN 4-S.4,"#"
153^ HNK=<r1*PHI!l<rTI)1ES54+miK^fit-tB253 PRIMTtl. "B-P1
1^40 IJNt^ FOR 1 = ] TO 233:HN**NN
1339 PRINT* 4.MN±:
l^fpi PRIIJ7* 1 ■ "U2 : "-4 ; 3;LT:0
15?Q CC»-"WRITE TPfiCK"+LTi GOSUB 1843
1559 CC*=rlUffITE TRRCK 1" :6CHUB
PPIHTttl . "L.ll : " \A O:LT:B
TRflCKrl+LT* ■ OGSUB
1653 i?C*-1R£ftt' Tf^RCK 1" GOSUB 1B40
62