home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21a.dsk / AUGUST.1984 / SPECIAL.EFFECTS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  57 lines
  1. 10  REM  **********************
  2. 20  REM  *   SPECIAL.EFFECTS  *
  3. 30  REM  *  BY ROD MACKENZIE  *
  4. 40  REM  * COPYRIGHT (C) 1984 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80  REM  LOAD THE ROUTINES
  9. 90  HOME 
  10. 100  VTAB 12: HTAB 13: FLASH : PRINT "LOADING";: NORMAL : PRINT " ROUTINES": VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
  11. 110  PRINT  CHR$(4);"BLOAD MIRROR.IMAGE"
  12. 120  PRINT  CHR$(4);"BLOAD POS.NEG"
  13. 130  REM  HEADING
  14. 140  DEF  FN A(X) =  INT((40 - LEN(A$))/2)
  15. 150  HOME 
  16. 160  FOR I = 1 TO 2: READ A$: GOSUB 550: NEXT 
  17. 170  VTAB 6
  18. 180  REM  INSTRUCTIONS
  19. 190  FOR I = 1 TO 5
  20. 200  READ A$: PRINT : PRINT A$
  21. 210  NEXT 
  22. 220  RESTORE 
  23. 230 A$ = "HIT SPACE BAR TO EXIT GRAPHICS"
  24. 240  VTAB 20: GOSUB 550
  25. 250  VTAB 22:A$ = "<< ENTER SELECTION PLEASE>>"
  26. 260  CALL  -958: GOSUB 550
  27. 270  REM  OBTAIN AND VERIFY SELECTION
  28. 280  PRINT "?";: GET B$:B =  VAL(B$)
  29. 290  IF  ASC(B$) = 32  THEN  TEXT : GOTO 130
  30. 300  IF B <1  OR B >5  THEN  PRINT  CHR$(7): GOTO 250
  31. 310  ON B GOTO 320,380,410,440,470
  32. 320  REM  LOAD A PICTURE
  33. 330  TEXT : HOME 
  34. 340  VTAB 12: PRINT "NAME OF PICTURE:";: INPUT PIC$
  35. 350  HOME : VTAB 12: FLASH : PRINT "LOADING";: NORMAL : PRINT "  ";: PRINT PIC$
  36. 360  PRINT  CHR$(4);"BLOAD";PIC$;",A$2000"
  37. 370  GOTO 130
  38. 380  REM  VIEW PAGE 1
  39. 390  POKE  -16297,0: POKE  -16300,0: POKE  -16302,0: POKE  -16304,0
  40. 400  GOTO 130
  41. 410  REM  COMPLEMENT THE PICTURE
  42. 420  CALL 24846: REM  ADDRESS OF POS-NEG = $610E
  43. 430  GOTO 130
  44. 440  REM  MIRROR OF PICTURE
  45. 450  CALL 24576: REM  ADDRESS OF MIRROR-IMAGE = $6000
  46. 460  GOTO 130
  47. 470  TEXT : HOME : END 
  48. 480  DATA  "HI-RES SPECIAL EFFECTS"
  49. 490  DATA  "----------------------": REM  22 DASHES
  50. 500  DATA  "1). LOAD A BINARY PICTURE INTO PAGE 1"
  51. 510  DATA  "2). VIEW THE PAGE 1 PICTURE"
  52. 520  DATA  "3). COMPLEMENT THE PAGE 1 PICTURE"
  53. 530  DATA  "4). MIRROR THE PAGE 1 PICTURE"
  54. 540  DATA  "5). EXIT PROGRAM"
  55. 550  REM  SUBRTN. TO PRINT A$
  56. 560  PRINT  TAB(  FN A(X));A$
  57. 570  RETURN