Re: questions about the -^INP generalised data Input routine (GOSUB 8000)

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)

thru 2815

2901 FORMAT @(12,3);CNAME$;'@00@'

thru 2915

with the logic looking like

5010!
PRINT (0,2801)
INPUT (0) CNAME$
!!!! EDITING, IF ANY, GOES HERE, if bad goto 5010
PRINT (0,2901)

Newer sytle with out FORMAT's and (TP)'s is ...

5010!
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:)

Follow Ups:

• Re: questions about the -^INP generalised data Input routine (GOSUB 8000) Bob A 13:23:44 09/11/13 (0)

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.