Posted by Grant Foraker on July 18, 2011 at 08:44:48: Uploaded files: 2
Program prompts for BEGIN$, validates, and redisplays.
1025
XACCNUM0 = NUM(BEGIN$,ERR)
XACC000F = INT(XACCNUM0) * 100000000
XACCNUM1 = XACCNUM0 * 100000000
XACC000F = XACC000F + XACCNUM1
XACC000F = XACC000F * .00000001
WORK = XACC000F
XACC000F = ERR
XACC000F = (XACC000F - 1)
IF XACC000F NE 0 GOTO 1030
GOTO 1020
1030
STRACC$ = STR(WORK)
BEGIN$ = STRACC$
1035
PRINT (00,0007)
INPUT (00) END$
Goes into routine as "700" comes out as "400". OK in Comet16.444. It was OK in both 443 versions.
Good news? In Comet32.443, the program would crash Comet.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.