N88互換BASICで変換したが使えません。その4
750 LINE INPUT #1,PV$(0)
760 WHILE MID$(PV$,2,1)<>"E"
770 LINE INPUT #1,PV$
780 KO.J=KO.J+1 :PV$(KO.J)=PV$
790 WEND
800 CLOSE
810 OPEN FFF$ FOR APPEND AS #1
820 PRINT #1,Q$+FNF3$(PV$(0),5)+Q$+R$;
830 PRINT FNF4$(FNF3$(PV$(0),5))
840 FOR J=1 TO KO.J
850 IF MID$(PV$(J),1,1)="S" THEN 920
860 PRINT #1,Q$+FNF2$(PV$(J),21,24)+Q$+R$;
870 XY=0 :JJ=J
880 IF J>10 AND J<21 THEN XY=1 :JJ=J-10
890 IF J>20 THEN XY=2 :JJ=J-20
900 LOCATE 3+XY*24,5+JJ
910 PRINT USING "(##)###.####";FNF5!(PV$(J),21);FNF5!(PV$(J),24);
920 NEXT
930 CLOSE
940 LOCATE 0, 2 :PRINT "
950 XX!=FRE(0)
960 RETURN
970 CLOSE :END
980 CLOSE
990 '
これで最後です。
関連URL:
http://oshiete1.goo.ne.jp/kotaeru.php3?q=324875
http://oshiete1.goo.ne.jp/kotaeru.php3?q=324879
http://oshiete1.goo.ne.jp/kotaeru.php3?q=324882