home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 20
/
020.d81
/
horrors
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
140 lines
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