10 REM *** 136COLORS DEMO ***
20 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
30 REM ......................
40 POKE53281,0:POKE53280,0:POKE53269,0
45 IFPEEK(52720)=49THEN90
50 PRINTCHR$(147)"PLEASE WAIT..."
60 IFF=0THENF=1:LOAD"136COLORS",8,1
70 IFF=1THENF=2:LOAD"136SPR",8,1
80 SYS52600
90 PRINTCHR$(147):POKE198,0
100 POKE52882,150:POKE52884,174:POKE52886,198:POKE52888,1
110 POKE52883,100:POKE52885,100:POKE52887,100:POKE52889,1
120 POKE52894,200:POKE52895,202:POKE52896,204
130 POKE52890,13:POKE52891,13:POKE52892,13
135 IFPEEK(52896)<>0THEN135
136 POKE53269,255
140 FORL=13TO1STEP-1
150 POKE52890,L:POKE52891,L:POKE52892,L
160 FORW=1TO10:NEXTW
170 NEXTL
180 PRINT"";
190 DIMCL(13,1)
200 FORL=1TO13
210 READCL(L,0),CL(L,1)
220 NEXTL
230 DATA 1,13,24,32,43,51,52,57,58,64,65,71,72,77,82,86,88,93,96,102,103,111
240 DATA 112,118,128,134
250 C=INT(RND(1)*13)+1:D=1
260 LO=CL(C,0)
270 POKE52890,LO:POKE52891,LO:POKE52892,LO
280 LO=LO+D
285 IFPEEK(198)>0ANDEN=1THENPOKE198,0:GOTO400
290 GOSUB2000
300 IFLO=CL(C,1)THEND=-1:GOTO270
310 IFLO<CL(C,0)THEN250
320 GOTO270
330 DATA "COLORS*"
340 DATA "\12"
350 DATA "COPYRIGHT 1992 - COMPUTE PUBS INTL LTD*"
360 DATA "\12345678"
370 DATA "*"
380 DATA "PRESS ANY KEY TO CONTINUE_"
400 POKE53269,0
410 PRINTCHR$(147)
420 POKE52882,0:POKE52883,75:POKE52894,206:POKE52890,129
430 POKE53269,3
440 FORX=0TO174STEP2:POKE52882,X:NEXTX
450 EN=0:SN$="":PRINT""
460 C=INT(RND(1)*136)+1
470 POKE52890,C
480 FORW=1TO30
490 GOSUB2000
500 IFPEEK(198)>0ANDEN=1THENPOKE198,0:GOTO700
510 NEXTW
520 GOTO460
530 DATA "IN ADDITION TO BEING ABLE TO PRODUCE*"
540 DATA "136 COLORS, THIS PROGRAM CAN ALSO*"
550 DATA "CREATE 4 HIGH RESOLUTION (1 PIXEL RES-*"
560 DATA "OLUTION) SPRITES, EACH WITH 4 COLORS.*"
570 DATA "OF THOSE 4 COLORS, 1 COLOR IS CAPABLE*"
580 DATA "OF 136 COLORS. THE OTHER 3 COLORS ARE*"
590 DATA "RESTRICTED TO THE 16 COLORS OF THE*"
600 DATA "COMMODORE 64. EACH HIGH RESOLUTION*"
610 DATA "SPRITE IS CREATED FROM TWO SPRITES.*"
620 DATA "INCLUDED WITH THE PROGRAM IS AN EDITOR*"
630 DATA "TO PRODUCE THESE 4 HIGH RESOLUTION*"
640 DATA "SPRITES. THERE ARE ALSO TWO INTERRUPT*"
650 DATA "ROUTINES INCLUDED TO EASE THE USAGE*"
660 DATA "OF 136 COLORS AND HI-RES SPRITES.*"
670 DATA "*"
680 DATA "PRESS ANY KEY TO CONTINUE_"
700 POKE53269,0:PRINTCHR$(147)
710 POKE52882,138:POKE52884,162:POKE52886,186:POKE52888,210
720 POKE52883,75:POKE52885,75:POKE52887,75:POKE52889,75
730 POKE52894,208:POKE52895,208:POKE52896,208:POKE52897,208
740 POKE52890,1:POKE52891,2:POKE52892,3:POKE52893,4
745 IFPEEK(52897)<>0THEN745
750 POKE53269,255
754 PRINT"";:EN=0:SN$=""
755 GOSUB2000
756 IFEN=0THENGOTO755
760 PRINT"";TAB(15);"^"
770 PRINT"";TAB(12);"COLOR"
780 DIMC(3):C(0)=1:C(1)=2:C(2)=3:C(3)=4:D=0
790 FORS=0TO3
800 POKE52890+S,C(S)
810 NEXTS
815 PRINT"";TAB(17);"    "
816 PRINT"[145]";TAB(17);C(0)
820 GETA$:IFA$=""THEN820
830 IFA$="J"THEND=-1
840 IFA$="K"THEND=1
850 FORLR=0TO3
860 C(LR)=C(LR)+D
870 IFC(LR)>136THENC(LR)=1
880 IFC(LR)<1THENC(LR)=136
890 NEXTLR:D=0
900 IFA$="E"THEN1020
910 GOTO790
920 DATA "NOW, YOU MAY OBSERVE THE 136 COLORS*"
930 DATA "YOURSELF BY SCROLLING TO THE LEFT BY*"
940 DATA "PRESSING 'J' AND SCROLLING TO THE RIGHT*"
950 DATA "BY PRESSING 'K'. TO END, PRESS 'E'.*"
960 DATA "YOU WILL NOTICE THAT THE COLORS ARE*"
970 DATA "ORGANIZED INTO SEVERAL GROUPS. I HAVE*"
980 DATA "ARRANGED EACH GROUP FROM BRIGHTEST TO*"
990 DATA "DARKEST. EACH SPRITE HAS ITS OWN COLOR*"
1000 DATA "ADDRESS IN WHICH TO POKE ITS COLOR*"
1010 DATA "NUMBER._"
1020 PRINTCHR$(147):POKE53269,0
1030 POKE53281,6:POKE53280,14:POKE646,14
1040 END
2000 IFEN=1THEN2075
2010 IFSN$<>""THEN2045
2020 READSN$
2030 IFLEFT$(SN$,1)="\"THEN2080
2040 L=LEN(SN$):CH=0:PRINTTAB((41-L)/2);
2045 CH=CH+1
2050 IFMID$(SN$,CH,1)="*"THENSN$="":PRINT:GOTO2075
2060 IFMID$(SN$,CH,1)="_"THENEN=1:GOTO2075
2070 PRINTMID$(SN$,CH,1);
2075 RETURN
2080 R=LEN(SN$)-1
2090 FORRT=1TOR:PRINT:NEXTRT
2100 SN$="":GOTO2075