'===========================================================================
' Subject: ANIMATED PLASMA                    Date: 08-09-98 (03:32)       
'  Author: Daniel Davies                      Code: ASIC                   
'  Origin: ia53@rapid.co.uk                 Packet: ASIC.ABC
'===========================================================================
REM                                 ANIMATED PLASMA
REM                                   By Arclight
REM                           E-MAIL :- ia53@rapid.co.uk
REM                     WEB SITE :- www.users.rapid.net.uk/ia53
REM when compiled and compressed with PKLite takes up 3113 bytes
REM which is smaller than almost all plasmas written in "superior"
REM languages, like C, and Pascal

REM arrays for colour tables
DIM rsin1(360)
DIM rsin2(360)
DIM rsin3(360)
DIM gsin1(360)
DIM gsin2(360)
DIM gsin3(360)
DIM bsin1(360)
DIM bsin2(360)
DIM bsin3(360)

REM arrays for sine tables
DIM sine1(360)
DIM sine2(360)
DIM sine3(360)
DIM sine4(360)

REM palette data

REM RED SINE WAVE 1
DATA 0,1,1,2,2,3,4,4,5,5,6,6,7,7,8
DATA 8,9,10,10,10,11,11,12,12,13,13,13,14,14,14,15,15
DATA 15,16,16,16,16,16,16,17,17,17,17,17,17,17,17,17,17
DATA 17,17,17,16,16,16,16,16,16,15,15,15,14,14,14,13,13
DATA 13,12,12,11,11,10,10,10,9,9,8,7,7,6,6,5,5
DATA 4,4,3,2,2,1,1,0,-1,-1,-2,-2,-3,-4,-4,-5,-5
DATA -6,-6,-7,-7,-8,-8,-9,-10,-10,-10,-11,-11,-12,-12,-13,-13,-13
DATA -14,-14,-14,-15,-15,-15,-16,-16,-16,-16,-16,-16,-17,-17,-17,-17,-17
DATA -17,-17,-17,-17,-17,-17,-17,-17,-16,-16,-16,-16,-16,-16,-15,-15,-15
DATA -14,-14,-14,-13,-13,-13,-12,-12,-11,-11,-10,-10,-10,-9,-9,-8,-7
DATA -7,-6,-6,-5,-5,-4,-4,-3,-2,-2,-1,-1,0,1,1,2,2
DATA 3,4,4,5,5,6,6,7,7,8,8,9,10,10,10,11,11
DATA 12,12,13,13,13,14,14,14,15,15,15,16,16,16,16,16,16
DATA 17,17,17,17,17,17,17,17,17,17,17,17,17,16,16,16,16
DATA 16,16,15,15,15,14,14,14,13,13,13,12,12,11,11,10,10
DATA 10,9,9,8,7,7,6,6,5,5,4,4,3,2,2,1,1
DATA 0,-1,-1,-2,-2,-3,-4,-4,-5,-5,-6,-6,-7,-7,-8,-8,-9
DATA -10,-10,-10,-11,-11,-12,-12,-13,-13,-13,-14,-14,-14,-15,-15,-15,-16
DATA -16,-16,-16,-16,-16,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17
DATA -17,-16,-16,-16,-16,-16,-16,-15,-15,-15,-14,-14,-14,-13,-13,-13,-12
DATA -12,-11,-11,-10,-10,-10,-9,-9,-8,-7,-7,-6,-6,-5,-5,-4,-4
DATA -3,-2,-2,-1,-1,0

