N88互換BASICで変換したが使えません。その２

質問

140 DEF FNF4$(X$) =MID$(X$,1,2)+":"+MID$(X$,3,2)+":"+MID$(X$,5,2)
150 DEF FNF5!(X$,X) =VAL(MID$(X$,X))
160 CLS
170 LOCATE 20,10 :PRINT "3)How many sensors will you use?"
180 LOCATE 20+40,10 :PRINT " "
190 LOCATE 20+40,10 :LINE INPUT KO.TR$
200 KO.TR=VAL(KO.TR$)
210 IF KO.TR<1 OR KO.TR>30 THEN BEEP :GOTO 180
220 LOCATE 25,10 :PRINT "Ready to send data?"
230 LINE INPUT AA$
240 IF AA$<>"" AND AA$<>"Y" AND AA$<>"y" THEN *END.
250 *MAIN.START
260 CLS
270 LOCATE 25,10 :PRINT "****Start*****"
280 LOCATE 70, 0 :PRINT TIME$;
290 '
300 'Writting data to floppy
310 *DISK.SET
320 FFF$="B:"+FNF1$(DATE$,TIME$)
330 OPEN FFF$ FOR OUTPUT AS #1
340 PRINT #1,Q$+DATE$+Q$+R$+Q$+STR$(KO.TR)+Q$+R$ 'DATE$,SENSORS
350 CLOSE
360 '
370 'Sampling data every 30 seconds
380 *TIME.30
390 CONSOLE 0,25

回答No.1

OKWebAdmin

管理者より：
続きの質問があるのでそちらをご参照下さい

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=324882