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

質問

400 LOCATE 0, 0 :PRINT DATE$;
410 LOCATE 25, 0 :PRINT TR$(TR.NO);
420 LOCATE 70, 0 :PRINT TIME$;
430 TM$=" "
440 WHILE TM$<>"00" AND TM$<>"30"
450 LOCATE 70, 0 :PRINT TIME$;
460 MID$(TM$,1,2)=MID$(TIME$,7,2)
470 XXX!=FRE(0) '
480 WEND
490 LOCATE 0, 0 :PRINT DATE$;
500 LOCATE 25, 0 :PRINT TR$(TR.NO);
510 LOCATE 70, 0 :PRINT TIME$;
520 GOSUB *DISK.OUT
530 GOTO *TIME.30
540 '
550 'Writting data to floppy
560 *DISK.OUT
570 PRINT:TR.NO=1
580 ON TR.NO GOSUB *TR.1,*TR.2
590 XXX!=FRE(0) '
600 RETURN
610 '
620 '
630 *TR.1
640 KO.J=0 :PV$=""
650 CLS
660 LOCATE 0, 2 :PRINT "***Getting data***"
670 OPEN "COM:E8N" AS #1
680 PRINT #1,"TS0"
690 PRINT #1,CHR$(&H1B)+"T"
700 PRINT #1,"FM0,01,30"
710 LINE INPUT #1,DM$
720 WHILE MID$(DM$,2,1)<>"E" :LINE INPUT #1,DM$ :WEND
730 PRINT #1,"FM0,01,30"
740 LINE INPUT #1,DM$

回答No.1

OKWebAdmin

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

参考URL：

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