44 lines
1.0 KiB
Plaintext
44 lines
1.0 KiB
Plaintext
100 REM SMPTE Format Color Bars
|
|
110 REM with 400 Hz reference tone
|
|
120 CALL CLEAR
|
|
130 CALL SCREEN(2)
|
|
140 CALL COLOR(8,15,1)
|
|
150 CALL COLOR(9,11,1)
|
|
160 CALL COLOR(10,8,1)
|
|
170 CALL COLOR(11,13,1)
|
|
180 CALL COLOR(12,14,1)
|
|
190 CALL COLOR(13,10,1)
|
|
200 CALL COLOR(14,5,1)
|
|
210 CALL COLOR(15,2,1)
|
|
220 CALL COLOR(16,16,1)
|
|
230 GOSUB 510
|
|
240 REM color bars
|
|
250 CALL VCHAR(1,3,88,96)
|
|
260 CALL VCHAR(1,7,96,96)
|
|
270 CALL VCHAR(1,11,104,96)
|
|
280 CALL VCHAR(1,15,112,96)
|
|
290 CALL VCHAR(1,19,120,96)
|
|
300 CALL VCHAR(1,23,128,96)
|
|
310 CALL VCHAR(1,27,136,96)
|
|
320 REM BLACK BAR
|
|
330 CALL HCHAR(19,1,144,224)
|
|
340 REM WHITE BOX
|
|
350 FOR I=19 TO 24
|
|
360 CALL HCHAR(I,8,152,6)
|
|
370 NEXT I
|
|
410 REM SMPTE Complementary boxes
|
|
420 CALL HCHAR(18,3,136,4)
|
|
430 CALL HCHAR(18,7,144,4)
|
|
440 CALL HCHAR(18,11,120,4)
|
|
450 CALL HCHAR(18,15,144,4)
|
|
460 CALL HCHAR(18,19,104,4)
|
|
470 CALL HCHAR(18,23,144,4)
|
|
480 CALL HCHAR(18,27,88,4)
|
|
490 CALL SOUND(3000,400,12)
|
|
500 GOTO 490
|
|
510 SQUARE$="FFFFFFFFFFFFFFFF"
|
|
520 FOR I = 88 TO 152 STEP 8
|
|
530 CALL CHAR(I,SQUARE$)
|
|
540 NEXT I
|
|
590 RETURN
|