home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40a.dsk / JANUARY.1991 / SLIDE.SHOW.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  29 lines
  1. 1  REM  ************************
  2. 2  REM  * SLIDE SHOW           *
  3. 3  REM  * BY PETER STUBBS      *
  4. 4  REM  * COPYRIGHT (C) 1991   *
  5. 5  REM  * MINDCRAFT PUBL. CORP.*
  6. 6  REM  * CONCORD, MA 01742    *
  7. 7  REM  ************************
  8. 40  GOTO 60
  9. 50  TEXT : HOME : PRINT "The files, PIC.MOVE, SLIDE.BIN,": PRINT "and UNPACK must be placed in the current";: PRINT "directory before running this program.": END 
  10. 60  ONERR  GOTO 50
  11. 70  PRINT  CHR$(21):D$ =  CHR$(4)
  12. 80 BLANK = 4976:YES = 5005:NO = 5026:M = 5040:U = 768: READ J: DIM A$(J): FOR I = 1 TO J: READ A$(I): NEXT 
  13. 90  PRINT D$"BLOADSLIDE.BIN": PRINT D$"BLOADUNPACK": PRINT D$"BLOADPIC.MOVE,A5040": TEXT : HOME : FOR I = 1 TO 40: PRINT "_";: NEXT I: INVERSE : PRINT " -SUPER RES SLIDE SHOW BY PETER STUBBS- ": NORMAL : PRINT 
  14. 100  PRINT "Copyright (C) 1991 MindCraft Publ. Corp.": PRINT : PRINT "Press RETURN to display next picture or": PRINT : PRINT "Press ESC to exit"
  15. 110  CALL BLANK: GOSUB 190: CALL YES
  16. 120  FOR I = 1 TO J: ONERR  GOTO 180
  17. 130  PRINT D$"VERIFY"A$(I): CALL 942:T =  PEEK(956):B$ = "": ON T = 6 GOTO 140:B$ = ",T$C1": ON T = 193 GOTO 140:B$ = ",T$C0"
  18. 140  PRINT D$"BLOAD"A$(I)",A$1400,L$8000"B$: IF B$ = ",T$C0"  THEN  POKE 254, PEEK(957): CALL U: GOTO 160
  19. 150  CALL M
  20. 160  POKE 216,0: GOSUB 190
  21. 170  NEXT I: GOTO 120
  22. 180  PRINT  CHR$(7);: GOTO 120
  23. 190  FOR D = 1 TO 3000:X =  PEEK( -16384): IF X >128  THEN D = 3000: POKE  -16368,0: REM  Delay & Check Keypress
  24. 200  NEXT D: IF X <128  THEN  RETURN 
  25. 210  IF X = 141  THEN  RETURN 
  26. 220  IF X = 155  THEN  POP : PRINT : CALL NO: END 
  27. 230  GOTO 190
  28. 240  DATA 2: REM NUMBER OF PICS
  29. 250  DATA "PIC.ONE","PIC.TWO": REM PICTURE NAMES GO HERE AND IN SUBSEQUENT DATA STATEMENTS