INMC 80 News

  

September 1980 – January 1981, Issue 2











Page 51 of 59











1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 10

1160 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540 1550 1560 1570 1580 1590 1600 1610 1620 Ok

--51-

REM PC$ (Fudge variable)

REM Call with value in PC (Print Call) REM Returns PUS (Print using)

REM ooo rr nme REM REM REM REM --- oe en eter ern ne enn ne REM o--ees----- Test Limits- IF PC<=9999.99 THEN IF PC>=-9999.99 THEN12

! Call Routine at 9013 ! |

PRINT’Value "PC"is outside accuracy limit" PRINT’Please call programmer"

PRINT

PRINT’"*#*e4% RUN ABORTED *#**4*4%’"’: END

REM ------- Reset Sign Switch------------- SW=0

REM -------! Round and Extract Sign---------

IF PC<O THEN PC=ABS(PC):SW=1 PC=INT (PC*100+.5)/100

REM -------- Make it a string------------- PUS=STRS (PC)

REM ------ Strip off leading space=-------- PUS=RIGHTS$ (PUS, LEN (PU$)-1)

REM ----Test for no decimal places------- IF PC=INT(PC) THEN PUS=PUS+".00":GOTO1360 REM ----Test for one decimal place-------- REM ----( Fudge for Microsoft Bug )-

PC=PC*10:PCS=STR$ (PC) : PC=VAL(PC$) :PCS=""" IF PC=INT(PC) THEN PUS=PUS+"0"

REM ---Check there is leading zero----=-- IF LEN(PU$)<>3 THEN1390

PUS="0"4RIGHTS (PUS, 3)

REM -<--<-=- Change all ‘0’ to’0’----------- FOR I=1 TO LEN(PUS)

PCS=MID$(PUS,1I,1)

IF PCS="0" THEN PCS$="0"

PUS=PUS+PC$

NEXT I

PUS=RIGHTS$ (PUS, I-1)

pegs"

REM ---Message(Debit):Change to suit----- IF SW=1 THEN PUS=PU$+" p DB":GOTO1520 PUS=PUS+" p "ZREM Five spaces

REM ---Produce Output String--<--------- REM ---OP Selects Floating#/Fixed#-

REM ------- (1) Fixed #-+-+---+----------- IF OP>0 THENI570 PMSS’ ffkdeex"

PUS=LEFTS (PMS, (14-LEN (PUS)))+PUS GOTO1600

REM ------ (2)Floating #+--+-------------- PpMs=" "REM Four spaces PUS="#"+PUS

PUS=LEFTS (PMS, (14-LEN (PU$)) )+PUS

OP=0: PMS=""s PC=0

RETURN

REMAAKAAKEND “PRINT USING’ 428 e RRA RAAAAR


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 51 of 59