sometimes99er

100 CALL CLEAR::CALL CHAR(65,"101010383838386C")
110 GOTO 100

100 CALL CLEAR::PRINT"GENERATING PATTERNS","generating patterns"::FOR C=65 TO 90::CALL CHARPAT(C,C$)
110 CALL CHAR(C,"00000000"&SEG$(C$,3,2)&"0"&SEG$(C$,6,5),C+32,SEG$(C$,11,6)&"00"&SEG$(C$,15,2))
120 CALL HCHAR(8,C-62,C)::CALL HCHAR(9,C-62,C+32)::NEXT C::CALL SCREEN(2)
130 T=INT(RND*13)+3
140 B=INT(RND*13)+3::IF T=B THEN 140
150 CALL COLOR(5,T,1,6,T,1,7,T,1,8,T,1,9,B,1,10,B,1,11,B,1,12,B,1)::CALL SOUND(500,110,30)::GOTO 130

100 CALL CLEAR::PRINT"GENERATING PATTERNS","generating patterns"::FOR C=65 TO 90::CALL CHARPAT(C,C$)
110 CALL CHAR(C,SEG$(C$,3,2)&SEG$(C$,3,2)&SEG$(C$,5,2)&SEG$(C$,5,2)&SEG$(C$,7,2)&SEG$(C$,7,2)&SEG$(C$,9,2)&SEG$(C$,9,2))
120 CALL CHAR(C+32,SEG$(C$,11,2)&SEG$(C$,11,2)&SEG$(C$,13,2)&SEG$(C$,13,2)&SEG$(C$,15,2)&SEG$(C$,15,2))
130 CALL HCHAR(8,C-62,C)::CALL HCHAR(9,C-62,C+32)::NEXT C

100 CALL CLEAR::CALL CHAR(33,"18183C3C7EFFFFFF")
110 PL=15::CALL HCHAR(24,PL+1,33)
120 CALL JOYST(1,X,Y)::IF X THEN CALL HCHAR(24,PL+1,32)::PL=(PL+SGN(X))AND 31::CALL HCHAR(24,PL+1,33)
130 GOTO 120