100 REM **************** 110 REM * TESTBILD * 120 REM **************** 130 CALL SCREEN(5) 140 CALL CLEAR 150 PRINT 160 PRINT " DATOR TESTBILD" 170 X=40 180 CALL CHAR(X,"FFFF010101010101") 190 CALL CHAR(X+1,"010101010101FFFF") 200 CALL CHAR(X+2,"808080FFFF808080") 210 CALL CHAR(X+3,"010101FFFF010101") 220 CALL CHAR(X+4,"FFFF808080808080") 230 CALL CHAR(X+5,"FFFF010101010101") 240 CALL CHAR(X+6,"010101010101FFFF") 250 CALL CHAR(X+7,"808080808080FFFF") 270 CALL COLOR(2,2,1) 280 CALL HCHAR(1,1,44,1) 290 CALL HCHAR(1,2,40,30) 300 CALL HCHAR(1,32,45,1) 310 CALL VCHAR(2,1,42,22) 320 CALL VCHAR(2,32,43,22) 330 CALL HCHAR(24,2,41,30) 340 CALL HCHAR(24,2,41,30) 350 CALL HCHAR(24,32,46,1) 370 CALL CHAR(48,"080808FFFF080808") 380 CALL CHAR(49,"FFFFFFFFFFFFFFFF") 390 CALL COLOR(1,2,1) 400 CALL COLOR(14,6,6) 410 CALL COLOR(15,10,10) 420 CALL COLOR(16,4,4) 430 FOR X=3 TO 22 440 CALL HCHAR(X,7,49,20) 450 NEXT X 460 FOR X=4 TO 21 470 CALL HCHAR(X,8,32,18) 480 NEXT X 490 FOR X=136 TO 152 STEP 8 500 CALL CHAR(X,"FFFFFFFFFFFFFFFF") 510 NEXT X 530 FOR X=4 TO 9 540 CALL HCHAR(X,8,136,6) 550 NEXT X 560 FOR X=10 TO 15 570 CALL HCHAR(X,8,152,6) 580 NEXT X 590 FOR X=16 TO 21 600 CALL HCHAR(X,8,144,6) 610 NEXT X 620 FOR X=4 TO 9 630 CALL HCHAR(X,14,144,6) 640 NEXT X 650 FOR X=10 TO 15 660 CALL HCHAR(X,14,136,6) 670 NEXT X 680 FOR X=16 TO 21 690 CALL HCHAR(X,14,152,6) 700 NEXT X 710 FOR X=4 TO 9 720 CALL HCHAR(X,20,152,6) 730 NEXT X 740 FOR X=10 TO 15 750 CALL HCHAR(X,20,144,6) 760 NEXT X 770 FOR X=16 TO 21 780 CALL HCHAR(X,20,136,6) 790 NEXT X 810 CALL CHAR(128,"AAAAAAAAAAAAAAAA") 820 CALL CHAR(129,"CCCCCCCCCCCCCCCC") 830 CALL CHAR(130,"9292929292929292") 840 CALL CHAR(131,"4949494949494949") 850 CALL CHAR(132,"2424242424242424") 860 CALL CHAR(133,"DBDBDBDBDBDBDBDB") 870 CALL CHAR(134,"6D6D6D6D6D6D6D6D") 880 CALL CHAR(135,"B6B6B6B6B6B6B6B6") 890 CALL COLOR(13,2,8) 900 FOR X=3 TO 5 910 CALL VCHAR(3,X,128) 920 NEXT X 930 CALL VCHAR(13,3,130,10) 940 CALL VCHAR(13,4,131,10) 950 CALL VCHAR(13,5,132,10) 960 FOR X=28 TO 30 970 CALL VCHAR(13,X,129,10) 980 NEXT X 990 CALL VCHAR(3,28,133,10) 1000 CALL VCHAR(3,29,134,10) 1010 CALL VCHAR(3,30,135,10) 1020 GOTO 1020