home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR4 / PCMPROGA.ZIP / SNAPSHOT.BAS < prev    next >
BASIC Source File  |  1992-07-01  |  6KB  |  100 lines
  1.  10  DIM KEYS(10):SUM#=0:PRINT"Checking Data..."
  2.  20  FOR I=1 TO 606:READ BYTE.%:SUM#=SUM#+BYTE.%:NEXT I
  3.  30  IF SUM# <> 51461! THEN PRINT"Error in Data Statements":GOTO 320
  4.  40  RESTORE:FOR I=1 TO 10:KEY I,"":NEXT I:CLS
  5.  50  LOCATE 10,15:PRINT"        Type the key to store the screen with."
  6.  60  LOCATE 11,15:PRINT"              (Use Control End if none)."
  7.  70  GOSUB 330
  8.  80  IF CODE1=0 AND CODE2=117 THEN GOTO 140
  9.  90  KEYS(1) = CODE1:KEYS(2) = CODE2:CLS
  10. 100  LOCATE 10,15:PRINT"        Type the key to flash what has been stored "
  11. 110  LOCATE 11,15:PRINT"                   back onto the screen."
  12. 120  GOSUB 330
  13. 130  KEYS(3)=CODE1:KEYS(4)=CODE2:CLS
  14. 140  A$="A.Dat"
  15. 150  FOR J=5 TO 9 STEP 2
  16. 160  MID$(A$,1)=CHR$(65+(J-5)/2)
  17. 170  LOCATE 10,15:PRINT"        Type the key to flash "A$" on the screen"
  18. 180  LOCATE 11,15:PRINT"              (Use Control End if none)."
  19. 190  GOSUB 330
  20. 200  IF CODE1=0 AND CODE2=117 THEN GOTO 220
  21. 210  KEYS(J)=CODE1:KEYS(J+1)=CODE2:CLS:NEXT J
  22. 220  OPEN "SNAPSHOT.COM"     AS # 1  LEN = 1        'Open Snapshot.Com
  23. 230  LOCATE 5,30:PRINT"Creating Snapshot.Com    "
  24. 240  FIELD #1,1 AS BYTE.$:FOR N = 1 TO 606
  25. 250  READ BYTE.%:IF BYTE.% <> -1 THEN GOTO 270
  26. 260  FOR III=1 TO 10:LSET BYTE.$=CHR$(KEYS(III)):PUT #1:NEXT III:GOTO 300
  27. 270  IF BYTE.% <> -2 THEN GOTO 290
  28. 280  FOR JJJ=1 TO 10000:LSET BYTE.$=CHR$(32):PUT #1:NEXT JJJ:GOTO 300
  29. 290  LSET BYTE.$ = CHR$(BYTE.%):PUT #1
  30. 300  NEXT N:CLOSE #1  
  31. 310  LOCATE 5,30:PRINT "Snapshot.Com Created.        "
  32. 320  END
  33. 330  DEF SEG = &H40
  34. 340  FKEY$=INKEY$:IF FKEY$="" GOTO 340
  35. 350  LOCATE 10,15:PRINT SPC(50):LOCATE 11,15:PRINT SPC(50)
  36. 360  TAIL=PEEK(26):TAIL=TAIL-2:IF TAIL < 30 THEN TAIL = 60 
  37. 370  CODE1=PEEK(TAIL):CODE2=PEEK(TAIL+1)
  38. 380  RETURN
  39. 390  DATA  233,   31,   41,   40,   67,   41,   32,   83,   46,   32
  40. 400  DATA   72,   79,   76,   90,   78,   69,   82,   32,   49,   57
  41. 410  DATA   56,   53,   -1,    0,    0,    0,    0,    0,    0,    0
  42. 420  DATA    0,    0,    0,    0,    0,    0,   65,   46,   68,   65
  43. 430  DATA   84,    0,    0,   -2,   80,   83,   81,   82,   87,   86
  44. 440  DATA   30,    6,  156,   46,  255,   30,   41,    1,  187,   64
  45. 450  DATA    0,  142,  219,  139,   30,   28,    0,   59,   30,   26
  46. 460  DATA    0,  116,  100,  131,  235,    2,  131,  251,   30,  115
  47. 470  DATA    6,  187,   62,    0,  131,  235,    2,  139,   23,   46
  48. 480  DATA  141,   54,   22,    1,   46,  128,   62,   32,    1,    1
  49. 490  DATA  116,  123,   46,   59,   20,  116,   38,  131,  198,    2
  50. 500  DATA   46,   59,   20,  116,   61,  185,    3,    0,   46,  199
  51. 510  DATA    6,   33,    1,  160,   15,  131,  198,    2,   46,   59
  52. 520  DATA   20,  116,  123,   46,  129,    6,   33,    1,  208,    7
  53. 530  DATA  226,  239,  233,  160,    0,  137,   30,   28,    0,   46
  54. 540  DATA  198,    6,   32,    1,    0,   46,  199,    6,   33,    1
  55. 550  DATA    0,    0,  141,    6,   82,   41,   46,  163,   37,    1
  56. 560  DATA  232,  186,    0,  233,  129,    0,  137,   30,   28,    0
  57. 570  DATA   46,  198,    6,   32,    1,    1,   46,  199,    6,   33
  58. 580  DATA    1,  208,    7,  141,    6,   82,   41,   46,  163,   37
  59. 590  DATA    1,  232,  155,    0,   46,  199,    6,   33,    1,    0
  60. 600  DATA    0,  141,    6,  106,   41,   46,  163,   37,    1,  232
  61. 610  DATA  137,    0,  235,   81,  144,   46,  198,    6,   32,    1
  62. 620  DATA    0,  137,   30,   28,    0,   46,  199,    6,   33,    1
  63. 630  DATA  208,    7,  141,    6,  106,   41,   46,  163,   37,    1
  64. 640  DATA  232,  106,    0,  235,   50,  144,  137,   30,   28,    0
  65. 650  DATA   46,  198,    6,   32,    1,    1,   46,  255,   54,   33
  66. 660  DATA    1,   46,  199,    6,   33,    1,  208,    7,  141,    6
  67. 670  DATA   82,   41,   46,  163,   37,    1,  232,   70,    0,   46
  68. 680  DATA  143,    6,   33,    1,  141,    6,  106,   41,   46,  163
  69. 690  DATA   37,    1,  232,   54,    0,    7,   31,   94,   95,   90
  70. 700  DATA   89,   91,   88,  207,   82,  190,    2,    0,   38,  138
  71. 710  DATA   37,   71,   78,  131,  254,    0,  116,    7,   46,  136
  72. 720  DATA  167,   52,    1,  235,  239,   67,   90,  195,   82,   46
  73. 730  DATA  138,  167,   52,    1,  190,    2,    0,   38,  136,   37
  74. 740  DATA  131,  199,    2,  131,  238,    2,   67,   90,  195,  187
  75. 750  DATA    0,  176,  142,  195,   46,  139,   62,   35,    1,   46
  76. 760  DATA  139,   30,   33,    1,  185,   25,    0,  186,   80,    0
  77. 770  DATA   46,  255,   22,   37,    1,   74,  117,  248,  226,  243
  78. 780  DATA  195,   81,   82,   87,  139,  216,  185,  208,    7,  141
  79. 790  DATA   22,  118,   42,  180,   63,  205,   33,  139,  200,  180
  80. 800  DATA   62,  205,   33,  232,   80,    0,  141,   54,  118,   42
  81. 810  DATA  129,  249,  208,    7,  118,    3,  185,  208,    7,  128
  82. 820  DATA   60,    9,  117,    7,  131,  199,    8,   70,  235,   50
  83. 830  DATA  144,  128,   60,   13,  117,   37,   70,   73,  128,   60
  84. 840  DATA   13,  116,    5,  128,   60,   32,  114,  244,  131,  249
  85. 850  DATA    0,  126,   29,   65,  139,  199,   45,  212,   16,  178
  86. 860  DATA   80,  246,  242,  128,  252,   79,  119,   12,   71,  254
  87. 870  DATA  196,  235,  246,  129,  255,   68,   40,  115,    3,  164
  88. 880  DATA  226,  193,   95,   90,   89,  195,  128,   62,   51,    1
  89. 890  DATA    1,  117,   18,   86,   81,  141,   54,  118,   42,  185
  90. 900  DATA  208,    7,   46,  128,   36,  127,   70,  226,  249,   89
  91. 910  DATA   94,  195,  184,    0,    0,  142,  216,  161,   36,    0
  92. 920  DATA   46,  163,   41,    1,  161,   38,    0,   46,  163,   43
  93. 930  DATA    1,  199,    6,   36,    0,   68,   40,  140,   14,   38
  94. 940  DATA    0,  180,   15,  205,   16,  168,    4,  117,    7,   46
  95. 950  DATA  199,    6,   35,    1,    0,  128,   14,   31,  185,    3
  96. 960  DATA    0,   46,  141,   62,  212,   16,  141,   22,   45,    1
  97. 970  DATA  184,    0,   61,  205,   33,  114,   14,  232,   57,  255
  98. 980  DATA  129,  199,  208,    7,  139,  218,   46,  254,    7,  226
  99. 990  DATA  231,  186,   34,   42,  205,   39
  100.