10 ' Juggler - colour switching DEMO I 20 ' (C) 1991 Sean McManus 30 ' 40 ON BREAK GOSUB 120 50 DATA EEEEFFFFEEEEFFFF0,00EEEEFFEEFFFF000,0000EE4444FF00000,00000044440000000,00000066660000000,0000AA88BB9900000,99AA00BB880099AA0,99AA0088660099AA0,00660066BB0066000,00006666666600001,00000077770000001,00000077770000001,00000077770000001 60 DATA 00003322222200001,00000033220000001,00000033330000000,0000000000000000E 70 CALL &BC02:x(0)=100:x(1)=500:y(1)=300:y(0)=100:MODE 0:RESTORE 50:FOR y=1 TO 16:READ a$:FOR x=1 TO 16:FOR a=0 TO 1:FOR b=0 TO 1:PLOT x*4+x(a),y*4+y(b),VAL("&"+MID$(a$,x,1)):PLOTR 0,2:NEXT b,a:TAG:MOVE 190+x*16,80+y*16:PRINT CHR$(143);:TAGOFF:NEXT x,y 80 SYMBOL 255,48,254,22,60,116,210,254,16:PEN 1:LOCATE 20,25:PAPER 0:PRINT CHR$(255); 90 PRINT CHR$(23)CHR$(1);:DEG:TAG:a$="Juggle":FOR g=1 TO LEN(a$):FOR i=12 TO 13:PLOT -10,-10,i:MOVE 310+200*SIN(g*15+315)+RND*20,160+200*COS(g*15+315)+RND*20:PRINT MID$(a$,g,1);:NEXT i,g:TAGOFF 100 CALL &BB06:INK 15,10,3:INK 14,3,10:INK 3,15:INK 2,6:INK 7,24:INK 8,26,2:INK 11,2,26:INK 9,2,3:INK 10,3,2:INK 0,3:INK 4,10:INK 13,24,3:INK 12,3,24:BORDER 3 110 a$="This Juggler is now animating himself in the background - the only processing is this scrolling message. ":WHILE 1:FOR g=1 TO LEN(a$):LOCATE 2,23:PRINT MID$(a$+a$,g,17);:NEXT:WEND 120 MODE 2:PEN 1:PAPER 0:CALL &BC02:LIST