home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug080.ark / DATE.STB < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.9 KB  |  55 lines
  1.  
  2.    10   Gosub Screen'erase
  3.    20   @ : @"Address Label Program"
  4.    30   @"Copyright 1981"
  5.    40   @"David E. Trachtenbarg"
  6.    50   @"Version 08/13/81"
  7.    60   Dim Today$(5),Last'edited$(5),Last'sorted$(5)
  8.    61   Dim Edit'file$(13),Data'file$(13),Sort'file$(13)
  9.    62   Dim File$(73),Name$(34)
  10.    65   Endcommon
  11.    66   Edit'file$="EDITINFO.DAT"
  12.    67   Data'file$="MAILING.DAT"
  13.    68   Sort'file$="ZIP.DAT"
  14.    70   Dim Command$(10)
  15.    80   Integer I
  16.    90   Set 0,-1
  17.   100   Gosub Enter'today
  18.   150   On Error Gosub Create'file
  19.   160   Open\1,6\Edit'file$
  20.   170   On Error Stop
  21.   180   Get\1,0\Last'edited$(-1)
  22.   185   Get\1,2\Last'sorted$(-1)
  23.   190   Put\1,0\Today$(-1)
  24.   200   Put\1,1\Last'edited$(-1)
  25.   210   Close\1\
  26.   220   Run"MMENU.SAV"
  27.   230 *Screen'erase
  28.   240   Out 1,126 : Out 1,28 : Return
  29.   250 *Bottom'lines
  30.   260   Out 1,126 : Out 1,17 : Out 1,0 : Out 1,22
  31.   270   Out 1,126 : Out 1,24 : Return
  32.   280 *Enter'today
  33.   290   @ : Input"Enter the date in mo/da/yr format. ",Command$
  34.   300   If Len(Command$)<>8 Then @"Please use mo/da/yr format." : Goto 290
  35.   310   I=Val(Command$(0,1))
  36.   320   If I<1 Or I>12 Then @"Then month must be between 01 and 12." : Goto 290
  37.   330   I=Val(Command$(3,4))
  38.   340   If I<1 Or I>31 Then @"The day must be between 01 and 31." : Goto 290
  39.   350   I=Val(Command$(6,7))
  40.   360   If I=0 And Command$(6,7)<>"00" Then @"The year must be a number." : Goto 290
  41.   370   If(Command$(2,2)<>"/") Or(Command$(5,5)<>"/") Then @"You must separate the date with /'s." : Goto 290
  42.   380   Today$=Command$(0,1)+Command$(3,4)+Command$(6,7)
  43.   390   Return
  44.   400 *Create'file
  45.   410   If Sys(3)<>134 Then Goto Error'report
  46.   420   Create Edit'file$
  47.   430   Open\1,6\Edit'file$
  48.   440   Put\1,1\Today$(-1)
  49.   450   Close\1\
  50.   460   Retry
  51.   470 *Error'report
  52.   480   @ : @"Error ";Sys(3);" has occured."
  53.   490   Stop
  54.