64'er/64ER_CD.iso/90xx/9002a.d64/fader

Commodore BASIC | 1995-03-30 | 1KB | 23 lines

0 DATA169,32,133,168,169,0,168,133,167,133,169,145,167,200,208,251,230,168,166
1 DATA168,224,64,208,243,185,64,127,153,0,4,185,64,128,153,0,5,185,64,129,153
2 DATA0,6,185,64,130,153,0,7,185,40,131,153,0,216,185,40,132,153,0,217,185,40
3 DATA133,153,0,218,185,40,134,153,0,219,200,208,205,173,16,135,141,33,208,169
4 DATA0,141,32,208,173,22,208,9,16,141,22,208,173,17,208,9,32,141,17,208,169,24
5 DATA141,24,208,32,114,16,32,224,228,96,169,0,133,167,133,169,141,5,17,141,6
6 DATA17,141,7,17,169,96,133,168,169,32,133,170,174,5,17,189,0,18,168,173,0,167
7 DATA24,109,7,17,41,3,170,189,0,17,49,167,17,169,145,169,238,145,16,32,215,16
8 DATA230,168,230,170,165,168,201,128,240,6,238,5,17,76,137,16,169,96,133,168
9 DATA169,32,133,170,238,6,17,173,6,17,141,5,17,208,189,238,7,17,173,7,17,201
10 DATA4,208,179,96,162,20,202,208,253,96,32,0,16,169,20,141,24,208,173,22,208
11 GOTO21:DATA41,239,141,22,208,173,17,208,41,223,141,17,208,96
12 POKE56,16:POKE4352,192:POKE4353,12:POKE4354,48:POKE4355,3:IFS>0THEN18
13 PRINT"[147]PLEASE WAIT":FORI=0TO255:POKE4608+I,I*151-INT(I*151/256)*256:NEXT
14 FORI=0TO1E3:A%=PEEK(4608+INT(255*RND(0))):B%=PEEK(4608+INT(255*RND(0)))
15 C%=A%:A%=B%:B%=C%:NEXT
16 FORI=4096TO4341:READA:S=S+A:POKEI,A:NEXT:IFS<>28077THENPRINT"DATA ERROR":STOP
17 INPUT"[147]PICTURE NAME";N$:LOADN$,8,8
18 SYS4317:GETN$:INPUT"[147]AGAIN";N$:IFN$="YES"ORN$="Y"THEN18
19 INPUT"NEW PICTURE";N$:IFN$="YES"ORN$="Y"THEN17
20 END
21 POKE 45,PEEK(174):POKE46,PEEK(175):CLR:GOTO12