Rem Listing

20 DATAl,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1 30 DATAl,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1 40 DATA5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1 50 DATA9,20,27 ,41,-1,10,21 ,26 ,40 ,-1,11,22,25,38,-1,12,22,24,36 ,-1

60 DATA13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1 7 0 DATAl9,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1 80 DATA8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1 90 DATA4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1 100 DATA2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1 110 DATAl4,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1 120 DATA14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1 130 DATAl2,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1 140 DATA10,11,17,18,22,22,24,29,29,-1 150 DATA22,23,26,29,-1,27,29,-1,2 8,29,-1 16 0 DATA500 170 CLS0

180 R=RND(8):N=R 190 FORL=1TO200 200 Z=-.65 210 RESTORE 220 Z=Z+.65

230 READX:IFX<0THEN220 240 IFX>300THEN300 250 READY

Was this article helpful?

0 0

Post a comment