PROC pauz(CARD n)
CARD i

FOR i=0 TO N+N
DO OD
RETURN
       
PROC TITLE() 
GRAPHICS(0)
POKE(710,0)
POKE(752,1)
PRINT(" ")
POSITION(12,9)
PRINT("ACTION! DEMO")
POSITION(09,11)
PRINT("BY MICHAEL MITCHELL")
PAUZ(20900) 

RETURN

              
PROC DEMO2()


CARD A,B,C,D,X,Y,J,K,I,COL



 GRAPHICS (11)
POKE(710,0)
COLOR=1

A=1 B=1 C=1 D=1
X=RAND(319)+1
Y=RAND(191)+1
J=RAND(319)+1
K=RAND(191)+1
FOR I=1 TO 800 DO

  

PLOT(X,Y)
DRAWTO(J,K)
X==+A
Y==+B
J==+C
K==+D COLOR=COL        COL=COL+1 IF COL>14 THEN COL=1
 FI
IF X>=70  THEN A=-A X==+A  FI
IF J>=70  THEN C=-C J==+C FI
IF J<=0 THEN C=-C J==+C FI
IF X<=0 THEN A=-A X==+A FI
IF Y>=191 THEN B=-B Y==+B  FI
IF K>=191 THEN D=-D K==+D  FI
IF K<=0 THEN D=-D K==+D  FI
IF Y<=0 THEN B=-B Y==+B FI
OD



RETURN
PROC HI()

TITLE()
DEMO2()
RETURN