1 CLEAR:DIM M(5),B(5),R!(6),N!(5),F!(5),U!(5,4),P(11,4):D=1:GOTO 32
2 PRINT S;" ("; USING"########";T;")"
3 RETURN
4 M=M(5)-INT(M(5)/N!(5)/12)*P:B=B(5)-INT(B(5)/N!(5)/2)*U:RETURN
5 READ K$:PRINT K$;"ÈÝ ";:INPUT"ØØÂ (%)?",I:RETURN
6 BEEP:CLS:PRINT I;:IF L=1 THEN PRINT"¶²Ò" ELSE PRINT":";
7 GOTO 2
8 S=INT(M(5)/(N*12))+INT(M*RR/1200):T=INT(B(5)/(N*2))+INT(B*RR/200):RETURN
9 RETURN
10 DATA  A)º³º  B)ÈÝ·Ý 
11 DATA  C)»Þ²¹²  D)ÐÝ¶Ý 
12 DATA  5)¶ÞÝ·Ý ·Ýij  
15 INPUT"ɳÁ)";O:O=O*1E4:RETURN
20 DATA   1-
21 DATA   1-10,11-
22 DATA   1-5, 6-
23 DATA   1-5, 6-10,11-
24 DATA   1-5, 6-
30 DATA 1-2,3-5,6-
32 KK=0:PRINT OFF:I=0
34 RESTORE(I+10):READ A1$:I=I+1:PRINT A1$;
36 IF I=3 THEN PRINT"9)";:IF D>0 THEN PRINT"»ÞÝÀÞ¶";: ELSE PRINT"ÍÝ»²·Ý";
38 GOSUB 42:IF V<>0 THEN 62
40 IF I>2 THEN 32 ELSE 34
42 IF D<0 THEN PRINT"ê";
44 V=6:A$=INKEY$:IF A$="" THEN 44
46 RESTORE 52:FOR V=0 TO 5:READ B:IF A$=CHR$(B) THEN 50
48 NEXT V
50 GOTO 54
52 DATA  23,34,40,41,61,53
54 IF A$="9" THEN D=-D:RESTORE 32:I=0:V=0
56 IF V=6 THEN 44
60 CLS:RETURN
62 ERASE A1$:E=V-1:IF D<0 THEN GOSUB 228 ELSE GOSUB 74
64 IF E=2 THEN GOSUB 160
68 GOSUB 112
70 GOSUB 80:GOSUB 88:GOSUB 136
72 IF E=>3 THEN 162 ELSE GOSUB 142:GOTO 162
74 F=E:IF E>=3 THEN F=E+1
76 F!(F)=0:FOR I=0 TO 4
77 U!(F,I)=0:IF F=2 THEN U!(3,I)=0
78 NEXT I:RETURN
80 GOSUB 212:INPUT"¶Ø²Ú·Ý (ÏÝ´Ý)";Q:IF Q<=0 THEN 80
82 M(F)=Q*1E4-B(F):U!(F,0)=1:IF E<>2 THEN RETURN
84 U!(2,1)=1:U!(2,3)=1:IF Q>Z THEN U!(3,0)=1 ELSE U!(3,0)=0
86 RETURN
88 IF E<>2 THEN 98
90 IF Q<=Z THEN 98
92 PRINT"»Þ²1] ÎްŽ (";STR$(Z);:GOSUB 15:B(2)=O
94 PRINT"»Þ²2] ÎްŽ (";STR$(Q-Z);:GOSUB 15:B(3)=O
96 GOTO 104
98 GOSUB 212:PRINT"ÎްŽ (";STR$(Q);
100 GOSUB 15:GOTO 108
104 M(2)=Z*1E4-B(2):M(3)=(Q-Z)*1E4-B(3):RETURN
106 F=E:IF E=3 THEN F=4
108 M(F)=Q*1E4-O:B(F)=O:IF E=2 THEN M(3)=0:B(3)=0
110 RETURN
112 GOSUB 212:ONE+1GOTO 114,130,132,130,130
114 INPUT"ij¼® ØØ (%)";R!(0)
116 INPUT" º³º] »²¼­³ ØØ (%)";R!(6)
118 IF R!(0)>R!(6) THEN BEEP:GOTO 114
120 IF R!(0)<R!(6) THEN 126
122 U!(0,4)=0:IF F!(0)>=2 THEN F!(0)=F!(0)-2
124 RETURN
126 U!(0,4)=1:IF F!(0)<=3 THEN F!(0)=F!(0)+2
128 RETURN
130 INPUT"ØØÂ (%)";R!(F):RETURN
132 RESTORE 30:GOSUB 5:R0=I:GOSUB 212:GOSUB 5:R1=I:GOSUB 212
134 INPUT"»²¼­³ ØØÂ (%)";R!(2):R!(3)=R!(2):RETURN
136 GOSUB 212:INPUT"ÍÝ»² ·¶Ý (ÈÝ)";N!(F)
138 IF F=2 THEN N!(3)=N!(2)
140 RETURN
142 GOSUB 212:PRINT"½Ã¯Ìß ¼®³¶Ý";:GOSUB 220
144 IF Y=1 THEN 150
146 F!(F)=F!(F)-1:IF(F!(F) MOD 2)<>0 THEN F!(F)=F!(F)+1
148 GOTO 152
150 F!(F)=F!(F)+1:IF(F!(F) MOD 2)=0 THEN F!(F)=F!(F)-1
152 IF E=2 THEN F!(3)=F!(2)
154 IF E=0 THEN U!(0,3)=Y:RETURN
156 IF E=1 THEN U!(1,2)=Y:RETURN
158 IF U!(3,0)=1 THEN U!(3,3)=Y:RETURN ELSE RETURN
160 INPUT"»Þ²] ؼη­³ ¹ÞÝÄÞ(ÏÝ´Ý)";Z:RETURN
162 CLS:GOSUB 170:PRINT"‡ ¼­³¾² ";:GOSUB 220:IF Y=1 THEN 64
164 GOSUB 166:GOTO 350
166 PRINT"...¹²»Ý ¼Ã²Ï½";:IF F=2 THEN GOSUB 316
168 RETURN
170 IF KM=1 THEN F=2:E=2
172 IF E=2 THEN 176:S=M(V):T=B(V)
174 GOSUB 184:RETURN
176 IF M(3)+B(3)=0 THEN 174
178 PRINT"1)";:GOSUB 184
180 PRINT"2)";:F=3:GOSUB 184:F=2
182 RETURN
184 IF L=1 THEN GOSUB 212:PRINT,"ØØÂ ";
186 IF F*(F-2)<>0 THEN PRINT R!(F);"% ";:GOTO 192
188 IF F=0 THEN PRINT R!(0);"-";R!(6);"%";
190 IF F=2 THEN PRINT R0;"-";R1;"-";R!(2);"%";
192 IF L=1 THEN PRINT,"¶Ø²Ú(ÎÞ-Ž) ÈÝ";:IF E<3 THEN PRINT" ½Ã¯Ìß" ELSE PRINT
194 PRINT(M(F)+B(F))/1E4;
196 IF L=1 THEN PRINT" ";
198 PRINT"(";B(F)/1E4;")";
200 PRINT N!(F);" ";
202 IF E=>3 THEN PRINT"":GOTO 206
204 IF(F!(F) MOD 2)=0 THEN PRINT"Sż" ELSE PRINT"S±Ø"
206 IF L=1 THEN PRINT
208 IF KM=1 THEN F=1:E=1
210 RETURN
212 IF KM=1 THEN E=2
214 CLS:PRINT MID$(" º³ºÈÝ·Ý »Þ²ÐÝ¶Ý ¶ÞÝ",E*4+1,4);"] ";
216 IF KM=1 THEN E=1
218 RETURN
220 PRINT" (Y/N)?";
222 A$=INKEY$:IF A$="," THEN Y=1:CLS:RETURN
224 IF A$=":" THEN Y=0:CLS:RETURN
226 GOTO 222
228 F=E:IF E>=3 THEN F=E+1
230 GOSUB 170
232 GOSUB 212:INPUT" ¹²¶ Èݽ³(ÈÝ)";X:IF X<=0 THEN BEEP:GOTO 32
234 IF X<>999 THEN 238
236 FOR X=1 TO N!(F):L=1:GOSUB 166:GOSUB 240:KK=1:NEXT X:GOTO 258
238 IF X>N!(F) THEN BEEP:GOTO 232 ELSE GOSUB 166:GOSUB 240:GOTO 256
240 S=0:T=0:ONE+1GOSUB 260,280,288,308,538:BEEP:PRINT
242 IF L=1 THEN PRINT ON:IF KK<>1 THEN GOSUB 170
244 IF L=1 THEN GOSUB 212
246 PRINT STR$(X);:IF L=1 THEN PRINT"ÈÝºÞ »ÞÝÀÞ¶":GOTO 250
248 PRINT":";
250 GOSUB 2
252 IF L=1 THEN PRINT,:L=0:PRINT OFF
254 RETURN
256 PRINT"..ÌßØÝÀ ³ÁÀÞ¼";:GOSUB 220:IF Y=1 THEN L=1:GOSUB 242
258 GOSUB 212:PRINT"ê ¸Ø¶´¼";:GOSUB 220:IF Y=1 THEN KK=1:GOTO 232 ELSE D=1:GOTO 32
260 V=0:ONF!(0)+1GOTO 262,264,268,272
262 J=X:Y=0:GOTO 310
264 IF X<=5 THEN J=X:Y=0:GOTO 310
266 J=5:Y=0:GOSUB 310:J=X-5:Y=3:GOTO 314
268 IF X<=10 THEN J=X:Y=0:GOTO 310
270 J=10:Y=0:GOSUB 310:RR=R!(6):J=X-10:Y=4:GOTO 314
272 IF X<=5 THEN J=X:Y=0:GOTO 310
274 IF X<=10 THEN J=5:Y=0:GOSUB 310:J=X-5:Y=3:GOTO 314
276 J=5:Y=0:GOSUB 310:Y=3:GOSUB 314
278 RR=R!(6):J=X-10:Y=4:GOTO 314
280 V=1:IF F!(1)=1 THEN 284
282 J=X:Y=0:GOTO 310
284 IF X<=5 THEN J=X:Y=0:GOTO 310
286 J=5:Y=0:GOSUB 310:J=X-5:Y=2:GOTO 314
288 V=2:IF X<=2 THEN RR=R0:J=X:Y=0:GOSUB 312:GOTO 298
290 IF X>5 THEN 294
292 GOSUB 328:J=X-2:GOSUB 314:GOTO 298
294 GOSUB 328:J=3:GOSUB 314
296 RR=R!(2):J=X-5:Y=3:GOSUB 314
298 Q=S:O=T:S=0:T=0
300 V=3:IF X<=5 THEN J=X:Y=0:GOSUB 310:GOTO 304
302 J=5:Y=0:GOSUB 310:J=X-5:Y=3:GOSUB 314
304 S=S+Q:T=T+O
306 RETURN
308 V=4:J=X:Y=0
310 RR=R!(V)
312 S=M(V):T=B(V):GOSUB 314:GOTO 306
314 GM=P(V*2,Y):GB=P(V*2+1,Y):W=V:GOTO 452
316 IF R0=R1 THEN IF R0=R!(2) THEN 320
318 RETURN
320 KM=1:F=1:E=1:R!(1)=R0:N!(1)=N!(2):F!(1)=F!(2):M(1)=M(2)+M(3):B(1)=B(2)+B(3)
322 FOR I=0 TO 4:U!(2,I)=0:NEXT I
324 U!(1,0)=1:IF F!(1)<>0 THEN U!(1,2)=1
326 RETURN
328 RR=R0:J=2:Y=0:GOSUB 312:RR=R1:Y=1:RETURN
350 S=M(F):T=B(F):N=N!(F):IF F!(F)=1 THEN N=50
352 ONE+1GOTO 354,382,400,438,528
354 IF(F!(0) MOD 2)=1 THEN N=50
356 RR=R!(0):GOSUB 442
358 FOR I=0 TO 2:P(0,I)=GM:P(1,I)=GB:NEXT I
360 IF(F!(0) MOD 2)=1 THEN 368
362 P(0,3)=GM:P(1,3)=GB:IF F!(E0)=2 THEN 374
364 IF N!(0)>10 THEN P(0,4)=GM:P(1,4)=GB:GOTO 464
366 P(0,4)=0:P(1,4)=0:GOTO 464
368 J=5:W=0:GOSUB 452:N=N!(0)-5:GOSUB 442
370 P(0,3)=GM:P(1,3)=GB
372 IF F!(0)=1 THEN P(0,4)=GM:P(1,4)=GB:GOTO 464
374 IF F!(0)=2 THEN J=10 ELSE J=5
376 GOSUB 452
378 RR=R!(6):N=N!(0)-10:GOSUB 442
380 P(0,4)=GM:P(1,4)=GB:GOTO 464
382 RR=R!(1):GOSUB 442
384 FOR I=0 TO 1:P(2,I)=GM:P(3,I)=GB:NEXT I
386 IF F!(1)=1 THEN 394
388 FOR I=2 TO 4:P(2,I)=GM:P(3,I)=GB:NEXT I
390 IF N!(1)<=10 THEN P(2,4)=0:P(3,4)=0
392 GOTO 464
394 J=5:GOSUB 452:N=N!(1)-5:GOSUB 442
396 FOR I=2 TO 4:P(2,I)=GM:P(3,I)=GB:NEXT I
398 GOTO 464
400 RR=R0
402 GOSUB 442:P(4,0)=GM:P(5,0)=GB
404 J=2:W=2:GOSUB 452
406 IF F!(2)=1 THEN N=48 ELSE N=N!(2)-2
408 RR=R1
410 GOSUB 442:FOR I=1 TO 2:P(4,I)=GM:P(5,I)=GB:NEXT I
412 J=3:W=2:GOSUB 452:N=N!(2)-5:RR=R!(2):GOSUB 442
414 FOR I=3 TO 4:P(4,I)=GM:P(5,I)=GB:NEXT I
416 IF N!(2)<=10 THEN P(4,4)=0:P(5,4)=0
418 IF F!(3)=1 THEN N=50 ELSE N=N!(3)
420 RR=R!(3):S=M(3):T=B(3):GOSUB 442
422 FOR I=0 TO 2:P(6,I)=GM:P(7,I)=GB:NEXT I
424 IF F!(3)=1 THEN 428
426 FOR I=3 TO 4:P(6,I)=GM:P(7,I)=GB:NEXT I:GOTO 434
428 J=5:W=3:GOSUB 452
430 N=N!(3)-5:GOSUB 442
432 FOR I=3 TO 4:P(6,I)=GM:P(7,I)=GB:NEXT I
434 IF N!(3)<=10 THEN P(6,4)=0:P(7,4)=0
436 GOTO 464
438 N=N!(4):RR=R!(4):GOSUB 442
440 FOR I=0 TO 4:P(8,I)=GM:P(9,I)=GB:NEXT I:GOTO 464
442 IF S=0 THEN GM=0:GOTO 446
444 C=S:R=RR/1200:NG=N*12:GOSUB 450:GM=G
446 IF T=0 THEN GB=0:RETURN
448 C=T:R=RR/200:NG=N*2:GOSUB 450:GB=G:RETURN
450 H=(1+R)^NG:G=INT(C*R*H/(H-1)):RETURN
452 W=F:IF M(W)>0 THEN GOSUB 458
454 IF B(W)>0 THEN 460
456 RETURN
458 C=S:NY=J*12:R=RR/1200:G=GM:GOSUB 462:S=C:RETURN
460 C=T:NY=J*2:R=RR/200:G=GB:GOSUB 462:T=C:RETURN
462 FOR I=1 TO NY:C=C-G+INT(C*R):NEXT I:RETURN
464 V=F:GOSUB 524
466 BEEP
468 RESTORE(20+W)
470 FOR I=0 TO 4:IF E<>2 THEN 476
472 IF U!(2,I)+U!(3,I)=0 THEN 490
474 S=P(4,I)+P(6,I):T=P(5,I)+P(7,I):GOTO 482
476 IF U!(V,I)=0 THEN 490
478 IF V=5 THEN GOSUB 2:GOTO 510
480 S=P(V*2,I):T=P(V*2+1,I)
482 READ K$:PRINT K$;:IF RIGHT$(K$,1)<>"-" THEN 486
484 PRINT RIGHT$(STR$(N!(F)),2);
486 IF L=1 THEN PRINT" ÈÝ ÍÝ»²·Ý" ELSE PRINT":";
488 GOSUB 2
490 NEXT I
492 IF E>2 THEN 508
494 Q=P(V*2,0)*(1+B(E)/M(E))
496 IF E<>2 THEN 502
498 IF M(3)<>0 THEN O=P(6,0)*(1+B(3)/M(3)) ELSE O=0
500 Q=(INT(Q/250)+INT(O/250))*1E3:GOTO 504
502 Q=INT(Q/200)*1E3
504 PRINT"¼­³Æ­³ ·¼Þ­Ý";:IF L=1 THEN PRINT:LPRINT TAB(1);
506 PRINT USING"#########";Q;"´Ý"
508 IF V=5 THEN GOSUB 2
510 IF L=1 THEN PRINT:PRINT:PRINT:L=0:PRINT OFF:GOTO 520
512 GOSUB 514:IF L=1 THEN 468 ELSE 520
514 PRINT,"..ÌßØÝÀ ³ÁÀÞ¼";:GOSUB 220
516 IF Y=1 THEN L=1:PRINT ON:BEEP:GOSUB 170
518 RETURN
520 GOSUB 212:PRINT"¸Ø¶´¼";:GOSUB 220
521 IF Y=1 THEN IF KM=1 THEN E=2:E0=2:KM=0
522 IF Y=1 THEN 70 ELSE 32
524 Q=0:FOR I=0 TO 3:Q=Q+U!(V,I):NEXT I
526 W=U!(V,1)*8+U!(V,2)*4+U!(V,3)*2+U!(V,4):CLS:RETURN
528 BEEP:GOSUB 514:N=N!(5):RR=R!(5)
530 M=0:B=0:FOR I=1 TO N!(5)*12:P=I-1:U=P/6:GOSUB 4
532 GOSUB 8:IF P MOD 6<>0 THEN T=0:Y=1
533 GOSUB 6:PRINT OFF:IF I=N!(5)*12 THEN L=0:GOTO 520
534 PRINT"ÂÂ޹Ͻ¶ (Y/N)?";:GOSUB 222
535 IF Y=0 THEN IF L=1 THEN 510 ELSE 520
536 IF L=1 THEN PRINT ON
537 NEXT I:GOTO 520
538 P=X*12:U=X*2:GOSUB 4:S=M:T=B
540 RETURN