Compucolor.org – Virtual Media

Listing of file='SCTEST.BAS;01' on disk='vmedia/selective_utilities-sector.ccvf'

10 PLOT 15,30,16,29,22
20 PLOT 14,12
30 PRINT TAB( 14)"COMPUWORLD'S CCII SCREEN RAM TEST"
40 PRINT
50 PLOT 15
60 PRINT "IN RESPONSE TO CYCLE?  PLEASE ANSWER Y IF YOU WISH THE TEST"
65 PRINT
70 PRINT "TO PERFORM CONTINUOUS PASSES; ANSWER N IF YOU WISH THE TEST"
75 PRINT
80 PRINT "TO MAKE ONLY ONE PASS."
85 PRINT :PRINT
90 PRINT TAB( 6)"X  WILL HALT THE PROGRAM."
95 PRINT
100 PRINT TAB( 6)"Z  WILL RESTART THE PROGRAM IF AN ERROR HAS OCCURRED."
105 PRINT :PRINT
110 PRINT "IF AN ERROR OCCURS,  PLEASE WRITE DOWN  THE INFORMATION AND"
115 PRINT
120 PRINT "INFORM COMPUWORLD."
125 PRINT :PRINT
130 INPUT "NOW PRESS RETURN TO BEGIN THE TEST... ";A$
140 PLOT 12,27,4:PRINT "RUN SCTEST"