· Text 9220 · w8 · inlagg
Hejsan på er alla gammla ABC-are, jag hoppas verkligen att någon kan
hjälpa mig med mitt lilla problem i detta program som kommer.
Jag behöver bara hjälp med inmatnings-funktionen, den skall alltså öppna
en fil som heter datum.mgs och läsa in de datumen som ligger där och
de ligger varannan, månad och dag. Sedan skall den räkna ut hur många
veckodagar som det är mellan start och slut-datum och spara alltihoppa
i en fil som sedan skall fyllas på efter hand.
Datum.mgs innehåller alla dagar som icke är helgdagar på ett år.(Jobb-dagar
Nu kommer programet!! (om 24 rader)
1 DIM A(800),B(800),C(800),D(800),E(800),F(800),G(800),H(800),I(800),J(800)
IV80W80X)8Z)10 OPEN "datum.mgs" AS L20 FOR D=1 TO 740
30 INPUT #1,Q(D)
40 IF Q(D)=0 THEN 70
50 INPUT #1,W(D)
60 NEXT D
70 CLOSE 1
100 ; CHR¤(12) : ; : ; : ; : ; : ; : ;
110 ; " (I)nläggning"
120 ; " (U)tskrift"
130 ; " (A)vsluta"
150 GET A¤
160 IF A¤="I" OR A¤="i" THEN 1000
170 IF A¤="U" OR A¤="u" THEN 2000
180 IF A¤="A" OR A¤="a" THEN 3000
190 GOTO 150
1000 ; CHR¤(12)
1001 A=0 : B=0 : C=0 : D=0 : E=0 : F=0 : G=0 : H=0 : I=0 : J=0 : K=0
: L=0 : M=0 : N=0 : O=0 : P=0 : R=0 : S=0 : T=0 : U=0 : V=0 : X=0 : Y=0:Z01
:;GIG
1020 ; " 0-avslutar"
1030 ; : ; : ;
1040 ON ERROR GOTO 1900
1050 INPUT " Start-månad:"M; : IF M=0 THEN 100
1055 INPUT " Start-datum:"N
1060 ;
1070 INPUT " Slut-månad:"S
1075 INPUT " Slut-datum:"E
1080 ; : ; : INPUT " REG-NUMMER:"R; : INPUT " Sort:"S¤
1100 REM
1110 FOR T=1 TO 740
1120 IF M=Q(T) THEN 1200
1125 T=T+1
1130 NEXT T
1200 FOR P=T TO 740
1205 P=P+1
1210 IF N=W(P) THEN 1300
1220 NEXT P
1300 FOR O=P TO 740
1302 Y=Y+1
1305 O=O+1
1310 IF E=W(O) THEN 1500
1320 NEXT O
1500 REM
1510 GOTO 1800
1800 OPEN "reg.mgs" AS FILE 1
1810 PREPARE "reg1.mgs" AS FILE 2
1820 INPUT #1,A¤
1825 IF A¤="0" THEN 1850
1830 PRINT #2,A¤
1840 GOTO 1820
1850 PRINT #2,M
1852 PRINT #2,N
1854 PRINT #2,S
1856 PRINT #2,E
1858 PRINT #2,Y
1860 PRINT #2,R
1870 PRINT #2,S¤
1872 PRINT #2,0
1874 CLOSE
1876 OPEN "reg1.mgs" AS FILE 1
1878 PREPARE "reg.mgs" AS FILE 2
1880 INPUT #1,A¤
1882 PRINT #2,A¤