4 DIM N(3),ND(3) 5 QQ%=0:AA=0:AE$="NUMBER OF DECIMAL PLACES (0-7):":GOSUB 1600::AT=INT(AT) 6 ND(1)=AT:ND(2)=AT:ND(3)=AT 7 IFAT<0ORAT>7THENPRINT"VALUE TOO LARGE":FORD=1TO2000:NEXT:GOTO5 9 GOSUB5000:GOTO5 10 A1$="":PRINT"[158]"; 20 GET A$:IF A$="" THEN 20 30 A=ASC(A$):IF A=20 THENGOSUB200:GOTO20 40 IF A=13THEN 100 50 IF A$="."ORA$="," THEN80 60 IF A$ = "-" AND LEN(A1$) = 0 THEN 80 65 IFLEN(A1$)>6 THEN 20 70 IF A < 48 OR A > 60 THEN20 80 A1$=A1$+A$ 90 PRINT A$;:GOTO 20 100 PRINT"":DV=0:L =LEN(A1$):A = 0:AT = 0:P = 0:AN = 1 110 FOR I=1 TO L:A$ = MID$(A1$,I,1) 115 IF A$="-" THEN AN=-1:GOTO160 120 IFA$=","THEN160 130 IF A$="."THENDV=1:GOTO160 140 IF DV=0 THEN A=VAL(A$):AT = AT*10 + A 150 IF DV=1 THEN P=P+1:A=VAL(A$):AT = AT + A/(10^P) 160 NEXT:AT=AT*AN:RETURN 200 L=LEN(A1$):IFL=0THEN RETURN 210 PRINTA$;:A1$=LEFT$(A1$,L-1):RETURN 1600 POKE 53280,6:POKE53281,6:IF AA<>0THEN1615 1605 PRINT "[147] BYTES RUN IT" 1610 PRINT " DISPLAY FORMATTING" 1611 IF QQ%=1THENPRINT:PRINT" ENTER THREE NUMBERS TO BE FORMATTED" 1615 PRINT AE$;:GOSUB 10 1620 PRINT "":RETURN 1640 PRINT " AGAIN (Y/N)? "; 1650 GETA$:IF A$=""THEN1650 1660 IF A$="Y"THEN 1680 1670 IF A$<>"N"THEN1650 1675 GOTO2000 1680 RETURN 2000 : 2560 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15 2562 IFER<>63 THEN PRINT"[147]":END 2570 LOAD"HELLO CONNECT",8,1 3990 ; ********************************* 3991 ; ROUTINE AS IT APPEARS IN LOADSTAR 3992 ; ********************************* 4000 N=.5*(1/10^ND)+N:E=INT(N*10^ND):E1$=STR$(E):EM$=" " 4010 IF LEN(E1$)>3 THEN IF MID$(E1$,LEN(E1$)-3,1)="E"THEN 4110 4020 IF LEFT$(E1$,1)="-"THEN EM$="-":E1$=" "+RIGHT$(E1$,LEN(E1$)-1) 4030 L=LEN(E1$)-1:IF L