Table of Contents
Advertisement
36 INPUT"W
MEN SHEET? NIMH" ;0$ = PRINT'S"
38 IF0*="N"THEN46
48 IF0*O"V"THEN36
42 PRINT:PRINT"
WflIT!":FORI=1TO664
44 PR I NT" >fr Ȥmm*M*Mf.
45 PRINTI* <I> =NEXT:GOTO50
46 OPEN5,8,5,"0:INDEX,S,R
4? FORI=1TO664:INPUT#5,
4S PR I NT" »TXtiMRl«}!MO»»ai»
49 NEXTI:CLOSES
56 PR I NT 'TM
52 PRINT"
JOE MENU
54 PRINT"
56 PRINT
53 PRINT"
60 PRINT"
62 PRINT"
IIISII" I; : I $ < I >='V "
IB91B!" I; I$< I)
l=CREfiTE"
2=DELETE"
3=SEP.RCH"
0=ENH"
64 PRINT"
65 PRINT
66 INPUT"1 ,2,3,0
1UM";O*
68 IFO$="0"THENCLOSE15:CLOSES:CL0SE2:END
70 IFO*="1"THEN104
72 IFO*="3"THEN300
74 IFO*O'"2"THES50
76 GOTO200
100 REM ♦*#*#*♦#***♦******♦***#
102 REM * MflSTER FILE CREflTE
♦
103 REM *#*****#*#**#***♦♦*#***
104 PRINTMBW
";
105 PRINT"
MflSTER FILE CREflTE"
106 PRINT"
"
107 INPUT"IRECORD NO. = 0IIIB";F
109 IF F=0THEN170
110 IHPUT'NflME
=.IHI";FB$<1)
120 INPUT"RDDRESS
«.IMH";FB*<2>
130 INPUT"ZIP
=.III!",FEJ(3>
132 INPUT "TEL
a.HM";FB*<4)
134 INPUT'COMMENT
=.IM!";FB$<5>
140 GOSUB5200
150
58
Advertisement
Table of Contents
