home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
e
/
easydoor.zip
/
EASYDEMO.BAS
next >
Wrap
BASIC Source File
|
1990-05-28
|
550b
|
30 lines
'
' Demo program for EASY-DOOR V1.0
' See EASYDOOR.DOC for informations
'
' Copyright (C) 1990 Martin Bouchard
'
CALL INIT
Demo:
CALL SendCLS
CALL ModemInput("How old are you? ", year$, 2)
CALL Linefeed(1)
CALL SendCR("So, you are " + year$ + " old!")
CALL Linefeed(1)
CALL ModemInput("Press [Enter] to continue", e$, 0)
CALL SendFile("EASYDEMO.BAS", 0)
CALL Linefeed(2)
CALL SendMenuString("Run this demo again (y/n)? ", "YN", ch$)
IF ch$ = "Y" THEN GOTO Demo
CALL Linefeed(2)
CALL SendCR("Bye!")
CALL ReturnBBS