home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG080.ARK
/
DATE.STB
< prev
next >
Wrap
Text File
|
1984-04-29
|
2KB
|
55 lines
10 Gosub Screen'erase
20 @ : @"Address Label Program"
30 @"Copyright 1981"
40 @"David E. Trachtenbarg"
50 @"Version 08/13/81"
60 Dim Today$(5),Last'edited$(5),Last'sorted$(5)
61 Dim Edit'file$(13),Data'file$(13),Sort'file$(13)
62 Dim File$(73),Name$(34)
65 Endcommon
66 Edit'file$="EDITINFO.DAT"
67 Data'file$="MAILING.DAT"
68 Sort'file$="ZIP.DAT"
70 Dim Command$(10)
80 Integer I
90 Set 0,-1
100 Gosub Enter'today
150 On Error Gosub Create'file
160 Open\1,6\Edit'file$
170 On Error Stop
180 Get\1,0\Last'edited$(-1)
185 Get\1,2\Last'sorted$(-1)
190 Put\1,0\Today$(-1)
200 Put\1,1\Last'edited$(-1)
210 Close\1\
220 Run"MMENU.SAV"
230 *Screen'erase
240 Out 1,126 : Out 1,28 : Return
250 *Bottom'lines
260 Out 1,126 : Out 1,17 : Out 1,0 : Out 1,22
270 Out 1,126 : Out 1,24 : Return
280 *Enter'today
290 @ : Input"Enter the date in mo/da/yr format. ",Command$
300 If Len(Command$)<>8 Then @"Please use mo/da/yr format." : Goto 290
310 I=Val(Command$(0,1))
320 If I<1 Or I>12 Then @"Then month must be between 01 and 12." : Goto 290
330 I=Val(Command$(3,4))
340 If I<1 Or I>31 Then @"The day must be between 01 and 31." : Goto 290
350 I=Val(Command$(6,7))
360 If I=0 And Command$(6,7)<>"00" Then @"The year must be a number." : Goto 290
370 If(Command$(2,2)<>"/") Or(Command$(5,5)<>"/") Then @"You must separate the date with /'s." : Goto 290
380 Today$=Command$(0,1)+Command$(3,4)+Command$(6,7)
390 Return
400 *Create'file
410 If Sys(3)<>134 Then Goto Error'report
420 Create Edit'file$
430 Open\1,6\Edit'file$
440 Put\1,1\Today$(-1)
450 Close\1\
460 Retry
470 *Error'report
480 @ : @"Error ";Sys(3);" has occured."
490 Stop