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