Posted by Grant Foraker on September 11, 2013 at 12:19:25:
In Reply to: Re: questions about the -^INP generalised data Input routine (GOSUB 8000) posted by Bob A on September 11, 2013 at 10:10:23:
I have generalized routines for validation. Dates especially. Nothing incomprehensible as the INPUT thingie you posted.
The source that all my stuff is based on is the Qantel Solutions package that the dealers customized (my thingie since '78). So having FORMATs like below for 15 fields id "normal"...
2801 FORMAT @(0,22);(BF);@(20,22);'01 CUSTOMER NAME';(TP);(MC);CNAME$;(TP);(RC)
2901 FORMAT @(12,3);CNAME$;'@00@'
with the logic looking like
INPUT (0) CNAME$
!!!! EDITING, IF ANY, GOES HERE, if bad goto 5010
Newer sytle with out FORMAT's and (TP)'s is ...
PRINT @(12,3);CNAME$ ! DISPLAY OLD VALUE
INPUT @(12,3) CNAME$ ! INPUT NEW VALUE
!!!! EDITING, IF ANY, GOES HERE, if bad goto 5050
PRINT @(12,3);CNAME$ ! DISPLAY NEW VALUE
Now toss all that in the trash with Windows style Comet:)
Post a Followup
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.