home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / SHOW.3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  31 lines
  1. 10  REM  **********************
  2. 20  REM  *       SHOW.3       *
  3. 30  REM  * BY  DAVID EFFLANDT *
  4. 40  REM  * COPYRIGHT (C) 1984 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80  REM  RUN SHOW.HELLO 1ST
  9. 90  REM  TO LOAD THREE PICTURES
  10. 100  REM 
  11. 500 A =  PEEK( -16302) + PEEK( -16300) - PEEK( -16297) - PEEK( -16304): REM  SHOW FULL HIRES PAGE 1
  12. 510  FOR P = 770 TO 800  STEP 30
  13. 520  CALL P: REM  PICTURE EXCHANGE - ORDER SHOWN 1,3,2
  14. 530  FOR PAUSE = 1 TO 300
  15. 540 K =  PEEK( -16384): REM  KEYBOARD
  16. 550  IF K >127  THEN  POKE  -16368,0: GOTO 600: REM  END ON ANY KEYPRESS
  17. 560  NEXT PAUSE
  18. 570  NEXT P
  19. 580  GOTO 510: REM  LOOP
  20. 590  REM  DOUBLE CHECK IF END
  21. 600  HOME : POKE  -16301,0: VTAB 23: HTAB 5: REM  MIX TEXT/GRAPHICS
  22. 610  REM  REPLACE FOLLOWING STATEMENT WITH YOUR OWN QUESTION OR TO RUN ANOTHER PROGRAM
  23. 620  VTAB 23: HTAB 5: PRINT "DID YOU WANT TO END? (Y OR N)  ";: GET A$: PRINT 
  24. 630  IF A$ = "N"  THEN  POKE  -16302,0: NEXT : REM  FULL PAGE GRAPICS - CONTINUE
  25. 640  IF A$ < >"Y"  THEN  GOTO 620
  26. 650  TEXT : HOME : VTAB 1: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": VTAB 5
  27. 660  REM  THE FOLLOWING APPLIES IF THE 'OILER' BLOAD SPEED-UP WAS USED
  28. 670  INVERSE : PRINT " NOTE ";
  29. 680  NORMAL : PRINT "  DOS IN MEMORY HAS BEEN ALTERED"
  30. 690  HTAB 9: PRINT "FOR FAST PICTURE LOADING": PRINT 
  31. 700  PRINT "REBOOT STANDARD DOS BEFORE ATTEMPTING   TO FORMAT OR COPY A DISK"