100 Print "  T S C  365"
110 Sleep 2000
120 Defshr S%,bas87
130 Defshr R%,bas86
140 Defshr Kbrd%,bas10
150 Defshr TrIN1%,P_100
160 Defshr PrIN2%,P_101
170 Defshr ZrIN3%,P_102
180 Defshr MpbIN4%,P_103
190 Defshr AlOUT1%,P_500
200 Defshr NetW$,wt102
210 Defshr Unit$,wt103
220 Defshr Motn%,s_200
230 Defshr Zero%,t_693
240 Defshr Tare%,t_690
250 Defshr Clear%,t_691
260 Defshr SWUnit%,t_696
270 Defshr AccNW$,lit01
280 Defshr TransNo$,lit02
290 Defshr TotalNW$,lit03
300 Defshr Dly$,lit04
310 ON ERROR GOTO 1380
320 R%=0: S%=0: Kbrd%=1: AlOUT1%=0
330 CourNW$="000000": AccNW$="000000": TransNo$="00"
340 C$=""
350 Print using "!!!!!_!!!!!!!!!!"; Time$; Date$
360 C$=Inkey$
370 If C$=CHR$(1) then goto 700
380 If C$=CHR$(2) then goto 320
390 If C$=CHR$(3) then gosub 910
400 If (C$=CHR$(4)) OR (TrIN1%=1) then gosub 440
410 If C$=CHR$(5) then gosub 670
420 If (C$=CHR$(7)) OR (ZrIN3%=1) then gosub 730
430 goto 340
440 If Val(TransNo$)=0 then TotalNW$="000000"
450 If Motn%=0 then goto 470
460 Print "Scale in Motion!" : goto 450
470 Tare%=1: Sleep 500
480 Print "Acc W="; left$("      ",6-len(AccNW$))+AccNW$; " "; Unit$
490 C$="": C$=Inkey$
500 If C$=CHR$(6) then Clear%=1: Return
510 If (C$=CHR$(8)) OR (PrIN2%=1) then goto 530
520 goto 490
530 Gosub 840
540 AccNW$=Str$(Val(AccNW$)+Val(CourNW$))
550 TransNo$=Str$(Val(TransNo$)+1)
560 AlOUT1%=1
570 gosub 990
580 Clear%=1: Sleep 1000: AlOUT1%=0
590 Print "NW "; Right$(TransNo$,2); "=";
600 Print left$("      ",6-len(CourNW$))+CourNW$; " "; Unit$
610 C$="": C$=Inkey$
620 If C$=CHR$(2) then return
630 If (C$=CHR$(3)) OR (MpbIN4%=1)then goto 760
640 If (C$=CHR$(4)) OR (TrIN1%=1) then goto 450
650 goto 610
660 return
670 If Val(TransNo$)=0 then SWUnit%=1
680 Print "Scale Unit = "; Right$(Unit$,2): Sleep 2000
690 return
700 Gosub 1240
710 If C$<>CHR$(6) then C$="": goto 340
720 goto 1390
730 Print "Zero Scale"
740 Zero%=1: Sleep 500
750 Return
760 Print "Printing...": Sleep 1000
770 Time#=Timer()
780 TotalNW$=AccNW$: AccNW$="000000": CourNW$="000000": TransNo$="00"
790 Print "Tot W="; left$("      ",6-len(TotalNW$))+TotalNW$; " "; Unit$
800 gosub 940
810 While Timer()<Time# + 10
820 Wend
830 Return
840 Time#=Timer()
850 If Motn%=0 then goto 880
860 Time#=Timer()
870 Print "Bal.en Mouvement": goto 840
880 If Timer()<Time# + 2 then goto 850
890 CourNW$ = Right$(NetW$,6)
900 Return
910 Print "Printing..."
920 Lprint "         ACADIAN SEA PLANTS LTD"
930 Lprint "DUPLICATE": Lprint
940 Lprint Left$(Time$, 5); "   "; Date$
950 Lprint "Total Net Weight:   "; CHR$(14);
960 Lprint left$("      ",6-len(TotalNW$))+TotalNW$; " "; right$(Unit$,2)
970 Lprint " ": Lprint " ": Lprint " ": Lprint " ": Lprint " ": Lprint " "
980 Return
990 If Val(TransNo$)=1 then Lprint "         ACADIAN SEA PLANTS LTD": Lprint
1000 Lprint Left$(Time$, 5); "   "; Date$
1010 Lprint "Net Weight #"; right$(TransNo$,2); "   ";
1020 Lprint left$("      ",6-len(CourNW$))+CourNW$; " "; right$(Unit$,2)
1030 Lprint " "
1040 Return
1050 C$=""
1060 print Displ$; M$
1070 while ((C$<L$)OR(C$>H$))AND(C$<>chr$(6))AND(C$<>chr$(8))AND(C$<>chr$(2))
1080 gosub 1300
1090 wend
1100 if (C$=chr$(8)) OR (C$=chr$(2)) then return
1110 if (C$=chr$(6)) AND (len(M$)>0) then M$=left$(M$,len(M$)-1): goto 1050
1120 if len(M$)< Width% then M$=M$+C$: goto 1050
1130 goto 1050
1140 While C$<>CHR$(8)
1150 If C$=CHR$(6) then M$ = Left$(M$, Len(M$)-1): goto 1190
1160 If C$<A$ or C$>B$ then goto 1200
1170 If Len(M$)>=Width% then M$ = Left$(M$, Width%): goto 1190
1180 M$ = M$+C$
1190 Print Displ$; M$
1200 C$=inkey$
1210 Wend
1220 C$=""
1230 Return
1240 C$="": Time#=Timer()
1250 While C$=""
1260 C$=INKEY$
1270 If Timer()>=Time# + 3 then C$=CHR$(2)
1280 Wend
1290 Return
1300 C$=""
1310 While C$=""
1320 C$=INKEY$
1330 Wend
1340 Return
1350 If Err()<>6 then goto 1380
1360 Er$="N": Sleep 1000
1370 Return
1380 Lprint "Erreur "; Err; " Ligne "; Erl
1390 R%=1: S%=1: Kbrd%=2
1400 END