8900 REM-----ASSEMBLY------
8910 S=54272:POKES+5,9:POKES+24,15:POKES+6,144
8920 FORN=1TO4:READN(N,1),N(N,2):NEXT
8930 READNO,DU:IFNO=0THENEND
8940 POKES+1,N(NO,1):POKES,N(NO,2):POKES+4,17:FORJ=1TO15*DU:NEXT:POKES+4,16
8950 FORJ=1TO50:NEXT:GOTO8930
8960 DATA12,143,16,195,21,31,25,30
8970 DATA1,6,1,2,2,6,1,2,2,6,3,2
8980 DATA2,12,2,4,2,2,3,6,2,2,3,6
8990 DATA4,2,3,12,2,6,3,2,4,12,3,6
9000 DATA2,2,1,12,1,6,1,2,2,12,2,6
9010 DATA2,2,2,18,0,0