home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / besupl.zip / BEOFF.BAS < prev    next >
BASIC Source File  |  1989-04-29  |  2KB  |  39 lines

  1. 100 COLOR 14,1: CLS: NAM$= " ": APP$= " ": DAT1$= " ": TIM1$= " ": TYP1$= " "
  2. 105 APP$= " ": ALY$= " ": EMY$= " ": RAT1= 0
  3. 110 LOCATE 3,17: PRINT "* * * B e g i n   L o g o f f   R o u t i n e * * *"
  4. 115 TIM2$= TIME$: DAT2$= DATE$: TYP2$= "OFF": ETIM= 0
  5. 120 OPEN "C:\GAMES\BEGIN\ENTRY.DAT" FOR INPUT AS #1
  6. 125   INPUT #1, NAM$, APP$, ALY$, EMY$, RAT1, DAT1$, TIM1$, TYP1$
  7. 130 CLOSE #1
  8. 135 OPEN "C:\GAMES\BEGIN\HISTORY.DAT" FOR APPEND AS #1
  9. 140   WRITE #1, NAM$, APP$, ALY$, EMY$, RAT1, DAT1$, TIM1$, TYP1$
  10. 145 CLOSE #1
  11. 150 COLOR 12,1
  12. 155 LOCATE 6,10: PRINT "Logon: ";TIME$: LOCATE 6,55: PRINT "Date: ";DATE$
  13. 160 COLOR 14,1
  14. 165 LIN1$= STRING$(50,CHR$(205)): LIN2$= STRING$(40,CHR$(196)): LOCATE 8,1
  15. 170 PRINT TAB(15);CHR$(201);TAB(16);LIN1$;TAB(66);CHR$(187)
  16. 175 FOR I=1 TO 6
  17. 180   PRINT TAB(15);CHR$(186);TAB(66);CHR$(186)
  18. 185 NEXT I
  19. 190 PRINT TAB(15);CHR$(200);TAB(16);LIN1$;TAB(66);CHR$(188)
  20. 195 COLOR 12,0: LOCATE 8,34: PRINT "Logoff Sequence": COLOR 14,1
  21. 200 LOCATE 10,33: PRINT "Captain: ": LOCATE 12,33: PRINT "Time-off: "
  22. 205 LOCATE 14,32: PRINT " Your rating: ": COLOR 10,1
  23. 210 BEEP: LOCATE 10,44: PRINT NAM$
  24. 220 LOCATE 12,43: PRINT TIM2$: BEEP: LOCATE 14,47: INPUT RAT1
  25. 225 COLOR 12,1
  26. 230 LOCATE 21,2: PRINT "Begin: Logon/Logoff Utility...Ver. 1.0"
  27. 235 LOCATE 22,2: PRINT "Developed by Norman Enlow, Jr. "
  28. 240 LOCATE 23,2: PRINT "April 06, 1989"
  29. 245 '
  30. 250 COLOR 15,1
  31. 255 BEEP: LOCATE 17,20: INPUT " Press any key to continue ...........";AN$
  32. 260 OPEN "C:\GAMES\BEGIN\HISTORY.DAT" FOR APPEND AS #1
  33. 265   WRITE #1, NAM$, APP$, ALY$, EMY$, RAT1, DAT2$, TIM2$, TYP2$
  34. 270 CLOSE #1
  35. 275 SYSTEM
  36. 280 '
  37. 285 BEEP: LOCATE 17,30: PRINT "You MUST enter your name!"
  38. 290 RETURN 215
  39.