home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 439 / GPAL101 / GPALDEM.BAS < prev    next >
BASIC Source File  |  1993-10-07  |  14KB  |  328 lines
  1. DEFINT A-Z
  2.  
  3. ' GPAL demo program  -  08/93  (Main Program)
  4. '
  5. ' GPAL v1.01 - (C) Copyright 1993 Peak Computing
  6. '
  7. ' Load declarations & quick help
  8.  
  9. ' $INCLUDE: 'gpal.bi'
  10.     
  11.     ON ERROR GOTO BadVid
  12.  
  13.     SCREEN 13   ' Set video adapter to MCGA mode (320x200x256)
  14.  
  15.     ON ERROR GOTO 0
  16.  
  17.     a = 12
  18.     FOR x = 16 TO 216
  19.         GPal x, 0, 0, a                    '  Set the palettes
  20.         LINE (0, x - 16)-(320, x - 16), x  '  Draw the background
  21.         d = d + 1
  22.         IF d = 5 THEN
  23.             a = a + 1
  24.             d = 0
  25.         END IF
  26.     NEXT
  27.  
  28.     InitGPALDriver  ' Initialize the GPAL driver
  29.                     ' (always initialize or re-intialize the driver
  30.                     '  after changing the palettes)
  31.     
  32.     cnt = 0
  33.     DO
  34.         READ x%, y%, x1%, y1%          ' Read data into arrays
  35.         LINE (x%, y%)-(x1%, y1%), 15   ' Draw the message on screen
  36.         FOR x = 1 TO 1500: NEXT        ' A little delay ...
  37.         cnt = cnt + 1
  38.     LOOP UNTIL (cnt = 539)
  39.     
  40.     GFadeOutPalette 1  ' Fade palette to black, slowly
  41.     CLS                ' Clear screen
  42.     GFadeInPalette 0   ' Restore the palette, instantly
  43.  
  44.     SCREEN 0, 1, 0
  45.     WIDTH 80
  46.     SYSTEM
  47.  
  48. BadVid:
  49.     PRINT
  50.     PRINT
  51.     PRINT "Sorry, but you need VGA to run this demo!"
  52.     PRINT
  53.     PRINT
  54.     SYSTEM
  55.  
  56.     DATA 13, 22, 13, 22, 14, 22, 13, 22
  57.     DATA 15, 22, 14, 22, 18, 23, 15, 22
  58.     DATA 22, 24, 18, 23, 26, 24, 22, 24
  59.     DATA 30, 24, 26, 24, 34, 23, 30, 24
  60.     DATA 37, 22, 34, 23, 40, 22, 37, 22
  61.     DATA 42, 20, 40, 22, 44, 17, 42, 20
  62.     DATA 44, 15, 44, 17, 44, 12, 44, 15
  63.     DATA 45, 9, 44, 12, 45, 8, 45, 9
  64.     DATA 44, 8, 45, 8, 42, 9, 44, 8
  65.     DATA 40, 13, 42, 9, 38, 16, 40, 13
  66.     DATA 36, 21, 38, 16, 34, 25, 36, 21
  67.     DATA 31, 29, 34, 25, 29, 34, 31, 29
  68.     DATA 28, 36, 29, 34, 27, 39, 28, 36
  69.     DATA 26, 42, 27, 39, 25, 43, 26, 42
  70.     DATA 24, 44, 25, 43, 24, 43, 24, 44
  71.     DATA 26, 39, 24, 43, 28, 36, 26, 39
  72.     DATA 30, 34, 28, 36, 34, 32, 30, 34
  73.     DATA 36, 30, 34, 32, 40, 29, 36, 30
  74.     DATA 44, 29, 40, 29, 47, 29, 44, 29
  75.     DATA 48, 29, 47, 29, 48, 30, 48, 29
  76.     DATA 48, 32, 48, 30, 48, 35, 48, 32
  77.     DATA 48, 38, 48, 35, 48, 40, 48, 38
  78.     DATA 47, 42, 48, 40, 47, 44, 47, 42
  79.     DATA 47, 45, 47, 44, 47, 47, 47, 45
  80.     DATA 48, 47, 47, 47, 51, 48, 48, 47
  81.     DATA 55, 49, 51, 48, 57, 48, 55, 49
  82.     DATA 61, 46, 57, 48, 64, 43, 61, 46
  83.     DATA 65, 42, 64, 43, 66, 40, 65, 42
  84.     DATA 66, 38, 66, 40, 66, 36, 66, 38
  85.     DATA 66, 35, 66, 36, 65, 35, 66, 35
  86.     DATA 63, 35, 65, 35, 62, 35, 63, 35
  87.     DATA 62, 37, 62, 35, 61, 40, 62, 37
  88.     DATA 61, 42, 61, 40, 61, 44, 61, 42
  89.     DATA 61, 45, 61, 44, 61, 47, 61, 45
  90.     DATA 62, 49, 61, 47, 64, 49, 62, 49
  91.     DATA 66, 50, 64, 49, 70, 50, 66, 50
  92.     DATA 73, 50, 70, 50, 79, 50, 73, 50
  93.     DATA 85, 48, 79, 50, 91, 46, 85, 48
  94.     DATA 96, 43, 91, 46, 100, 41, 96, 43
  95.     DATA 104, 38, 100, 41, 105, 36, 104, 38
  96.     DATA 106, 34, 105, 36, 106, 32, 106, 34
  97.     DATA 106, 31, 106, 32, 105, 31, 106, 31
  98.     DATA 104, 31, 105, 31, 102, 31, 104, 31
  99.     DATA 99, 32, 102, 31, 95, 34, 99, 32
  100.     DATA 94, 36, 95, 34, 93, 38, 94, 36
  101.     DATA 90, 40, 93, 38, 89, 42, 90, 40
  102.     DATA 88, 45, 89, 42, 87, 47, 88, 45
  103.     DATA 86, 49, 87, 47, 84, 53, 86, 49
  104.     DATA 84, 56, 84, 53, 84, 57, 84, 56
  105.     DATA 86, 57, 84, 57, 88, 58, 86, 57
  106.     DATA 91, 59, 88, 58, 93, 59, 91, 59
  107.     DATA 96, 59, 93, 59, 98, 59, 96, 59
  108.     DATA 101, 58, 98, 59, 104, 57, 101, 58
  109.     DATA 105, 57, 104, 57, 107, 54, 105, 57
  110.     DATA 108, 53, 107, 54, 109, 51, 108, 53
  111.     DATA 110, 51, 109, 51, 110, 50, 110, 51
  112.     DATA 109, 50, 110, 50, 109, 52, 109, 50
  113.     DATA 108, 55, 109, 52, 106, 56, 108, 55
  114.     DATA 105, 59, 106, 56, 103, 62, 105, 59
  115.     DATA 101, 65, 103, 62, 100, 68, 101, 65
  116.     DATA 99, 69, 100, 68, 98, 69, 99, 69
  117.     DATA 98, 67, 98, 69, 99, 64, 98, 67
  118.     DATA 100, 60, 99, 64, 105, 56, 100, 60
  119.     DATA 107, 52, 105, 56, 111, 50, 107, 52
  120.     DATA 115, 46, 111, 50, 119, 46, 115, 46
  121.     DATA 120, 46, 119, 46, 121, 46, 120, 46
  122.     DATA 122, 46, 121, 46, 122, 48, 122, 46
  123.     DATA 122, 50, 122, 48, 122, 52, 122, 50
  124.     DATA 122, 55, 122, 52, 119, 56, 122, 55
  125.     DATA 118, 57, 119, 56, 116, 58, 118, 57
  126.     DATA 112, 58, 116, 58, 111, 58, 112, 58
  127.     DATA 111, 57, 111, 58, 109, 57, 111, 57
  128.     DATA 110, 57, 109, 57, 111, 57, 110, 57
  129.     DATA 116, 59, 111, 57, 121, 61, 116, 59
  130.     DATA 125, 62, 121, 61, 128, 62, 125, 62
  131.     DATA 130, 61, 128, 62, 131, 60, 130, 61
  132.     DATA 163, 37, 163, 37, 164, 37, 163, 37
  133.     DATA 164, 39, 164, 37, 164, 42, 164, 39
  134.     DATA 162, 47, 164, 42, 160, 50, 162, 47
  135.     DATA 159, 52, 160, 50, 159, 54, 159, 52
  136.     DATA 158, 55, 159, 54, 158, 57, 158, 55
  137.     DATA 158, 59, 158, 57, 157, 60, 158, 59
  138.     DATA 148, 70, 148, 70, 148, 69, 148, 70
  139.     DATA 147, 69, 148, 69, 145, 69, 147, 69
  140.     DATA 143, 70, 145, 69, 142, 70, 143, 70
  141.     DATA 141, 73, 142, 70, 141, 76, 141, 73
  142.     DATA 142, 77, 141, 76, 146, 78, 142, 77
  143.     DATA 150, 78, 146, 78, 153, 74, 150, 78
  144.     DATA 153, 71, 153, 74, 151, 68, 153, 71
  145.     DATA 45, 98, 45, 98, 45, 97, 45, 98
  146.     DATA 45, 96, 45, 97, 41, 96, 45, 96
  147.     DATA 39, 96, 41, 96, 38, 96, 39, 96
  148.     DATA 37, 96, 38, 96, 34, 96, 37, 96
  149.     DATA 33, 96, 34, 96, 32, 97, 33, 96
  150.     DATA 31, 99, 32, 97, 31, 100, 31, 99
  151.     DATA 31, 102, 31, 100, 31, 104, 31, 102
  152.     DATA 32, 106, 31, 104, 35, 107, 32, 106
  153.     DATA 39, 108, 35, 107, 44, 108, 39, 108
  154.     DATA 48, 108, 44, 108, 53, 106, 48, 108
  155.     DATA 59, 103, 53, 106, 63, 100, 59, 103
  156.     DATA 66, 98, 63, 100, 70, 95, 66, 98
  157.     DATA 72, 91, 70, 95, 74, 86, 72, 91
  158.     DATA 75, 85, 74, 86, 76, 83, 75, 85
  159.     DATA 75, 83, 76, 83, 74, 83, 75, 83
  160.     DATA 71, 85, 74, 83, 67, 87, 71, 85
  161.     DATA 65, 90, 67, 87, 62, 93, 65, 90
  162.     DATA 60, 95, 62, 93, 59, 98, 60, 95
  163.     DATA 59, 100, 59, 98, 58, 103, 59, 100
  164.     DATA 58, 107, 58, 103, 58, 109, 58, 107
  165.     DATA 58, 110, 58, 109, 59, 110, 58, 110
  166.     DATA 62, 110, 59, 110, 66, 111, 62, 110
  167.     DATA 70, 110, 66, 111, 75, 107, 70, 110
  168.     DATA 78, 102, 75, 107, 81, 100, 78, 102
  169.     DATA 83, 98, 81, 100, 84, 98, 83, 98
  170.     DATA 86, 98, 84, 98, 86, 100, 86, 98
  171.     DATA 86, 102, 86, 100, 86, 106, 86, 102
  172.     DATA 85, 108, 86, 106, 83, 111, 85, 108
  173.     DATA 82, 113, 83, 111, 83, 110, 82, 113
  174.     DATA 85, 107, 83, 110, 89, 103, 85, 107
  175.     DATA 92, 101, 89, 103, 93, 100, 92, 101
  176.     DATA 95, 100, 93, 100, 97, 100, 95, 100
  177.     DATA 98, 101, 97, 100, 98, 102, 98, 101
  178.     DATA 98, 105, 98, 102, 98, 107, 98, 105
  179.     DATA 98, 109, 98, 107, 98, 110, 98, 109
  180.     DATA 97, 111, 98, 110, 97, 112, 97, 111
  181.     DATA 97, 113, 97, 112, 98, 113, 97, 113
  182.     DATA 98, 110, 98, 113, 100, 107, 98, 110
  183.     DATA 103, 105, 100, 107, 105, 102, 103, 105
  184.     DATA 110, 100, 105, 102, 112, 100, 110, 100
  185.     DATA 113, 100, 112, 100, 113, 102, 113, 100
  186.     DATA 113, 107, 113, 102, 111, 112, 113, 107
  187.     DATA 111, 116, 111, 112, 111, 119, 111, 116
  188.     DATA 113, 120, 111, 119, 117, 121, 113, 120
  189.     DATA 122, 121, 117, 121, 127, 117, 122, 121
  190.     DATA 128, 115, 127, 117, 44, 176, 44, 176
  191.     DATA 45, 176, 44, 176, 48, 175, 45, 176
  192.     DATA 50, 175, 48, 175, 55, 173, 50, 175
  193.     DATA 59, 170, 55, 173, 65, 169, 59, 170
  194.     DATA 69, 168, 65, 169, 72, 166, 69, 168
  195.     DATA 77, 163, 72, 166, 80, 160, 77, 163
  196.     DATA 83, 157, 80, 160, 85, 153, 83, 157
  197.     DATA 87, 150, 85, 153, 89, 148, 87, 150
  198.     DATA 89, 145, 89, 148, 90, 143, 89, 145
  199.     DATA 90, 142, 90, 143, 89, 142, 90, 142
  200.     DATA 88, 142, 89, 142, 86, 144, 88, 142
  201.     DATA 83, 147, 86, 144, 80, 149, 83, 147
  202.     DATA 80, 151, 80, 149, 79, 153, 80, 151
  203.     DATA 77, 155, 79, 153, 77, 157, 77, 155
  204.     DATA 76, 158, 77, 157, 76, 161, 76, 158
  205.     DATA 75, 162, 76, 161, 74, 163, 75, 162
  206.     DATA 74, 164, 74, 163, 74, 165, 74, 164
  207.     DATA 74, 168, 74, 165, 73, 170, 74, 168
  208.     DATA 73, 171, 73, 170, 73, 172, 73, 171
  209.     DATA 73, 174, 73, 172, 73, 175, 73, 174
  210.     DATA 76, 177, 73, 175, 77, 177, 76, 177
  211.     DATA 79, 177, 77, 177, 81, 177, 79, 177
  212.     DATA 84, 175, 81, 177, 89, 170, 84, 175
  213.     DATA 93, 166, 89, 170, 96, 165, 93, 166
  214.     DATA 98, 165, 96, 165, 101, 165, 98, 165
  215.     DATA 104, 165, 101, 165, 107, 167, 104, 165
  216.     DATA 111, 168, 107, 167, 111, 169, 111, 168
  217.     DATA 111, 170, 111, 169, 110, 170, 111, 170
  218.     DATA 109, 170, 110, 170, 106, 169, 109, 170
  219.     DATA 103, 167, 106, 169, 100, 166, 103, 167
  220.     DATA 96, 165, 100, 166, 94, 164, 96, 165
  221.     DATA 93, 164, 94, 164, 91, 165, 93, 164
  222.     DATA 89, 167, 91, 165, 89, 169, 89, 167
  223.     DATA 88, 170, 89, 169, 89, 173, 88, 170
  224.     DATA 90, 175, 89, 173, 93, 177, 90, 175
  225.     DATA 95, 177, 93, 177, 97, 177, 95, 177
  226.     DATA 100, 177, 97, 177, 104, 177, 100, 177
  227.     DATA 105, 175, 104, 177, 107, 172, 105, 175
  228.     DATA 109, 170, 107, 172, 110, 170, 109, 170
  229.     DATA 110, 169, 110, 170, 110, 168, 110, 169
  230.     DATA 109, 168, 110, 168, 108, 169, 109, 168
  231.     DATA 106, 171, 108, 169, 104, 174, 106, 171
  232.     DATA 103, 176, 104, 174, 103, 177, 103, 176
  233.     DATA 104, 178, 103, 177, 105, 179, 104, 178
  234.     DATA 109, 179, 105, 179, 113, 177, 109, 179
  235.     DATA 116, 177, 113, 177, 119, 175, 116, 177
  236.     DATA 125, 173, 119, 175, 128, 172, 125, 173
  237.     DATA 132, 170, 128, 172, 133, 170, 132, 170
  238.     DATA 137, 170, 133, 170, 139, 170, 137, 170
  239.     DATA 139, 171, 139, 170, 139, 172, 139, 171
  240.     DATA 140, 174, 139, 172, 140, 175, 140, 174
  241.     DATA 139, 173, 140, 175, 136, 171, 139, 173
  242.     DATA 134, 170, 136, 171, 132, 170, 134, 170
  243.     DATA 129, 170, 132, 170, 125, 170, 129, 170
  244.     DATA 122, 172, 125, 170, 118, 174, 122, 172
  245.     DATA 118, 176, 118, 174, 118, 177, 118, 176
  246.     DATA 120, 179, 118, 177, 124, 179, 120, 179
  247.     DATA 127, 179, 124, 179, 130, 179, 127, 179
  248.     DATA 134, 179, 130, 179, 139, 177, 134, 179
  249.     DATA 143, 174, 139, 177, 146, 170, 143, 174
  250.     DATA 149, 168, 146, 170, 152, 165, 149, 168
  251.     DATA 153, 163, 152, 165, 153, 161, 153, 163
  252.     DATA 154, 160, 153, 161, 153, 159, 154, 160
  253.     DATA 153, 158, 153, 159, 152, 158, 153, 158
  254.     DATA 150, 161, 152, 158, 145, 163, 150, 161
  255.     DATA 143, 166, 145, 163, 143, 167, 143, 166
  256.     DATA 141, 169, 143, 167, 140, 170, 141, 169
  257.     DATA 140, 172, 140, 170, 140, 175, 140, 172
  258.     DATA 140, 177, 140, 175, 141, 178, 140, 177
  259.     DATA 143, 180, 141, 178, 145, 181, 143, 180
  260.     DATA 146, 181, 145, 181, 147, 181, 146, 181
  261.     DATA 149, 181, 147, 181, 153, 179, 149, 181
  262.     DATA 154, 177, 153, 179, 156, 175, 154, 177
  263.     DATA 158, 173, 156, 175, 160, 171, 158, 173
  264.     DATA 159, 171, 160, 171, 158, 172, 159, 171
  265.     DATA 157, 174, 158, 172, 157, 176, 157, 174
  266.     DATA 156, 177, 157, 176, 156, 179, 156, 177
  267.     DATA 156, 182, 156, 179, 157, 183, 156, 182
  268.     DATA 159, 184, 157, 183, 160, 184, 159, 184
  269.     DATA 163, 184, 160, 184, 168, 182, 163, 184
  270.     DATA 170, 180, 168, 182, 172, 179, 170, 180
  271.     DATA 174, 178, 172, 179, 176, 177, 174, 178
  272.     DATA 177, 177, 176, 177, 177, 178, 177, 177
  273.     DATA 177, 180, 177, 178, 177, 183, 177, 180
  274.     DATA 177, 184, 177, 183, 180, 182, 177, 184
  275.     DATA 183, 179, 180, 182, 187, 177, 183, 179
  276.     DATA 188, 176, 187, 177, 188, 177, 188, 176
  277.     DATA 188, 180, 188, 177, 186, 184, 188, 180
  278.     DATA 186, 186, 186, 184, 187, 186, 186, 186
  279.     DATA 188, 186, 187, 186, 188, 187, 188, 186
  280.     DATA 189, 187, 188, 187, 191, 186, 189, 187
  281.     DATA 195, 182, 191, 186, 197, 180, 195, 182
  282.     DATA 199, 178, 197, 180, 202, 178, 199, 178
  283.     DATA 204, 178, 202, 178, 205, 178, 204, 178
  284.     DATA 205, 179, 205, 178, 206, 180, 205, 179
  285.     DATA 207, 181, 206, 180, 207, 180, 207, 181
  286.     DATA 206, 177, 207, 180, 203, 177, 206, 177
  287.     DATA 201, 176, 203, 177, 200, 175, 201, 176
  288.     DATA 199, 175, 200, 175, 197, 177, 199, 175
  289.     DATA 196, 179, 197, 177, 196, 183, 196, 179
  290.     DATA 197, 184, 196, 183, 200, 184, 197, 184
  291.     DATA 203, 184, 200, 184, 206, 184, 203, 184
  292.     DATA 208, 184, 206, 184, 209, 184, 208, 184
  293.     DATA 209, 182, 209, 184, 210, 182, 209, 182
  294.     DATA 209, 184, 210, 182, 209, 186, 209, 184
  295.     DATA 208, 190, 209, 186, 207, 191, 208, 190
  296.     DATA 206, 193, 207, 191, 204, 195, 206, 193
  297.     DATA 201, 198, 204, 195, 199, 199, 201, 198
  298.     DATA 198, 199, 199, 199, 196, 199, 198, 199
  299.     DATA 195, 196, 196, 199, 195, 192, 195, 196
  300.     DATA 196, 189, 195, 192, 198, 187, 196, 189
  301.     DATA 200, 186, 198, 187, 202, 186, 200, 186
  302.     DATA 205, 186, 202, 186, 208, 186, 205, 186
  303.     DATA 210, 187, 208, 186, 214, 188, 210, 187
  304.     DATA 220, 190, 214, 188, 224, 190, 220, 190
  305.     DATA 225, 190, 224, 190, 170, 157, 170, 157
  306.     DATA 170, 156, 170, 157, 169, 156, 170, 156
  307.     DATA 169, 157, 169, 156, 170, 157, 169, 157
  308.     DATA 172, 157, 170, 157, 173, 156, 172, 157
  309.     DATA 173, 153, 173, 156, 173, 151, 173, 153
  310.     DATA 172, 151, 173, 151, 73, 136, 73, 136
  311.     DATA 73, 137, 73, 136, 71, 138, 73, 137
  312.     DATA 70, 140, 71, 138, 69, 141, 70, 140
  313.     DATA 64, 142, 69, 141, 59, 142, 64, 142
  314.     DATA 57, 142, 59, 142, 56, 138, 57, 142
  315.     DATA 58, 135, 56, 138, 60, 134, 58, 135
  316.     DATA 65, 132, 60, 134, 71, 132, 65, 132
  317.     DATA 76, 133, 71, 132, 83, 134, 76, 133
  318.     DATA 87, 138, 83, 134, 89, 141, 87, 138
  319.     DATA 91, 145, 89, 141, 97, 148, 91, 145
  320.     DATA 107, 152, 97, 148, 110, 152, 107, 152
  321.     DATA 110, 150, 110, 152, 68, 149, 68, 149
  322.     DATA 69, 149, 68, 149, 70, 149, 69, 149
  323.     DATA 73, 149, 70, 149, 76, 149, 73, 149
  324.     DATA 82, 151, 76, 149, 89, 152, 82, 151
  325.     DATA 93, 152, 89, 152
  326.  
  327.  
  328.