;PROGRAMMED BY TOM MCCOMB, COMPUSERVE›;72456,1042,ACTION BBS ACCOUT NUMBER 6›;THIS PROGRAM WAS WRITTEN IN RESPONSE›;TO HENRY HILLBRATH'S REQUEST IN HIS ›;ACTION! NEWSLETTER, TOP LEVEL TARRY.›;IT IS MY FIRST PROGRAMMING EFFORT IN›;ACTION! AND AS SLOPPY AS CAN BE!›;HOPEFULLY THINGS WILL IMPROVE.›;THIS IS THE SECOND EDITION...THE        ›;LETTERING HAS BEEN ADDED TO THE LOGO. ›;IT ALSO GOES INTO ATTRACT MODE.›;JUST TAP THE KEYBOARD TO RETURN TO ›;THE ORIGINAL COLOR SCHEME(OSS ORANGE).›;<<<<<<<<TOM MCCOMB 3/25/84>>>>>>>>>>››PROC LETTERS()›   BYTE L,H,R,C,E›   CARD P›     C=0›     R=0›     SETCOLOR(0,3,5)›     SETCOLOR(1,3,7)›     SETCOLOR(2,3,3)›     COLOR=0›    FOR H=1 TO 2›     DO  ›     FOR L= 1 TO 5 ›      DO››       PLOT(51+2*L,35-L);TOP OF 'T'›       PLOT(50+2*L,35-L);TOP OF 'T'›                         ›       PLOT(67+2*L+C,27-L+R);TOP OF 'O'›       PLOT(66+2*L+C,27-L+R);TOP OF 'O'››››       PLOT(101+2*L,23-L);TOP OF 'T'›       PLOT(102+2*L,23-L);TOP OF 'T'›  ›      OD››      C=C+7 ›      R=R+3››     OD›          PLOT(108,32)   ;›          DRAWTO(104,43) ;LETTER›          PLOT(108,32)   ;  A›          DRAWTO(112,40)›          PLOT(105,41)›          DRAWTO(110,38) ››        PLOT(104,69)   ; LETTER›        DRAWTO(109,73)›        DRAWTO(112,66) ;   Y››      FOR E=1 TO 9›      DO›       PLOT(44,53-E); -LEVEL-› ›       PLOT(55,59-E); -E-››       PLOT(77,70-E); -E-››       PLOT(88,75-E); -L-››       PLOT(108,30-E);-TARRY-›       PLOT(104,55-E);-R-›       PLOT(104,67-E);-R-››      OD››      FOR L=1 TO 4›       DO›       PLOT(102+2*L,47-L);TOP OF 'R            ›       PLOT(103+2*L,47-L);TOP OF 'R'››       PLOT(102+2*L,51-L);MID OF 'R            ›       PLOT(103+2*L,51-L);MID OF 'R'››       PLOT(102+2*L,59-L);TOP OF 'R'›       PLOT(103+2*L,59-L);TOP OF 'R'››       PLOT(102+2*L,63-L);MID OF 'R'›       PLOT(103+2*L,63-L);MID OF 'R'›       ›       PLOT(83+2*L,19-L);TOP OF 'P'›       PLOT(82+2*L,19-L);TOP OF 'P'››       PLOT(86+2*L,20-L);MID OF 'P'›       PLOT(87+2*L,20-L);MID OF 'P'››       OD›       ›         PLOT(109,48)›         DRAWTO(112,51)››         PLOT(109,60)›         DRAWTO(112,63)››     FOR E=1 TO 4›          DO›          PLOT(111,60-E);-R-›          PLOT(109,78-E);-Y-›          PLOT(111,47-E);-R-›          OD››    FOR L=1 TO 3›    DO›    PLOT(43+2*L,52+L);B OF 'L'›    PLOT(42+2*L,52+L);B OF 'L'››    PLOT(53+2*L,58+L);B OF 'E'›    PLOT(54+2*L,58+L);B OF 'E'››    PLOT(53+2*L,53+L);M OF 'E'›    PLOT(54+2*L,53+L);M OF 'E'››    PLOT(53+2*L,49+L);T OF 'E'›    PLOT(54+2*L,49+L);T OF 'E'››    PLOT(75+2*L,68+L);B OF 'E'›    PLOT(76+2*L,68+L);B OF 'E'››    PLOT(75+2*L,63+L);M OF 'E'›    PLOT(76+2*L,63+L);M OF 'E'››    PLOT(75+2*L,59+L);T OF 'E'›    PLOT(76+2*L,59+L);T OF 'E'››    PLOT(87+2*L,74+L);B OF 'L'›    PLOT(86+2*L,74+L);B OF 'L'››    OD››        PLOT(65,54)›        DRAWTO(68,65)›        DRAWTO(73,58)›        ›     FOR L=1 TO 4›      DO››      PLOT(55+2*L,31+L);TOP   ›      PLOT(54+2*L,31+L);TOP››      PLOT(67+2*L,25+L);TOP   ›      PLOT(66+2*L,25+L);TOP››      PLOT(76+2*L,21+L);TOP   ›      PLOT(75+2*L,21+L);TOP››      PLOT(83+2*L,17+L);TOP   ›      PLOT(84+2*L,17+L);TOP›      OD›    FOR L=1 TO 2›       DO››        PLOT(90+2*L,14+L);TOP   ›        PLOT(91+2*L,14+L);TOP››       OD›FOR E=1 TO 10 › DO ›  FOR P=1 TO 60000›   DO›   OD› OD  ››  RETURN ››PROC COLORS()›  BYTE A,B,C,D,E,F       ›  CARD M,N,PASS›  A=1 ›  B=2 ›  C=5›  D=3›  E=7›  F=9›  FOR M= 1 TO 60000›  DO›     SETCOLOR(0,B,E)›     SETCOLOR(1,D,C)›     SETCOLOR(2,A,F)›    A=B›    B=C›    C=D›    D=E›    E=F›    F=A ›  OD›  PASS=PASS+1›  IF PASS>2 THEN›     POKE($4D,$FE); SETS ATTRACT MODE›  FI›  RETURN   ›››PROC INTRO()›    CARD I,P›    GRAPHICS(2) ›    SETCOLOR(2,0,0)›    POKE($2F0,1);TURNS CURSOR OFF›    PRINTE("  PUBLISHED BY HENRY S. HILLBRATH")›    PUTE()›    PRINTE("   PROCEDURE BY THOMAS H. MCCOMB")›    PRINTDE(6,"")›    PRINTDE(6,"")›    PRINTDE(6,"")›    PRINTDE(6,"        TOP")›    PRINTDE(6,"       LEVEL")›    PRINTD(6,"       TARRY")› FOR P=1 TO 5 ›  DO›  ›  FOR I=1 TO 40000›  DO›  OD›  OD ›     PRINT("}")›RETURN››PROC MAIN()   ››     BYTE I,L     ›     CARD C› INTRO()››     GRAPHICS(23)      ›     POKE($D40E,0)›     POKE($22F,0)› ›     SETCOLOR(0,3,5)›     SETCOLOR(1,3,7)›     SETCOLOR(2,3,3)››      COLOR=3››        FOR I=10 TO 32 ›         DO››          PLOT(46+2*I,47-I)›          DRAWTO(46+2*I,59-I)›          ›          PLOT(47+2*I,47-I)›          DRAWTO(47+2*I,59-I)››         OD›              ›        COLOR=1››        FOR I=0 TO 22›         DO››          PLOT(52+2*I,45+I)››          DRAWTO(52+2*I,31+I)›          ›          PLOT(53+2*I,45+I)›          DRAWTO(53+2*I,32+I)››         OD››        FOR I=0 TO 32 ›         DO››          PLOT(38+2*I,38-I)›          DRAWTO(38+2*I,50-I)›          ›          PLOT(39+2*I,38-I)›          DRAWTO(39+2*I,50-I)››         OD››        FOR I=1 TO 6   ››          DO››          PLOT(102+2*I,6+I)›          DRAWTO(102+2*I,21-I)››          PLOT(103+2*I,6+I)›          DRAWTO(103+2*I,21-I)››          OD››     COLOR=2         ›        ›        FOR I=0 TO 32›         DO›    ›          PLOT(38+2*I,52+I)› ›          DRAWTO(38+2*I,38+I)›          ›          PLOT(39+2*I,52+I)›          DRAWTO(39+2*I,39+I)››         OD››       FOR I=0 TO 6››        DO›         PLOT(90+2*I,65+I)›         DRAWTO(90+2*I,38-I)›         ›         PLOT(89+2*I,66+I)›         DRAWTO(89+2*I,38-I)››        OD›    COLOR=3›  FOR I=0 TO 6 ›      DO›       PLOT(102+2*I,84-I)›       DRAWTO(102+2*I,19-I)››       PLOT(103+2*I,84-I)›       DRAWTO(103+2*I,19-I)››     OD››    POKE($D40E,$40)›    POKE($22F,$22)›      › FOR L=1 TO 5   ›  DO›   FOR C= 1 TO  60000›      DO›      OD›  OD› LETTERS()› COLORS()› LETTERS()› MAIN()››