/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / TV-COLOR-TEST / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 20 4d 4f | 44 49 46 49 45 44 20 42 |1 REM MO|DIFIED B|
|00000010| 59 20 4a 41 4d 45 53 20 | 41 2e 20 47 41 59 4f 53 |Y JAMES |A. GAYOS|
|00000020| 4f 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |O       |        |
|00000030| 20 20 20 20 20 20 20 20 | 20 20 44 45 43 45 4d 42 |        |  DECEMB|
|00000040| 45 52 2c 20 31 39 38 37 | 0a 32 20 52 45 4d 20 43 |ER, 1987|.2 REM C|
|00000050| 4f 4c 4f 52 20 42 4c 4f | 43 4b 53 0a 33 20 47 4f |OLOR BLO|CKS.3 GO|
|00000060| 54 4f 32 30 30 0a 35 20 | 47 3d 31 33 2a 34 30 39 |TO200.5 |G=13*409|
|00000070| 36 3a 50 4f 4b 45 20 47 | 2b 33 33 2c 30 0a 37 20 |6:POKE G|+33,0.7 |
|00000080| 53 24 3d 22 1d 1d 1d 1d | 1d 1d 1d 22 0a 31 30 20 |S$="....|...".10 |
|00000090| 50 52 49 4e 54 20 22 93 | 22 3a 43 44 24 3d 22 90 |PRINT ".|":CD$=".|
|000000a0| 05 1c 9f 9c 1e 1f 9e 81 | 95 96 97 98 99 9a 9b 22 |........|......."|
|000000b0| 0a 31 31 20 50 4f 4b 45 | 35 33 32 38 30 2c 30 0a |.11 POKE|53280,0.|
|000000c0| 31 33 20 44 41 54 41 20 | 22 1d 12 90 42 4c 41 43 |13 DATA |"...BLAC|
|000000d0| 4b 1d 22 2c 22 1d 1d 12 | 05 57 48 49 54 45 1d 22 |K.","...|.WHITE."|
|000000e0| 2c 22 1d 1d 1d 12 1c 52 | 45 44 1d 1d 22 0a 31 34 |,".....R|ED..".14|
|000000f0| 20 44 41 54 41 20 22 1d | 1d 12 9f 43 59 41 4e 1d | DATA ".|...CYAN.|
|00000100| 1d 22 2c 22 1d 12 9c 50 | 55 52 50 4c 45 1d 22 2c |.","...P|URPLE.",|
|00000110| 22 1d 1d 12 1e 47 52 45 | 45 4e 1d 22 0a 31 35 20 |"....GRE|EN.".15 |
|00000120| 44 41 54 41 20 22 1d 1d | 12 1f 42 4c 55 45 1d 1d |DATA "..|..BLUE..|
|00000130| 22 2c 22 1d 12 9e 59 45 | 4c 4c 4f 57 1d 22 2c 22 |","...YE|LLOW.","|
|00000140| 1d 12 81 4f 52 41 4e 47 | 45 1d 22 0a 31 36 20 44 |...ORANG|E.".16 D|
|00000150| 41 54 41 20 22 1d 1d 12 | 95 42 52 4f 57 4e 1d 22 |ATA "...|.BROWN."|
|00000160| 2c 22 1d 1d 12 96 50 49 | 4e 4b 1d 1d 22 2c 22 1d |,"....PI|NK..",".|
|00000170| 12 97 47 52 41 59 20 31 | 1d 22 0a 31 37 20 44 41 |..GRAY 1|.".17 DA|
|00000180| 54 41 20 22 1d 12 98 47 | 52 41 59 20 32 1d 22 2c |TA "...G|RAY 2.",|
|00000190| 22 12 99 4c 54 20 47 52 | 45 45 4e 22 2c 22 1d 12 |"..LT GR|EEN","..|
|000001a0| 9a 4c 54 20 42 4c 55 45 | 22 0a 31 38 20 44 41 54 |.LT BLUE|".18 DAT|
|000001b0| 41 20 22 1d 12 9b 47 52 | 41 59 20 33 22 0a 32 30 |A "...GR|AY 3".20|
|000001c0| 20 46 4f 52 20 58 3d 30 | 20 54 4f 20 33 0a 32 35 | FOR X=0| TO 3.25|
|000001d0| 20 46 4f 52 20 59 3d 31 | 20 54 4f 20 35 0a 33 30 | FOR Y=1| TO 5.30|
|000001e0| 20 46 4f 52 20 5a 3d 31 | 20 54 4f 20 34 0a 34 30 | FOR Z=1| TO 4.40|
|000001f0| 20 50 52 49 4e 54 20 22 | 20 12 22 4d 49 44 24 28 | PRINT "| ."MID$(|
|00000200| 43 44 24 2c 58 2a 34 2b | 5a 2c 31 29 22 20 20 20 |CD$,X*4+|Z,1)"   |
|00000210| 20 20 20 20 20 92 20 22 | 3b 0a 35 30 20 4e 45 58 |     . "|;.50 NEX|
|00000220| 54 20 5a 0a 36 30 20 4e | 45 58 54 20 59 0a 36 35 |T Z.60 N|EXT Y.65|
|00000230| 20 49 46 20 58 3c 3e 33 | 20 54 48 45 4e 20 50 52 | IF X<>3| THEN PR|
|00000240| 49 4e 54 0a 37 30 20 4e | 45 58 54 20 58 0a 37 35 |INT.70 N|EXT X.75|
|00000250| 20 50 52 49 4e 54 20 22 | 13 11 90 22 53 50 43 28 | PRINT "|..."SPC(|
|00000260| 31 29 22 12 20 20 20 20 | 20 20 20 20 22 53 50 43 |1)".    |    "SPC|
|00000270| 28 33 32 29 22 12 20 20 | 20 20 20 20 20 20 22 0a |(32)".  |      ".|
|00000280| 37 36 20 50 52 49 4e 54 | 20 53 50 43 28 31 29 22 |76 PRINT| SPC(1)"|
|00000290| 12 20 20 20 20 20 20 20 | 20 22 53 50 43 28 33 32 |.       | "SPC(32|
|000002a0| 29 22 12 20 20 20 20 20 | 20 20 20 22 0a 37 37 20 |)".     |   ".77 |
|000002b0| 50 52 49 4e 54 53 50 43 | 28 31 29 22 12 20 20 20 |PRINTSPC|(1)".   |
|000002c0| 20 20 20 20 20 92 22 0a | 37 39 20 52 45 4d 20 50 |     .".|79 REM P|
|000002d0| 52 49 4e 54 53 50 43 28 | 31 29 22 cc af af af af |RINTSPC(|1)".....|
|000002e0| af af ba 22 0a 38 30 20 | 50 52 49 4e 54 22 13 22 |...".80 |PRINT"."|
|000002f0| 3b 3a 46 4f 52 20 58 3d | 31 20 54 4f 20 34 0a 39 |;:FOR X=|1 TO 4.9|
|00000300| 30 20 52 45 41 44 20 41 | 24 2c 42 24 2c 43 24 2c |0 READ A|$,B$,C$,|
|00000310| 44 24 0a 31 30 30 20 50 | 52 49 4e 54 20 22 11 11 |D$.100 P|RINT "..|
|00000320| 11 11 22 3b 3a 49 46 20 | 58 3d 31 20 54 48 45 4e |..";:IF |X=1 THEN|
|00000330| 20 50 52 49 4e 54 20 22 | 91 22 3b 0a 31 30 35 20 | PRINT "|.";.105 |
|00000340| 50 52 49 4e 54 20 22 1d | 22 41 24 2c 22 1d 22 42 |PRINT ".|"A$,"."B|
|00000350| 24 2c 22 1d 22 43 24 2c | 22 1d 22 44 24 0a 31 31 |$,"."C$,|"."D$.11|
|00000360| 30 20 4e 45 58 54 20 58 | 0a 31 32 30 20 47 45 54 |0 NEXT X|.120 GET|
|00000370| 20 41 24 3a 49 46 20 41 | 24 3d 22 22 20 54 48 45 | A$:IF A|$="" THE|
|00000380| 4e 20 31 32 30 0a 31 32 | 31 20 49 46 41 24 3d 22 |N 120.12|1 IFA$="|
|00000390| 51 22 54 48 45 4e 4e 45 | 57 0a 31 32 32 20 49 46 |Q"THENNE|W.122 IF|
|000003a0| 41 24 3d 22 58 22 54 48 | 45 4e 52 55 4e 35 0a 31 |A$="X"TH|ENRUN5.1|
|000003b0| 32 33 20 52 45 4d 20 20 | 56 41 52 49 41 42 4c 45 |23 REM  |VARIABLE|
|000003c0| 53 20 43 41 4e 20 42 45 | 20 41 44 44 45 44 20 48 |S CAN BE| ADDED H|
|000003d0| 45 52 45 0a 31 33 30 20 | 50 4f 4b 45 20 47 2b 33 |ERE.130 |POKE G+3|
|000003e0| 33 2c 50 45 45 4b 28 47 | 2b 33 33 29 2b 31 20 41 |3,PEEK(G|+33)+1 A|
|000003f0| 4e 44 20 31 35 0a 31 33 | 33 20 50 4f 4b 45 20 35 |ND 15.13|3 POKE 5|
|00000400| 33 32 38 30 2c 50 45 45 | 4b 28 47 2b 33 33 29 20 |3280,PEE|K(G+33) |
|00000410| 41 4e 44 20 31 35 0a 31 | 34 30 20 47 4f 54 4f 20 |AND 15.1|40 GOTO |
|00000420| 31 32 30 0a 32 30 30 20 | 50 4f 4b 45 35 33 32 38 |120.200 |POKE5328|
|00000430| 30 2c 36 0a 32 30 32 20 | 50 52 49 4e 54 22 93 11 |0,6.202 |PRINT"..|
|00000440| 11 11 20 20 20 20 20 20 | 20 20 20 12 54 45 4c 45 |..      |   .TELE|
|00000450| 56 49 53 49 4f 4e 20 43 | 4f 4c 4f 52 20 54 45 53 |VISION C|OLOR TES|
|00000460| 54 92 22 0a 32 31 32 20 | 50 52 49 4e 54 22 11 11 |T.".212 |PRINT"..|
|00000470| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 49 4d 50 52 4f 56 45 |........|.IMPROVE|
|00000480| 44 20 56 45 52 53 49 4f | 4e 20 42 59 3a 22 0a 32 |D VERSIO|N BY:".2|
|00000490| 32 30 20 50 52 49 4e 54 | 22 20 20 20 20 20 20 20 |20 PRINT|"       |
|000004a0| 20 20 20 20 20 20 20 20 | 12 4a 41 4d 45 53 20 41 |        |.JAMES A|
|000004b0| 2e 20 47 41 59 4f 53 4f | 92 22 0a 32 32 32 20 50 |. GAYOSO|.".222 P|
|000004c0| 52 49 4e 54 22 11 11 11 | 11 55 53 45 20 54 48 49 |RINT"...|.USE THI|
|000004d0| 53 20 50 52 4f 47 52 41 | 4d 20 54 4f 20 53 45 54 |S PROGRA|M TO SET|
|000004e0| 20 54 48 45 20 43 4f 4c | 4f 52 22 0a 32 32 33 20 | THE COL|OR".223 |
|000004f0| 50 52 49 4e 54 22 4f 4e | 20 59 4f 55 52 20 43 4f |PRINT"ON| YOUR CO|
|00000500| 4c 4f 52 20 54 45 4c 45 | 56 49 53 49 4f 4e 20 28 |LOR TELE|VISION (|
|00000510| 09 00 20 4d 4f 4e 49 54 | 4f 52 29 2e 22 0a 32 32 |.. MONIT|OR).".22|
|00000520| 35 20 50 52 49 4e 54 22 | 50 52 45 53 53 20 54 48 |5 PRINT"|PRESS TH|
|00000530| 45 20 12 53 50 41 43 45 | 92 20 42 41 52 20 54 4f |E .SPACE|. BAR TO|
|00000540| 20 43 48 41 4e 47 45 20 | 54 48 45 22 0a 32 32 37 | CHANGE |THE".227|
|00000550| 20 50 52 49 4e 54 22 42 | 41 43 4b 47 52 4f 55 4e | PRINT"B|ACKGROUN|
|00000560| 44 20 43 4f 4c 4f 52 2c | 20 12 58 92 20 54 4f 20 |D COLOR,| .X. TO |
|00000570| 52 45 54 55 52 4e 20 54 | 4f 22 0a 32 32 39 20 50 |RETURN T|O".229 P|
|00000580| 52 49 4e 54 22 41 20 42 | 4c 41 43 4b 20 42 41 43 |RINT"A B|LACK BAC|
|00000590| 4b 47 52 4f 55 4e 44 2c | 20 4f 52 20 12 51 92 20 |KGROUND,| OR .Q. |
|000005a0| 54 4f 20 51 55 49 54 2e | 22 0a 32 33 32 20 50 52 |TO QUIT.|".232 PR|
|000005b0| 49 4e 54 22 11 11 50 52 | 45 53 53 20 41 4e 59 20 |INT"..PR|ESS ANY |
|000005c0| 4b 45 59 20 54 4f 20 43 | 4f 4e 54 49 4e 55 45 22 |KEY TO C|ONTINUE"|
|000005d0| 0a 32 33 33 20 47 45 54 | 41 24 3a 49 46 41 24 3d |.233 GET|A$:IFA$=|
|000005e0| 22 22 54 48 45 4e 32 33 | 33 0a 32 33 36 20 47 4f |""THEN23|3.236 GO|
|000005f0| 54 4f 35 0a             |                         |TO5.    |        |
+--------+-------------------------+-------------------------+--------+--------+