Advertisement
rlNVENTORY C O N T R O L - - - - - - - - - - - - - - - - - - - - - - - - ,
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.
Advertisement
