BM5A-01.txt
Togotech (토론 | 기여)님의 2024년 3월 11일 (월) 16:35 판 (새 문서: Topcon BM-5A 색채휘도계 <pre> 10 CLEAR SCREEN 20 DIM A$[55] 30 GOSUB Fileopen 40 ASSIGN @Bm5a TO 701 50 OUTPUT @Bm5a;"ST" 60 ENTER @Bm5a;A$ 70 DI...)
10 CLEAR SCREEN 20 DIM A$[55] 30 GOSUB Fileopen 40 ASSIGN @Bm5a TO 701 50 OUTPUT @Bm5a;"ST" 60 ENTER @Bm5a;A$ 70 DISP A$ 80 OUTPUT @File;A$ 90 STOP 100 Fileopen: ! 110 DIM Filename$[20],Dhms$[8] 120 Time$=TIME$(TIMEDATE) 130 Date$=DATE$(TIMEDATE) 140 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2] 150 Filename$=Dhms$&".txt" 160 CREATE Filename$,1 170 ASSIGN @File TO Filename$;FORMAT ON 180 RETURN 190 END