home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42a.dsk / JUNE.1992 / SQUEEZE.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  76 lines
  1. 10  REM  ************************
  2. 20  REM  *  SCREEN SQUEEZE DEMO *
  3. 30  REM  *     by Vivek Pai     *
  4. 40  REM  *  Copyright (C) 1992  *
  5. 50  REM  * MindCraft Publ. Corp.*
  6. 60  REM  *  Lincoln, MA  01773  *
  7. 70  REM  ************************
  8. 80  HOME : PRINT  CHR$(21);: PRINT "SCREEN SQUEEZE DEMO": PRINT "by Vivek Pai": PRINT : PRINT "Copyright (C) 1992, by": PRINT "MindCraft Publishing Corp.": VTAB 21: INVERSE : PRINT "LOADING FILES...";: NORMAL 
  9. 90  PRINT  CHR$(4);"BLOAD SCREEN.SQUEEZE"
  10. 100  PRINT  CHR$(4);"BLOAD ELLIPSE.SCREEN,A$6000"
  11. 110  HIMEM: 8192
  12. 120  HTAB 1: PRINT "The ellipse screen has been loaded": INPUT "on Page 3. Press <Return> to begin.";A$
  13. 130  HIMEM: 8192: HGR 
  14. 140  FOR Y = 1 TO 12: READ C,A$: HOME : VTAB 21: PRINT "POKE 32768,";C;": CALL 32769 will ";A$;: INPUT " Press <Return> to do this.";A$: POKE 32768,C: CALL 32769: NEXT 
  15. 150  DATA  6,"move the  image on Page 3 to Page 1 for viewing. "
  16. 160  DATA  1,"compact   the screen using Horizontal method #1. "
  17. 165  IF  PEEK(1011) <150  THEN 200: REM  ALREADY INSTALLED
  18. 170  DATA  7,"move the  compacted screen to Page 2 for temporarystorage."
  19. 180  DATA  6,"once againmove Page 3 (the original image) to Page1 for further use."
  20. 190  DATA  2,"compact   the screen using Horizontal method #2. "
  21. 200  DATA  5,"merge the images on Page 1 and Page 2 and display the result."
  22. 210  DATA  8,"move the  image now on Page 1 to Page 3.         "
  23. 220  DATA  3,"compact   the screen using Vertical method #1.   "
  24. 230  DATA  7,"move the  compacted screen to Page 2 for temporarystorage."
  25. 235  CALL 48888: REM  FREE BUFFERS $BEF8
  26. 240  DATA  6,"move the  horizontally compacted screen on Page 3 to Page 1."
  27. 250  DATA  4,"compact   the screen using Vertical method #2.   "
  28. 260  DATA  5,"merge the vertically compacted images to yield    the final product."
  29. 270  HOME : VTAB 22: HTAB 16: PRINT "THE END"
  30. 280  HTAB 6: INPUT "Press <Return> to continue.";A$: TEXT : HOME : END 
  31. 290  REM  0303  20 F5 BE   JSR $BEF5
  32. 300  REM  0306  8D 00 03   STA $0300
  33. 310  REM  0309  60         RTS
  34. 320  FOR I = 1 TO 9: READ N: POKE ADR +I,N: NEXT I
  35. 330  CALL ADR +1
  36. 340  IF  PEEK(ADR) < >139  THEN  PRINT : PRINT "BUFFER ERROR": END 
  37. 350  PRINT  CHR$(4);"BLOAD  ACCU.EDIT.ML,A$8B00"
  38. 360 ED = 35584
  39. 370  REM  READ CONTROL CHARACTERS
  40. 380  DIM R$(13)
  41. 390 R$(1) =  CHR$( PEEK(ED +23) -64)
  42. 400 R$(2) =  CHR$( PEEK(ED +21) -64)
  43. 410 R$(3) =  CHR$( PEEK(ED +13) -64)
  44. 420 R$(4) =  CHR$( PEEK(ED +9) -64)
  45. 430 R$(5) =  CHR$( PEEK(ED +29) -64)
  46. 440 R$(6) =  CHR$( PEEK(ED +33) -64)
  47. 450 R$(7) =  CHR$( PEEK(ED +35) -64)
  48. 460 R$(8) =  CHR$( PEEK(ED +31) -64)
  49. 470 R$(9) =  CHR$( PEEK(ED +17) -64)
  50. 480 R$(10) =  CHR$( PEEK(ED +37) -64)
  51. 490 R$(11) =  CHR$( PEEK(ED +39) -64)
  52. 500 R$(12) =  CHR$( PEEK(ED +41) -64)
  53. 510 R$(13) =  CHR$( PEEK(ED +43) -64)
  54. 520  REM  DISPLAY CONTROL CHARACTERS
  55. 530  HOME 
  56. 540  HTAB 16: PRINT "ACCUEDIT": VTAB 3: INVERSE 
  57. 550  PRINT "CTRL RESET   ACTIVATE EDITOR           "
  58. 560  PRINT "CTRL ";R$(1);"       FORWARD LISTING           "
  59. 570  PRINT "CTRL ";R$(2);"       BACKWARD LISTING          "
  60. 580  PRINT "CTRL I (TAB) INSERT CHARACTER          "
  61. 590  PRINT "CTRL ";R$(3);"       INSERT CONTROL CHARACTER  "
  62. 600  PRINT "CTRL ";R$(4);" (DEL) DELETE CHARACTER          "
  63. 610  PRINT "CTRL ";R$(5);"       ERASE  END OF INSTRUCTION "
  64. 620  PRINT "CTRL ";R$(6);"       SEARCH STRING OF CHAR.    "
  65. 630  PRINT "CTRL ";R$(7);"       CONTINUE SEARCH           "
  66. 640  PRINT "CTRL ";R$(8);" (UP-ARROW)   CURSOR UP          "
  67. 650  PRINT "CTRL ";R$(9);" (DOWN-ARROW) CURSOR DOWN        "
  68. 660  PRINT "  <==  ==>          CURSOR LEFT, RIGHT "
  69. 670  PRINT "CTRL ";R$(10);"       80 COLUMN MODE            "
  70. 680  PRINT "CTRL ";R$(11);"       DISCONNECT EDITOR         "
  71. 690  PRINT "CTRL ";R$(12);"       TOGGLE LINE CHECKSUM      "
  72. 700  PRINT "CTRL ";R$(13);"       TOTAL PROGRAM CHECKSUM    "
  73. 710  PRINT "CALL ";ED;"   RECONNECT EDITOR          ";
  74. 720  NORMAL 
  75. 730  PRINT : PRINT "PRESS RETURN TO INSTALL EDITOR ";: GET B$: PRINT 
  76. 740  IF  PEEK(1011) >150  THEN  CALL ED: REM  NO RETURN. PROGRAM BRANCHES TO RESET