Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: KJUNK

KJUNK.m

Go to the documentation of this file.
KJUNK ;NEW PROGRAM [ 03/10/1999  3:12 PM ]

 ;PURE JUNK ZAPP ANYTIME

 

 S KCNT=0

START 

 I KCNT=10 Q

 W !,KCNT

 F KR=10:1:70 W !?KR,KR

 F KR=70:-1:10 W !?KR,KR H 1

 S KCNT=KCNT+1

 D START