DataMuseum.dk

top - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »PAY.BAS«

└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
    └─ ⟦this⟧ »PAY.BAS« 

TextFile

10 OPEN "I",#1,":F0:WEEKLY"
20 OPEN "I",#2,":F0:MASTER"
30 PRINT:PRINT USING "Ø             Ø";"NAME";
40 PRINT SPC(3);"NET PAY"
50 PRINT
60 IF EOF(1) THEN 240
70 LINE INPUT #1,A$
80 REM EMPLOYEE NAME FROM WEEKLY FILE
90 N$=MID$(A$,1,16)
100 REM NUMBER OF HOURS OCCURS AFTER NAME FIELD
110 H=VAL(MID$(A$,19,5))
120 LINE INPUT #2,B$
130 REM COMPARED TO NAME ON MASTER FILE
140 IF N$<>MID$(B$,1,16) THEN 120
150 REM RATE OF PAY OCCURS AFTER NAME
160 R=VAL(MID$(B$,18,4))
170 REM OVERTIME CALCULATION
180 IF H<=40 THEN OT=0 ELSE H=40:OT=H-40
190 P=R*H+(OT*1.5*R)
200 PRINT USING "Ø             Ø";N$;
210 PRINT SPC(3);
220 PRINT USING "**$###.##";P
230 GOTO 60
240 CLOSE 
250 PRINT:PRINT
260 INPUT "MENU";A$
270 RUN "MENU"