REM RED SINE WAVE 2
DATA 0,1,2,3,4,4,5,6,7,8,8,9,10,10,11
DATA 11,12,12,12,13,13,13,13,13,13,13,13,12,12,12,11,11
DATA 10,10,9,8,8,7,6,5,4,4,3,2,1,0,-1,-2,-3
DATA -4,-4,-5,-6,-7,-8,-8,-9,-10,-10,-11,-11,-12,-12,-12,-13,-13
DATA -13,-13,-13,-13,-13,-13,-12,-12,-12,-11,-11,-10,-10,-9,-8,-8,-7
DATA -6,-5,-4,-4,-3,-2,-1,0,1,2,3,4,4,5,6,7,8
DATA 8,9,10,10,11,11,12,12,12,13,13,13,13,13,13,13,13
DATA 12,12,12,11,11,10,10,9,8,8,7,6,5,4,4,3,2
DATA 1,0,-1,-2,-3,-4,-4,-5,-6,-7,-8,-8,-9,-10,-10,-11,-11
DATA -12,-12,-12,-13,-13,-13,-13,-13,-13,-13,-13,-12,-12,-12,-11,-11,-10
DATA -10,-9,-8,-8,-7,-6,-5,-4,-4,-3,-2,-1,0,1,2,3,4
DATA 4,5,6,7,8,8,9,10,10,11,11,12,12,12,13,13,13
DATA 13,13,13,13,13,12,12,12,11,11,10,10,9,8,8,7,6
DATA 5,4,4,3,2,1,0,-1,-2,-3,-4,-4,-5,-6,-7,-8,-8
DATA -9,-10,-10,-11,-11,-12,-12,-12,-13,-13,-13,-13,-13,-13,-13,-13,-12
DATA -12,-12,-11,-11,-10,-10,-9,-8,-8,-7,-6,-5,-4,-4,-3,-2,-1
DATA 0,1,2,3,4,4,5,6,7,8,8,9,10,10,11,11,12
DATA 12,12,13,13,13,13,13,13,13,13,12,12,12,11,11,10,10
DATA 9,8,8,7,6,5,4,4,3,2,1,0,-1,-2,-3,-4,-4
DATA -5,-6,-7,-8,-8,-9,-10,-10,-11,-11,-12,-12,-12,-13,-13,-13,-13
DATA -13,-13,-13,-13,-12,-12,-12,-11,-11,-10,-10,-9,-8,-8,-7,-6,-5
DATA -4,-4,-3,-2,-1,0

REM RED SINE WAVE 3
DATA 0,1,1,2,3,3,4,5,5,6,6,6,7,7,7
DATA 7,7,7,7,6,6,6,5,5,4,4,3,2,1,1,0,-1
DATA -1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7,-7,-7
DATA -6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2,3,3
DATA 4,5,5,6,6,6,7,7,7,7,7,7,7,6,6,6,5
DATA 5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5,-5,-6
DATA -6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4,-4,-3
DATA -2,-1,-1,0,1,1,2,3,3,4,5,5,6,6,6,7,7
DATA 7,7,7,7,7,6,6,6,5,5,4,4,3,2,1,1,0
DATA -1,-1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7,-7
DATA -7,-6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2,3
DATA 3,4,5,5,6,6,6,7,7,7,7,7,7,7,6,6,6
DATA 5,5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5,-5
DATA -6,-6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4,-4
DATA -3,-2,-1,-1,0,1,1,2,3,3,4,5,5,6,6,6,7
DATA 7,7,7,7,7,7,6,6,6,5,5,4,4,3,2,1,1
DATA 0,-1,-1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7
DATA -7,-7,-6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2
DATA 3,3,4,5,5,6,6,6,7,7,7,7,7,7,7,6,6
DATA 6,5,5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5
DATA -5,-6,-6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4
DATA -4,-3,-2,-1,-1,0

REM GREEN SINE WAVE 1
DATA -15,-15,-15,-16,-16,-16,-16,-16,-16,-17,-17,-17,-17,-17,-17
DATA -17,-17,-17,-17,-17,-17,-17,-16,-16,-16,-16,-16,-16,-15,-15,-15,-14
DATA -14,-14,-13,-13,-13,-12,-12,-11,-11,-10,-10,-10,-9,-9,-8,-7,-7
DATA -6,-6,-5,-5,-4,-4,-3,-2,-2,-1,-1,0,1,1,2,2,3
DATA 4,4,5,5,6,6,7,7,8,8,9,10,10,10,11,11,12
DATA 12,13,13,13,14,14,14,15,15,15,16,16,16,16,16,16,17
DATA 17,17,17,17,17,17,17,17,17,17,17,17,16,16,16,16,16
DATA 16,15,15,15,14,14,14,13,13,13,12,12,11,11,10,10,10
DATA 9,9,8,7,7,6,6,5,5,4,4,3,2,2,1,1,0
DATA -1,-1,-2,-2,-3,-4,-4,-5,-5,-6,-6,-7,-7,-8,-8,-9,-10
DATA -10,-10,-11,-11,-12,-12,-13,-13,-13,-14,-14,-14,-15,-15,-15,-16,-16
DATA -16,-16,-16,-16,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17
DATA -16,-16,-16,-16,-16,-16,-15,-15,-15,-14,-14,-14,-13,-13,-13,-12,-12
DATA -11,-11,-10,-10,-10,-9,-9,-8,-7,-7,-6,-6,-5,-5,-4,-4,-3
DATA -2,-2,-1,-1,0,1,1,2,2,3,4,4,5,5,6,6,7
DATA 7,8,8,9,10,10,10,11,11,12,12,13,13,13,14,14,14
DATA 15,15,15,16,16,16,16,16,16,17,17,17,17,17,17,17,17
DATA 17,17,17,17,17,16,16,16,16,16,16,15,15,15,14,14,14
DATA 13,13,13,12,12,11,11,10,10,10,9,9,8,7,7,6,6
DATA 5,5,4,4,3,2,2,1,1,0,-1,-1,-2,-2,-3,-4,-4
DATA -5,-5,-6,-6,-7,-7,-8,-8,-9,-10,-10,-10,-11,-11,-12,-12,-13
DATA -13,-13,-14,-14,-14,-15

REM GREEN SINE WAVE 2
DATA 11,11,10,10,9,8,8,7,6,5,4,4,3,2,1
DATA 0,-1,-2,-3,-4,-4,-5,-6,-7,-8,-8,-9,-10,-10,-11,-11,-12
DATA -12,-12,-13,-13,-13,-13,-13,-13,-13,-13,-12,-12,-12,-11,-11,-10,-10
DATA -9,-8,-8,-7,-6,-5,-4,-4,-3,-2,-1,0,1,2,3,4,4
DATA 5,6,7,8,8,9,10,10,11,11,12,12,12,13,13,13,13
DATA 13,13,13,13,12,12,12,11,11,10,10,9,8,8,7,6,5
DATA 4,4,3,2,1,0,-1,-2,-3,-4,-4,-5,-6,-7,-8,-8,-9
DATA -10,-10,-11,-11,-12,-12,-12,-13,-13,-13,-13,-13,-13,-13,-13,-12,-12
DATA -12,-11,-11,-10,-10,-9,-8,-8,-7,-6,-5,-4,-4,-3,-2,-1,0
DATA 1,2,3,4,4,5,6,7,8,8,9,10,10,11,11,12,12
DATA 12,13,13,13,13,13,13,13,13,12,12,12,11,11,10,10,9
DATA 8,8,7,6,5,4,4,3,2,1,0,-1,-2,-3,-4,-4,-5
DATA -6,-7,-8,-8,-9,-10,-10,-11,-11,-12,-12,-12,-13,-13,-13,-13,-13
DATA -13,-13,-13,-12,-12,-12,-11,-11,-10,-10,-9,-8,-8,-7,-6,-5,-4
DATA -4,-3,-2,-1,0,1,2,3,4,4,5,6,7,8,8,9,10
DATA 10,11,11,12,12,12,13,13,13,13,13,13,13,13,12,12,12
DATA 11,11,10,10,9,8,8,7,6,5,4,4,3,2,1,0,-1
DATA -2,-3,-4,-4,-5,-6,-7,-8,-8,-9,-10,-10,-11,-11,-12,-12,-12
DATA -13,-13,-13,-13,-13,-13,-13,-13,-12,-12,-12,-11,-11,-10,-10,-9,-8
DATA -8,-7,-6,-5,-4,-4,-3,-2,-1,0,1,2,3,4,4,5,6
DATA 7,8,8,9,10,10,11,11,12,12,12,13,13,13,13,13,13
DATA 13,13,12,12,12,11

