DataMuseum.dk

top - download

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

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

TextFile

10 OPEN "R",#5, ":F0:PAYDAY"
20 FIELD #5, 23 AS NAME$, 10 AS SS$, 8 AS PAY$
30 PRINT
40 INPUT"WOULD YOU LIKE TO UPDATE THE PAYDAY FILE(Y OR N)";AN$
50 IF AN$<>"Y" THEN 290
60 INPUT "NAME, SOC SEC #, SALARY ";N$,S$,S#
70 LSET NAME$=N$
80 N$=NAME$
90 FOR I=1 TO LOF(5)
100 GET #5,I
110 IF N$=NAME$ THEN 180
120 IF N$<NAME$ THEN 140
130 NEXT I
140 FOR J=LOF(5) TO I STEP -1
150 GET #5,J
160  PUT #5,J+1
170 NEXT J
180 LSET NAME$ = N$
190 LSET SS$ = S$
200 P$ = MKD$(S#)
210 RSET PAY$ = P$
220 PUT #5,I
230 PRINT"     UPDATED PAYDAY FILE"
240 FOR K = 1 TO LOF(5)
250   GET #5,K
260   PRINT NAME$,SS$,CVD(PAY$)
270 NEXT K
280 GOTO 30
290 CLOSE
300 RUN "MENU"