Advertisement
LBASIC

AH-CIRC.BAS

Jun 5th, 2023
536
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.87 KB | Software | 0 0
  1. 'From: Andy Hayes                Conference: FidoQBasic   (139)
  2. 'Date: 02-17-96 18:15              BBS Name: Exec-PC
  3. 'Subject: ANOTHER Circle  Graphic       BBS ID: EXECPC
  4. 'Yep!  Here's another one! (:
  5. 'ANOTHER Cool Circle ScreenSaver
  6. 'Made by Andy Hayes
  7. 'Comments, Suggestions, Etc., are welcome.
  8. SCREEN 12: CLS
  9. RANDOMIZE TIMER
  10. Start:
  11. PointX = INT((640 - 0 + 1) * RND + 0)  'Random points for Circle
  12. PointY = INT((480 - 0 + 1) * RND + 0)  'Position
  13. Radius = INT((100 - 10 + 1) * RND + 10)
  14. C = RND * 15
  15. IF INKEY$ <> "" THEN GOTO Keypress
  16. 'For ScreenSaver... keypress ends prog.
  17. FOR x = 1 TO 100
  18.  CIRCLE (PointX, PointY), x, C
  19. NEXT x
  20. GOTO Start
  21. Keypress:  'A key was pressed.
  22. END
  23. 'Andy  <Netmail 1:231/75>
  24. '* Origin: Digital Dungeon - (317) 398-2622 - Fido (1:231/75)
  25.                                                                                
  26.                  
  27.  
  28.  
Tags: qbasic
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement