100 X=INT(RND(1)*5)+1
110 Y1=INT(RND(1)*4)+1
120 IFY1=1THENV1=33
121 IFY1=2THENV1=17
122 IFY1=3THENV1=65
123 IFY1=4THENV1=129
130 Y2=INT(RND(1)*4)+1
131 IFY2=1THENV2=33
132 IFY2=2THENV2=17
133 IFY2=3THENV2=65
134 IFY2=4THENV2=129
140 Y3=INT(RND(1)*4)+1
141 IFY3=1THENV3=33
142 IFY3=2THENV3=17
143 IFY3=3THENV3=65
144 IFY3=4THENV3=129
200 ONXGOSUB600,2600,4600,6600,20000
210 GOSUB 11000
300 PRINT"[208]RESS A KEY TO STOP THIS HORROR!"
350 X$="[144][159][156][158][129][149][150][151][152][153][154][155]"
360 X=INT(RND(1)*16)+1
370 PRINTMID$(X$,X,1);
400 GETK$:IFK$<>""THEN60000
500 GOTO100
600 S=54272
700 POKES+0,54:POKES+1,4
800 POKES+7,54:POKES+8,99
900 POKES+14,24:POKES+15,34
1000 POKES+24,15
1100 POKES+5,12 :POKES+6,31
1200 POKES+12,12 :POKES+13,31
1300 POKES+19,12 :POKES+20,31
1400 POKES+4,V1
1500 POKES+11,V2
1600 POKES+18,V3
1700 FORA=4TO99STEP12
1800 POKES+1,A
1900 POKES+8,99-A
2000 POKES+15,RND(1)*60+20
2100 NEXT
2200 POKES+4,V1-1
2300 POKES+11,V2-1
2400 POKES+18,V3-1
2500 RETURN
2600 S=54272
2700 POKES+0,54:POKES+1,4
2800 POKES+7,54:POKES+8,99
2900 POKES+14,24:POKES+15,34
3000 POKES+24,15
3100 POKES+5,12 :POKES+6,31
3200 POKES+12,12 :POKES+13,31
3300 POKES+19,12 :POKES+20,31
3400 POKES+4,V1
3500 POKES+11,V2
3600 POKES+18,V3
3700 FORA=4TO99STEP15
3800 POKES+1,A
3900 POKES+8,99-A
4000 POKES+15,ABS(TAN(A))
4100 NEXT
4200 POKES+4,V1-1
4300 POKES+11,V2-1
4400 POKES+18,V3-1
4500 RETURN
4600 S=54272
4700 POKES+0,54:POKES+1,4
4800 POKES+7,54:POKES+8,99
4900 POKES+14,24:POKES+15,34
5000 POKES+24,15
5100 POKES+5,12 :POKES+6,31
5200 POKES+12,12 :POKES+13,31
5300 POKES+19,12 :POKES+20,31
5400 POKES+4,V1
5500 POKES+11,V2
5600 POKES+18,V3
5700 FORA=4TO99STEP25
5800 POKES+1,A
5900 POKES+8,99-A
6000 POKES+15,A/4
6100 NEXT
6200 POKES+4,V1-1
6300 POKES+11,V2-1
6400 POKES+18,V3-1
6500 RETURN
6600 S=54272
6700 POKES+0,54:POKES+1,4
6800 POKES+7,54:POKES+8,99
6900 POKES+14,24:POKES+15,34
7000 POKES+24,15
7100 POKES+5,12 :POKES+6,31
7200 POKES+12,12 :POKES+13,31
7300 POKES+19,12 :POKES+20,31
7400 POKES+4,V1
7500 POKES+11,V2
7600 FORA=4TO199STEP14
7700 POKES+1,A
7800 POKES+8,199-A
7900 NEXT
8000 POKES+4,V1-1
8100 POKES+11,V2-1
8200 RETURN
11000 S=54272
11001 POKES+0,54:POKES+1,4
11002 POKES+7,54:POKES+8,99
11003 POKES+14,24:POKES+15,34
11004 POKES+24,15
11005 POKES+5,12 :POKES+6,31
11006 POKES+12,12 :POKES+13,31
11007 POKES+19,12 :POKES+20,31
11008 POKES+4,33
11009 POKES+11,33
11010 FORA=4TO199STEP14
11011 POKES+1,A
11012 POKES+8,199-A
11013 NEXT
11014 POKES+4,32
11015 POKES+11,32
11016 RETURN
20000 S=54272
20010 POKES+0,54:POKES+1,4
20020 POKES+7,54:POKES+8,99
20030 POKES+14,24:POKES+15,34
20040 POKES+24,15
20050 POKES+5,12 :POKES+6,31
20060 POKES+12,12 :POKES+13,31
20070 POKES+19,12 :POKES+20,31
20080 POKES+4,V1
20090 POKES+11,V2
20100 POKES+18,V3
20200 FORA=4TO99STEP12
20300 POKES+15,RND(1)*60+20
20400 POKES+8 ,RND(1)*60+20
20500 POKES+1 ,RND(1)*60+20
20600 NEXT
20700 POKES+4,V1-1
20800 POKES+11,V2-1
20900 POKES+18,V3-1
21000 RETURN
60000 FORX=STOS+24:POKEX,0:NEXT