home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / ALPHA.PLOT.SHK / ALPHA.PLOT / 6a3_6ju_8.bas next >
BASIC Source File  |  2000-01-01  |  5KB  |  51 lines
  1. 10  REM    <CTRL-M><CTRL-M>===================<CTRL-M>HI-LO PLOT<CTRL-M>(C) BEAGLE BROS<CTRL-M>4315 SIERRA VISTA<CTRL-M>SAN DIEGO, CA 92103<CTRL-M>===================
  2. 15  IF  PEEK(103) + PEEK(104) *256 < >24577  THEN  PRINT : PRINT "<CTRL-D>RUN HI-LO PLOT"
  3. 20  TEXT : HOME :A$ = "*": SPEED= 222
  4. 30  READ V: READ H: IF V = 0  AND H = 0  THEN  NORMAL : GOTO 45
  5. 40  VTAB V: HTAB H: PRINT A$: GOTO 30
  6. 45  IF   NOT FLAG  THEN  INVERSE :FLAG = 1: RESTORE :A$ = ":": SPEED= 255: GOTO 30
  7. 50  NORMAL : VTAB 11: HTAB 14: PRINT "BY BEAGLE BROS": PRINT : HTAB 5: PRINT "CONVERTS HI-RES TO LO-RES & BACK": HTAB 8: PRINT "TO CREATE ABSTRACT IMAGES": HTAB 10: PRINT "OF QUESTIONABLE VALUE": PRINT : PRINT "(YOU MUST BLOAD A HI-RES OR LO-RES IMAGE";
  8. 60  HTAB 6: PRINT "BEFORE RUNNING THIS PROGRAM.)"
  9. 70  VTAB 21: HTAB 1: PRINT " <H> CONVERT HI-RES GRAPHICS TO LO-RES   <L> CONVERT LO-RES GRAPHICS TO HI-RES   <Q> QUIT TO BLOAD HI- OR LO-RES IMAGE": FLASH : VTAB 21: HTAB 3: PRINT "H": HTAB 3: PRINT "L": NORMAL 
  10. 80  VTAB 23: HTAB 3: GET A$: IF A$ < >"H"  AND A$ < >"L"  AND A$ < >"Q"  THEN 70
  11. 90  IF A$ = "L"  THEN 350
  12. 100  IF A$ = "H"  THEN 140
  13. 110  VTAB 11: HTAB 1: CALL  -958: PRINT "TO LOAD A HI-RES IMAGE, TYPE:": PRINT "          ------": HTAB 4: PRINT "BLOAD NAME,A$2000   (PAGE 1)": PRINT "   -----------------": PRINT "OR BLOAD NAME,A$4000   (PAGE 2)": PRINT "   -----------------"
  14. 120  PRINT : PRINT : PRINT "TO LOAD A LO-RES IMAGE, TYPE:": PRINT "          ------": PRINT "   BLOAD NAME,A$800    (PAGE 2)": PRINT "   ----------------": PRINT : PRINT "   (PAGE 1 LO-RES NOT USED HERE)";: VTAB 12: END 
  15. 130  REM <CTRL-M><CTRL-M>HI-LO CONVERTER<CTRL-M>---------------
  16. 140 OBL = 4131:PG = 1
  17. 150  POKE  -16304,0: POKE  -16297,0: POKE  -16301,0: POKE  -16300,0
  18. 160  GR : POKE  -16297,0:N = 0:A = PG *8192:I = A:ALO = I - INT(I/256) *256:AHI =  INT(I/256):B = I +1024:BLO = B - INT(B/256) *256:BHI =  INT(B/256):N = N +1
  19. 170  POKE OBL +3,1: POKE OBL +4,1: POKE OBL +5,ALO: POKE OBL +6,AHI: POKE OBL +7,BLO: POKE OBL +8,BHI: POKE OBL +9,0: POKE OBL +10,4: CALL OBL
  20. 180  HOME : VTAB 21: HTAB 1: PRINT "SELECT:";: FLASH : PRINT " ";: NORMAL : PRINT "   ";: INVERSE : PRINT " HI-LO CONVERTER ";: NORMAL : PRINT "    (PAGE^2)"
  21. 190  VTAB 23: HTAB 1: PRINT "      <P> SEE OPPOSITE HI-RES PAGE            <C> CONVERT THIS PAGE TO LO-RES";: VTAB 21: HTAB 1
  22. 200  POKE OBL +3,1: POKE OBL +4,1: POKE OBL +5,0: POKE OBL +6,4: POKE OBL +7,255: POKE OBL +8,7: POKE OBL +9,0: POKE OBL +10,8: CALL OBL
  23. 210  VTAB 21: HTAB 39: PRINT 1
  24. 220  VTAB 21: HTAB 8: GET A$: IF A$ < >"P"  AND A$ < >"C"  THEN 220
  25. 230  IF A$ = "P"  THEN PG = PG +1 -2 *(PG = 2): POKE 49235 +PG,0: GOTO 220
  26. 240  IF PG = 2  THEN 260
  27. 250  FOR I = 1 TO 16: POKE  -16297,0: FOR J = 1 TO 20: NEXT : POKE  -16298,0: FOR J = 1 TO 20: NEXT : NEXT 
  28. 260 N = 0:A = PG *8192: FOR I = A TO A +7168  STEP 1024:ALO = I - INT(I/256) *256:AHI =  INT(I/256):B = I +1024:BLO = B - INT(B/256) *256:BHI =  INT(B/256):N = N +1
  29. 270  POKE OBL +3,1: POKE OBL +4,1: POKE OBL +5,ALO: POKE OBL +6,AHI: POKE OBL +7,BLO: POKE OBL +8,BHI: POKE OBL +9,0: POKE OBL +10,4: CALL OBL
  30. 280  POKE  -16298,0: POKE  -16300,0
  31. 290  POKE  -16301,0: VTAB 21: HTAB 1: CALL  -958: HTAB 13: PRINT "PICTURE #";N;" OF 8.": HTAB 9: PRINT "------------------------": HTAB 9: PRINT "HIT <C> FOR NEXT PICTURE": HTAB 13: PRINT "OR <S> TO STOP:";: FLASH : PRINT " ";: NORMAL 
  32. 300 K =  PEEK( -16384): IF K < > ASC("S") +128  AND K < > ASC("C") +128  THEN 300
  33. 310  POKE  -16368,0: IF K =  ASC("S") +128  THEN 330
  34. 320  NEXT : GOTO 260
  35. 330  VTAB 21: HTAB 1: CALL  -958: PRINT : PRINT "TO SAVE THIS LO-RES PICTURE, TYPE:  ": PRINT : PRINT "  BSAVE PICTURE,A$400,L$400";: VTAB 23: END 
  36. 340  REM <CTRL-M><CTRL-M>LO-HI CONVERTER<CTRL-M>---------------
  37. 350 OBL = 4131:PG = 1
  38. 360  POKE  -16304,0: POKE  -16298,0: POKE  -16301,0: POKE  -16299,0
  39. 430  HGR : POKE  -16297,0: POKE  -16300,0
  40. 450 A = 2048:B = A +1023:ALO = A - INT(A/256) *256:AHI =  INT(A/256):BLO = B - INT(B/256) *256:BHI =  INT(B/256)
  41. 460  FOR I = 8192 TO 15360  STEP 1024:ILO = I - INT(I/256) *256:IHI =  INT(I/256): POKE OBL +3,1: POKE OBL +4,1: POKE OBL +5,ALO: POKE OBL +6,AHI: POKE OBL +7,BLO: POKE OBL +8,BHI: POKE OBL +9,ILO: POKE OBL +10,IHI: CALL OBL: NEXT 
  42. 470  REM POKE  - 16301,0: VTAB 21: HTAB 1: CALL  - 958: HTAB 13: PRINT "PICTURE #";N;" OF 8.": PRINT : HTAB 9: PRINT "HIT <C> FOR NEXT PICTURE": HTAB 13: PRINT "OR <S> TO STOP:";: FLASH : PRINT " ";: NORMAL 
  43. 480  REM K =  PEEK ( - 16384): IF K <  >  ASC ("S") + 128 AND K <  >  ASC ("C") + 128 THEN 1140
  44. 490  REM POKE  - 16368,0: IF K =  ASC ("S") + 128 THEN 1170
  45. 500  REM NEXT:GOTO1110
  46. 510  VTAB 21: HTAB 1: CALL  -958: PRINT : PRINT "TO SAVE THIS HI-RES PICTURE, TYPE:  ": PRINT : PRINT "  BSAVE PICTURE,A$2000,L$2000";: VTAB 23: END 
  47. 530  DATA 1,14,1,18,1,25,1,27,2,16,2,22,2,27,3,15,3,18,3,22,3,27,4,16,4,22,4,25,4,27
  48. 535  DATA 1,16,1,22,1,26,2,14,2,18,2,25,3,14,3,16,3,20,3,25,4,14,4,18,4,23,4,26
  49. 540  DATA 6,14,6,16,6,21,6,23,6,26,7,14,7,18,7,23,8,14,8,16,8,21,8,26,9,18,9,21,9,23
  50. 545  DATA 6,15,6,18,6,22,6,25,6,27,7,16,7,21,7,26,8,15,8,18,8,23,9,14,9,19,9,22,9,26,0,0
  51. 550  REM    <CTRL-M><CTRL-M>===================<CTRL-M>HI-LO PLOT<CTRL-M>(C) BEAGLE BROS<CTRL-M>4315 SIERRA VISTA<CTRL-M>SAN DIEGO, CA 92103<CTRL-M>===================