home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / DEMO.1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  21 lines
  1. 1  REM **********************
  2. 2  REM *       DEMO.1       *
  3. 3  REM *   BY MARK CRAVEN   *
  4. 4  REM * COPYRIGHT (C) 1986 *
  5. 5  REM * BY MICROSPARC, INC *
  6. 6  REM * CONCORD, MA  01742 *
  7. 7  REM **********************
  8. 10  HOME 
  9. 20  HTAB 1: VTAB 7: PRINT "PRESS 1 FOR 'TEXT:HOME'": PRINT : PRINT "PRESS 2 FOR 'HOME:TEXT'": PRINT : PRINT "<ESC> TO QUIT ": PRINT : PRINT : PRINT : PRINT "KEEP YOUR EYES ON THIS SPOT"
  10. 30  GOSUB 140
  11. 40  IF X$ =  CHR$(27)  THEN  END 
  12. 50  IF  VAL(X$) <1  OR  VAL(X$) >2  THEN 30
  13. 60  POKE 230,32: CALL 62450: HGR : GOSUB 100: FOR I = 1 TO 1000: NEXT : REM DRAW ON PAGE 1
  14. 70  ON  VAL(X$) GOTO 80,90
  15. 80  TEXT : HOME : GOSUB 130: GOTO 20
  16. 90  HOME : TEXT : GOSUB 130: GOTO 20
  17. 100  HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0
  18. 110  HPLOT 0,0 TO 279,159: HPLOT 279,0 TO 0,159
  19. 120  RETURN : REM DRAW FIGURE
  20. 130  HTAB 1: VTAB 2: PRINT "PRESS A KEY TO CONTINUE...";: POKE  -16368,0: GET X$: RETURN 
  21. 140  HTAB 1: VTAB 20: PRINT "PRESS 1,2 OR <ESC> ...";: CALL  -958: POKE  -16368,0: GET X$: RETURN