REM GREEN SINE WAVE 3
DATA 0,1,1,2,3,3,4,5,5,6,6,6,7,7,7
DATA 7,7,7,7,6,6,6,5,5,4,4,3,2,1,1,0,-1
DATA -1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7,-7,-7
DATA -6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2,3,3
DATA 4,5,5,6,6,6,7,7,7,7,7,7,7,6,6,6,5
DATA 5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5,-5,-6
DATA -6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4,-4,-3
DATA -2,-1,-1,0,1,1,2,3,3,4,5,5,6,6,6,7,7
DATA 7,7,7,7,7,6,6,6,5,5,4,4,3,2,1,1,0
DATA -1,-1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7,-7
DATA -7,-6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2,3
DATA 3,4,5,5,6,6,6,7,7,7,7,7,7,7,6,6,6
DATA 5,5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5,-5
DATA -6,-6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4,-4
DATA -3,-2,-1,-1,0,1,1,2,3,3,4,5,5,6,6,6,7
DATA 7,7,7,7,7,7,6,6,6,5,5,4,4,3,2,1,1
DATA 0,-1,-1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7
DATA -7,-7,-6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2
DATA 3,3,4,5,5,6,6,6,7,7,7,7,7,7,7,6,6
DATA 6,5,5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5
DATA -5,-6,-6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4
DATA -4,-3,-2,-1,-1,0

REM BLUE SINE WAVE 1
DATA 15,14,14,14,13,13,13,12,12,11,11,10,10,10,9
DATA 9,8,7,7,6,6,5,5,4,4,3,2,2,1,1,0,-1
DATA -1,-2,-2,-3,-4,-4,-5,-5,-6,-6,-7,-7,-8,-8,-9,-10,-10
DATA -10,-11,-11,-12,-12,-13,-13,-13,-14,-14,-14,-15,-15,-15,-16,-16,-16
DATA -16,-16,-16,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-16
DATA -16,-16,-16,-16,-16,-15,-15,-15,-14,-14,-14,-13,-13,-13,-12,-12,-11
DATA -11,-10,-10,-10,-9,-9,-8,-7,-7,-6,-6,-5,-5,-4,-4,-3,-2
DATA -2,-1,-1,0,1,1,2,2,3,4,4,5,5,6,6,7,7
DATA 8,8,9,10,10,10,11,11,12,12,13,13,13,14,14,14,15
DATA 15,15,16,16,16,16,16,16,17,17,17,17,17,17,17,17,17
DATA 17,17,17,17,16,16,16,16,16,16,15,15,15,14,14,14,13
DATA 13,13,12,12,11,11,10,10,10,9,9,8,7,7,6,6,5
DATA 5,4,4,3,2,2,1,1,0,-1,-1,-2,-2,-3,-4,-4,-5
DATA -5,-6,-6,-7,-7,-8,-8,-9,-10,-10,-10,-11,-11,-12,-12,-13,-13
DATA -13,-14,-14,-14,-15,-15,-15,-16,-16,-16,-16,-16,-16,-17,-17,-17,-17
DATA -17,-17,-17,-17,-17,-17,-17,-17,-17,-16,-16,-16,-16,-16,-16,-15,-15
DATA -15,-14,-14,-14,-13,-13,-13,-12,-12,-11,-11,-10,-10,-10,-9,-9,-8
DATA -7,-7,-6,-6,-5,-5,-4,-4,-3,-2,-2,-1,-1,0,1,1,2
DATA 2,3,4,4,5,5,6,6,7,7,8,8,9,10,10,10,11
DATA 11,12,12,13,13,13,14,14,14,15,15,15,16,16,16,16,16
DATA 16,17,17,17,17,17,17,17,17,17,17,17,17,17,16,16,16
DATA 16,16,16,15,15,15

