home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
geos
/
geos9.d64
/
prgtogeos2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-08-05
|
1KB
|
62 lines
50 INPUT"PROGRAM FILENAME";F$
60 INPUT"YEAR (EX: 87)";Y
70 INPUT"MONTH (EX: 5)";MO
75 INPUT"DAY (EX: 31)";DA
80 INPUT"HOUR (EX: 18)";H
85 INPUT"MINUTE (EX: 30)";MI
100 OPEN15,8,15,"I:0"
110 OPEN2,8,2,"#"
120 T$=CHR$(18):S$=CHR$(1)
122 GOSUB1000
124 GET#2,NT$,NS$
125 FORE=0TO7
130 GOSUB3000
133 IFD$=F$THEN175
135 NEXTE
137 IF NT$=""THEN175
140 T$=NT$:S$=NS$:GOTO122
175 IFD$=""THEN880
177 DT$=T$:DS$=S$
180 T$=HT$:S$=HS$:GOSUB1000
190 GET#2,MT$,MS$
210 FORI=2TO67
220 GET#2,B$
230 NEXT I
240 GET#2,CT#
250 GET#2,GT$
260 GOSUB1000
270 PRINT#2,CHR$(0);CHR$(255);
280 PRINT#2,CHR$(3);CHR$(21);
290 GOSUB2000
300 T$=DT$:S$=DS$:GOSUB1000
310 FORI=0TO32*E+1
320 GET#2,B$
330 NEXT I
340 PRINT#2,MT$;MS$;
350 FORI=1TO16
360 GET#2,B$
370 NEXT I
380 PRINT#2,HT$;HS$;CHR$(0);GT$;
385 PRINT#2,CHR$(Y);CHR$(MO);CHR$(DA);
387 PRINT#2,CHR$(H);CHR$(MI);
390 GOSUB2000
880 CLOSE2
890 CLOSE15
900 END
1000 PRINT#15,"U1";2;0;ASC(T$);ASC(S$)
1010 RETURN
2000 PRINT#15,"U2";2;0;ASC(T$);ASC(S$)
2010 RETURN
3000 D$=""
3012 GET#2,B$:I=1
3013 IFB$=""THEN3050
3014 IFASC(B$)<>130 THEN3050
3016 GET#2,HT$,HS$:I=3
3020 GET#2,B$:I=I+1
3030 IF ASC(B$)=160THEN3050
3040 D$=D$+B$:GOTO3020
3050 FORI=1TO31
3060 GET#2,B$
3070 NEXTI
3080 RETURN