c.
fo.
p. "AvigoPoint             ";time$;" ?"
fo.
p.
re. 0,10,159,0,0
li. 150,1,158,9,0
li. 158,1,150,9,0
re. 0,10,149,0,0
re. 0,10,139,0,0
re. 0,10,107,0,0
ip.
x=posx
y=posy
IF x>150 THEN IF y>1 THEN IF x<158 THEN IF y<9 THEN b = 1
IF b=1 THEN GOTO 12000
IF x>140 THEN IF y>1 THEN IF x<148 THEN IF y<9 THEN b = 2
IF b=2 THEN GOTO 10000
fo.
p.
p. "Presentation Editor"
fo.
p.
p. "Please enter number of slides"
p. "in presentation (1-5)."
ip.
r=posx
t=posy
IF r>150 THEN IF t>1 THEN IF r<158 THEN IF t<9 THEN b = 1
IF b=1 THEN GOTO 12000
IF r>140 THEN IF t>1 THEN IF r<148 THEN IF t<9 THEN b = 2
IF b=2 THEN GOTO 10000
in. X
IF X>5 th. g. 5000
IF X=0 th. g. 5000
p. 
p. "Slide #1"
p.
p. "Enter title-"
ip.
in. A$
p.
p. "Enter line 1-"
ip.
in. B$
p.
p. "Enter line 2-"
ip.
in. C$
p.
p. "Enter line 3-"
ip.
in. D$

IF X=1 th. g. 6000

p. 
p. "Slide #2"
ip.
p.
p. "Enter title-"
ip.
in. E$
p.
p. "Enter line 1-"
ip.
in. F$
p.
p. "Enter line 2-"
ip.
in. G$
p.
p. "Enter line 3-"
ip.
in. H$
p. 

IF X=2 th. g. 6000

p. "Slide #3"
ip.
p.
p. "Enter title-"
ip.
in. I$
p.
p. "Enter line 1-"
ip.
in. J$
p.
p. "Enter line 2-"
ip.
in. K$
p.
p. "Enter line 3-"
ip. 
in. L$

IF X=3 th. g. 6000

p. 
p. "Slide #4"
ip.
p.
p. "Enter title-"
ip.
in. M$
p.
p. "Enter line 1-"
ip.
in. N$
p.
p. "Enter line 2-"
ip.
in. O$
p.
p. "Enter line 3-"
ip.
in. P$

IF X=4 th. g. 6000

p. 
p. "Slide #5"
ip.
p.
p. "Enter title-"
ip.
in. Q$
p.
p. "Enter line 1-"
ip.
in. R$
p.
p. "Enter line 2-"
ip.
in. S$
p.
p. "Enter line 3-"
ip.
in. T$

g. 5000

6000
ip.
c.
p.
p.
p.
p.
p.
fo.
p. "        ";A$
fo.
p.
p.
p.
p.
p. "        ";B$
p. "        ";C$
p. "        ";D$

re. 14,14,145,225,0
re. 10,10,149,229,0

ip.
IF X=1 th. g. 5000

ip.
c.
p.
p.
p.
p.
p.
fo.
p. "        ";E$
fo.
p.
p.
p.
p.
p. "        ";F$
p. "        ";G$
p. "        ";H$

re. 14,14,145,225,0
re. 10,10,149,229,0

ip.
IF X=2 th. g. 5000

ip.
c.
p.
p.
p.
p.
p.
fo.
p. "        ";I$
fo.
p.
p.
p.
p.
p. "        ";J$
p. "        ";K$
p. "        ";L$

re. 14,14,145,225,0
re. 10,10,149,229,0

ip.
IF X=3 th. g. 5000

ip.
c.
p.
p.
p.
p.
p.
fo.
p. "        ";M$
fo.
p.
p.
p.
p.
p. "        ";N$
p. "        ";O$
p. "        ";P$

re. 14,14,145,225,0
re. 10,10,149,229,0

ip.
IF X=4 th. g. 5000

ip.
c.
p.
p.
p.
p.
fo.
p.
p. "        ";Q$
fo.
p.
p.
p.
p.
p. "        ";R$
p. "        ";S$
p. "        ";T$

re. 14,14,145,225,0
re. 10,10,149,229,0

ip.
g. 5000

10000
c.
p.
fo. 
p. "AvigoPoint 99 Help"
fo.
p.
p. "Welcome to AvigoPoint 99!"
p. "This is a BASIC program"
p. "which creates simple business"
p. "presenataions on the go."
p. "Simply input the content and"
p. "The program will create a"
p. "slideshow presentation. If"
p. "you have any questions E-Mail"
p. "at StarDog312@aol.com."
ip.
g. 12000

5000
c.
fo.
p.
p. "End of Presentation"
fo.
p.
p. "Would you like to replay"
p. "your presentation? (y/n)"
ip.
in. X$
IF X$="Y" th. g. 6000
g. 12000

12000
ip.
c.
p.
p. "Thank you for using"
p. "AvigoPoint 99"
p.
p. "c. 1998 DaveSoft"
e.


