162 Paypackets
450 AT=0
460 LOCATE #1,1,1:PRINT #1,"Currency";TA B(14);"no.of units";TAB(32);"amount"; 470 FOR J= 1 TO 11
480 IF J<>11 THEN 520
490 PRINT #1, STR1NG$(40,45)
500 PRINT #1, TAB(15)"TOTAL:";
510 A$=STR$(AT):GOTO 620
520 PRINT #1, C$(J);
530 REM
540 C=LEN(STR$(INT(CA(J))))
550 IF XX=1 THEN C=LEN(STR$(INT(CB(J)))) 560 IF XX=1 THEN PRINT #1,TAB(18-C)CB(J) GOTO 590
570 PRINT #1,TAB(18-C)CA(J);
580 A$=STR$(CA(J)*CV(J))
590 IF XX=1 THEN A$=STR$(CB(J)*CV(J)) 600 IF XX= 1 THEN AT=AT+CB(J)*CV(J):GOTO 620
610 AT=ATtCA(J)*CV(J)
620 AA$=":N=0:FOR K=1 TO LEN(A$)
630 B$=MID$(A$,K,1)
640 IF B$=" "THEN 680
650 AA$=AA$+B$
660 IF B$="."AND VAL(AA$)•1 THEN AA$="0" +AA$
670 IF B$="."THEN NN=1
680 NEXT K
690 IF N=0 THEN AA$=AA$+".00":GOTO 730 700 A=LEN(AA$):1F MID$(AA$,A-1,1)="." TH EN AA$=AA$+"0"
710 END
720 REM COMPLETE
730 REM
740 A=LEN(AA$)
750 PRINT #1,TAB(26) USING"#########.##" ;VAL(AA$)
760 NEXT J
770 IF SR=0 THEN 800
780 IF XX=1 THEN PRINT #1,TAB(9)"THIS IS A RUNNING TOTAL":GOTO 800
790 PRINT #1,TAB(9) "THIS IS A SUBTOTAL" 800 RETURN