Commodore vic-1540 User Manual page 83

1678 PRINT "Ml UNIT HflS PRSSED"
J689 PRINT" PERFORMflNCE TEST!"
1690 PRINT-W PULL DISKETTE FROM"
1700 PRINT-S DRIVE BEFORE TURNING"
1710 PRINT" POWER OFF."
1720 END
1736 •
1740 ••
1750 PRINT" MHCONTINUE <V/N)?B";
1760 FOR 1=0 TO 50-GET fl$=NEXT
1770 GET fl$:IF fl$-M" THEN 1770
1780 PRTNT R$"W"
1790 IF R*="N" THEN END
1800 IF fi$»"V" THEN RETURN
1810 GOTO 1760
1820 •
1830 ■
1840 PRINT CC*
1850 INPUT* 1,EN,EM$,ET,ES
I860 PRINTTRB<12)"ai'EN;EM$;ET;ES;"SM
1870 IF EN<2 THEN RETURN
1880 PR1NT"M UNIT IS FRILING"
1890 PRINT"M PERFORMflNCE TEST"
1900 TM$-TI$:OOSUB 1750-TI$=TMi-RETURN
1910 •
1920 •
1930 PRINT-WRITING DflTfl"
1940 FOR I«1000 TO 2000'PRINT#CH,I'NEXT
1950 GOSUB1850
I960 CLOSE CH-RETURN
1970 • •
1980 * ■
1990 PRINT"RERDING DflTR"
2000 GETR*
2810 FOR 1=1008 TO 2000
2020 INPUT* CH,J
2030 IF KM THEN PRINT":RERD ERROR:I" • GOSUB 1850
2040 NEXT
2050 GOSUB 1350
2060 CLOSE CH:RETURN
76