256 Colors

 BBS: Inland Empire Archive
Date: 04-01-93 (23:50)             Number: 304
From: EARL MONTGOMERY              Refer#: NONE
  To: MIKHAIL FERDMAN               Recvd: NO  
Subj: 256 Colors                     Conf: (2) Quik_Bas

' Part 4 of 4 parts.
     IF X > 320 THEN
         fx = 0 - (RND(1) * 11 + 1)
         GOTO borders
     END IF
     IF y < 1 THEN
         fy = RND(1) * 11 + 1
         GOTO borders
     END IF
     IF y > 200 THEN
         fy = 0 - (RND(1) * 11 + 1)
         GOTO borders
     END IF
     ct = ct + 1
     IF ct >= 1500 THEN
         GOTO bye
     END IF
     GOTO jazz
bye:
     t = TIMER
     WHILE TIMER < t + 3
     WEND
     SCREEN 0
     CLS
     END
'End of part 4 of 4 parts.

--- Maximus 2.01wb
 * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)