1 REM STOKDIV2:7/22/80:REL. 1.1
30 REM COPYRIGHT  CONTROL  DATA  1980
31 ZZ0=0:ZZ1=1:ZZ2=2:ZZ3=3:ZZ4=4:ZZ5=5:ZZ6=6:ZZ10=10:ZZ125=125:ZZ126=126:ZZ180=180:ZZ200=200
32 ZZ7=7:ZZ8=8:ZZ9=9:ZZ150=150:ZZ170=170:ZZ190=190
33 ZZDIS=PEEK(106)*256-961
80 DIM ZZER$(35),ZZQ1$(ZZ1),ZZQ2$(ZZ1),ZZB$(ZZ1)
82 ZZER$="ÅÒÒÏÒ - Invalid data. Resubmit it.":ZZB$="}":ZZEFLG=0:TRAP 110
83 DIM ZZBZ$(ZZ1):ZZBZ$=CHR$(253)
85 GOTO 400
110 ZZGOTO=256*PEEK(187)+PEEK(186):ZZPEEK=PEEK(195):IF ZZPEEK=ZZ8 OR ZZPEEK=18 THEN GOSUB ZZ170:TRAP 110:GOTO ZZGOTO
111 IF ZZPEEK<>ZZ3 AND ZZPEEK<>ZZ7 AND ZZPEEK<>11 THEN GOTO ZZGOTO
115 TRAP 110:? :? "ÅÒÒÏÒ - A result of a calculation":? "has exceeded the maximum allowable":? "value."
116 GOSUB ZZ180:GOTO 130
120 ? :? "The óèáäåä öáìõåó indicate those    that must be input by the user":? :RETURN 
125 POKE 752,ZZ0:POKE 764,255:RETURN 
126 POKE 752,ZZ1:RETURN 
128 POKE 764,255:GOSUB ZZ125:RETURN 
130 GOSUB 135:? ZZB$:? :? "End of problem"
131 ? :? "Type Ù to run another problem":? :? "     ÒÅÔÕÒÎ to exit to menu":? :GOSUB 128:INPUT ZZQ1$
132 IF ZZQ1$<>"Y" THEN PRINT "}":TRAP 40000:POKE 752,1:POSITION 10,10:PRINT " ÒÅÔÕÒÎÉÎÇ ÔÏ ÍÅÎÕ ":RUN "D:MENU"
133 GOTO 3188
135 SETCOLOR ZZ2,16,12:SETCOLOR ZZ4,13,ZZ6:SETCOLOR ZZ1,ZZ1,ZZ2:RETURN 
140 SETCOLOR ZZ2,13,ZZ2:SETCOLOR ZZ4,14,ZZ2:SETCOLOR ZZ1,ZZ0,12:RETURN 
145 SETCOLOR ZZ2,14,ZZ0:SETCOLOR ZZ4,14,ZZ8:SETCOLOR ZZ1,ZZ1,12:RETURN 
150 SETCOLOR ZZ2,ZZ9,ZZ2:SETCOLOR ZZ4,ZZ5,ZZ4:SETCOLOR ZZ1,ZZ0,12:RETURN 
155 SETCOLOR ZZ2,14,ZZ10:SETCOLOR ZZ4,14,ZZ0:SETCOLOR ZZ1,ZZ1,ZZ0:RETURN 
170 POSITION ZZ3,21:? ZZER$:ZZEFLG=ZZ1:? ZZBZ$:RETURN 
180 POSITION ZZ2,23:GOSUB 128:? "Type Ð to print, ÒÅÔÕÒÎ to continue";
181 OPEN #ZZ7,ZZ4,ZZ0,"K:ZZKK":GET #ZZ7,ZZDATA:CLOSE #ZZ7
182 IF ZZDATA=80 THEN TRAP 189:OPEN #ZZ5,ZZ8,ZZ0,"P:ZZPP":GOTO 186
183 IF ZZDATA<>155 THEN 180
184 GOSUB ZZ126:? ZZB$:RETURN 
186 FOR ZZJJ=ZZ1 TO 920:ZZJK=PEEK(ZZDIS+ZZJJ):IF ZZJK>127 THEN ZZJK=ZZJK-128
187 IF ZZJK>95 THEN ZZJK=ZZJK-32
188 ? #ZZ5;CHR$(ZZJK+32);:NEXT ZZJJ
189 CLOSE #ZZ5:TRAP 110:GOTO 180
190 IF ZZEFLG<>ZZ0 THEN POSITION ZZ1,21:? "œ":ZZEFLG=ZZ0
191 RETURN 
200 ZZR2=ZZR8:IF ZZR2<ZZ0 THEN ZZR2=ZZ0
201 ZZR6=ZZR1+SGN(ZZR1)*0.5*ZZ10^(-ZZR2):ZZR3=ABS(ZZR6):ZZR4=ZZ0
203 IF ZZR3>ZZ1 THEN ZZR3=ZZR3*0.1:ZZR4=ZZR4+ZZ1:GOTO 203
204 ZZLB=ZZR9-ZZ1-ZZR4:IF ZZR6>=ZZ0 THEN ZZLB=ZZLB+ZZ1
205 IF ZZLB>ZZ0 AND ABS(ZZR6)<ZZ1 THEN ZZLB=ZZLB-ZZ1:ZZR3=ZZR3*0.1
206 IF ZZLB>ZZ0 THEN FOR ZZI=ZZ1 TO ZZLB:? " ";:NEXT ZZI
207 ZZDPT=ZZR9+ZZ1:ZZLOP=ZZR2+ZZR9:IF ZZLB>ZZ0 THEN ZZLOP=ZZLOP-ZZLB:ZZDPT=ZZDPT-ZZLB
208 FOR ZZI=ZZ1 TO ZZLOP:IF ZZR6<ZZ0 AND ZZI=ZZ1 THEN ? "-";:GOTO 212
209 IF ZZI=ZZDPT THEN ? ".";
210 IF ZZLB<ZZ0 THEN ? "*";:GOTO 212
211 ZZR3=ZZR3*ZZ10:ZZINT=INT(ZZR3):ZZR3=ZZR3-ZZINT:? ZZINT;
212 NEXT ZZI:RETURN 
400 DIM X(26),G(26),V(26),Y(26),R(26)
410 DIM T(8),Z(10),K(10),A(10),A$(1),R$(1),Z$(30)
420 ZZ29=29
440 OPEN #1,ZZ4,ZZ0,"D:NK1D":GOSUB ZZ125
600 INPUT #1,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,Q,GT970
610 A(ZZ0)=A0:A(ZZ1)=A1:A(ZZ2)=A2:A(ZZ3)=A3:A(ZZ4)=A4:A(ZZ5)=A5:A(ZZ6)=A6:A(ZZ7)=A7:A(ZZ8)=A8:A(ZZ9)=A9
620 CLOSE #1
800 ON Q GOTO 850,860
850 ZZQ1$="X":GOTO 865
860 ZZQ2$="S"
865 IF GT970=ZZ1 THEN 970
970 PR=A(ZZ1):Y=A(ZZ2):Y(ZZ0)=A(ZZ3)
1060 T0=ZZ1:N=ZZ0:D6=A(ZZ9)+ZZ1
1400 ? ZZB$
1401 SETCOLOR ZZ2,ZZ1,ZZ6:POSITION ZZ2,ZZ2:? "Do you want to forecast from ";D6;
1402 IF ZZQ2$<>"S" THEN INPUT R$:IF R$<>"N" AND R$<>"Y" THEN GOSUB ZZ170:GOTO 1401
1403 GOSUB ZZ190
1404 IF ZZQ2$="S" THEN READ R$:? "?Ù":GOSUB ZZ180
1405 IF R$="N" THEN 2090
1408 IF ZZQ2$="S" AND R$="Y" THEN GOSUB 4200:GOTO 1412
1410 IF ZZQ2$<>"S" AND R$="Y" THEN GOSUB ZZ180:GOSUB 9400:GOTO 1420
1412 FOR I=ZZ1 TO ZZ8:READ TI:T(I)=TI:NEXT I
1420 DTX=1400
1430 G=T(ZZ1)
1440 G2=G:DTC=ZZ0
1460 T2=T0+T(ZZ2)-ZZ1
1490 IF DTX=1400 THEN GOSUB 9587:IF DTC=ZZ1 THEN GOTO DTX
1495 IF DTX=1970 THEN GOSUB 9587:IF DTC=ZZ1 THEN GOTO DTX
1500 D=T(ZZ3)
1520 FOR I=T0 TO T2:R(I)=T(ZZ4):NEXT I
1600 GOSUB 3210
1630 X9=T(ZZ5)
1680 E=T2+ZZ1+T(ZZ6)
1710 IF DTX=1400 THEN GOSUB 9585:IF DTC=ZZ1 THEN GOTO DTX
1715 IF DTX=1970 THEN GOSUB 9585:IF DTC=ZZ1 THEN GOTO DTX
1720 D=T(ZZ7)
1740 FOR I=T2+ZZ1 TO E:R(I)=T(ZZ8):NEXT I
1910 D6=D6+T(ZZ2)+T(ZZ6)
1970 POSITION ZZ2,ZZ2:? "Do you want to continue forecasting":? "from ";:? D6;
1971 IF ZZQ2$="S" THEN 1974
1972 GOSUB 125:INPUT R$:IF R$<>"N" AND R$<>"Y" THEN GOSUB ZZ170:GOTO 1970
1973 GOSUB ZZ190
1974 IF ZZQ2$="S" THEN READ R$:? "?Î"
1975 IF R$="N" THEN 2090
1980 IF R$="Y" THEN GOSUB 9400
1990 DTX=1970:DTC=ZZ0:G2=T(ZZ1)
2000 IF E=T2+ZZ1 THEN 2015
2010 ON X9 GOTO 3290,3410,3580
2015 IF DTX=1970 THEN GOSUB 9585:IF DTC=ZZ1 THEN GOTO DTX
2020 G=G2:T0=E
2030 GOTO 1440
2090 IF A(ZZ0)=ZZ2 THEN 2590
2100 IF A(ZZ0)=ZZ3 THEN 2770
2110 IF A(ZZ6)=ZZ2 THEN 2230
2120 G2=A(ZZ7):D=A(ZZ5):N=9999
2150 IF E<>T2+ZZ1 THEN 2190
2160 T0=E:T2=E:GOSUB 3210:GOTO 2210
2190 ON X9 GOTO 3290,3410,3580
2200 T2=E
2210 GOSUB 3750:GOTO 2240
2230 GOSUB 3790
2240 GOSUB 3830
2270 GOSUB 140:? ZZB$:? A(ZZ9);" Values":? 
2310 ? "Price              $";:ZZR1=PR:ZZR9=ZZ5:ZZR8=ZZ2:GOSUB ZZ200:? " ":? "Earnings           $";
2320 ZZR1=Y:GOSUB ZZ200:? " ":? "P/E ratio           ";:ZZR1=INT(PR/Y*100+0.5)/100:GOSUB ZZ200:? " "
2330 IF A(ZZ6)=ZZ2 THEN 2360
2340 ? :? "Long term growth rate   ";:ZZR1=A(ZZ7)*100:ZZR9=ZZ2:ZZR8=ZZ2:GOSUB ZZ200:? "%"
2360 ? :? "Intrinsic value    $";:ZZR1=INT(V(ZZ1)*100+0.5)/100:ZZR9=ZZ5:ZZR8=ZZ2:GOSUB ZZ200:GOSUB ZZ180
2380 IF A(ZZ6)=ZZ1 THEN 2420
2390 Y1=INT(A(ZZ8)*Y(T2)*100+0.5)/100
2395 ? A(ZZ9)+T2;:? " Forecasts":? :? :? "P/E ratio         ";:ZZR1=A(ZZ8):ZZR9=ZZ6:ZZR8=ZZ2:GOSUB ZZ200:? 
2397 ? "Price            $";:ZZR1=Y1:ZZR9=ZZ6:ZZR8=ZZ2:GOSUB ZZ200:GOSUB ZZ180
2420 ? ZZB$:POSITION 2,2:? "Do you want a list of values in":? "future years";
2421 IF ZZQ2$<>"S" THEN INPUT A$:? :IF A$<>"N" AND A$<>"Y" THEN GOSUB ZZ170:GOTO 2420
2423 GOSUB ZZ190
2430 IF ZZQ2$="S" THEN READ A$:? "?Ù":GOSUB ZZ180
2450 IF A$="Y" THEN 2470
2460 GOTO 2800
2470 GOSUB 7120:G(ZZ1)=G(ZZ2)
2530 FOR I=ZZ1 TO T2:D1=A(ZZ9):YR=I+D1:EPS=INT(Y(I)*100+0.5)/100:GR=INT(G(I)*100+0.5)/100
2535 VER=INT((V(I)/Y(I))*100+0.5)/100:IV=INT(V(I)*100+0.5)/100
2540 ZZR1=YR:ZZR9=ZZ4:ZZR8=-ZZ1:GOSUB ZZ200:ZZR1=EPS:ZZR9=ZZ5:ZZR8=ZZ2:GOSUB ZZ200
2543 ZZR1=GR*100:ZZR9=ZZ3:ZZR8=ZZ2:GOSUB ZZ200
2546 ZZR1=VER:ZZR9=ZZ4:ZZR8=ZZ2:GOSUB ZZ200:ZZR1=IV:ZZR9=ZZ8:ZZR8=ZZ2:GOSUB ZZ200
2549 IF INT(I/15)-I/15=ZZ0 THEN GOSUB 7100
2560 NEXT I:GOSUB ZZ180:GOTO 2800
2590 GOSUB 3830:G3=A(ZZ7)
2610 X(T2+ZZ1)=X(T2)*(ZZ1+G2):V(ZZ1)=V(ZZ1)+X(T2+ZZ1)/(ZZ1+A(ZZ4))^(T2+ZZ1)
2620 POSITION 6,12:? "ÐÒÏÃÅÓÓÉÎÇ¬ ÐÌÅÁÓÅ ×ÁÉÔ®®®¡"
2630 W=V(ZZ1)+(X(T2+ZZ1)*((ZZ1+G3)/(A(ZZ4)-G3)))/(ZZ1+A(ZZ4))^(T2+ZZ1)
2640 IF W>=PR THEN 2740
2650 T2=T2+ZZ1
2660 IF T2>25 THEN 2700
2670 GOTO 2610
2700 ? ZZB$:? "A growth rate of ";G2*100;:? " percent":? "must last beyond the year ";A(ZZ9)+T2+ZZ1
2710 ? "to justify the price.":GOSUB 180:GOTO 2800
2740 ? ZZB$:? "A growth rate of ";G2*100:? "must last to the year ";A(ZZ9)+T2+ZZ1
2750 ? "to justify the price.":GOSUB ZZ180:GOTO 2800
2770 GOSUB 3830
2780 W=(PR-V(ZZ1))*(ZZ1+R(T2))^(T2)/Y(T2)
2795 ? ZZB$:? "Required P/E ratio in ";A(ZZ9)+T2:? "to justify price is ";INT(W*100+0.5)/100;:? ".":GOSUB ZZ180
2800 GOSUB 130
3050 DATA Y,.25,10,.4,.16,3,5,.4,.16,N,Y
3188 GOSUB 9990:RUN "D:STOKDIV1"
3189 GOSUB 9990:RUN "D:STOKDIV1"
3210 FOR J=T0 TO T2:Y(J)=Y(J-ZZ1)*(ZZ1+G):G(J)=G:X(J)=Y(J)*D:NEXT J:RETURN 
3290 K1=(G-G2)/(E-T2):FOR J=T2+ZZ1 TO E:G=G-K1:Y(J)=Y(J-ZZ1)*(ZZ1+G):X(J)=Y(J)*D:G(J)=G:NEXT J:G=G2:G(J)=G2
3370 IF N=9999 THEN 2200
3380 GOTO 2020
3410 K3=ZZ0:FOR K=T2+ZZ1 TO E:K3=K3+(K-T2):NEXT K
3450 K1=G-G2
3460 FOR J=T2+ZZ1 TO E:K2=E-J+ZZ1:G=G-K1*(K2/K3):Y(J)=Y(J-ZZ1)*(ZZ1+G):X(J)=Y(J)*D:G(J)=G:NEXT J
3540 IF N=9999 THEN 2200
3550 GOTO 2020
3580 K3=ZZ0:FOR K=T2+ZZ1 TO E:K3=K3+(K-T2):NEXT K
3620 K1=G-G2
3630 FOR J=T2+ZZ1 TO E:K2=J-T2:G=G-K1*(K2/K3):Y(J)=Y(J-ZZ1)*(ZZ1+G):X(J)=Y(J)*D:G(J)=G:NEXT J:G=G2:G(J)=G2
3710 IF N=9999 THEN 2200
3720 GOTO 2020
3750 X(T2)=X(T2)+(X(T2)*(ZZ1+A(ZZ7))/(A(ZZ4)-A(ZZ7))):RETURN 
3790 X(T2)=X(T2)+A(ZZ8)*Y(T2):RETURN 
3830 GOSUB 8200:FOR J=ZZ1 TO T2:V(J)=ZZ0
3860 FOR I=J TO T2:V(J)=V(J)+X(I)/(ZZ1+R(I))^(I-J+ZZ1):GOSUB 8300:NEXT I:NEXT J:GOSUB ZZ125:? ZZBZ$;:GOSUB ZZ180:RETURN 
4200 GOSUB 145:GOSUB 5000:POSITION ZZ29,ZZ3:? "?²µ"
4205 GOSUB 5050:POSITION ZZ29,ZZ6:? "?±°"
4210 GOSUB 5100:POSITION ZZ29,ZZ9:? "?´°"
4215 GOSUB 5150:POSITION ZZ29,11:? "?±¶"
4220 GOSUB 5200:POSITION ZZ29,16:? "?³"
4230 GOSUB ZZ180:GOSUB 5300:POSITION ZZ29,ZZ3:? "?µ"
4235 GOSUB 5350:POSITION ZZ29,6:? "?´°"
4240 GOSUB 5400:POSITION ZZ29,ZZ9:? "?±¶":? 
4250 GOSUB ZZ180:RETURN 
5000 ? ZZB$:POSITION ZZ2,ZZ2:? "Earnings growth rate":? "(percent)":RETURN 
5050 POSITION ZZ2,ZZ5:? "Duration of growth rate":? "(years)":RETURN 
5100 POSITION ZZ2,ZZ8:? "Dividend payout ratio":? "(percent)":RETURN 
5150 POSITION ZZ2,11:? "Discount rate (percent)":RETURN 
5200 POSITION ZZ2,13:? "Type of adjustment":? "(1) Straight line":? "(2) Fast line"
5210 ? "(3) Slow ":RETURN 
5300 POSITION ZZ2,ZZ2:? "Duration of adjustment":? "(years)":RETURN 
5350 POSITION ZZ2,ZZ5:? "Dividend payout ratio for":? "this adjustment period":? "(percent)":RETURN 
5400 POSITION ZZ2,9:? "Discount rate for this":? "adjustment period":? "(percent)":RETURN 
7100 IF I<>T2 THEN ? :? "There are additional results--"
7110 GOSUB ZZ180:GOSUB 7120:RETURN 
7120 SETCOLOR ZZ2,12,ZZ6:? ZZB$:GOSUB ZZ126:POKE 83,39:? "YEAR  EARN. GROWTH VALUE  INTR.VALUE"
7130 ? "       PER   RATE  /EARN.  (AT BEG.":? "      SHARE  (%)   RATIO   OF YEAR)":? :POKE 83,37:RETURN 
8000 IF B9=ZZ0 THEN 8100
8005 IF B8>B9 THEN B8=-ZZ1:RETURN 
8010 FOR B6=B8 TO B9
8020 IF Z$(B6,B6)="," OR Z$(B6,B6)=" " THEN 8040
8025 IF Z$(B6,B6)>="0" AND Z$(B6,B6)<="9" THEN 8030
8026 IF Z$(B6,B6)="+" OR Z$(B6,B6)="-" THEN IF B6=B8 THEN 8030
8027 IF Z$(B6,B6)="." AND DT=ZZ0 THEN DT=ZZ1:GOTO 8030
8028 GOTO 8050
8030 NEXT B6:GOSUB 8040:B8=-ZZ1:RETURN 
8040 TRAP 8050:B7=VAL(Z$(B8,B6-ZZ1)):B8=B6+ZZ1:DT=ZZ0:TRAP 110:RETURN 
8050 TRAP 110:B9=PEEK(84):GOSUB 170:ZZEFLG=B9:B8=-ZZ1:POSITION ZZ2,B9-1:RETURN 
8100 INPUT Z$:IF ZZEFLG<>ZZ0 THEN B9=ZZEFLG:GOSUB ZZ190:POSITION ZZ2,B9
8101 B9=LEN(Z$):B7=ZZ1:B8=ZZ1:B6=ZZ1:DT=ZZ0
8120 IF B9<>ZZ0 THEN 8005
8130 B7=ZZ0:B8=-ZZ1:RETURN 
8200 DT=ZZ0:FOR J=ZZ1 TO T2:FOR I=J TO T2:DT=DT+ZZ1:NEXT I:NEXT J:DTC=ZZ0:DTX=ZZ1/DT:GOSUB 8300:GOSUB ZZ126:RETURN 
8300 POSITION ZZ2,23:? "Calculation is ";:ZZR1=DTC*100:ZZR8=-ZZ1:ZZR9=ZZ3:GOSUB ZZ200:? "% complete";
8310 DTC=DTC+DTX:RETURN 
9400 GOSUB 150:GOSUB 125:GOSUB 5000
9410 POSITION ZZ29,ZZ3:INPUT T1:T1=T1/100:T(1)=T1:GOSUB ZZ190
9450 GOSUB 5050
9460 POSITION ZZ29,ZZ6:INPUT TT2:T(2)=TT2
9500 IF T(ZZ2)<ZZ0 OR T(ZZ2)-INT(T(ZZ2))<>ZZ0 THEN GOSUB ZZ170:GOTO 9450
9502 IF T(ZZ2)>25 THEN POSITION 3,22:POKE 752,1:? ZZBZ$;"ÅÒÒÏÒ-Exceeds 25 yrs.!"
9503 IF T(ZZ2)>25 THEN FOR D=1 TO 150:NEXT D
9504 IF T(ZZ2)>25 THEN POSITION 2,22:? "                          ":POKE 752,0:GOTO 9450
9507 GOSUB ZZ190:GOSUB 5100
9508 POSITION ZZ29,ZZ9:INPUT T3:T3=T3/100:T(3)=T3
9510 IF T(ZZ3)>ZZ1 OR T(ZZ3)<ZZ0 THEN GOSUB ZZ170:GOTO 9508
9512 GOSUB ZZ190
9515 GOSUB 5150
9518 POSITION ZZ29,11:INPUT T4:T4=T4/100:T(4)=T4
9520 IF T(ZZ4)>ZZ1 OR T(ZZ4)<ZZ0 THEN GOSUB ZZ170:GOTO 9518
9525 GOSUB ZZ190:GOSUB 5200
9526 POSITION ZZ29,16:INPUT T5:T(5)=T5
9530 IF T(ZZ5)<>ZZ1 AND T(ZZ5)<>ZZ2 AND T(ZZ5)<>ZZ3 THEN GOSUB ZZ170:GOTO 9526
9532 GOSUB ZZ190:GOSUB 180:GOSUB 125
9535 GOSUB 5300
9537 POSITION ZZ29,ZZ3:INPUT T6:T(6)=T6
9540 IF T(ZZ6)<ZZ0 OR T(ZZ6)-INT(T(ZZ6))<>ZZ0 OR T(ZZ6)>25 THEN GOSUB ZZ170:GOTO 9537
9545 GOSUB ZZ190:GOSUB 5350
9547 POSITION ZZ29,7:INPUT T7:T7=T7/100:T(7)=T7
9550 IF T(ZZ7)>ZZ1 OR T(ZZ7)<ZZ0 THEN GOSUB ZZ170:GOTO 9547
9552 GOSUB ZZ190:GOSUB 5400
9555 POSITION ZZ29,11:INPUT T8:T8=T8/100:T(8)=T8
9560 IF T(ZZ8)>ZZ1 OR T(ZZ8)<ZZ0 THEN GOSUB ZZ170:GOTO 9555
9562 GOSUB ZZ190:GOSUB ZZ180:GOSUB 125
9580 RETURN 
9585 IF E>25 THEN GOSUB 9700
9586 RETURN 
9587 IF T2>25 THEN GOSUB 9700
9588 RETURN 
9700 POSITION ZZ2,21:? "Maximum forecast is 25 years."
9701 D6=A(ZZ9)+ZZ1:? ZZBZ$:DTC=ZZ1:GOSUB ZZ180:GOSUB 9705:RETURN 
9705 X9=0:G=0:E=0:T2=0:FOR I=1 TO 8:T(I)=0:RETURN 
9910 GOSUB ZZ126:CRROW=PEEK(84):FOR J=ZZ1 TO 24-CRROW:POSITION ZZ2,CRROW:? "œ":NEXT J:POSITION ZZ2,CRROW
9911 GOSUB ZZ125:RETURN 
9990 GOSUB 150:? ZZB$:GOSUB 126:POSITION 7,22:? " ÌÏÁÄÉÎÇ ÔÈÅ ÎÅØÔ ÓÅÃÔÉÏÎ ":RETURN 