REM BLUE SINE WAVE 2
DATA -11,-12,-12,-12,-13,-13,-13,-13,-13,-13,-13,-13,-12,-12,-12
DATA -11,-11,-10,-10,-9,-8,-8,-7,-6,-5,-4,-4,-3,-2,-1,0,1
DATA 2,3,4,4,5,6,7,8,8,9,10,10,11,11,12,12,12
DATA 13,13,13,13,13,13,13,13,12,12,12,11,11,10,10,9,8
DATA 8,7,6,5,4,4,3,2,1,0,-1,-2,-3,-4,-4,-5,-6
DATA -7,-8,-8,-9,-10,-10,-11,-11,-12,-12,-12,-13,-13,-13,-13,-13,-13
DATA -13,-13,-12,-12,-12,-11,-11,-10,-10,-9,-8,-8,-7,-6,-5,-4,-4
DATA -3,-2,-1,0,1,2,3,4,4,5,6,7,8,8,9,10,10
DATA 11,11,12,12,12,13,13,13,13,13,13,13,13,12,12,12,11
DATA 11,10,10,9,8,8,7,6,5,4,4,3,2,1,0,-1,-2
DATA -3,-4,-4,-5,-6,-7,-8,-8,-9,-10,-10,-11,-11,-12,-12,-12,-13
DATA -13,-13,-13,-13,-13,-13,-13,-12,-12,-12,-11,-11,-10,-10,-9,-8,-8
DATA -7,-6,-5,-4,-4,-3,-2,-1,0,1,2,3,4,4,5,6,7
DATA 8,8,9,10,10,11,11,12,12,12,13,13,13,13,13,13,13
DATA 13,12,12,12,11,11,10,10,9,8,8,7,6,5,4,4,3
DATA 2,1,0,-1,-2,-3,-4,-4,-5,-6,-7,-8,-8,-9,-10,-10,-11
DATA -11,-12,-12,-12,-13,-13,-13,-13,-13,-13,-13,-13,-12,-12,-12,-11,-11
DATA -10,-10,-9,-8,-8,-7,-6,-5,-4,-4,-3,-2,-1,0,1,2,3
DATA 4,4,5,6,7,8,8,9,10,10,11,11,12,12,12,13,13
DATA 13,13,13,13,13,13,12,12,12,11,11,10,10,9,8,8,7
DATA 6,5,4,4,3,2,1,0,-1,-2,-3,-4,-4,-5,-6,-7,-8
DATA -8,-9,-10,-10,-11,-11

REM BLUE SINE WAVE 3
DATA 0,1,1,2,3,3,4,5,5,6,6,6,7,7,7
DATA 7,7,7,7,6,6,6,5,5,4,4,3,2,1,1,0,-1
DATA -1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7,-7,-7
DATA -6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2,3,3
DATA 4,5,5,6,6,6,7,7,7,7,7,7,7,6,6,6,5
DATA 5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5,-5,-6
DATA -6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4,-4,-3
DATA -2,-1,-1,0,1,1,2,3,3,4,5,5,6,6,6,7,7
DATA 7,7,7,7,7,6,6,6,5,5,4,4,3,2,1,1,0
DATA -1,-1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7,-7
DATA -7,-6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2,3
DATA 3,4,5,5,6,6,6,7,7,7,7,7,7,7,6,6,6
DATA 5,5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5,-5
DATA -6,-6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4,-4
DATA -3,-2,-1,-1,0,1,1,2,3,3,4,5,5,6,6,6,7
DATA 7,7,7,7,7,7,6,6,6,5,5,4,4,3,2,1,1
DATA 0,-1,-1,-2,-3,-3,-4,-5,-5,-6,-6,-6,-7,-7,-7,-7,-7
DATA -7,-7,-6,-6,-6,-5,-5,-4,-4,-3,-2,-1,-1,0,1,1,2
DATA 3,3,4,5,5,6,6,6,7,7,7,7,7,7,7,6,6
DATA 6,5,5,4,4,3,2,1,1,0,-1,-1,-2,-3,-3,-4,-5
DATA -5,-6,-6,-6,-7,-7,-7,-7,-7,-7,-7,-6,-6,-6,-5,-5,-4
DATA -4,-3,-2,-1,-1,0

