Msg: 4641 *Conference*
08-31-93 19:30:39
From: JAMES CROMER
To : RICHARD HANSON
Subj: SOMETHING NEW
Rick, I am sending by separate mail a newspaper article that was in the St. Louis -Dispatch dated Aug. 28th. Your name is mentioned quite freely in the aricle. Seeing this article gave me a thrill for owning a Model 100. I still think it is a great machine,-so much less involved in firing it up over my Tandy 2500sx20 PC. Following this introduction, is a Basic program that I copied from the most recent PCM magazine titled "TWINKLE STARS" One can enter his own title on the Screen by changing the words within the quotation marking of lines 30000 thru 30200. On line 830 I entered a short program I got from PCM that puts a message that travels across the screen. You can change that message and speed of travel on line 830. So have fun and enjoy that souped up bug that you have. ADIOS>>> ************* TWINKLE STAR.BAS ******** 600 KEY OFF: GOSUB 30000 810 CLS : LOCATE 10, 1: PRINT STRING$(80, 42): LOCATE 14, 1: 812 PRINT STRING$(80, 42): 815 Q = 80: READ A$: FOR X = 1 TO LEN(A$) + 80: 820 Q = Q - 1: Q = Q * SGN(Q): P$ = MID$(A$, X + (Q - 79), 80 - Q): 823 LOCATE 12, 1 + Q: 825 PRINT P$: FOR T = 1 TO 330: NEXT T, X: RESTORE: GOTO 600 830 DATA " NOW YOU HAVE SEEN THE STARS, LET'S HAVE SOME POPCORN " 900 REM 10000 END 30000 MM$ = "T W I N K L E": MM1$ = "AN IMPRESSIVE OPENING SCREEN" 30100 MM2$ = "WRITTEN BY PETE STEVENS": MM3$ = "NOT MUCH CODE,LOTS OF DAZZLE" 30200 MM3$ = "NOT MUCH TYPING, LOTS OF DAZZLE" 30300 STARS = 70: BLINK = 10: BCOLOR = 0: FCOLOR = 1: LCOLOR = 11 30400 DELAY = 600: COLOR LCOLOR, BCOLOR: CLS : RANDOMIZE TIMER 30500 FCOLOR = 1: COLOR LCOLOR, BCOLOR: I = 0 30600 LOCATE 6, INT((80 - LEN(MM$)) / 2), 0: PRINT MM$; 30700 LOCATE 11, INT((80 - LEN(MM1$)) / 2): PRINT MM1$; 30800 LOCATE 13, INT((80 - LEN(MM2$)) / 2): PRINT MM2$; 30900 LOCATE 19, INT((80 - LEN(MM3$)) / 2): PRINT MM3$; 31000 LOCATE 20, INT((80 - LEN(MM4$)) / 2): PRINT MM4$; 31100 LOCATE 23, 26: PRINT "PRESS ANY KEY TO CONTINUE"; 31200 COLOR LCOLOR + 16, BCOLOR: PRINT "...."; 31300 GOSUB 31500: GOSUB 32400: COLOR 11, 1: CLS 31400 RETURN 31500 I = I + 1: IF I > STARS THEN RETURN 31600 A = INT(80 * RND) + 1: B = INT(24 * RND) + 1 31700 IF CHR$(SCREEN(B, A)) <> " " THEN 31600 31800 C = I MOD BLINK 31900 KOLOR = INT(15 * RND) + 1 32000 IF KOLOR = BCOLOR THEN 31900 32100 LOCATE B, A 32200 IF C = 0 THEN COLOR (16 + KOLOR), BCOLOR ELSE COLOR KOLOR, BCOLOR 32300 PRINT "*"; : GOTO 31500 32400 ATIMER = INT(TIMER + DELAY) 32500 K$ = INKEY$: IF K$ <> "" OR INT(TIMER) > ATIMER THEN RETURN 32600 GOSUB 32700: GOSUB 33000: GOTO 32500 32700 A = INT(80 * RND) + 1: B = INT(24 * RND) + 1: T$ = CHR$(SCREEN(B, A)) 32800 IF T$ = "*" THEN COLOR 15, BCOLOR: LOCATE B, A: PRINT " "; : RETURN 32900 GOTO 32700 33000 A = INT(80 * RND) + 1: B = INT(24 * RND) + 1 33100 IF CHR$(SCREEN(B, A)) <> " " THEN 33000 33200 R = R + 1: LOCATE B, A: COLOR KOLOR, BCOLOR 33300 KOLOR = INT(15 * RND) + 1: IF KOLOR = BCOLOR THEN 33300 33400 IF R = BLINK THEN COLOR (KOLOR + 16), BCOLOR: R = 0 33500 PRINT "*"; : RETURN