home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
besupl.zip
/
BEON.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-04-07
|
2KB
|
43 lines
100 COLOR 12,0: CLS: NAM$= " ": APP$= " ": DAT1$= " ": TIM1$= " ": TYP1$= "ON"
105 ALY$= " ": EMY$= " ": RAT1= 0
110 LOCATE 3,15: PRINT "* * * B e g i n L o g o n R o u t i n e * * *"
115 TIM2$= TIME$: DAT2$= DATE$
120 COLOR 12,1
125 LOCATE 6,10: PRINT "Logon ";TIME$: LOCATE 6,55: PRINT "Date: ";DATE$
130 COLOR 12,0
135 LIN1$= STRING$(50,CHR$(205)): LIN2$= STRING$(40,CHR$(196)): LOCATE 8,1
140 PRINT TAB(15);CHR$(201);TAB(16);LIN1$;TAB(66);CHR$(187)
145 FOR I=1 TO 7
150 PRINT TAB(15);CHR$(186);TAB(66);CHR$(186)
155 NEXT I
160 PRINT TAB(15);CHR$(200);TAB(16);LIN1$;TAB(66);CHR$(188)
165 COLOR 15,0: LOCATE 8,35: PRINT "Logon Sequence": COLOR 10,0
170 '
175 LOCATE 10,17: PRINT "Captain: ": LOCATE 12,17: PRINT "Senario: "
180 LOCATE 21,2: PRINT "Begin: Logon/Logoff Utility...Ver. 1.0"
185 LOCATE 22,2: PRINT "Developed by: Norman Enlow, Jr. "
190 LOCATE 23,2: PRINT "April 06, 1989"
195 '
200 COLOR 11,0: LOCATE 17,35: PRINT "Enter your name!"
205 BEEP: LOCATE 10,26: INPUT NAM$
210 IF NAM$= "" THEN GOSUB 270
215 LOCATE 17,30: PRINT "LIST the application!"
220 BEEP: LOCATE 12,26: INPUT APP$
225 IF APP$= "" THEN GOSUB 290
230 BEEP: LOCATE 14, 17: INPUT "Enter designated ALLY...:";ALY$
235 BEEP: LOCATE 15, 17: INPUT "Enter designated opponent..:";EMY$
240 COLOR 14,0
245 LOCATE 17,20: INPUT "Press the ENTER key to continue..........";AN$
250 OPEN "C:\GAMES\BEGIN\ENTRY.DAT" FOR OUTPUT AS #1
255 WRITE #1, NAM$, APP$, ALY$, EMY$, RAT1, DATE$, TIME$, TYP1$
260 CLOSE #1
265 SYSTEM
270 '
275 BEEP
280 LOCATE 17,30: PRINT "You must ENTER your name!!!"
285 RETURN 205
290 '
295 LOCATE 17,25: PRINT "You must LIST an application!!!"
300 BEEP
305 RETURN 220