home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CST2B.D64 / pt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  108 lines
  1. 1000 REM  PERFORMANCE TEST  2.0
  2. 1010 :
  3. 1020 REM  VIC-20 AND COMMODORE 64
  4. 1030 REM  SINGLE FLOPPY DISK DRIVE
  5. 1040 :
  6. 1050 OPEN 1,8,15:OPEN15,8,15
  7. 1060 LT=35
  8. 1070 LT$=STR$(LT)
  9. 1080 NT=30
  10. 1090 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  11. 1100 PRINT"   PERFORMANCE TEST"
  12. 1110 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  13. 1120 PRINT
  14. 1130 PRINT"  INSERT SCRATCH"
  15. 1140 PRINT
  16. 1150 PRINT"    DISKETTE IN DRIVE"
  17. 1160 PRINT
  18. 1170 PRINT"   PRESS RETURN[146]"
  19. 1180 PRINT
  20. 1190 PRINT"          WHEN READY"
  21. 1200 FOR I=0 TO 50:GET A$:NEXT
  22. 1210 GET A$:IF A$<>CHR$(13) THEN 1210
  23. 1220 :
  24. 1230 :
  25. 1240 TI$="000000"
  26. 1250 TT=18
  27. 1260 PRINT#1,"N0:TEST DISK,00"
  28. 1270 C1$="   DISK NEW COMMAND   "+CHR$(13)
  29. 1280 C2$=" WAIT ABOUT 80 SECONDS"
  30. 1290 CC$=C1$+C2$:GOSUB 1840
  31. 1300 IF TI<NTTHEN1370
  32. 1310 PRINT"SYSTEM IS"
  33. 1320 PRINT"        NOT RESPONDING"
  34. 1330 PRINT" CORRECTLY TO COMMANDS"
  35. 1340 GOSUB 1880
  36. 1350 :
  37. 1360 :
  38. 1370 PRINT"DRIVE PASS"
  39. 1380 PRINT"       MECHANICAL TEST"
  40. 1390 TT=21
  41. 1400 OPEN 2,8,2,"0:TEST FILE,S,W"
  42. 1410 CC$="OPEN WRITE FILE"       :GOSUB 1840
  43. 1420 CH=2:CC$="WRITE DATA"       :GOSUB 1930
  44. 1430 CC$="CLOSE "+CC$            :GOSUB 1840
  45. 1440 OPEN 2,8,2,"0:TEST FILE,S,R"
  46. 1450 CC$="OPEN READ FILE"        :GOSUB 1840
  47. 1460 CH=2:GOSUB 1990
  48. 1470 PRINT#1,"S0:TEST FILE"
  49. 1480 CC$="SCRATCH FILE":TT=1    :GOSUB 1840
  50. 1490 :
  51. 1500 :
  52. 1510 TT=21
  53. 1520 OPEN 4,8,4,"#"
  54. 1530 NN%=(1+RND(TI)*254+NN%)AND255:PRINT#1,"B-P";4;NN%
  55. 1540 NN$="":FOR I=1 TO 255:NN$=NN$+CHR$(I):NEXT
  56. 1550 PRINT# 4,NN$;
  57. 1560 PRINT# 1,"U2:";4;0;LT;0
  58. 1570 CC$="WRITE TRACK"+LT$:GOSUB 1840
  59. 1580 PRINT#1,"U2:";4;0;1;0
  60. 1590 CC$="WRITE TRACK 1"         :GOSUB 1840
  61. 1600 PRINT#1,"U1:";4;0;LT;0
  62. 1610 CC$="READ TRACK"+LT$        :GOSUB 1840
  63. 1620 PRINT#1,"U1:";4;0;1;0
  64. 1630 CC$="READ TRACK 1"          :GOSUB 1840
  65. 1640 CLOSE 4
  66. 1650 :
  67. 1660 :
  68. 1670 PRINT" UNIT HAS PASSED"
  69. 1680 PRINT"     PERFORMANCE TEST!"
  70. 1690 PRINT" PULL DISKETTE FROM"
  71. 1700 PRINT"  DRIVE BEFORE TURNING"
  72. 1710 PRINT"   POWER OFF."
  73. 1720 END
  74. 1730 :
  75. 1740 :
  76. 1750 PRINT"   CONTINUE (Y/N)?";
  77. 1760 FOR I=0 TO 50:GET A$:NEXT
  78. 1770 GET A$:IF A$="" THEN 1770
  79. 1780 PRINT A$""
  80. 1790 IF A$="N" THEN END
  81. 1800 IF A$="Y" THEN RETURN
  82. 1810 GOTO 1760
  83. 1820 :
  84. 1830 :
  85. 1840 PRINT CC$
  86. 1850 INPUT# 1,EN,EM$,ET,ES
  87. 1860 PRINTTAB(12)""EN;EM$;ET;ES;""
  88. 1870 IF EN<2 THEN RETURN
  89. 1880 PRINT" UNIT IS FAILING"
  90. 1890 PRINT"   PERFORMANCE TEST"
  91. 1900 TM$=TI$:GOSUB 1750:TI$=TM$:RETURN
  92. 1910 :
  93. 1920 :
  94. 1930 PRINT"WRITING DATA"
  95. 1940 FOR I=1000 TO 2000:PRINT#CH,I:NEXT
  96. 1950 GOSUB1850
  97. 1960 CLOSE CH:RETURN
  98. 1970 :
  99. 1980 :
  100. 1990 PRINT"READING DATA"
  101. 2000 GETA$
  102. 2010 FOR I=1000 TO 2000
  103. 2020 INPUT# CH,J
  104. 2030 IF J<>I THEN PRINT"READ ERROR:[146]":GOSUB 1850
  105. 2040 NEXT
  106. 2050 GOSUB 1850
  107. 2060 CLOSE CH:RETURN
  108.