0 'HMMM.BA Unknown
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 DEFINTA-Z:CLS:FORA=1TOVAL(RIGHT$(TIME$,2)):B=RND(1):NEXT:KEY(8)ON:ONKEYGOSUB,,,,,,,7
3 CLS:B=INT(RND(1)*8)+3:C=INT(RND(1)*5)+1:IFB*C>30THEN3ELSED=INT(RND(1)*15)*1:IFB*D>110THEN3
4 FORA=0TOB:LINE(120-(B*D),32-(A*C))-(120-(B*D)+(A*D),32-(B*C)):LINE(120+(B*D),32-(A*C))-(120+(B*D)-(A*D),32-(B*C))
5 LINE(120-(B*D),32+(A*C))-(120-(B*D)+(A*D),32+(B*C)):LINE(120+(B*D),32+(A*C))-(120+(B*D)-(A*D),32+(B*C)):NEXT
6 FORA=1TO2000:NEXT:GOTO3
7 MENU