Casio FP-200 - Page 26

rlNVENTORY CONTROL------------------------,
30
660 IF Y$="E" Of~ Y!fi:::"e" THEI✓ 210 ELSE IF Y$< >"I✓"
THEN 59121
670 A=A-1:GOTO 590
680 els: PRINT "DATA l<ILL.": F'FdlH "·-··-·-·-·- --·····- ------·-· ---
____ ,.
690 PRINT "DATA ";A;"Aitems"
700 INPUT "Which data";U
710 IF U(1 OR U>A THEN 210 ELSE FOR I=0 TO 3:PRIN
T II ";D$<U,I):NEXT:PRINT "Of:::'::' [Y/N]";
720 Y$= I NKEY$: IF Y$="" THEN 7'.."?0
730 IF Y$<>"Y" THEN 210
740 A=A-1:FOR I=U TO A
750 FOR J=Ql TO 12: D$ (I, J > :.:::Q'.I, ( I+l ,J): l ✓ FXT: NEXT~ GOT
a 210
760 CL.S:FRINT "DATA SAVE "~FCIF T=
0
t'l lU 3~0~1--IE:XT
770 FI LES: I NF'UT " [FI LE NAME J" , F$: CJFEI\I Ft, FOR OUTF·
UT AS #l
780 FOR 1~0 TO A
790 FOR J:::(2) TO 12: F'RIIH Hl, l)<fi ( l ,.J l: M:~XT: NEXT: ctm:;
E:GOTO 210
800 END
fOEBUGI
Before executing this program, be sure to execute MOUNT 1. Once executed, it is
effective even after the power is turned off.