;ŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕ›;ŕ     14/03/87      ŕ›;ŕ By Edward SKRECKY ŕ›;ŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕŕ››BYTE ARRAY CSET=›[›0   0   0   0   0   0   0   0   ›85  124 124 74  74  124 124 85;1›85  61  61  5   5   61  61  85;2›85  124 124 65  65  124 124 85;3›85  61  61  133 133 61  61  85;4›85  124 124 64  64  124 124 85;5›85  61  61  165 165 61  61  85;6›85  124 126 66  64  124 124 85  ›85  61  189 133 5   61  61  85  ›85  124 124 64  66  126 124 85  ›85  61  61  5   133 189 61  85  ›]›››PROC INIT()››BYTE CHBAS=756››MOVEBLOCK(32768,57344,1024)›MOVEBLOCK(32768,CSET,88)›CHBAS=128››RETURN›››PROC MAIN()››  BYTE NUM1=[1], NUM2=[2] , COUNT=[0]›  CARD SC=88 , LOOP1=[0] , LOOP2=[0] , COUNTER=[0], ›       LOOP3=[0]›  BYTE POINTER PT›  BYTE ARRAY CHAR_SEQUENCE=›       [3 4 1 2 3 4 7 8 3 4 5 6 3 4 9 10]››  GRAPHICS(12+16)›  SETCOLOR(0,4,5)›  SETCOLOR(1,0,15)›  SETCOLOR(2,15,8)›  SETCOLOR(4,11,1)›  INIT()›  DO›    NUM1=CHAR_SEQUENCE(COUNT)›    NUM2=CHAR_SEQUENCE(COUNT+1)›    COUNTER=0›    FOR LOOP1=1 TO 480›    DO›      FOR LOOP2=NUM1 TO NUM2›      DO›        PT=SC+COUNTER›        PT^=LOOP2›        COUNTER==+1›      OD›    OD›    FOR LOOP3=1 TO 10000 DO OD›    IF COUNT>12 THEN COUNT=0›    ELSE COUNT==+2›    FI›  OD››RETURN››