REM SINE table 1
DATA 0,-4,-7,-11,-15,-18,-21,-23,-26,-28,-29,-30,-31,-31,-31
DATA -30,-29,-27,-25,-23,-20,-17,-14,-10,-6,-3,1,5,9,12,15,19
DATA 22,24,26,28,29,30,31,31,31,30,28,27,24,22,19,16,13
DATA 9,5,2,-2,-6,-10,-13,-16,-20,-22,-25,-27,-29,-30,-31,-31,-31
DATA -30,-29,-28,-26,-24,-21,-18,-15,-12,-8,-4,-1,3,7,11,14,17
DATA 20,23,25,27,29,30,31,31,31,30,29,27,25,23,20,17,14
DATA 11,7,3,-1,-4,-8,-12,-15,-18,-21,-24,-26,-28,-29,-30,-31,-31
DATA -31,-30,-29,-27,-25,-22,-20,-16,-13,-10,-6,-2,2,5,9,13,16
DATA 19,22,24,27,28,30,31,31,31,30,29,28,26,24,22,19,16
DATA 12,9,5,1,-3,-6,-10,-14,-17,-20,-23,-25,-27,-29,-30,-31,-31
DATA -31,-30,-29,-28,-26,-23,-21,-18,-15,-11,-7,-4,0,4,7,11,15
DATA 18,21,23,26,28,29,30,31,31,31,30,29,27,25,23,20,17
DATA 14,10,6,3,-1,-5,-9,-12,-15,-19,-22,-24,-26,-28,-29,-30,-31
DATA -31,-31,-30,-28,-27,-24,-22,-19,-16,-13,-9,-5,-2,2,6,10,13
DATA 16,20,22,25,27,29,30,31,31,31,30,29,28,26,24,21,18
DATA 15,12,8,4,1,-3,-7,-11,-14,-17,-20,-23,-25,-27,-29,-30,-31
DATA -31,-31,-30,-29,-27,-25,-23,-20,-17,-14,-11,-7,-3,1,4,8,12
DATA 15,18,21,24,26,28,29,30,31,31,31,30,29,27,25,22,20
DATA 16,13,10,6,2,-2,-5,-9,-13,-16,-19,-22,-24,-27,-28,-30,-31
DATA -31,-31,-30,-29,-28,-26,-24,-22,-19,-16,-12,-9,-5,-1,3,6,10
DATA 14,17,20,23,25,27,29,30,31,31,31,30,29,28,26,23,21
DATA 18,15,11,7,4,0

REM SINE table 2
DATA 0,0,-1,-1,-1,-2,-2,-2,-2,-3,-3,-3,-4,-4,-4
DATA -4,-4,-5,-5,-5,-5,-5,-5,-6,-6,-6,-6,-6,-6,-6,-6,-6
DATA -6,-6,-6,-6,-6,-6,-5,-5,-5,-5,-5,-5,-4,-4,-4,-4,-4
DATA -3,-3,-3,-2,-2,-2,-2,-1,-1,-1,0,0,0,1,1,1,2
DATA 2,2,2,3,3,3,4,4,4,4,4,5,5,5,5,5,5
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,5,5
DATA 5,5,5,5,4,4,4,4,4,3,3,3,2,2,2,2,1
DATA 1,1,0,0,0,-1,-1,-1,-2,-2,-2,-2,-3,-3,-3,-4,-4
DATA -4,-4,-4,-5,-5,-5,-5,-5,-5,-6,-6,-6,-6,-6,-6,-6,-6
DATA -6,-6,-6,-6,-6,-6,-6,-5,-5,-5,-5,-5,-5,-4,-4,-4,-4
DATA -4,-3,-3,-3,-2,-2,-2,-2,-1,-1,-1,0,0,0,1,1,1
DATA 2,2,2,2,3,3,3,4,4,4,4,4,5,5,5,5,5
DATA 5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,5
DATA 5,5,5,5,5,4,4,4,4,4,3,3,3,2,2,2,2
DATA 1,1,1,0,0,0,-1,-1,-1,-2,-2,-2,-2,-3,-3,-3,-4
DATA -4,-4,-4,-4,-5,-5,-5,-5,-5,-5,-6,-6,-6,-6,-6,-6,-6
DATA -6,-6,-6,-6,-6,-6,-6,-6,-5,-5,-5,-5,-5,-5,-4,-4,-4
DATA -4,-4,-3,-3,-3,-2,-2,-2,-2,-1,-1,-1,0,0,0,1,1
DATA 1,2,2,2,2,3,3,3,4,4,4,4,4,5,5,5,5
DATA 5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 5,5,5,5,5,5,4,4,4,4,4,3,3,3,2,2,2
DATA 2,1,1,1,0,0

