こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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$

投稿日時 - 2002-07-29 17:28:11

QNo.324882

困ってます

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

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

投稿日時 - 2002-07-29 18:21:58

あなたにオススメの質問