dook
10-05-01, 11:00 AM
10 GRAPHIC 5,1:SCNCLR
20 PRINT "START IN 40 COLUMN BY SELECTING THE COMPOSITE VIDEO"
30 PRINT "INPUT OF YOUR DUAL MONITOR."
40 PRINT
50 PRINT "PRESS THE RETURN KEY WHEN READY."
60 GETKEY A$:IF A$ <> CHR$(13) THEN 60
70 GRAPHIC 2,1
80 CHAR 1,8,18,"BIT MAP/TEXT SPLIT SCREEN"
90 FOR I = 70 TO 220 STEP 20:CIRCLE 1,I,50,30,30:NEXT I
100 PRINT
110 PRINT " SWITCH TO 80 COLUMN BY SELECTING THE"
120 PRINT " RGBI VIDEO INPUT OF YOUR DUAL MONITOR,"
130 PRINT " THEN PRESS THE RETURN KEY WHEN READY."
140 GETKEY A$:IF A$ <> CHR$(13) THEN 140
150 GRAPHIC 5,1
160 FOR J = 1 TO 10
170 PRINT "YOU ARE NOW IN 80 COLUMN TEXT MODE."
180 NEXT J:PRINT
190 PRINT "NOW SWITCH BACK TO 40 COLUMN OUTPUT."
200 PRINT "PRESS THE RETURN KEY WHEN READY."
210 GETKEY A$:IF A$ <> CHR$(13) THEN 210
220 GRAPHIC 0,1
230 PRINT
240 FOR J = 1 TO 10
250 PRINT " YOU ARE NOW IN 40 COLUMN TEXT OUTPUT."
260 NEXT J
270 END
20 PRINT "START IN 40 COLUMN BY SELECTING THE COMPOSITE VIDEO"
30 PRINT "INPUT OF YOUR DUAL MONITOR."
40 PRINT
50 PRINT "PRESS THE RETURN KEY WHEN READY."
60 GETKEY A$:IF A$ <> CHR$(13) THEN 60
70 GRAPHIC 2,1
80 CHAR 1,8,18,"BIT MAP/TEXT SPLIT SCREEN"
90 FOR I = 70 TO 220 STEP 20:CIRCLE 1,I,50,30,30:NEXT I
100 PRINT
110 PRINT " SWITCH TO 80 COLUMN BY SELECTING THE"
120 PRINT " RGBI VIDEO INPUT OF YOUR DUAL MONITOR,"
130 PRINT " THEN PRESS THE RETURN KEY WHEN READY."
140 GETKEY A$:IF A$ <> CHR$(13) THEN 140
150 GRAPHIC 5,1
160 FOR J = 1 TO 10
170 PRINT "YOU ARE NOW IN 80 COLUMN TEXT MODE."
180 NEXT J:PRINT
190 PRINT "NOW SWITCH BACK TO 40 COLUMN OUTPUT."
200 PRINT "PRESS THE RETURN KEY WHEN READY."
210 GETKEY A$:IF A$ <> CHR$(13) THEN 210
220 GRAPHIC 0,1
230 PRINT
240 FOR J = 1 TO 10
250 PRINT " YOU ARE NOW IN 40 COLUMN TEXT OUTPUT."
260 NEXT J
270 END