start tok64 d64-DJdTyU 10 REM ******************************** 20 REM * disk ljus-show! * 30 REM * * 40 REM * written by softice software. * 50 REM ******************************** 60 REM 100 FORa=49152TO49283:READx:POKEa,x:NEXT 110 DATA160,50,169,8,32,177,255,169,111,32,147,255,169,77,32,168,255,169,45,32 120 DATA168,255,169,87,32,168,255,152,32,168,255,169,5,32,168,255,169,1,32,168 130 DATA255,185,77,192,32,168,255,32,174,255,136,16,205,169,8,32,177,255,169,111 140 DATA32,147,255,169,85,32,168,255,169,67,32,168,255,32,174,255,96,169,254,170 150 DATA32,27,5,32,27,5,202,224,1,208,248,32,27,5,32,27,5,232,224,255,208,248,240 160 DATA235,138,72,73,255,168,169,248,141,0,28,202,208,248,169,240,141,0,28,136 170 DATA208,248,104,170,96,32,175,110,84 stop tok64 (bastext 1.0)