REM SINE table 3
DATA 0,3,6,9,12,15,16,18,19,19,19,18,16,15,12
DATA 10,6,3,0,-3,-6,-9,-12,-15,-16,-18,-19,-19,-19,-18,-16,-15
DATA -12,-10,-6,-3,0,3,6,9,12,15,16,18,19,19,19,18,16
DATA 15,12,10,6,3,0,-3,-6,-9,-12,-15,-16,-18,-19,-19,-19,-18
DATA -16,-15,-12,-10,-6,-3,0,3,6,9,12,15,16,18,19,19,19
DATA 18,16,15,12,10,6,3,0,-3,-6,-9,-12,-15,-16,-18,-19,-19
DATA -19,-18,-16,-15,-12,-10,-6,-3,0,3,6,9,12,15,16,18,19
DATA 19,19,18,16,15,12,10,6,3,0,-3,-6,-9,-12,-15,-16,-18
DATA -19,-19,-19,-18,-16,-15,-12,-10,-6,-3,0,3,6,9,12,15,16
DATA 18,19,19,19,18,16,15,12,10,6,3,0,-3,-6,-9,-12,-15
DATA -16,-18,-19,-19,-19,-18,-16,-15,-12,-10,-6,-3,0,3,6,9,12
DATA 15,16,18,19,19,19,18,16,15,12,10,6,3,0,-3,-6,-9
DATA -12,-15,-16,-18,-19,-19,-19,-18,-16,-15,-12,-10,-6,-3,0,3,6
DATA 9,12,15,16,18,19,19,19,18,16,15,12,10,6,3,0,-3
DATA -6,-9,-12,-15,-16,-18,-19,-19,-19,-18,-16,-15,-12,-10,-6,-3,0
DATA 3,6,9,12,15,16,18,19,19,19,18,16,15,12,10,6,3
DATA 0,-3,-6,-9,-12,-15,-16,-18,-19,-19,-19,-18,-16,-15,-12,-10,-6
DATA -3,0,3,6,9,12,15,16,18,19,19,19,18,16,15,12,10
DATA 6,3,0,-3,-6,-9,-12,-15,-16,-18,-19,-19,-19,-18,-16,-15,-12
DATA -10,-6,-3,0,3,6,9,12,15,16,18,19,19,19,18,16,15
DATA 12,10,6,3,0,-3,-6,-9,-12,-15,-16,-18,-19,-19,-19,-18,-16
DATA -15,-12,-10,-6,-3,0

REM SINE table 4
DATA 0,4,8,11,15,19,22,25,28,31,34,36,38,40,41
DATA 43,43,44,44,44,43,43,41,40,38,36,34,31,28,25,22,19
DATA 15,11,8,4,0,-4,-8,-11,-15,-19,-22,-25,-28,-31,-34,-36,-38
DATA -40,-41,-43,-43,-44,-44,-44,-43,-43,-41,-40,-38,-36,-34,-31,-28,-25
DATA -22,-19,-15,-11,-8,-4,0,4,8,11,15,19,22,25,28,31,34
DATA 36,38,40,41,43,43,44,44,44,43,43,41,40,38,36,34,31
DATA 28,25,22,19,15,11,8,4,0,-4,-8,-11,-15,-19,-22,-25,-28
DATA -31,-34,-36,-38,-40,-41,-43,-43,-44,-44,-44,-43,-43,-41,-40,-38,-36
DATA -34,-31,-28,-25,-22,-19,-15,-11,-8,-4,0,4,8,11,15,19,22
DATA 25,28,31,34,36,38,40,41,43,43,44,44,44,43,43,41,40
DATA 38,36,34,31,28,25,22,19,15,11,8,4,0,-4,-8,-11,-15
DATA -19,-22,-25,-28,-31,-34,-36,-38,-40,-41,-43,-43,-44,-44,-44,-43,-43
DATA -41,-40,-38,-36,-34,-31,-28,-25,-22,-19,-15,-11,-8,-4,0,4,8
DATA 11,15,19,22,25,28,31,34,36,38,40,41,43,43,44,44,44
DATA 43,43,41,40,38,36,34,31,28,25,22,19,15,11,8,4,0
DATA -4,-8,-11,-15,-19,-22,-25,-28,-31,-34,-36,-38,-40,-41,-43,-43,-44
DATA -44,-44,-43,-43,-41,-40,-38,-36,-34,-31,-28,-25,-22,-19,-15,-11,-8
DATA -4,0,4,8,11,15,19,22,25,28,31,34,36,38,40,41,43
DATA 43,44,44,44,43,43,41,40,38,36,34,31,28,25,22,19,15
DATA 11,8,4,0,-4,-8,-11,-15,-19,-22,-25,-28,-31,-34,-36,-38,-40
DATA -41,-43,-43,-44,-44,-44,-43,-43,-41,-40,-38,-36,-34,-31,-28,-25,-22
DATA -19,-15,-11,-8,-4,0


