home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35a.dsk / DECEMBER.1988 / GS.FX.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  22 lines
  1. 10  REM *
  2. 20  REM * GS.FX.DEMO
  3. 30  REM * BY PETER STUBBS
  4. 40  REM * COPYRIGHT (C) 1988
  5. 50  REM * MICROSPARC, INC.
  6. 60  REM * CONCORD, MA 01742
  7. 70  REM *
  8. 80 FX = 8192:SPD = 27:EFFECT = 26:VIDEO = 49193:SUPER = 193:TXT = 65
  9. 90  PRINT  CHR$(4);"PR#3": HOME : HTAB 35: PRINT "GS/FX Demo": PRINT : HTAB 32: PRINT "BY PETER STUBBS": PRINT : HTAB 31: PRINT "COPYRIGHT (C) 1988": PRINT : HTAB 32: PRINT "MICROSPARC, INC.": PRINT : PRINT : PRINT "THIS PROGRAM WILL ONLY WORK ON AN APPLE IIgs"
  10. 100  ONERR  GOTO 220
  11. 110  PRINT  CHR$(4);"BLOAD GS.FX,A$2000": POKE 216,0
  12. 120  POKE SPD,80: PRINT : PRINT : PRINT "Which speed setting would you like?(S/M/F):";: POKE  -16368,0: GET AN$: PRINT AN$;: IF AN$ = "S"  OR AN$ = "s"  THEN  POKE SPD,120
  13. 130  IF AN$ = "F"  OR AN$ = "f"  THEN  POKE SPD,40
  14. 140  PRINT : PRINT : PRINT "Is there a picture currently in memory?(Y/N):";: POKE  -16368,0: GET AN$: PRINT AN$;: IF AN$ = "Y"  OR AN$ = "y"  THEN 170
  15. 150  ONERR  GOTO 210
  16. 160  PRINT  CHR$(4);"BRUN PIC.CREATE": POKE 216,0
  17. 170  HOME : VTAB 12: HTAB 37: PRINT "FADE IN": FOR T = 1 TO 2000: NEXT : POKE EFFECT,0: CALL FX
  18. 180  POKE VIDEO,SUPER: FOR T = 1 TO 1000: NEXT : POKE VIDEO,TXT: HOME : VTAB 12: HTAB 37: PRINT "FADE OUT": FOR T = 1 TO 2000: NEXT : POKE EFFECT,1: CALL FX
  19. 190  POKE VIDEO,SUPER: FOR T = 1 TO 1000: NEXT : POKE VIDEO,TXT: HOME : VTAB 12: HTAB 36: PRINT "SCROLL IN": FOR T = 1 TO 2000: NEXT : POKE EFFECT,2: POKE SPD,( PEEK(SPD)/1.5): CALL FX
  20. 200  POKE VIDEO,SUPER: FOR T = 1 TO 1000: NEXT : POKE VIDEO,TXT: HOME : VTAB 23: END 
  21. 210  POKE 216,0: PRINT "ERROR LOADING PIC.CREATE": VTAB 23: END 
  22. 220  POKE 216,0: PRINT "ERROR LOADING GS.FX": VTAB 23: END