0 REM TV
10 GRAPHICS 0:POKE 752,1:? "}":SC=PEEK(88)+256*PEEK(89)
20 POKE SC,128:POKE SC+39,128:POKE SC+959,128:POKE SC+920,128
30 CLR :POSITION 10,4:? "CALIBRACION DE TV"
40 OPEN #1,4,0,"K"
50 POSITION 10,8:? "1- PUNTOS":POSITION 10,10:? "2- CUADRICULA":POSITION 10,12:? "3- FULLSCREEN"
60 POSITION 10,14:? "4- ESCALERA":POSITION 10,16:? "5- BARRAS DE COLOR":POSITION 10,18:? "6- CARTA DE LA EIA"
65 POSITION 10,20:? "7- ATARI 256 COLORS"
70 GET #1,K:K=K-48:ON K<0 OR K>7 GOTO 70:IF K=0 THEN GRAPHICS 0:END
80 ON K GOSUB 100,200,300,400,500,700,600
90 ON PEEK(53279)<>6 GOTO 90:RUN
100 REM PUNTOS
110 GRAPHICS 22:COLOR 1:POKE 708,14:POKE 559,0
120 FOR X=0 TO 150 STEP 10:FOR Y=0 TO 88 STEP 8
130 PLOT X,Y:PLOT X,Y+7:PLOT X+9,Y:PLOT X+9,Y+7
140 NEXT Y:NEXT X:POKE 559,34
150 RETURN
200 REM CUADRICULA
210 GRAPHICS 22:COLOR 1:POKE 708,14:POKE 559,0
220 FOR X=2 TO 158 STEP 12:PLOT X,0:DRAWTO X,95:NEXT X
230 FOR Y=2 TO 92 STEP 10:PLOT 0,Y:DRAWTO 159,Y:NEXT Y
240 PLOT 80,47:POKE 559,34
250 RETURN
300 REM FULL SCREEN
310 GRAPHICS 15:POKE 752,1:? "} / :матиз / :луминанциа :б╞н/COL":X=1:Y=0:SC=1:GOSUB 380
320 POKE 764,255:SETCOLOR 4,X*SC,2*Y:K=PEEK(712):POKE 710,K:POKE 709,255-K:K=PEEK(764):IF K=255 THEN 370
330 X=X+((K=7)*(X<15)-(K=6)*(X>1))*SC
340 Y=Y+(K=14)*(Y<7)-(K=15)*(Y>0)
350 SC=ABS(SC-(K=28)):GOSUB 380
370 ON PEEK(53279)<>6 GOTO 320:RETURN
380 POKE 656,1:? "°";:POKE 657,6:? X*SC;:POKE 657,18:? 2*Y:RETURN
400 REM ESCALERA
410 GRAPHICS 9:POKE 559,0:FOR N=0 TO 79:COLOR INT(N/5):PLOT N,0:DRAWTO N,191:NEXT N:POKE 559,34
450 RETURN
500 REM BARRAS
510 GRAPHICS 10:POKE 559,0
520 GOSUB 800
540 FOR X=0 TO 79:COLOR INT(X/10)+1:PLOT X,0:DRAWTO X,191:NEXT X:POKE 559,34
550 RETURN
600 GOSUB 400:POKE 559,0:POKE 712,0
610 DL=PEEK(560)+256*PEEK(561)
620 FOR N=16 TO 88 STEP 12:POKE DL+N,143:NEXT N
622 FOR N=102 TO 198 STEP 12:POKE DL+N,143:NEXT N
625 FOR N=1536 TO 1566:READ A:POKE N,A:NEXT N
630 DATA 72,173,31,6,141,10,212,10,10,10,10,141,26,208,238,31,6,173,31,6
632 DATA 201,16,48,2,41,0,141,31,6,104,64
640 POKE 512,0:POKE 513,6:POKE 54286,192:POKE 1567,1:POKE 559,34
650 RETURN
700 REM CARTA EIA
710 GRAPHICS 10:POKE 559,0
712 DL=PEEK(560)+256*PEEK(561):POKE DL+166,15+128:RESTORE 716
714 FOR N=1536 TO 1556:READ B:POKE N,B:NEXT N
716 DATA 72,169,112,141,10,212,141,25,208,169,0,141,24,208,169,2,141,23,208,104,64
718 POKE 512,0:POKE 513,6:POKE 54286,192
720 GOSUB 800
730 SETCOLOR 4,10,0
740 FOR X=0 TO 79:Y=INT((X+15)/12):COLOR Y:PLOT X,0:DRAWTO X,143
741 COLOR 8-Y:IF Y-2*INT(Y/2) THEN DRAWTO X,159
742 NEXT X
745 COLOR 8:PLOT 0,160:DRAWTO 12,160:DRAWTO 12,191:DRAWTO 0,191
746 POKE 765,8:POSITION 0,160:XIO 18,#6,0,0,"S:"
747 COLOR 1:PLOT 13,160:DRAWTO 25,160:DRAWTO 25,191:DRAWTO 13,191
748 POKE 765,1:POSITION 13,160:XIO 18,#6,0,0,"S:"
749 COLOR 7:PLOT 26,160:DRAWTO 38,160:DRAWTO 38,191:DRAWTO 26,191
750 POKE 765,7:POSITION 26,160:XIO 18,#6,0,0,"S:"
751 COLOR 6:PLOT 57,160:DRAWTO 60,160:DRAWTO 60,191:DRAWTO 57,191
752 POKE 765,6:POSITION 57,160:XIO 18,#6,0,0,"S:"
755 COLOR 5:PLOT 65,160:DRAWTO 68,160:DRAWTO 68,191:DRAWTO 65,191
757 POKE 765,5:POSITION 65,160:XIO 18,#6,0,0,"S:"
760 POKE 559,34:RETURN
800 REM PONER COLORES
810 POKE 704,1:POKE 705,15:POKE 706,29:POKE 707,187
820 SETCOLOR 0,13,9:SETCOLOR 1,6,6:SETCOLOR 2,4,4:SETCOLOR 3,9,2
830 RETURN
900 GRAPHICS 8:SETCOLOR 2,0,6:SETCOLOR 1,0,0
910 COLOR 1:DEG
920 FOR I=0 TO 45 STEP 0.5
930 X=SIN(I):Y=COS(I)
940 REM ON N=0 GOTO 950:DRAWTO 80*(2-X),80*(1-Y)
950 PLOT 80*(2-X),80*(1-Y)
960 PLOT 80*(2+X),80*(1-Y)
970 PLOT 80*(2-X),80*(1+Y)
980 PLOT 80*(2+X),80*(1+Y)
990 PLOT 80*(2-Y),80*(1-X)
1000 PLOT 80*(2+Y),80*(1-X)
1010 PLOT 80*(2-Y),80*(1+X)
1020 PLOT 80*(2+Y),80*(1+X)
1050 NEXT I
1100 FOR I=0 TO 304 STEP 16
1110 PLOT I,0:DRAWTO I,159
1120 NEXT I
1130 FOR I=0 TO 144 STEP 16
1140 PLOT 0,I:DRAWTO 319,I
1150 NEXT I
(
geocities.com/hollywood/2645) (
geocities.com/hollywood)