tmp$=command$
a=instr(tmp$,"?")
if a > 0 then help:
a=instr(tmp$,"h")
if a > 0 then help:
a=instr(tmp$,"H")
if a > 0 then help:


AX=&hex13
INT86(&hex10,AX,na,na,na,na,na,na,na,na)

REM read in the palette

  REM read in the red values for palette
  FOR x = 0 TO 360
  READ rsin1(x)
  NEXT x
  FOR x = 0 TO 360
  READ rsin2(x)
  NEXT x
  FOR x = 0 TO 360
  READ rsin3(x)
  NEXT x

  REM read in the green values for palette
  FOR x = 0 TO 360
  READ gsin1(x)
  NEXT x
  FOR x = 0 TO 360
  READ gsin2(x)
  NEXT x
  FOR x = 0 TO 360
  READ gsin3(x)
  NEXT x

  REM read in the blue values for palette
  FOR x = 0 TO 360
  READ bsin1(x)
  NEXT x
  FOR x = 0 TO 360
  READ bsin2(x)
  NEXT x
  FOR x = 0 TO 360
  READ bsin3(x)
  NEXT x

REM read in sine tables
  FOR x = 0 TO 360
    READ sine1(x)
  NEXT x
  FOR x = 0 TO 360
    READ sine2(x)
  NEXT x
  FOR x = 0 TO 360
    READ sine3(x)
  NEXT x
  FOR x = 0 TO 360
    READ sine4(x)
  NEXT x


defseg = &hexA000
DOLOOP:

REM rotate sine waves
    s1tmp = sine1(0)
    s3tmp = sine3(0)
    FOR x = 0 TO 359
        z = x + 1
        sine1(x) = sine1(z)
        sine3(x) = sine3(z)
    NEXT x
    sine1(360) = s1tmp
    sine3(360) = s3tmp

    s2tmp = sine2(360)
    s4tmp = sine4(360)
    FOR x = 0 TO 359
        z = 360 - x
        Y = z - 1
        sine2(z) = sine2(Y)
        sine4(z) = sine4(Y)
    NEXT x
    sine2(0) = s2tmp
    sine4(0) = s4tmp

REM do the pallette
OUT &Hex3C8, 0
FOR Y = 0 TO 128
x = Y + Y
red = rsin1(x) + rsin2(x)
red = red + rsin3(x)
red = red + 30
OUT &Hex3C9, red
OUT &Hex3C9, 0
blue = bsin1(x) + bsin2(x)
blue = blue + bsin3(x)
blue = blue + 30
OUT &Hex3C9, blue
NEXT Y


REM calculate plasma
FOR Y = 0 TO 49
ymod& = Y * 4
ymod& = ymod& * 320
FOR x = 0 TO 79

cur = ymod + x
st1 = sine1(x) + sine2(x)
st2 = sine3(Y) + sine4(Y)

col = st1 + Y
col = col MOD 254
col = col + 1
col = st2 + col
col = col MOD 254
COL = COL / 2

REM calculate where in memory to put pixel
xt& = x * 4
xt& = xt& + ymod&
REM put pixels to memory
POKE xt&, col
x2& = xt& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col

x2& = xt& + 320
POKE x2&, col
x2& = x2& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col

x2& = xt& + 640
POKE x2&, col
x2& = x2& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col

x2& = xt& + 960
POKE x2&, col
x2& = x2& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col
x2& = x2& + 1
POKE x2&, col

NEXT x
NEXT Y



x$ = INKEY$
IF x$ = "" THEN DOLOOP:


AX=&hex3
INT86(&hex10,AX,na,na,na,na,na,na,na,na)
cls
PRINT ""
PRINT "                                 ANIMATED PLASMA"
PRINT "                                   By Arclight"
PRINT ""
PRINT "                           E-MAIL :- ia53@rapid.co.uk"
PRINT "                     WEB SITE :- www.users.rapid.net.uk/ia53"
PRINT ""
END

help:
cls
PRINT ""
PRINT "                                 ANIMATED PLASMA"
PRINT "                                   By Arclight"
PRINT ""
PRINT "                           E-MAIL :- ia53@rapid.co.uk"
PRINT "                     WEB SITE :- www.users.rapid.net.uk/ia53"
PRINT ""
print "PRESS ANY KEY   -   quit"
end