home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FRENCHPC.DSK / SCRUNCHER3.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  75 lines
  1. 5  FOR X = 768 TO 797: READ Y: POKE X,Y: NEXT 
  2. 10 D$ =  CHR$(4)
  3. 20  IF  PEEK(24576) = 76  AND  PEEK(24578) = 96  THEN 40
  4. 30  PRINT : PRINT D$"BLOADSCRUNCH"
  5. 35  POKE 24587,112
  6. 40  TEXT : HOME 
  7. 50  PRINT "  HI-RES PICTURE SCRUNCHER/UNSCRUNCHER"
  8. 60  POKE 34,2: HOME : VTAB 5: PRINT "   [L] LOAD PICTURE"
  9. 70  PRINT : PRINT "   [S] SAVE PICTURE"
  10. 72  PRINT : PRINT "   [F] FLIP PAGES"
  11. 75  PRINT : PRINT "   [1] VIEW PAGE 1 ($2000)"
  12. 77  PRINT : PRINT "   [2] VIEW PAGE 2 ($4000)"
  13. 78  PRINT : PRINT "   [X] MOVE PAGE 1 TO 2"
  14. 79  PRINT : PRINT "   [Y] MOVE PAGE 2 TO 1"
  15. 80  PRINT : PRINT "   [Q] QUIT"
  16. 90  VTAB 3: PRINT "SELECT:";: POKE  -16368,0: GET M$: PRINT M$
  17. 100  IF M$ = "Q"  THEN  TEXT : VTAB 22: END 
  18. 110  IF M$ = "L"  THEN 200
  19. 120  IF M$ = "S"  THEN 200
  20. 130  IF M$ = "1"  OR M$ = "2"  THEN 500
  21. 140  IF M$ = "X"  THEN 600
  22. 145  IF M$ = "Y"  THEN 650
  23. 147  IF M$ = "F"  THEN 3000
  24. 150  GOTO 90
  25. 200  HOME 
  26. 203  VTAB 3: IF M$ = "L"  THEN  PRINT "      LOAD FILE": GOTO 210
  27. 205  PRINT "      SAVE FILE"
  28. 210  VTAB 7: PRINT "(OR [RETURN] FOR CATALOG)"
  29. 215  VTAB 4
  30. 220  PRINT : INPUT "FILENAME:";F$
  31. 230  IF F$ = ""  THEN  HOME : PRINT D$"CATALOG": PRINT : PRINT "PRESS ANY KEY:";: POKE  -16368,0: GET A$: PRINT A$: GOTO 220
  32. 235  CALL  -958
  33. 240  IF M$ = "S"  THEN 305
  34. 250  PRINT : PRINT D$"BLOAD";F$
  35. 260  IF  PEEK(43617) < >31  AND  PEEK(43617) < >32  THEN 275
  36. 261  TEXT : VTAB 15: PRINT " (NORMAL PICTURE LOADED IN PAGE ";
  37. 262  IF  PEEK(43635) = 64  THEN  PRINT "2)": GOTO 300
  38. 264  PRINT "1)"
  39. 268  GOTO 300
  40. 275  TEXT 
  41. 276  VTAB 13: PRINT "LOAD SCRUNCHED PICTURE INTO PAGE 1 OR 2:";: POKE  -16368,0: GET P$: PRINT P$
  42. 277  GOSUB 2000
  43. 280  PRINT : PRINT D$"BLOAD";F$;",A$7000"
  44. 290  VTAB 15: PRINT " (SCRUNCHED PICTURE LOADED)"
  45. 295  POKE  -16300,0: CALL 24579
  46. 300  VTAB 17: PRINT "PRESS ANY KEY:";: POKE  -16368,0: GET A$: PRINT A$: GOTO 60
  47. 310  VTAB 9: PRINT "SAVE PAGE ";: INVERSE : PRINT "1";: NORMAL : PRINT " OR ";: INVERSE : PRINT "2";: NORMAL : PRINT " :";: POKE  -16368,0: GET P$: PRINT P$
  48. 315  VTAB 7: PRINT "SAVE AS A ";: INVERSE : PRINT "S";: NORMAL : PRINT "CRUNCHED OR ";: INVERSE : PRINT "U";: NORMAL : PRINT "NSCRUNCHED PICTURE:";: POKE  -16368,0: GET A$: PRINT A$
  49. 320  IF A$ = "U"  THEN  PRINT D$"BSAVE ";F$;",A$"; VAL(P$) *2;"000,L$1FF8": GOTO 60
  50. 330  IF A$ < >"S"  THEN 310
  51. 335  GOSUB 2000
  52. 340  CALL 24576
  53. 350 L =  PEEK(24590) *256 + PEEK(24589)
  54. 360  PRINT D$"BSAVE";F$;",A$7000,L";L
  55. 370  GOTO 60
  56. 500  POKE  -16304,0: POKE  -16302,0: POKE  -16297,0
  57. 510  IF M$ = "1"  THEN  POKE  -16300,0: GOTO 520
  58. 515  POKE  -16299,0
  59. 520  POKE  -16368,0: GET A$: PRINT A$: TEXT : GOTO 60
  60. 600  POKE 773,32: POKE 781,63: POKE 789,64: CALL 768
  61. 610  GOTO 60
  62. 650  POKE 773,64: POKE 781,95: POKE 789,32: CALL 768
  63. 660  GOTO 60
  64. 2000  IF P$ = "1"  THEN  POKE 24583,32: POKE 24585,63
  65. 2010  IF P$ = "2"  THEN  POKE 24583,64: POKE 24585,95
  66. 2020  RETURN 
  67. 3000  POKE  -16304,0: POKE  -16302,0: POKE  -16297,0: POKE  -16299,0
  68. 3010  FOR X = 1 TO 200: NEXT 
  69. 3020 X =  PEEK( -16336): IF  PEEK( -16384) >127  THEN 3100
  70. 3030  POKE  -16300,0
  71. 3040  FOR X = 1 TO 200: NEXT 
  72. 3050 X =  PEEK( -16336): IF  PEEK( -16384) >127  THEN 3100
  73. 3060  GOTO 3000
  74. 3100  GOTO 40
  75. 10000  DATA 169,0,133,60,169,32,133,61,169,255,133,62,169,63,133,63,169,0,133,66,169,64,133,67,160,0,32,44,254,96