home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31b.dsk / HIRES.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  62 lines
  1. 10  REM ************************
  2. 20  REM * HIRES.DEMO           *
  3. 30  REM * BY JOHN MAJKA        *
  4. 40  REM * COPYRIGHT (C) 1987   *
  5. 50  REM * BY MICROSPARC, INC.  *
  6. 60  REM * CONCORD, MA  01742   *
  7. 70  REM ************************
  8. 80  TEXT : HOME : PRINT "HI-RES DEMO": PRINT "BY JOHN MAJKA": PRINT "COPYRIGHT 1987 BY MICROSPARC, INC."
  9. 90 EF = 1: ONERR  GOTO 580
  10. 100  VTAB 10: HTAB 1: CALL  -958: PRINT "NAME OF FIRST PICTURE (? FOR CAT): ": INPUT "";PC$: ON PC$ = "" GOTO 100: ON  LEFT$(PC$,1) = "?" GOTO 620: PRINT  CHR$(4)"VERIFY"PC$
  11. 110 EF = 2: ONERR  GOTO 580
  12. 120  VTAB 14: HTAB 1: CALL  -958: PRINT "NAME OF SECOND PICTURE (? FOR CAT): ": INPUT "";PD$: ON PD$ = "" GOTO 120: ON  LEFT$(PD$,1) = "?" GOTO 620: PRINT  CHR$(4)"VERIFY"PD$
  13. 130 EF = 3: ONERR  GOTO 580
  14. 140  HGR :D$ =  CHR$(4): POKE 34,20: HOME :E$ =  CHR$(7)
  15. 150  PRINT D$;"BLOAD HIRES.TRICKS": PRINT D$;"BLOAD";PC$
  16. 160  PRINT "HIRES TRICKS-SINGLE PAGE": POKE 34,21
  17. 170  PRINT "NEGATIVE CREATE";E$
  18. 180  FOR I = 1 TO 10: CALL 24576: FOR J = 1 TO 500: NEXT J: NEXT I
  19. 190  HOME : PRINT "LEFT SHIFT";E$
  20. 200  FOR I = 1 TO 40: CALL 24604: NEXT 
  21. 210  HOME : PRINT "RIGHT SHIFT";E$
  22. 220  FOR I = 1 TO 40: CALL 24682: NEXT 
  23. 230  HOME : PRINT "UP SHIFT";E$
  24. 240  FOR I = 1 TO 96: CALL 24760: NEXT 
  25. 250  HOME : PRINT "DOWN SHIFT";E$
  26. 260  FOR I = 1 TO 96: CALL 24848: NEXT 
  27. 270  HOME : PRINT "LEFT-RIGHT FLIP";E$
  28. 280  FOR I = 1 TO 10: CALL 24936: FOR J = 1 TO 1000: NEXT J: NEXT I
  29. 290  HOME : PRINT "TOP-BOTTOM FLIP";E$
  30. 300  FOR I = 1 TO 10: CALL 25078: FOR J = 1 TO 1300: NEXT J: NEXT I
  31. 310  HOME : PRINT "RIGHT SIDE MIRROR OF LEFT";E$
  32. 320  POKE 25014,234: POKE 25015,234: CALL 24936
  33. 330  FOR I = 1 TO 1500: NEXT 
  34. 340  HOME : PRINT "BOTTOM MIRROR OF TOP"
  35. 350  PRINT D$;"BLOAD"PC$: POKE 25120,234: POKE 25121,234: POKE 25193,234: POKE 25194,234: CALL 25078
  36. 360  HOME : PRINT "BOTTOM MIRROR OF TOP";E$
  37. 370  FOR I = 1 TO 2000: NEXT 
  38. 380  PRINT D$;"BLOAD"PC$",A$2000"
  39. 390  POKE 34,20: HOME : PRINT "HIRES TRICKS-TWO PAGES": POKE 34,21
  40. 400  PRINT "CURRENT PAGE 1";E$
  41. 410  FOR I = 1 TO 1500: NEXT 
  42. 420  HOME : PRINT "CURRENT PAGE 2": PRINT D$;"BLOAD"PD$",A$4000": POKE 49234,1: POKE 49237,1
  43. 430  FOR I = 1 TO 2000: NEXT 
  44. 440  HOME : POKE 49236,1: POKE 49235,1: PRINT "2 OVERLAID ONTO 1";E$
  45. 450  CALL 25246
  46. 460  FOR I = 1 TO 3000: NEXT 
  47. 470  HOME : PRINT "1 MINUS 2": CALL 25282
  48. 480  FOR I = 1 TO 3000: NEXT 
  49. 490  HOME : PRINT "PAGES 1-2 SCROLL LEFT";E$
  50. 500  FOR I = 1 TO 20: CALL 25388: NEXT 
  51. 510  HOME : PRINT "PAGES 1-2 SCROLL RIGHT";E$
  52. 520  FOR I = 1 TO 20: CALL 25512: NEXT 
  53. 530  HOME : PRINT "PAGES 1-2 SCROLL DOWN";E$
  54. 540  FOR I = 1 TO 96: CALL 25816: NEXT 
  55. 550  HOME : PRINT "PAGES 1-2 SCROLL UP";E$
  56. 560  FOR I = 1 TO 96: CALL 25636: NEXT 
  57. 570  TEXT : HOME : END 
  58. 580  IF EF = 3  THEN  TEXT : HOME 
  59. 590  POKE 216,0: PRINT : PRINT "TROUBLE LOCATING FILE "PA$
  60. 600  VTAB 22: HTAB 1: PRINT "PRESS RETURN TO RE-ENTER NAMES";: GET Z$: PRINT 
  61. 610  ON EF GOTO 90,110,90
  62. 620  HOME : PRINT  CHR$(4) LEFT$("CATALOG",7 -4 *( PEEK(48896) = 76)): PRINT "PRESS RETURN TO CONTINUE";: GET Z$: PRINT : HOME : GOTO 100