0 GOTO 100
1 CLS:BEEP:FORZ=1.5TO60STEP.5:BEEP:CLS:'I added the CLS @ end 1 for nicer display
2 B=0:FORP=1TO5:FORA=0TO32STEPZ:X=239-B:Y=63-A:GOSUB7
3 LINE(B,A)-(X,Y),1,B:B=B+Z:NEXTA
4 FORA=32TO0STEP-Z:X=239-B:Y=63-A:GOSUB7
5 LINE(B,A)-(X,Y),0,B:B=B+Z:NEXT A,P,Z
6 MENU
7 IFX<0THENX=0
8 IFY<0THENY=0
9 IFX>239THENX=239
10 IFY>63THENY=63
11 IFB>239THENB=239
12 RETURN
100 BEEP:CLS::'Loaded from 'PORTABLE 100'    Dec '85 page 61 GIGO Column.
101 'PROG BY RICHARD C. HOBBS *    LISBON FALLS, ME
102 'Hand Loaded & Intro by Stan Kendall    May 1988
110 LINE(5,5)-(234,58),1,B
120 PRINT@43,"Prog 'KSCOPE' by Richard Hobbs * ME":' My Prog Name SEK	
130 PRINT@124,"A Graphic Kaleidoscope of Designs"
131 'R. Hobbs Prog starts @ Line 1.
140 PRINT@206,"Model-200 Users see Line 200+"
150 PRINT@294,"Any Key to Go";
160 IF INKEY$=""THEN160ELSE1
200 'FOR TANDY 200 USERS.
210 'Change the number 32 in lines 2 & 4 to 64 & the 63 in lines 2,4 & 10 to 127