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