:ClrHome
:0üÁ
:Lbl A
:1üX
:If Á=0:For(A,1,9,1)
:If Á=1:For(A,1,7,1)
:If A=1:Then
:Output(6,1,"O")
:Output(7,1,"+")
:Output(8,1,"^")
:End
:If A=2 or A=4 or A=6 or A=8:Then
:Output(6,X," O")
:Output(7,X," +")
:Output(8,X," '")
:X+1üX
:End
:If A=3 or A=5 or A=7 or A=9:Then
:Output(6,X," O")
:Output(7,X," +")
:Output(8,X," ^")
:X+1üX
:End
:End
:If Á=1:Goto B
:For(A,1,200,1)
:End
:Output(5,10,"/")
:Output(4,11,"HIYA!")
:For(A,1,300,1)
:End
:Output(4,2,"MY NAME IS BILL")
:For(A,1,300,1)
:End
:Output(4,2," ")
:Output(5,10," ")
:4üX
:For(A,1,7,1)
:If A=2:Then
:Output(5,9,"O")
:Output(6,9,"^")
:End
:If Aù2 and A÷5:Then
:Output(X,9,"O")
:Output(X+1,9,"^")
:Output(X+2,9," ")
:X-1üX
:End
:If A=6:Then
:Output(1,9,"^")
:Output(2,9," ")
:End
:If A=7:Output(1,9," ")
:End
:1üÁ
:For(A,1,350,1)
:End
:Goto A
:Lbl B
:For(A,1,250,1)
:End
:Output(5,8,"/")
:Output(4,8,"HAHAHA!!")
:For(A,1,300,1)
:End
:Output(4,4,"BILL'S DEAD!!")
:For(A,1,700,1)
:End
:Output(4,4," ")
:Output(5,8," ")
:Output(1,2,"PRESS ANY KEY!")
:While getKey=0
:End
:ClrHome
:Output(1,2,"COPYRIGHT 1998")
:For(A,1,200,1)
:End
:Output(2,1,"SCOTT K BRADFORD")
:For(A,1,200,1)
:End
:Output(4,3,"JDYNE")
:For(A,1,200,1)
:End
:Output(5,3,"TECHNOLOGIES")
:For(A,1,200,1)
:End
:Disp "","","","","",""