home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro15 / wormy.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-20  |  2.1 KB  |  77 lines
  1.  '******************************************************************************
  2.  '* WORMY - Circle drawing demo.                                               *
  3.  '*                                                                            *
  4.  '* Written for GRAFIX by:  Joseph A. Albrecht                                 *
  5.  '*                                                                            *
  6.  '* Press F10 to toggle between 320 and 640 graphic modes                      *
  7.  '* Press ESC to exit program                                                  *
  8.  '******************************************************************************
  9.  '$INCLUDE: 'GRAFQBS.INC' 
  10.  'The above line is for QuickBASIC.
  11.  
  12.  ''$INCLUDE "GRAFTBS.INC"
  13.  'The above line is for TURBO BASIC. Remove the  ''  to compile the program.
  14.  
  15.  ''$INCLUDE "GRAFPBS.INC"
  16.  'The above line is for PowerBASIC. Remove the  ''  to compile the program.
  17.  
  18.  Graphics = 320
  19.  CALL GetTandy11(Tandy11%)
  20.  CALL MediumGraphics
  21.  
  22. Again:
  23.  CALL ClearScreen
  24.  IF Graphics = 320 THEN
  25.    CALL SetCursor(1, 18)
  26.  ELSE
  27.    CALL SetCursor(1, 38)
  28.  END IF
  29.  CALL PrintString("WORMY")
  30.  C# = 0
  31.  FOR X# = .1 TO 1.1 STEP .002
  32.    GOSUB CheckKey
  33.    C# = C# + .1
  34.    IF Graphics = 320 THEN
  35.      X% = X# * 200
  36.      Y% = SIN(X# * 24) * (X# * 50) + 100
  37.      Radius% = X# * 40
  38.      C% = C#
  39.      CALL ExtCircleC(X%, Y%, Radius%, C%)
  40.    ELSE
  41.      X% = X# * 400
  42.      Y% = SIN(X# * 24) * (X# * 50) + 100
  43.      Radius% = X# * 75
  44.      C% = C#
  45.      CALL ExtCircleC(X%, Y%, Radius%, C%)
  46.    END IF
  47.    IF C# > 15 THEN C# = 0
  48.  NEXT X#
  49.  X# = TIMER + 7
  50.  A$ = ""
  51.  WHILE (TIMER < X#) AND (A$ = "")
  52.    A$ = INKEY$
  53.  WEND
  54.  IF A$ = CHR$(27) GOTO EndProgram
  55.  GOTO Again
  56.  
  57. CheckKey:
  58.  K$ = INKEY$
  59.  K$ = RIGHT$(K$, 1)
  60.  IF K$ = CHR$(27) THEN GOTO EndProgram
  61.  IF K$ = CHR$(68) AND Tandy11% = Tandy11.True% THEN
  62.    IF Graphics = 320 THEN
  63.      Graphics = 640
  64.      CALL HighGraphics
  65.      RETURN AGAIN
  66.    ELSE
  67.      Graphics = 320
  68.      CALL MediumGraphics
  69.      RETURN AGAIN
  70.    END IF
  71.  END IF
  72.  RETURN
  73.  
  74. EndProgram:
  75.  CALL ExitGraphics
  76.  END
  77.