8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64Adventure/STARFLIGHT

Commodore BASIC | 2019-04-13 | 35KB | 923 lines

10 CM$="":NO=9:NR=22:DIMRF(NR),MA(NR,5),OB(NO),OB$(NO),O2$(NO),ID(1),OD(1)
15 PRINT"[147]";CHR$(14);:POKE53280,12:POKE53281,12:GOSUB63000
20 Q$=CHR$(221):C$=CHR$(13)
30 GOSUB50000:GOSUB55000:GOSUB60000
40 ID(0)=0:OD(0)=1:ID(1)=1:OD(1)=0:IN=0:MI=4:R=1:VF=0:LF=0:AF=0:RF=0:DF=0:SF=0
50 PI=1:ZF=0:FR=21:H=3:PF=0:CF=0:EF=0:SD=-1:AS=0:BF=0:HP=3:FF=0:MF=0:P=1:D=8
90 GOSUB30000:PRINT:GOSUB49000
100 IFFR<>RTHENFF=0:GOTO200
103 PRINT:PRINT"&[176][170][223][190][173][186][223][190][168][190][173][186][223][176][185][223][190][223][175][176][168][186][173][185][170][179][211][223][182][177][169][182][172][182][189][179][186]"
104 PRINT"[185][176][173][188][186][223][182][177][223][171][183][186][223][173][176][176][178][223][168][182][171][183][223][166][176][170][209]":PRINT
105 IFFF=0THENFF=1:GOTO200
110 IFINT(RND(1)*2)<>1THEN200
111 HP=HP-1:IFHP<2THEN120
112 PRINT"&[176][170][173][223][186][177][171][182][173][186][223][177][186][173][169][176][170][172][223][172][166][172][171][186][178][223][182][172][223][181][176][179][171][186][187][223][189][166]"
113 PRINT"[190][223][178][186][177][171][190][179][223][185][176][173][188][186][223][171][183][186][223][179][182][180][186][172][223][176][185][223][168][183][182][188][183][223][166][176][170]"
114 PRINT"[183][190][169][186][223][177][186][169][186][173][223][186][167][175][186][173][182][186][177][188][186][187][209][223]&[176][170][173][223][183][186][190][187][223][181][186][173][180][172]"
115 PRINT"[189][190][188][180][223][190][177][187][223][166][176][170][173][223][178][176][170][171][183][223][176][175][186][177][172][223][182][177][223][190][177][223][182][177][169][176][179][170][177][210]";
116 PRINT"[171][190][173][166][223][172][188][173][186][190][178][209][223]9[173][176][178][223][171][183][186][223][177][186][188][180][223][187][176][168][177][223][166][176][170][173]"
117 PRINT"[189][176][187][166][223][182][172][223][188][176][178][175][179][186][171][186][179][166][223][175][190][173][190][179][166][165][186][187][211][223][182][178][178][176][189][182][179][186][196]"
118 PRINT"[171][183][186][177][223][171][183][186][223][185][176][173][188][186][223][173][186][179][186][177][171][172][223][190][177][187][223][166][176][170][223][184][176][223][179][182][178][175][209]":GOTO200
120 IFHP<1THEN130
121 PRINT">[223][172][186][188][176][177][187][223][181][176][179][171][211][223][178][176][173][186][223][175][176][168][186][173][185][170][179][223][171][183][190][177][223][171][183][186]"
122 PRINT"[185][182][173][172][171][223][190][177][187][223][182][177][185][182][177][182][171][186][179][166][223][178][176][173][186][223][175][190][182][177][185][170][179][211]"
123 PRINT"[172][170][173][184][186][172][223][171][183][173][176][170][184][183][223][166][176][170][173][223][177][186][173][169][176][170][172][223][172][166][172][171][186][178][209][223]9[176][173]"
124 PRINT"[190][223][178][176][178][186][177][171][223][166][176][170][223][187][176][223][177][176][171][223][186][169][186][177][223][173][186][188][176][184][177][182][165][186][223][171][183][186]"
125 PRINT"[172][176][170][177][187][223][176][185][223][166][176][170][173][223][176][168][177][223][172][188][173][186][190][178][209][223]>[185][171][186][173][223][168][183][190][171]"
126 PRINT"[172][186][186][178][172][223][179][182][180][186][223][172][186][169][186][173][190][179][223][186][171][186][173][177][182][171][182][186][172][211][223][171][183][186][223][175][190][182][177]"
127 PRINT"[184][176][186][172][223][190][168][190][166][209]":GOTO200
130 PRINT"+[183][186][223][171][183][182][173][187][223][181][176][179][171][223][172][171][173][182][180][186][172][223][166][176][170][223][179][182][180][186][223][190]"
131 PRINT"[188][173][190][188][180][179][182][177][184][223][189][176][179][171][223][176][185][223][179][182][184][183][171][177][182][177][184][209][223]+[183][186][223][187][170][173][190][210]"
132 PRINT"[171][182][176][177][223][182][172][223][172][183][176][173][171][186][173][223][171][183][182][172][223][171][182][178][186][211][223][189][186][188][190][170][172][186][223][166][176][170][173]"
133 PRINT"[168][186][190][180][186][177][186][187][223][183][186][190][173][171][223][182][172][223][182][177][188][190][175][190][189][179][186][223][176][185][223][172][170][172][210]"
134 PRINT"[171][190][182][177][182][177][184][223][185][170][173][171][183][186][173][223][175][190][182][177][223][176][185][223][171][183][182][172][223][182][177][171][186][177][172][182][171][166][209]"
135 PRINT"([182][171][183][182][177][223][172][186][188][176][177][187][172][223][166][176][170][223][172][179][170][178][175][223][187][186][190][187][223][190][184][190][182][177][172][171]"
136 PRINT"[171][183][186][223][177][186][190][173][186][172][171][223][168][190][179][179][211][223][168][176][177][187][186][173][182][177][184][223][182][177][223][166][176][170][173][223][179][190][172][171]";
137 PRINT"[182][177][172][171][190][177][171][223][176][185][223][188][176][177][172][188][182][176][170][172][177][186][172][172][223][181][170][172][171][223][168][183][176][223][168][182][179][179]"
138 PRINT"[187][182][172][188][176][169][186][173][223][213][166][176][170][173][213][223][187][186][188][190][166][182][177][184][223][172][180][186][179][186][171][176][177][209][209][209][209]":GOTO7020
200 IFAF<>1THEN240
210 PRINT:PRINT"+[183][186][223][172][183][182][175][216][172][223][188][176][178][175][170][171][186][173][223][190][177][177][176][170][177][188][186][172][197]"
220 PRINT:PRINTQ$">[188][180][177][176][168][179][186][187][184][186][178][186][177][171][223][177][176][171][223][173][186][188][186][182][169][186][187][209]"
230 PRINT"-[186][174][170][186][172][171][223][188][190][177][188][186][179][179][186][187][222]"Q$:AF=0
240 IFAF=2THENAF=1
250 IFSD=-1THEN300
260 SD=SD-1:IFSD=0THEN800
270 IFOB(5)<>-1ANDOB(5)<>RTHEN300
280 PRINT:PRINT">[223][184][179][176][168][182][177][184][223][177][170][178][186][173][190][179][223]";
284 PRINTCHR$(255-ASC(MID$(STR$(SD),2,1)));
286 PRINT"[223][190][175][175][186][190][173][172][223][176][177][223][176][177][186]"
290 PRINT"[172][182][187][186][223][176][185][223][171][183][186][223][172][176][177][182][188][223][187][182][172][173][170][175][171][176][173][209]"
300 REM
500 PRINT:CM$="":SYS831:PRINT:PRINT:IFCM$=""THEN500
510 C=0:V$="":N$=""
520 C=C+1:IFC>LEN(CM$)THEN550
530 W$=MID$(CM$,C,1):IFW$="[223]"THEN545
540 V$=V$+W$:GOTO520
545 IFC=>LEN(CM$)THEN550
547 IFMID$(CM$,C+1,1)="[223]"THENC=C+1:GOTO545
550 C=C+1:IFC>LEN(CM$)THEN580
560 W$=MID$(CM$,C,1):IFW$="[223]"THEN580
570 N$=N$+W$:GOTO550
580 IFV$=""THEN500
590 TV$=V$:IFLEN(V$)>3THENV$=LEFT$(V$,3)
600 TN$=N$:IFLEN(N$)>3THENN$=LEFT$(N$,3)
610 IFV$="[177]"ORV$="[172]"ORV$="[186]"ORV$="[168]"ORV$="[170]"ORV$="[187]"THENN$=V$:V$="[184][176]"
620 IFV$="[177][176][173]"ORV$="[172][176][170]"ORV$="[186][190][172]"ORV$="[168][186][172]"ORV$="[170][175]"ORV$="[187][176][168]"THENN$=V$:V$="[184][176]"
630 IFV$="[185][176][173]"ORV$="[190][185][171]"ORV$="[172][171][190]"ORV$="[175][176][173]"THENN$=V$:V$="[184][176]"
640 IFN$="[172][170][182]"THENN$="[172][175][190]"
650 IFN$="[172][176][177]"THENN$="[187][182][172]"
660 IFN$="[189][190][173]"THENN$="[178][190][184]"
750 FORI=0TO5:NX=MA(FR,I)AND127:IFNX<>RTHENNEXT:GOTO760
751 FR=NX
760 REM
799 GOTO1000
800 PRINT:IFOB(5)<>RANDOB(5)<>-1THEN820
802 PRINT"+[183][186][223][172][176][177][182][188][223][187][182][172][173][170][175][171][176][173][223][189][170][173][172][171][172][223][185][176][173][171][183][223][168][182][171][183]"
803 PRINT"[190][223][172][175][173][190][166][223][176][185][223][183][182][184][183][223][185][173][186][174][170][186][177][188][166][223][172][176][170][177][187][223][171][183][190][171]"
804 PRINT"[190][171][176][178][182][165][186][172][223][186][169][186][173][166][171][183][182][177][184][223][182][177][223][182][171][172][223][182][178][178][186][187][182][190][171][186]"
805 PRINT"[169][182][188][182][177][182][171][166][209][209][209][166][176][170][173][172][186][179][185][223][182][177][188][179][170][187][186][187][209]";:IFR<>17THENPRINT:GOTO7020
806 PRINT"[223]9[176][173][223][168][183][190][171]":PRINT"[182][171][216][172][223][168][176][173][171][183][211][223][166][176][170][223][187][182][187][223][172][170][188][188][186][186][187][223][182][177][223][187][186][172][171][173][176][166][210]"
807 PRINT"[182][177][184][223][171][183][186][223][175][182][186][188][186][223][176][185][223][185][170][173][177][182][171][170][173][186][223][171][183][190][171][223][183][190][187]"
808 PRINT"[189][186][186][177][223][189][179][176][188][180][182][177][184][223][171][183][186][223][172][171][190][182][173][172][183][190][185][171][209]":GOTO7020
820 OB(5)=OB(5)+128:OB$(5)="[190][223][178][176][179][171][186][177][223][172][176][177][182][188][223][187][182][172][173][170][175][171][176][173]"
821 PRINT"6[177][223][171][183][186][223][187][182][172][171][190][177][188][186][211][223][166][176][170][223][183][186][190][173][223][171][183][186][223][175][182][186][173][188][182][177][184]"
822 PRINT"[168][183][182][177][186][223][176][185][223][190][223][172][176][177][182][188][223][187][182][172][173][170][175][171][176][173][223][190][171][176][178][182][165][182][177][184]"
823 PRINT"[186][169][186][173][166][171][183][182][177][184][223][182][177][223][182][171][172][223][169][182][188][182][177][182][171][166]";:IF(OB(5)AND127)<>17THENPRINT"[209]":GOTO200
824 PRINT"[211][223][190][188][188][176][178][175][190][177][182][186][187]":PRINT"[189][166][223][171][183][186][223][172][176][170][177][187][223][176][185][223][172][183][190][171][171][186][173][182][177][184][223][175][179][190][172][171][182][188][209]"
825 MA(17,5)=130:GOTO200
1000 IFV$="[186][177][171]"THEN1070
1005 IFV$<>"[184][176]"ANDV$<>"[168][190][179]"ANDV$<>"[173][170][177]"THEN2000
1010 IFN$="[177][176][173]"ORN$="[177]"ORN$="[185][176][173]"ORN$="[185]"THENDI=0:GOTO1500
1020 IFN$="[172][176][170]"ORN$="[172]"ORN$="[190][185][171]"ORN$="[190]"THENDI=1:GOTO1500
1030 IFN$="[186][190][172]"ORN$="[186]"ORN$="[172][171][190]"ORN$="[173]"THENDI=2:GOTO1500
1040 IFN$="[168][186][172]"ORN$="[168]"ORN$="[175][176][173]"ORN$="[179]"THENDI=3:GOTO1500
1050 IFN$="[170][175]"ORN$="[170]"THENDI=4:GOTO1500
1060 IFN$="[187][176][168]"ORN$="[187]"THENDI=5:GOTO1500
1070 IFN$<>"[189][176][176]"ORR<>2THEN1080
1071 PRINT"&[176][170][223][187][176][177][216][171][223][173][186][190][179][179][166][223][168][190][177][171][223][171][176][223][187][176][223][171][183][190][171][209][223]6[185]"
1072 PRINT"[166][176][170][223][173][186][210][186][177][171][186][173][223][171][183][186][223][172][170][172][175][186][177][187][186][187][223][190][177][182][178][190][171][182][176][177]"
1073 PRINT"[189][176][176][171][183][223][190][177][187][223][173][186][169][186][173][171][223][171][176][223][188][176][179][187][223][172][179][186][186][175][211][223][171][183][186]"
1074 PRINT"[172][183][182][175][223][168][182][179][179][223][190][170][171][176][178][190][171][182][188][190][179][179][166][223][173][186][171][170][173][177][223][171][176][223][182][171][172]"
1075 PRINT"[183][176][178][186][223][175][176][173][171][209][223]&[176][170][173][223][178][182][172][172][182][176][177][223][168][182][179][179][223][189][186][223][190]"
1076 PRINT"[185][190][182][179][170][173][186][209]":GOTO100
1080 REM
1490 PRINT"&[176][170][223][188][190][177][216][171][223][184][176][223][171][183][186][173][186][222]":GOTO100
1500 IFMA(R,DI)=0THEN1990
1510 IFMA(R,DI)>127THEN1600
1520 GOSUB1590:R=MA(R,DI):GOTO90
1590 IFMF=0THENRETURN
1592 MF=0:PRINT"9[182][173][172][171][211][223][166][176][170][223][171][170][184][223][166][176][170][173][172][186][179][185][223][185][173][186][186][223][176][185][223][171][183][186]"
1595 PRINT"[189][190][173][223][178][190][184][177][186][171][209][209][209][209]":PRINT:RETURN
1600 IFMA(R,DI)<>128THEN1610
1601 PRINT"&[176][170][223][187][176][177][216][171][223][173][186][190][179][179][166][223][168][190][177][171][223][171][176][223][184][176][223][171][183][190][171][223][168][190][166][209]"
1602 PRINT"+[183][186][223][175][190][172][172][186][177][184][186][173][223][169][190][170][179][171][223][182][172][223][172][176][223][179][190][173][184][186][223][171][183][190][171]"
1603 PRINT"[166][176][170][223][188][176][170][179][187][223][168][190][177][187][186][173][223][182][177][223][182][171][223][185][176][173][223][187][190][166][172][211][223][171][176][223][177][176]"
1604 PRINT"[175][190][173][171][182][188][170][179][190][173][223][190][169][190][182][179][209]":GOTO100
1610 IFMA(R,DI)<>135ANDMA(R,DI)<>136THEN1620
1612 GOSUB1590:PRINT"&[176][170][223][172][171][186][175][223][188][190][170][171][182][176][170][172][179][166][223][176][169][186][173][223][190][223][175][190][182][173][223][176][185]"
1613 PRINT"[172][180][186][179][186][171][176][177][172][223][171][183][190][171][223][183][190][169][186][223][185][190][179][179][186][177][223][171][176][184][186][171][183][186][173]"
1614 PRINT"[182][177][223][171][183][186][223][178][182][187][187][179][186][223][176][185][223][171][183][186][223][183][190][179][179][168][190][166][209]":PRINT:R=MA(R,DI)AND127:GOTO90
1620 IFMA(R,DI)<>129THEN1630
1621 PRINT"+[183][186][173][186][223][182][172][223][190][223][179][190][173][184][186][223][182][171][186][178][223][176][185][223][175][179][190][172][171][182][188][223][185][170][173][177][182][210]"
1622 PRINT"[171][170][173][186][223][189][179][176][188][180][182][177][184][223][166][176][170][173][223][187][186][172][188][186][177][171][209][223]=[186][179][176][168][223][171][183][186]"
1623 PRINT"[175][179][190][172][171][182][188][211][223][166][176][170][223][188][190][177][223][181][170][172][171][223][178][190][180][186][223][176][170][171][223][171][183][186]"
1624 PRINT"[172][180][186][179][186][171][190][179][223][173][186][178][190][182][177][172][223][176][185][223][176][177][186][223][176][185][223][171][183][186][223][188][173][186][168]"
1625 PRINT"[178][186][178][189][186][173][172][211][223][168][183][176][223][183][190][187][223][190][175][175][190][173][186][177][171][179][166][223][175][179][190][188][186][187][223][171][183][186]"
1626 PRINT"[185][170][173][177][182][171][170][173][186][223][183][186][173][186][223][182][177][223][190][177][223][170][177][172][170][188][188][186][172][172][185][170][179]"
1627 PRINT"[190][171][171][186][178][175][171][223][171][176][223][168][190][173][187][223][176][185][185][223][190][177][223][190][171][171][190][188][180][186][173][209]":GOTO100
1630 IFMA(R,DI)<>130THEN1640
1632 GOSUB1590:PRINT"&[176][170][223][187][186][172][188][186][177][187][223][182][177][171][176][223][171][183][186][223][172][183][190][185][171][211][223][175][182][188][180][182][177][184][223][166][176][170][173]";
1633 PRINT"[166][176][170][173][223][168][190][166][223][175][190][172][171][223][171][183][186][223][172][183][190][171][171][186][173][186][187][223][173][186][178][190][182][177][172][223][176][185]"
1634 PRINT"[171][183][186][223][175][182][186][188][186][223][176][185][223][175][179][190][172][171][182][188][223][185][170][173][177][182][171][170][173][186][223][190][177][187][223][171][183][186]"
1635 PRINT"[172][180][186][179][186][171][176][177][223][171][183][190][171][223][168][190][172][223][183][176][179][187][182][177][184][223][182][171][223][182][177][223][175][179][190][188][186][209]":PRINT:R=13:PRINT:GOTO90
1640 IFMA(R,DI)<>140THEN1660
1641 IFOB(0)>-1THENGOSUB1590
1642 PRINT"+[183][186][223][183][190][179][179][223][190][183][186][190][187][223][176][185][223][166][176][170][223][182][172][223][188][173][190][178][178][186][187][223][168][182][171][183]"
1643 PRINT"[187][186][189][173][182][172][223][190][177][187][223][171][183][186][223][172][180][186][179][186][171][190][179][223][173][186][178][190][182][177][172][223][176][185][223][171][183][186]"
1644 PRINT">[173][178][172][171][173][176][177][184][216][172][223][188][173][186][168][223][178][186][178][189][186][173][172][209][223]";
1645 IFOB(0)<0THEN1650
1646 PRINT"&[176][170][223][190][173][186]":PRINT"[189][190][173][186][179][166][223][190][189][179][186][223][171][176][223][172][174][170][186][186][165][186][223][171][183][173][176][170][184][183][223][171][183][186]":PRINT"[187][186][189][173][182][172][209]"
1647 PRINT:R=22:GOTO90
1650 PRINT"*[177][185][176][173][171][170][177][190][171][186][179][166][211]";:PRINT"[166][176][170][223][168][182][179][179][223][177][186][186][187][223][171][176][223][187][173][176][175][223][166][176][170][173][223][189][170][179][180][166][223][172][175][190][188][186]"
1651 PRINT"[172][170][182][171][223][189][186][185][176][173][186][223][166][176][170][223][188][190][177][223][172][174][170][186][186][165][186][223][171][183][173][176][170][184][183][223][171][183][186]"
1652 PRINT"[187][186][189][173][182][172][209]":GOTO100
1660 REM
1990 PRINT"&[176][170][223][188][190][177][216][171][223][184][176][223][171][183][190][171][223][168][190][166][209]":GOTO100
2000 IFV$<>"[179][176][176]"ANDV$<>"[179]"ANDV$<>"[186][167][190]"THEN4000
2010 IF(V$="[179][176][176]"ORV$="[179]")ANDN$=""THENGOSUB30010:PRINT:GOSUB49000:GOTO100
2020 IFN$<>"[179][182][184]"THEN2030
2021 IFR<>1THEN3990
2022 IFLF<>0THENPRINT"+[183][186][223][179][182][184][183][171][223][182][172][223][177][176][223][179][176][177][184][186][173][223][189][179][182][177][180][182][177][184][209]":GOTO100
2023 PRINT"6[171][223][182][172][223][189][179][182][177][180][182][177][184][223][173][190][175][182][187][179][166][209][223]=[186][179][176][168][223][171][183][186][223][179][182][184][183][171]"
2024 PRINT"[182][172][223][190][223][172][178][190][179][179][223][189][179][170][186][223][189][170][171][171][176][177][209]":GOTO100
2030 IF(N$<>"[182][177][172]"ANDN$<>"[184][190][170]"ANDN$<>"[188][176][177]")ORR<>1THEN2040
2032 PRINT"+[183][186][223][188][176][177][172][176][179][186][223][182][172][223][188][176][169][186][173][186][187][223][178][176][172][171][179][166][223][168][182][171][183]"
2033 PRINT"[187][182][184][182][171][190][179][223][184][190][170][184][186][172][223][171][183][190][171][223][190][179][179][176][168][223][166][176][170][223][171][176][223][178][176][177][182][210]"
2034 PRINT"[171][176][173][223][171][183][186][223][185][170][177][188][171][182][176][177][182][177][184][223][176][185][223][171][183][186][223][172][183][182][175][216][172]"
2035 PRINT"[188][176][178][175][170][171][186][173][209][223]6[177][223][171][183][186][223][188][186][177][171][186][173][223][176][185][223][171][183][186][223][188][176][177][172][176][179][186][211]"
2036 PRINT"[183][176][168][186][169][186][173][211][223][190][173][186][223][185][176][170][173][223][189][170][171][171][176][177][172][211][223][176][177][186][223][184][173][186][186][177][211]"
2037 PRINT"[176][177][186][223][166][186][179][179][176][168][211][223][176][177][186][223][176][173][190][177][184][186][211][223][190][177][187][223][176][177][186][223][173][186][187][209]":IFLF=1THENGOTO100
2038 PRINT"+[183][186][173][186][223][182][172][223][190][223][179][182][184][183][171][223][185][179][190][172][183][182][177][184][223][177][186][190][173][223][171][183][186][223][171][176][175]"
2039 PRINT"[176][185][223][171][183][186][223][188][176][177][172][176][179][186][209]":GOTO100
2040 IFN$="[189][170][171]"THEN5010
2050 IFN$<>"[173][186][187]"ORR<>1THEN2060
2051 PRINT"=[186][177][186][190][171][183][223][171][183][186][223][173][186][187][223][189][170][171][171][176][177][223][190][173][186][223][171][183][186][223][168][176][173][187][172]"
2052 PRINT",+>+*,_-:/0-+[209]":GOTO100
2060 IFN$<>"[184][173][186]"ORR<>1THEN2070
2061 PRINT"=[186][177][186][190][171][183][223][171][183][186][223][184][173][186][186][177][223][189][170][171][171][176][177][223][182][172][223][171][183][186][223][168][176][173][187]"
2062 PRINT"><410(3:;8:[209]":GOTO100
2070 IFN$<>"[176][173][190]"ORR<>1THEN2080
2071 PRINT"=[186][177][186][190][171][183][223][171][183][186][223][176][173][190][177][184][186][223][189][170][171][171][176][177][223][190][173][186][223][171][183][186][223][168][176][173][187][172]"
2072 PRINT";0<4618[223]<01+-03[209]":GOTO100
2080 IFN$<>"[166][186][179]"ORR<>1THEN2090
2082 PRINT"=[186][177][186][190][171][183][223][171][183][186][223][166][186][179][179][176][168][223][189][170][171][171][176][177][223][190][173][186][223][171][183][186][223][168][176][173][187][172]"
2083 PRINT"+><7&01_=:>2[209]":GOTO100
2090 IF(N$<>"[188][176][178]"ANDN$<>"[171][186][173]")ORR<>6THEN2100
2091 PRINT"0[177][223][171][183][186][223][169][182][187][186][176][223][187][182][172][175][179][190][166][223][166][176][170][223][172][186][186][223][171][183][186][223][168][176][173][187][172][197]":PRINT
2092 PRINTQ$",76/[216],[223]308[211][223]:1+-&[223][205][211][204][203][198][209][201][209]":PRINT
2093 PRINT"[223][223]"Q$"([183][190][171][186][169][186][173][223][182][171][223][182][172][211][223][168][186][223][188][190][177][216][171][223][172][186][186][178][223][171][176][223][172][171][176][175]";
2094 PRINT"[182][171][209][223]+[183][186]_[188][190][173][177][190][184][186][223][182][172][223][183][176][173][173][182][189][179][186][209][223]2[176][172][171][223][176][185]"
2095 PRINT"[171][183][186][223][188][173][186][168][223][183][190][172][223][172][170][188][188][170][178][189][186][187][211][223][190][177][187][223]6[223][187][176][177][216][171]"
2096 PRINT"[180][177][176][168][223][183][176][168][223][178][170][188][183][223][179][176][177][184][186][173][223]6[223][188][190][177][223][183][176][179][187][223][176][170][171][209]"
2097 PRINT":[169][186][177][223][177][176][168][211][223][171][183][186][223][172][188][173][186][190][178][172][223][182][177][223][171][183][186][223][187][182][172][171][190][177][188][186]"
2098 PRINT"[190][173][186][223][183][182][187][186][176][170][172][209][223]6[172][223][171][183][186][173][186][223][190][177][166][223][168][190][166][223][171][176]"Q$:PRINT
2099 PRINT">[171][223][171][183][190][171][223][175][176][182][177][171][211][223][171][183][186][223][178][186][172][172][190][184][186][223][186][177][187][172][209]":GOTO100
2100 IFN$<>"[172][180][186]"ORR<>6THEN2110
2101 PRINT"6[171][223][190][175][175][186][190][173][172][223][171][176][223][183][190][169][186][223][189][186][186][177][223][171][166][175][182][177][184][223][190][171][223][171][183][186]"
2102 PRINT"[188][176][178][175][170][171][186][173][223][171][186][173][178][182][177][190][179][209]":GOTO100
2110 IFN$<>"[189][176][176]"ORR<>9THEN2120
2111 PRINT"+[183][173][176][170][184][183][223][171][183][186][223][185][173][176][172][171][166][223][168][182][177][187][176][168][223][176][185][223][171][183][186][223][177][186][190][173][186][172][171]";
2112 PRINT"[189][176][176][171][183][223][166][176][170][223][172][186][186][223][171][183][186][223][185][190][188][186][223][176][185][223][190][223][166][176][170][177][184][223][184][182][173][179][211]"
2113 PRINT"[190][175][175][190][173][186][177][171][179][166][223][168][186][179][179][223][190][177][187][223][170][177][183][190][173][178][186][187][223][189][166][223][168][183][190][171][186][169][186][173]";
2114 PRINT"[183][190][172][223][172][171][173][170][188][180][223][171][183][186][223][172][183][182][175][216][172][223][188][173][186][168][209]":GOTO100
2120 IFN$<>"[170][177][182]"ORR<>13OROB(3)<>0THEN2130
2121 PRINT"&[176][170][223][185][182][177][187][223][172][176][178][186][171][183][182][177][184][223][182][177][223][171][183][186][223][175][176][188][180][186][171][209]":OB(3)=R:GOTO100
2130 IFN$<>"[170][177][182]"ORR<>20OROB(4)<>0THEN2140
2131 PRINT"&[176][170][223][185][182][177][187][223][172][176][178][186][171][183][182][177][184][223][182][177][223][171][183][186][223][175][176][188][180][186][171][209]":OB(4)=R:GOTO100
2140 IFN$<>"[175][176][170]"THEN2150
2141 IFOB(1)<>RANDOB(1)>-1THEN3990
2142 IFZF<2THENPRINT"6[171][216][172][223][183][186][190][169][166][209]":GOTO100
2143 IFPI>0THENPRINT"+[183][186][173][186][216][172][223][172][176][178][186][171][183][182][177][184][223][182][177][172][182][187][186][209]":GOTO100
2150 IFN$<>"[172][180][186]"ORR<>13THEN2160
2151 PRINT"+[183][186][223][172][180][186][179][186][171][176][177][223][182][172][223][172][175][173][190][168][179][186][187][223][190][188][173][176][172][172][223][171][183][186]"
2152 PRINT"[182][177][172][171][173][170][178][186][177][171][223][188][176][177][172][176][179][186][209]":GOTO100
2160 IF(N$<>"[188][176][177]"ANDN$<>"[184][190][170]"ANDN$<>"[182][177][172]")ORR<>13THEN2170
2161 PRINT">[179][171][183][176][170][184][183][223][171][183][186][223][172][180][186][179][186][171][176][177][223][182][172][223][188][176][169][186][173][182][177][184][223][178][176][172][171]"
2162 PRINT"[176][185][223][171][183][186][223][188][176][177][172][176][179][186][211][223][166][176][170][223][188][190][177][223][172][186][186][223][190][223][185][179][190][172][183][182][177][184]"
2163 PRINT"[172][182][184][177][223][190][171][223][176][177][186][223][186][177][187][209][223]=[186][179][176][168][223][171][183][186][223][172][182][184][177][223][182][172][223][190]"
2164 PRINT"[166][186][179][179][176][168][223][189][170][171][171][176][177][209]":GOTO100
2170 IFN$<>"[166][186][179]"ORR<>13THEN2180
2171 PRINT"=[186][177][186][190][171][183][223][171][183][186][223][166][186][179][179][176][168][223][189][170][171][171][176][177][223][190][173][186][223][171][183][186][223][168][176][173][187][172]"
2172 PRINT"/*-696<>+601_<01+-03[209]":GOTO100
2180 IFN$<>"[172][182][184]"ORR<>13THEN2190
2181 IFPF=3THEN2185
2182 PRINT"+[183][186][223][185][179][190][172][183][182][177][184][223][172][182][184][177][223][173][186][190][187][172][197]"
2183 PRINT:PRINT">6-[223]3:):3_+0'6<[222]"
2184 PRINT"/-:,,_/*-696<>+601_<01+-03":PRINT"+7-::_+62:,[222]":GOTO100
2185 PRINT"+[183][186][223][172][182][184][177][223][182][172][223][177][176][223][179][176][177][184][186][173][223][185][179][190][172][183][182][177][184][209]":GOTO100
2190 IF(N$<>"[177][190][169]"ANDN$<>"[188][176][177]")ORR<>19THEN2200
2191 PRINT"<[176][177][172][182][187][186][173][182][177][184][223][166][176][170][173][223][173][170][187][182][178][186][177][171][190][173][166][223][180][177][176][168][179][186][187][184][186]"
2192 PRINT"[176][185][223][178][186][184][190][172][183][182][175][223][177][190][169][182][184][190][171][182][176][177][211][223][166][176][170][223][172][183][176][170][179][187][177][216][171]"
2193 PRINT"[186][169][186][177][223][189][186][223][213][171][183][182][177][180][182][177][184][213][223][190][189][176][170][171][223][170][172][182][177][184][223][171][183][186][223][177][190][169][182][210]";
2194 PRINT"[184][190][171][182][176][177][190][179][223][176][169][186][173][173][182][187][186][223][188][176][177][171][173][176][179][172][209]":GOTO100
2200 IFN$<>"[189][179][190]"ORR<>20THEN2210
2201 PRINT"=[186][177][186][190][171][183][223][171][183][186][223][189][179][190][188][180][223][189][170][171][171][176][177][223][190][173][186][223][171][183][186][223][168][176][173][187][172]"
2202 PRINT":2:-8:1<&_2016+0-618_,&,+:2[209]":GOTO100
2210 IFN$<>"[168][183][182]"ORR<>20THEN2220
2211 PRINT"=[186][177][186][190][171][183]_[171][183][186][223][168][183][182][171][186][223][189][170][171][171][176][177][223][182][172][223][171][183][186][223][168][176][173][187]"
2212 PRINT"><410(3:;8:[209]":GOTO100
2220 IF(N$<>"[172][188][173]"ANDN$<>"[169][182][187]")ORR<>20ORCF<2THEN2230
2221 PRINT"+[183][186][223][169][182][187][186][176][223][172][188][173][186][186][177][223][182][172][223][189][179][190][177][180][209]":GOTO100
2230 IFN$<>"[187][182][172]"THEN2240
2231 IFOB(5)<>-1ANDOB(5)<>RTHEN3990
2232 PRINT"+[183][186][223][172][176][177][182][188][223][187][182][172][173][170][175][171][176][173][223][182][172][223][178][190][187][186][223][176][185][223][171][168][176][223][182][177][210]"
2233 PRINT"[187][186][175][186][177][187][186][177][171][179][166][223][173][176][171][190][171][190][189][179][186][223][178][186][171][190][179][223][188][166][179][182][177][187][186][173][172][211]"
2234 PRINT"[178][176][170][177][171][186][187][223][186][177][187][223][171][176][223][186][177][187][209]":GOTO100
2240 IFN$<>"[189][176][167]"THEN2250
2241 IFOB(6)<>-1ANDOB(6)<>RTHEN3990
2242 IFBF<2THENPRINT"+[183][186][173][186][223][172][186][186][178][172][223][171][176][223][189][186][223][172][176][178][186][171][183][182][177][184][223][182][177][172][182][187][186][209]":GOTO100
2243 PRINT"6[171][216][172][223][186][178][175][171][166][209]":GOTO100
2250 IF(N$<>"[172][180][186]"ANDN$<>"[188][190][175]"ANDN$<>"[170][177][182]")ORR<>19THEN2260
2251 PRINT"5[170][172][171][223][189][186][177][186][190][171][183][223][171][183][186][223][188][176][179][179][190][173][223][176][185][223][171][183][186][223][188][190][175][171][190][182][177][216][172]";
2252 PRINT"[170][177][182][185][176][173][178][223][182][172][223][171][183][186][223][178][176][177][176][184][173][190][178][223]5+4[209]":GOTO100
2260 IFN$<>"[172][180][186]"ORR<>20THEN2270
2261 PRINT"+[183][186][223][172][180][170][179][179][223][182][172][223][188][173][190][188][180][186][187][223][168][183][186][173][186][223][182][171][223][185][186][179][179]"
2262 PRINT"[190][184][190][182][177][172][171][223][171][183][186][223][175][190][177][186][179][209]":GOTO100
2270 IFN$<>"[172][175][190]"THEN2280
2271 IFOB(0)>-1ANDOB(0)<>RTHEN3990
2272 PRINT">[179][178][176][172][171][223][171][183][186][223][186][177][171][182][173][186][223][172][170][182][171][211][223][182][177][188][179][170][187][182][177][184][223][171][183][186]"
2273 PRINT"[185][179][186][167][182][189][179][186][223][175][176][173][171][182][176][177][172][211][223][182][172][223][178][190][187][186][223][176][185][223][183][186][190][169][182][179][166]"
2274 PRINT"[178][186][171][190][179][179][182][165][186][187][223][185][190][189][173][182][188][211][223][190][175][175][190][173][186][177][171][179][166][223][182][177][188][176][173][175][176][210]"
2275 PRINT"[173][190][171][182][177][184][223][172][176][178][186][223][172][176][173][171][223][176][185][223][182][173][176][177][223][178][186][172][183][209]":GOTO100
2280 IFN$<>"[173][190][187]"THEN2290
2281 IFOB(8)<>-1ANDOB(8)<>RTHEN3990
2282 PRINT"6[171][223][190][175][175][186][190][173][172][223][171][176][223][177][186][186][187][223][189][190][171][171][186][173][182][186][172][209]":GOTO100
2290 REM
3980 PRINT"&[176][170][223][172][186][186][223][177][176][171][183][182][177][184][223][170][177][170][172][170][190][179][209]":GOTO100
3990 PRINT"+[183][190][171][216][172][223][177][176][171][223][183][186][173][186][209]":GOTO100
4000 IFV$<>"[184][186][171]"ANDV$<>"[171][190][180]"THEN4500
4001 IFN$<>"[178][190][184]"THEN4010
4002 I=7:IFOB(7)=-1THEN4020
4003 IFOB(7)<>RTHEN3990
4004 IFIN=>MITHEN4060
4005 PRINT"([182][171][183][223][190][223][189][176][177][186][210][168][173][186][177][188][183][182][177][184][223][171][170][184][211][223][166][176][170][223][175][170][179][179][223][171][183][186]"
4006 PRINT"[178][190][184][177][186][171][223][179][176][176][172][186][223][185][173][176][178][223][171][183][186][223][178][186][171][190][179][223][189][170][179][180][183][186][190][187]"
4007 PRINT"[168][183][186][173][186][223][182][171][223][183][190][187][223][190][171][171][190][188][183][186][187][223][182][171][172][186][179][185][209]":GOTO4052
4010 FORI=0TONO-1:IFO2$(I)<>N$THENNEXT:PRINT"&[176][170][223][188][190][177][216][171][223][184][186][171][223][171][183][190][171][209]":GOTO100
4020 IFOB(I)<0ANDOB(I)>-3THENPRINT"&[176][170][216][169][186][223][190][179][173][186][190][187][166][223][184][176][171][223][182][171][209]":GOTO100
4022 IFOB(I)=-3AND(ZF<2OROB(1)>-1)THEN3990
4023 IFOB(I)=-3THEN4050
4030 IF(OB(I)AND127)<>RTHEN3990
4040 IFOB(I)>127THENPRINT"&[176][170][223][188][190][177][216][171][223][184][186][171][223][171][183][190][171][209]":GOTO100
4050 IFIN=>MITHEN4060
4051 PRINT"+[190][180][186][177][209]"
4052 IN=IN+1:IFOB(I)=-3THENPI=PI-1
4056 OB(I)=-1:GOTO100
4060 PRINT"&[176][170][216][173][186][223][188][190][173][173][166][182][177][184][223][171][176][176][223][178][170][188][183][209]":GOTO100
4500 IFV$<>"[187][173][176]"ANDV$<>"[171][183][173]"ANDV$<>"[175][170][171]"THEN4900
4501 IFN$<>"[178][190][184]"THEN4510
4502 I=7:IFOB(7)<>-1THEN4520
4504 PRINT"&[176][170][223][187][173][176][175][223][171][183][186][223][178][190][184][177][186][171][209][223]([182][171][183][223][190][223][175][176][168][186][173][185][170][179]"
4505 PRINT"[179][186][190][175][223][190][177][187][223][190][223][179][176][170][187][223][188][179][190][177][184][211][223][182][171][223][190][171][171][190][188][183][186][172]"
4506 PRINT"[182][171][172][186][179][185][223][171][176][223][171][183][186][223][177][186][190][173][186][172][171][223][178][186][171][190][179][223][189][170][179][180][183][186][190][187][209]":OB(7)=R:IN=IN-1:GOTO100
4510 FORI=0TONO-1:IFO2$(I)<>N$THENNEXT:PRINT"&[176][170][223][187][176][177][216][171][223][183][190][169][186][223][182][171][209]":GOTO100
4520 IFOB(I)>-1THENPRINT"&[176][170][223][187][176][177][216][171][223][183][190][169][186][223][182][171][209]":GOTO100
4525 IFOB(I)=-2THENPRINT"&[176][170][216][179][179][223][183][190][169][186][223][171][176][223][173][186][178][176][169][186][223][182][171][223][185][182][173][172][171][209]":GOTO100
4530 OB(I)=R:IN=IN-1:PRINT";[173][176][175][175][186][187][209]":GOTO100
4900 IFV$<>"[182][177][169]"ANDV$<>"[182]"THEN5000
4910 PRINT"&[176][170][223][190][173][186][223][188][190][173][173][166][182][177][184][197]"
4920 IFIN=0ANDOB(0)>-1THENPRINT"[223][223][177][176][171][183][182][177][184]":GOTO100
4930 FORI=0TONO-1:IFOB(I)>-1THEN4980
4935 IFOB(I)=-3THEN4980
4940 PRINT"[223][223]";OB$(I);:IFOB(I)=-2THENPRINT"[223][215][189][186][182][177][184][223][168][176][173][177][214]";
4950 PRINT
4960 IFI<>1ORZF<2THEN4980
4961 IFPI=0THEN4980
4962 PRINT"[223][223][223][223]+[183][186][223][175][176][170][188][183][223][188][176][177][171][190][182][177][172][197]"
4963 FORJ=0TONO-1:IFOB(J)=-3THENPRINT"[223][223][223][223][223][223]";OB$(J)
4964 NEXT
4980 NEXT:GOTO100
5000 IFV$<>"[175][170][172]"ANDV$<>"[175][173][186]"THEN5500
5010 IFN$="[189][170][171]"THENPRINT"/[179][186][190][172][186][223][172][175][186][188][182][185][166][223][190][223][188][176][179][176][173][209]":GOTO100
5020 IFN$<>"[189][179][170]"THEN5050
5021 IFR<>1THEN3990
5022 IFLF=1THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
5025 LF=1:PRINT">[223][175][173][186][173][186][188][176][173][187][186][187][223][169][176][182][188][186][223][189][176][176][178][172][223][187][176][168][177][223][185][173][176][178][223][190][177]"
5026 PRINT"[176][169][186][173][183][186][190][187][223][172][175][186][190][180][186][173][197]":PRINT
5027 PRINTQ$"<[176][177][184][173][190][171][170][179][190][171][182][176][177][172][211][223][179][182][186][170][171][186][177][190][177][171][222][223]&[176][170][223][172][186][186][178]"
5028 PRINT"[171][176][223][183][190][169][186][223][188][176][178][186][223][171][183][173][176][170][184][183][223][171][183][186][223][188][176][179][187][223][172][179][186][186][175]"
5029 PRINT"[168][182][171][183][223][166][176][170][173][223][172][190][177][182][171][166][223][182][177][171][190][188][171][209][223]6[223][187][176][177][216][171][223][177][186][186][187]"
5030 PRINT"[171][176][223][171][186][179][179][223][166][176][170][223][171][183][190][171][223][177][176][171][223][186][169][186][173][166][176][177][186][223][187][176][186][172][209]"
5031 PRINT"6[171][216][172][223][190][223][173][176][170][184][183][223][186][167][175][186][173][182][186][177][188][186][211][223][189][170][171][223][182][171][216][172]"
5032 PRINT"[189][186][171][171][186][173][223][171][183][190][177][223][172][175][186][177][187][182][177][184][223][171][186][177][223][166][186][190][173][172][223][172][171][190][173][182][177][184]"
5033 PRINT"[190][171][223][189][179][190][177][180][223][168][190][179][179][172][211][223][186][183][192]":PRINT
5034 PRINTQ$"1[176][168][223][171][183][190][171][223][166][176][170][216][173][186][223][190][179][178][176][172][171][223][190][171][223][166][176][170][173][223][187][186][172][171][182][177][190][210]";
5035 PRINT"[171][182][176][177][211][223][182][171][216][172][223][172][190][185][186][223][178][186][223][185][176][173][223][178][186][223][171][176][223][171][186][179][179][223][166][176][170]"
5036 PRINT"[171][183][186][223][176][189][181][186][188][171][223][176][185][223][166][176][170][173][223][178][182][172][172][182][176][177][209][223],[176][173][173][166][223][171][176]"
5037 PRINT"[180][186][186][175][223][166][176][170][223][182][177][223][171][183][186][223][187][190][173][180][223][172][176][223][179][176][177][184][211][223][189][170][171][223][182][171][216][172]"
5038 PRINT"[190][177][223][186][167][171][173][186][178][186][179][166][223][172][186][177][172][182][171][182][169][186][223][178][190][171][171][186][173][209]":PRINT
5039 PRINTQ$"+[183][186][223]2[186][184][190][172][183][182][175][223]>[173][178][172][171][173][176][177][184][223][183][190][172][223][173][170][177][223][182][177][171][176]"
5040 PRINT"[172][176][178][186][223][180][182][177][187][223][176][185][223][175][173][176][189][179][186][178][223][186][177][223][173][176][170][171][186][223][171][176][223][171][183][186]"
5041 PRINT"[188][176][179][176][177][166][223][176][177][223]6)[223]=[190][173][177][190][173][187][209][223]([186][216][169][186][223][189][186][186][177][223][176][170][171][223][176][185]"
5042 PRINT"[188][176][177][171][190][188][171][223][168][182][171][183][223][171][183][186][178][223][185][176][173][223][190][223][187][186][188][190][187][186][209][223]([186][223][168][190][177][171]"
5043 PRINT"[166][176][170][223][171][176][223][185][182][177][187][223][176][170][171][223][168][183][190][171][223][183][190][175][175][186][177][186][187][211][223][190][177][187][223][173][186][210]"
5044 PRINT"[175][176][173][171][223][189][190][188][180][223][189][166][223][171][190][188][183][166][176][177][223][189][186][190][178][209][223]8[176][176][187][223][179][170][188][180][222]"Q$
5045 GOTO100
5050 IFN$<>"[173][186][187]"ORR<>1THEN5060
5051 IFLF<>0ANDRF=0THEN5054
5052 PRINT"+[183][186][223][172][183][182][175][216][172][223][188][176][178][175][170][171][186][173][223][190][177][177][176][170][177][188][186][172][197]"
5053 PRINTQ$">[179][179][223][172][166][172][171][186][178][172][223][190][173][186][223][185][170][177][188][171][182][176][177][190][179][209]"Q$:GOTO100
5054 PRINT"+[183][186][223][183][190][170][177][171][182][177][184][179][166][223][183][170][178][190][177][223][169][176][182][188][186][223][176][185][223][171][183][186][223][172][183][182][175][216][172]";
5055 PRINT"[188][176][178][175][170][171][186][173][223][189][176][176][178][172][223][187][176][168][177][223][185][173][176][178][223][171][183][186][223][176][169][186][173][183][186][190][187]"
5056 PRINT"[172][175][186][190][180][186][173][172][197]":PRINT:PRINTQ$">[170][171][176][178][190][171][186][187][223][187][182][172][171][173][186][172][172][223][172][182][184][177][190][179][223][189][186][182][177][184][223][173][186][210]"
5057 PRINT"[188][186][182][169][186][187][223][185][173][176][178][223][171][183][186][223]2[186][184][190][172][183][182][175][223]>[173][178][172][171][173][176][177][184][209][223]6[172]"
5058 PRINT"[190][223][173][186][177][187][186][165][169][176][170][172][223][187][186][172][182][173][186][187][192][223]6[178][178][186][187][182][190][171][186][223][190][188][180][177][176][168][210]"
5059 PRINT"[179][186][187][184][186][178][186][177][171][223][173][186][174][170][186][172][171][186][187][222]"Q$:AF=2:GOTO100
5060 IFN$<>"[184][173][186]"ORR<>1THEN5080
5061 IFAF=0THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
5062 AF=0:PRINT"+[183][186][223][172][183][182][175][216][172][223][188][176][178][175][170][171][186][173][223][190][177][177][176][170][177][188][186][172][197]"
5063 RF=1:PRINTQ$"-[186][177][187][186][165][169][176][170][172][223][175][173][176][188][186][187][170][173][186][172][223][183][190][169][186][223][189][186][186][177][223][182][177][182][210]"
5064 PRINT"[171][182][190][171][186][187][209]"Q$:PRINT
5065 PRINT">[172][223][166][176][170][223][168][190][171][188][183][223][171][183][173][176][170][184][183][223][171][183][186][223][185][176][173][168][190][173][187][223][169][182][186][168][210]"
5066 PRINT"[172][188][173][186][186][177][211][223][171][183][186][223][172][171][190][173][172][223][172][186][186][178][223][171][176][223][188][183][190][177][184][186][223][175][176][172][182][210]"
5067 PRINT"[171][182][176][177][223][190][173][176][170][177][187][223][166][176][170][209][223]>[223][187][182][172][171][190][177][171][223][175][176][182][177][171][223][176][185]"
5068 PRINT"[179][182][184][183][171][223][172][168][186][179][179][172][223][170][177][171][182][179][223][182][171][223][189][186][188][176][178][186][172][223][190][223][172][171][190][173][210]"
5069 PRINT"[172][183][182][175][209][223]>[172][223][182][171][223][188][176][178][186][172][223][188][179][176][172][186][173][211][223][166][176][170][223][173][186][188][176][184][177][182][165][186]"
5070 PRINT"[171][183][186][223][178][182][177][187][189][176][184][184][179][182][177][184][223][189][170][179][180][223][176][185][223][190][177][223][182][178][178][186][177][172][186]"
5071 PRINT"[178][186][184][190][172][183][182][175][211][223][190][223][172][171][190][173][172][183][182][175][223][190][172][223][179][190][173][184][186][223][190][172][223][190]"
5072 PRINT"[172][178][190][179][179][223][175][179][190][177][186][171][209][223]0[177][223][182][171][172][223][172][182][187][186][211][223][182][177][223][179][190][173][184][186][223][173][186][187]"
5073 PRINT"[179][186][171][171][186][173][172][211][223][190][173][186][223][171][183][186][223][168][176][173][187][172][223]8<<[223]>-2,+-018[209]"
5074 PRINT"+[183][186][223]8[190][177][166][178][186][187][186][223][185][182][177][190][179][179][166][223][188][176][178][186][172][223][171][176][223][190][223][183][190][179][171]"
5075 PRINT"[187][182][173][186][188][171][179][166][223][189][186][177][186][190][171][183][223][171][183][186][223]>[173][178][172][171][173][176][177][184][216][172][223][189][186][179][179][166][209]":GOTO100
5080 IFN$<>"[176][173][190]"THEN5100
5081 IFR<>1THEN3990
5082 IFDF=1THEN5094
5083 IFRF=1THEN5087
5084 PRINT"+[183][186][223][187][176][188][180][182][177][184][223][178][190][188][183][182][177][186][173][166][223][168][183][182][177][186][172][223][170][172][186][179][186][172][172][179][166][211]"
5085 PRINT"[172][182][177][188][186][223][171][183][186][173][186][223][182][172][223][177][176][171][183][182][177][184][223][182][177][223][171][183][186][223][169][182][188][182][177][182][171][166]"
5086 PRINT"[168][182][171][183][223][168][183][182][188][183][223][182][171][223][188][190][177][223][187][176][188][180][209]":GOTO100
5087 DF=1:PRINT"+[183][186][223]8[190][177][166][178][186][187][186][223][173][182][172][186][172][223][170][177][171][182][179][223][182][171][223][182][172][223][171][176][170][188][183][182][177][184]"
5088 PRINT"[171][183][186][223]>[173][178][172][171][173][176][177][184][209][223]>[223][179][176][170][187][223][184][173][182][177][187][182][177][184][223][177][176][182][172][186]"
5089 PRINT"[182][177][185][176][173][178][172][223][166][176][170][223][171][183][190][171][223][171][183][186][223][190][182][173][179][176][188][180][172][223][190][173][186][223][177][176][168]"
5090 PRINT"[188][176][177][177][186][188][171][186][187][223][190][177][187][223][171][183][186][223][172][183][182][175][172][223][190][173][186][223][187][176][188][180][186][187][209]":GOTO100
5094 DF=0:PRINT"+[183][186][223]8[190][177][166][178][186][187][186][223][190][177][187][223]>[173][178][172][171][173][176][177][184][223][187][182][172][188][176][177][177][186][188][171]"
5095 PRINT"[190][182][173][179][176][188][180][172][223][190][177][187][223][170][177][187][176][188][180][209][223]+[183][186][223]8[190][177][166][178][186][187][186][223][185][179][176][190][171][172]";
5096 PRINT"[187][176][168][177][168][190][173][187][223][170][177][171][182][179][223][190][189][176][170][171][223][185][182][185][171][166][223][178][186][171][186][173][172][223][176][185]"
5097 PRINT"[172][175][190][188][186][223][172][186][175][190][173][190][171][186][223][182][171][223][185][173][176][178][223][171][183][186][223]>[173][178][172][171][173][176][177][184][209]":GOTO100
5100 IFN$<>"[166][186][179]"ORR<>1THEN5200
5102 PRINT"+[183][186][173][186][223][182][172][223][190][223][188][173][190][188][180][179][186][223][185][173][176][178][223][171][183][186][223][176][169][186][173][183][186][190][187]"
5103 PRINT"[172][175][186][190][180][186][173][211][223][171][183][186][177][223][166][176][170][223][183][186][190][173][223][171][183][186][223][169][176][182][188][186][223][176][185][223][171][183][186]"
5104 PRINT"[188][176][178][178][170][177][182][188][190][171][182][176][177][172][223][176][185][185][182][188][186][173][223][189][190][188][180][223][190][171][223][189][190][172][186]"
5105 PRINT"[183][186][190][187][174][170][190][173][171][186][173][172][211][223][171][173][190][177][172][178][182][171][171][186][187][223][171][176][223][166][176][170][223][169][182][190]"
5106 PRINT"[171][190][188][183][166][176][177][223][189][186][190][178][209][223]&[176][170][223][171][186][179][179][223][183][186][173][223][168][183][190][171][223][183][190][172]"
5107 PRINT"[183][190][175][175][186][177][186][187][209][223],[183][186][223][173][186][175][179][182][186][172][197]":PRINT
5110 ONSF+1GOTO5120,5130,5140,5150:GOTO100
5120 PRINTQ$"/[179][186][190][172][186][223][184][186][171][223][189][190][188][180][223][182][177][223][188][176][177][171][190][188][171][223][190][185][171][186][173]"
5121 PRINT"[166][176][170][216][169][186][223][178][190][187][186][223][172][176][178][186][223][175][173][176][184][173][186][172][172][223][182][177][223][166][176][170][173]":PRINT"[178][182][172][172][182][176][177][209]"Q$:GOTO100
5130 PRINTQ$"2[166][223]8[176][187][211][223][171][183][190][171][216][172][223][183][176][173][173][182][189][179][186][222][223]9[182][177][187][223][176][170][171][223][168][183][190][171]"
5131 PRINT"[183][190][175][175][186][177][186][187][223][171][176][223][171][183][186][223][188][173][186][168][223][190][177][187][223][173][186][175][176][173][171][223][189][190][188][180]"
5132 PRINT"[182][178][178][186][187][182][190][171][186][179][166][222]"Q$:GOTO100
5140 PRINTQ$"([183][190][171][223][190][177][223][190][172][171][176][177][182][172][183][182][177][184][223][172][171][176][173][166][222]_&[176][170][223][178][170][172][171]"
5141 PRINT"[172][190][169][186][223][171][183][186][223][172][183][182][175][216][172][223][175][190][172][172][186][177][184][186][173][172][223][185][173][176][178][223][171][183][182][172]"
5142 PRINT"[178][190][179][186][169][176][179][186][177][171][223][185][176][173][188][186][211][223][189][186][185][176][173][186][223][182][171][223][188][190][177][223][186][172][188][190][175][186]"
5143 PRINT"[190][184][190][182][177][209][223]6[171][223][168][182][179][179][223][189][186][223][171][168][176][223][166][186][190][173][172][223][189][186][185][176][173][186][223][168][186]"
5144 PRINT"[188][190][177][223][183][190][169][186][223][190][177][176][171][183][186][173][223][172][183][182][175][223][182][177][223][166][176][170][173][223][169][182][188][182][177][182][171][166][222]"
5145 PRINT"-[186][175][176][173][171][223][189][190][188][180][223][168][183][186][177][223][166][176][170][216][173][186][223][187][176][177][186][222]"Q$:GOTO100
5150 PRINTQ$"<[176][177][184][173][190][171][170][179][190][171][182][176][177][172][222][223]&[176][170][216][169][186][223][172][170][188][188][186][186][187][186][187][223][190][187][178][182][210]";
5151 PRINT"[173][190][189][179][166][222][223]+[183][186][223][177][186][168][223][188][173][186][168][223][168][182][179][179][223][190][173][173][182][169][186][223][182][177][223][171][168][176]"
5152 PRINT"[166][186][190][173][172][209][223]<[176][178][186][223][176][177][223][183][176][178][186][222]"Q$:PRINT
5156 PRINT",[178][182][179][182][177][184][211][223][166][176][170][223][173][186][171][170][173][177][223][171][176][223][171][183][186][223][188][176][179][187][223][172][179][186][186][175]"
5157 PRINT"[189][176][176][171][183][223][190][177][187][223][172][182][177][180][223][182][177][171][176][223][182][171][172][223][187][186][175][171][183][172][209][223]&[176][170][173]"
5158 PRINT"[185][186][190][173][223][176][185][223][171][183][186][223][188][176][178][182][177][184][223][177][182][184][183][171][178][190][173][186][172][223][182][172][223][176][185][185][172][186][171]"
5160 PRINT"[189][166][223][171][183][176][170][184][183][171][172][223][176][185][223][171][183][186][223][183][186][173][176][216][172][223][168][186][179][188][176][178][186][223][171][183][190][171]"
5161 PRINT"[190][168][190][182][171][172][223][166][176][170][223][168][183][186][177][223][166][176][170][223][173][186][171][170][173][177][223][183][176][178][186][222][223]=[170][171]"
5162 PRINT"[186][169][186][177][223][190][172][223][171][183][186][223][188][176][179][187][223][172][179][186][186][175][223][189][186][184][182][177][172][211][223][166][176][170][223][172][186][186]"
5163 PRINT"[171][183][186][223][182][178][190][184][186][223][182][177][223][171][183][186][223][189][190][188][180][223][176][185][223][166][176][170][173][223][178][182][177][187][223][176][185][223][190]"
5165 PRINT"[178][190][179][186][169][176][179][186][177][171][223][186][169][182][179][223][185][176][173][188][186][211][223][173][186][190][187][166][223][171][176][223][172][175][173][182][177][184]"
5166 PRINT"[176][177][223][166][176][170][223][190][172][223][172][176][176][177][223][190][172][223][166][176][170][223][172][170][173][173][186][177][187][186][173][223][171][176][223][171][183][186]"
5167 PRINT"[176][177][188][176][178][182][177][184][223][172][179][186][186][175][209][209][209][209]":PRINT:PRINT"+7:_:1;":GOTO7020
5200 IFN$<>"[166][186][179]"ORR<>13THEN5210
5201 IFPF=3THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
5203 PF=PF+1:IFPF<3THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
5204 PRINT"&[176][170][223][183][186][190][173][223][190][223][183][182][172][172][182][177][184][223][172][176][170][177][187][223][185][173][176][178][223][171][183][186]"
5205 PRINT"[169][186][177][171][182][179][190][171][182][176][177][223][172][166][172][171][186][178][209][223]>[185][171][186][173][223][190][223][185][186][168][223][178][176][178][186][177][171][172]"
5206 PRINT"[190][223][172][182][184][177][223][176][177][223][171][183][186][223][188][176][177][171][173][176][179][223][175][190][177][186][179][223][182][177][187][182][188][190][171][186][172]"
5207 PRINT"[171][183][190][171][223][171][183][186][223][190][182][173][223][182][172][223][175][170][173][186][223][186][177][176][170][184][183][223][171][176][223][189][173][186][190][171][183][186][209]":GOTO100
5210 IFN$<>"[189][179][190]"ORR<>20ORCF<2THEN5240
5211 IFEF=1THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
5213 PRINT"+[183][186][173][186][223][182][172][223][190][223][173][170][178][189][179][186][223][185][173][176][178][223][190][223][172][175][186][190][180][186][173][223][172][186][171]"
5214 PRINT"[182][177][171][176][223][171][183][186][223][172][188][182][186][177][188][186][223][176][185][185][182][188][186][173][216][172][223][188][176][177][172][176][179][186][211]":PRINT"[171][183][186][177][223][190][223][169][176][182][188][186][223][172][175][186][190][180][172][197]":PRINT
5215 PRINTQ$"+[183][182][172][223][182][172][223][171][183][186][223]>[173][178][172][171][173][176][177][184][216][172][223][188][176][178][175][170][171][186][173][182][165][186][187]"
5216 PRINT"[186][178][186][173][184][186][177][188][166][223][172][166][172][171][186][178][209][223],[182][177][188][186][223][171][183][186][223][188][173][186][168][223][176][185][223][171][183][186]"
5217 PRINT">[173][178][172][171][173][176][177][184][223][182][172][223][177][176][168][223][187][186][190][187][223][190][177][187][223][190][179][179][223][176][185][223][171][183][186]"
5218 PRINT"[175][190][172][172][186][177][184][186][173][172][223][173][186][178][190][182][177][223][182][177][223][188][176][179][187][223][172][179][186][186][175][211][223][182][171][223][182][172]"
5219 PRINT"[190][172][172][170][178][186][187][223][171][183][190][171][223][166][176][170][223][190][173][186][223][190][177][223][176][170][171][172][182][187][186][173][223][173][186][172][210]"
5220 PRINT"[175][176][177][187][182][177][184][223][171][176][223][171][183][186][223][187][182][172][171][173][186][172][172][223][172][182][184][177][190][179][209][223]7[186][173][186]"
5221 PRINT"[190][173][186][223][171][183][186][223][187][186][171][190][182][179][172][223][176][185][223][171][183][186][223][188][170][173][173][186][177][171][223][186][178][186][173][184][186][177][188][166]";
5222 PRINT"[172][182][171][170][190][171][182][176][177][197]":PRINT:PRINTQ$">[177][223][182][177][169][182][172][182][189][179][186][211][223][178][190][179][186][169][176][179][186][177][171][223][185][176][173][188][186][223][183][190][172][223][186][177][210]"
5223 PRINT"[171][186][173][186][187][223][171][183][186][223]>[173][178][172][171][173][176][177][184][223][187][170][173][182][177][184][223][190][223][173][176][170][171][182][177][186]"
5224 PRINT":)>[209][223]>[179][179][223][188][173][186][168][223][178][186][178][189][186][173][172][223][190][173][186][223][187][186][188][186][190][172][186][187][209]"
5225 PRINT"0[169][186][173][223][171][183][186][223][188][176][170][173][172][186][223][176][185][223][171][186][177][223][166][186][190][173][172][211][223]6[223][183][190][169][186]"
5226 PRINT"[178][190][177][186][170][169][186][173][186][187][223][171][183][186][223][182][177][169][190][187][182][177][184][223][186][177][171][182][171][166][223][182][177][171][176][223][171][183][186]"
5227 PRINT"[190][170][167][182][179][182][190][173][166][223][172][171][176][173][190][184][186][223][190][173][186][190][211][223][189][186][183][182][177][187][223][171][183][186][223][178][190][182][177]"
5228 PRINT"[172][171][176][173][190][184][186][223][173][176][176][178][211][223][168][183][186][173][186][223][182][171][223][182][172][223][177][176][168][223][182][178][175][173][182][210]"
5229 PRINT"[172][176][177][186][187][211][223][171][183][176][170][184][183][223][175][186][173][183][190][175][172][223][177][176][171][223][185][176][173][223][179][176][177][184][209][223]6[185]"
5230 PRINT"[166][176][170][223][168][182][172][183][223][178][186][223][171][176][223][170][177][179][176][188][180][223][171][183][186][223][187][176][176][173][223][171][176][223][171][183][182][172]"
5231 PRINT"[173][176][176][178][211][223][175][179][186][190][172][186][223][190][188][180][177][176][168][179][186][187][184][186][223][182][178][178][186][187][182][190][171][186][179][166][222]"Q$:AF=2:SF=2:GOTO100
5240 IFN$<>"[168][183][182]"ORR<>20ORCF<2THEN5250
5241 IFAF=0THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
5242 AF=0:PRINT"+[183][186][223][186][178][186][173][184][186][177][188][166][223][188][176][178][175][170][171][186][173][223][190][177][177][176][170][177][188][186][172][197]"
5243 EF=1:PRINTQ$;";[176][176][173][223][171][176][223][171][183][186][223][190][170][167][182][179][182][190][173][166][223][172][171][176][173][190][184][186][223][173][176][176][178]"
5244 PRINT"[182][172][223][177][176][168][223][170][177][179][176][188][180][186][187][209]";Q$:GOTO100
5250 REM
5490 PRINT"&[176][170][223][188][190][177][216][171][223][175][170][172][183][223][171][183][190][171][209]":GOTO100
5500 IFV$<>"[176][175][186]"THEN6000
5510 IFN$<>"[187][176][176]"OR(R<>4ANDR<>5)THEN5520
5512 IFR=4ORR=5THENPRINT"/[179][186][190][172][186][223][172][175][186][188][182][185][166][223][168][183][182][188][183][223][187][176][176][173][209]":GOTO100
5519 PRINT"+[183][186][173][186][216][172][223][177][176][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
5520 IFN$<>"[182][177][177]"THEN5600
5521 IFR<>4ANDR<>5THENPRINT"+[183][186][173][186][216][172][223][177][176][223][182][177][177][186][173][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
5522 IFID(R-4)=0THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][176][175][186][177][209]":GOTO100
5523 IFOD(R-4)=0THENPRINT"+[183][186][223][176][170][171][186][173][223][187][176][176][173][223][178][170][172][171][223][189][186][223][188][179][176][172][186][187][223][185][182][173][172][171][209]":GOTO100
5524 ID(R-4)=0:PRINT"+[183][186][223][182][177][177][186][173][223][187][176][176][173][223][182][172][223][177][176][168][223][176][175][186][177][209]"
5526 IFR=4THENMA(4,5)=3:GOTO100
5527 MA(5,4)=6:GOTO100
5600 IFN$<>"[176][170][171]"THEN5700
5601 IFR<>4ANDR<>5THENPRINT"+[183][186][173][186][216][172][223][177][176][223][176][170][171][186][173][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
5602 IFOD(R-4)=0THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][176][175][186][177][209]":GOTO100
5603 IFID(R-4)=0THENPRINT"+[183][186][223][182][177][177][186][173][223][187][176][176][173][223][178][170][172][171][223][189][186][223][188][179][176][172][186][187][223][185][182][173][172][171][209]":GOTO100
5604 OD(R-4)=0:PRINT"+[183][186][223][176][170][171][186][173][223][187][176][176][173][223][182][172][223][177][176][168][223][176][175][186][177][209]"
5606 IFR=4ANDDF=1THENMA(4,4)=5
5607 IFR=5THENMA(5,5)=4
5608 IFR=5OR(DF=1ANDOB(0)=-2)THENGOTO100
5609 PRINT:IFDF<>0THEN5650
5610 IFMF=1THEN5670
5612 IFOB(0)<>-2THEN5625
5613 PRINT">[223][169][182][176][179][186][177][171][223][184][170][172][171][223][176][185][223][190][182][173][223][175][170][179][179][172][223][166][176][170][223][185][173][176][178]"
5614 PRINT"[171][183][186][223][190][182][173][179][176][188][180][223][182][177][171][176][223][171][183][186][223][169][176][182][187][223][176][185][223][172][175][190][188][186][209][223]+[183][186]"
5615 PRINT",[171][190][173][185][179][166][186][173][223]8[190][177][166][178][186][187][186][223][173][186][188][186][187][186][172][223][173][190][175][182][187][179][166]"
5616 PRINT"[182][177][171][176][223][171][183][186][223][187][182][172][171][190][177][188][186][211][223][187][168][182][177][187][179][182][177][184][223][170][177][171][182][179][223][182][171]"
5617 PRINT"[182][172][223][177][176][223][178][176][173][186][223][171][183][190][177][223][190][223][175][176][182][177][171][223][176][185][223][179][182][184][183][171][223][190][178][176][177][184]"
5618 PRINT"[171][183][186][223][172][171][190][173][172][209]":PRINT:PRINT"&[176][170][173][223][172][175][190][188][186][172][170][182][171][223][183][190][172][223][172][170][185][185][182][188][182][186][177][171][223][176][167][166][184][186][177]"
5619 PRINT"[171][176][223][172][170][172][171][190][182][177][223][166][176][170][223][185][176][173][223][200][205][223][183][176][170][173][172][223][190][187][173][182][185][171][223][182][177]"
5620 PRINT"[172][175][190][188][186][211][223][188][176][179][187][223][188][176][178][185][176][173][171][223][188][176][177][172][182][187][186][173][182][177][184][223][171][183][190][171]"
5621 PRINT"[166][176][170][173][223][188][183][190][177][188][186][172][223][176][185][223][173][186][172][188][170][186][223][190][173][186][223][186][185][185][186][188][171][182][169][186][179][166]":PRINT"[177][182][179][209]":IFRF=0THEN7020
5622 IFFR=4THEN5660
5623 PRINT:PRINT"/[186][173][183][190][175][172][223][166][176][170][223][172][183][176][170][179][187][223][183][190][169][186][223][185][182][177][182][172][183][186][187][223][187][176][188][180][182][177][184]";
5624 PRINT"[168][182][171][183][223][171][183][186][223]>[173][178][172][171][173][176][177][184][209][209][209][209]":GOTO7020
5625 PRINT">[223][169][182][176][179][186][177][171][223][184][170][172][171][223][176][185][223][190][182][173][223][175][170][179][179][172][223][166][176][170][223][185][173][176][178]"
5626 PRINT"[171][183][186][223][190][182][173][179][176][188][180][223][182][177][171][176][223][171][183][186][223][169][176][182][187][223][176][185][223][172][175][190][188][186][209]"
5627 PRINT"&[176][170][223][190][173][186][223][189][173][182][186][185][179][166][223][190][168][190][173][186][223][176][185][223][171][183][186][223],[171][190][173][185][179][166][186][173]"
5628 PRINT"8[190][177][166][178][186][187][186][223][173][186][188][186][187][182][177][184][223][182][177][171][176][223][171][183][186][223][187][182][172][171][190][177][188][186][211]"
5629 PRINT"[171][183][186][177][223][166][176][170][223][179][176][172][186][223][188][176][177][172][188][182][176][170][172][177][186][172][172][209][209][209][185][176][173][186][169][186][173][209]":IFRF=0THEN7020
5630 IFFR=4THEN5660
5631 GOTO5623
5650 IFPF=3THENRETURN
5651 PRINT";[182][178][223][179][182][184][183][171][223][185][179][176][176][187][172][223][182][177][223][185][173][176][178][223][171][183][186][223][190][182][173][179][176][188][180][223][176][185]"
5652 PRINT"[171][183][186][223]>[173][178][172][171][173][176][177][184][223][210][210][223][190][177][187][223][190][223][188][179][176][170][187][223][176][185][223][177][176][167][182][176][170][172]"
5653 PRINT"[185][170][178][186][172][223][185][179][176][176][187][172][223][182][177][223][190][172][223][168][186][179][179][209][223]&[176][170][223][189][186][184][182][177][223][171][176]"
5654 PRINT"[188][183][176][180][186][223][190][177][187][223][171][173][166][223][171][176][223][188][179][176][172][186][223][171][183][186][223][187][176][176][173][211][223][189][170][171]"
5655 PRINT"[182][171][216][172][223][171][176][176][223][179][190][171][186][209][223]&[176][170][223][190][173][186][223][179][176][172][182][177][184][223][188][176][177][210]"
5656 PRINT"[172][188][182][176][170][172][177][186][172][172][209][223]&[176][170][173][223][185][182][177][190][179][223][171][183][176][170][184][183][171][223][182][172][223][171][183][190][171]"
5657 PRINT"[166][176][170][223][172][183][176][170][179][187][223][183][190][169][186][223][168][176][173][177][223][171][183][186][223][172][175][190][188][186][172][170][182][171][209][223]6[171]"
5658 PRINT"[178][182][184][183][171][223][183][190][169][186][223][172][190][169][186][187][223][166][176][170][173][223][179][182][185][186][209][209][209][209]":GOTO7020
5660 PRINT:PRINT"9[176][173][223][168][183][190][171][223][182][171][216][172][223][168][176][173][171][183][211][223][171][183][186][223][178][190][179][186][169][176][179][186][177][171]"
5661 PRINT"[185][176][173][188][186][223][182][172][223][190][179][172][176][223][175][170][179][179][186][187][223][182][177][171][176][223][171][183][186][223][187][186][175][171][183][172][223][176][185]"
5662 PRINT"[172][175][190][188][186][223][168][182][171][183][223][166][176][170][211][223][172][176][223][171][183][190][171][223][182][171][223][188][190][177][223][177][176][223][179][176][177][184][186][173]";
5663 PRINT"[178][186][177][190][188][186][223][171][183][186][223][175][190][172][172][186][177][184][186][173][172][223][176][177][223][189][176][190][173][187][223][171][183][186][223]>[173][178][210]"
5664 PRINT"[172][171][173][176][177][184][209][223]&[176][170][223][183][190][169][186][223][172][170][188][188][186][186][187][186][187][223][182][177][223][166][176][170][173]"
5667 PRINT"[178][182][172][172][182][176][177][209][209][209][189][170][171]_[183][190][169][186][223][179][176][172][171][223][166][176][170][173][223][179][182][185][186][209]":GOTO7020
5670 PRINT">[172][223][171][183][186][223][176][170][171][186][173][223][187][176][176][173][223][176][175][186][177][172][211][223][190][182][173][223][189][170][173][172][171][172]"
5671 PRINT"[186][167][175][179][176][172][182][169][186][179][166][223][182][177][171][176][223][171][183][186][223][169][190][188][170][170][178][223][176][185][223][172][175][190][188][186][211]"
5672 PRINT"[189][170][171][223][166][176][170][223][190][173][186][223][183][186][179][187][223][185][190][172][171][223][168][182][171][183][182][177][223][171][183][186][223][190][182][173][210]"
5673 PRINT"[179][176][188][180][223][189][166][223][171][183][186][223][172][171][173][176][177][184][223][184][173][182][175][223][176][185][223][171][183][186][223][189][190][173][223][178][190][184][210]"
5674 PRINT"[177][186][171][223][190][184][190][182][177][172][171][223][171][183][186][223][178][186][171][190][179][179][182][165][186][187][223][184][179][176][169][186][223][176][185][223][166][176][170][173]";
5675 PRINT"[172][175][190][188][186][172][170][182][171][209][223]>[223][172][188][173][186][190][178][182][177][184][223][172][176][170][177][187][223][182][177][172][182][187][186]"
5676 PRINT"[166][176][170][173][223][183][186][190][187][223][171][186][179][179][172][223][166][176][170][223][171][183][190][171][223][171][183][186][223][178][190][179][186][169][176][179][186][177][171]"
5677 PRINT"[185][176][173][188][186][223][183][190][172][223][189][186][186][177][223][166][190][177][180][186][187][223][189][190][188][180][223][182][177][171][176][223][171][183][186]"
5678 PRINT"[169][190][188][170][170][178][223][176][185][223][172][175][190][188][186][223][185][173][176][178][223][168][183][182][188][183][223][182][171][223][188][190][178][186][211][223][190][177][187]"
5679 PRINT"[188][190][177][223][177][176][223][179][176][177][184][186][173][223][178][186][177][190][188][186][223][171][183][186][223][188][173][186][168][223][178][186][178][189][186][173][172]"
5680 PRINT"[176][185][223][171][183][186][223]>[173][178][172][171][173][176][177][184][209][223]&[176][170][223][173][186][181][176][182][188][186][223][182][177][168][190][173][187][179][166][222]"
5681 PRINT"&[176][170][223][183][190][169][186][223][190][188][188][176][178][175][179][182][172][183][186][187][223][166][176][170][173][223][190][172][172][182][184][177][186][187]"
5682 PRINT"[178][182][172][172][182][176][177][223][190][177][187][223][177][176][168][223][183][190][169][186][223][176][177][179][166][223][171][176][223][173][186][175][176][173][171]"
5683 PRINT"[189][190][188][180][223][171][176][223][183][186][190][187][174][170][190][173][171][186][173][172][222]":FR=0:SF=3:GOTO100
5700 IFN$<>"[175][176][170]"THEN5800
5705 IFOB(1)<>-1THENPRINT"&[176][170][223][187][176][177][216][171][223][183][190][169][186][223][171][183][186][223][175][176][170][188][183][209]":GOTO100
5710 IFZF=0THENPRINT"&[176][170][223][188][190][177][216][171][209][223]+[183][186][223][165][182][175][175][186][173][216][172][223][172][171][170][188][180][209]":GOTO100
5800 IFN$<>"[175][190][177]"ORR<>20THEN5820
5801 IFCF=0THENPRINT"&[176][170][223][188][190][177][216][171][223][176][175][186][177][223][171][183][190][171][209][223]6[171][216][172][223][179][176][188][180][186][187][209]":GOTO100
5802 IFCF>1THEN5810
5803 PRINT"&[176][170][223][188][190][177][216][171][209][223]+[183][186][223][175][190][177][186][179][216][172][223][170][177][179][176][188][180][186][187][211][223][189][170][171]"
5804 PRINT"[182][171][216][172][223][181][190][178][178][186][187][223][172][183][170][171][211][223][175][173][176][189][190][189][179][166][223][185][173][176][178][223][171][183][186]"
5805 PRINT"[185][176][173][188][186][223][176][185][223][171][183][186][223][172][188][182][186][177][188][186][223][176][185][185][182][188][186][173][216][172][223][189][176][187][166]"
5806 PRINT"[185][190][179][179][182][177][184][223][190][184][190][182][177][172][171][223][182][171][209]":GOTO100
5810 PRINT"+[183][186][223][175][190][177][186][179][223][182][172][223][190][179][173][186][190][187][166][223][176][175][186][177][209]";:GOTO100
5820 IFN$<>"[187][176][176]"ORR<>11THEN5830
5821 IFEF=0THENPRINT"&[176][170][223][188][190][177][216][171][209][223]6[171][216][172][223][179][176][188][180][186][187][209]":GOTO100
5822 PRINT"0[180][190][166][209][223]6[171][216][172][223][176][175][186][177][209]":AS=1:MA(11,1)=21:MA(21,0)=11:GOTO100
5830 IFN$<>"[189][176][167]"THEN5840
5831 IFOB(6)<>-1ANDOB(6)<>RTHEN3990
5832 IFBF=0THENPRINT"&[176][170][223][188][190][177][216][171][209][223]6[171][216][172][223][179][176][188][180][186][187][209]":GOTO100
5833 IFBF=2THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][176][175][186][177][209]":GOTO100
5834 PRINT"0[180][190][166][209][223]6[171][216][172][223][176][175][186][177][209][209][209][190][177][187][223][172][176][178][186][171][183][182][177][184][223][185][186][179][179]":PRINT"[176][170][171][209]":BF=2:OB(5)=R:GOTO100
5840 REM
5990 PRINT"&[176][170][223][188][190][177][216][171][223][176][175][186][177][223][171][183][190][171][209]":GOTO100
6000 IFV$<>"[188][179][176]"THEN6500
6010 IFN$<>"[187][176][176]"THEN6020
6012 IFR=4ORR=5THENPRINT"/[179][186][190][172][186][223][172][175][186][188][182][185][166][223][168][183][182][188][183][223][187][176][176][173][209]":GOTO100
6019 PRINT"+[183][186][173][186][216][172][223][177][176][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
6020 IFN$<>"[182][177][177]"THEN6100
6021 IFR<>4ANDR<>5THENPRINT"+[183][186][173][186][216][172][223][177][176][223][182][177][177][186][173][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
6022 IFID(R-4)=1THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][188][179][176][172][186][187][209]":GOTO100
6024 ID(R-4)=1:PRINT"+[183][186][223][182][177][177][186][173][223][187][176][176][173][223][182][172][223][177][176][168][223][188][179][176][172][186][187][209]"
6025 IFR=4THENMA(4,5)=0
6026 IFR=5THENMA(5,4)=0
6027 GOTO100
6064 PRINT"[171][182][190][171][186][187][209]";CHR$(34):PRINT
6100 IFN$<>"[176][170][171]"THEN6200
6101 IFR<>4ANDR<>5THENPRINT"+[183][186][173][186][216][172][223][177][176][223][176][170][171][186][173][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
6102 IFOD(R-4)=1THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][188][179][176][172][186][187][209]":GOTO100
6104 OD(R-4)=1:PRINT"+[183][186][223][176][170][171][186][173][223][187][176][176][173][223][182][172][223][177][176][168][223][188][179][176][172][186][187][209]"
6106 IFR=4THENMA(4,4)=0
6107 IFR=5THENMA(5,5)=0
6108 GOTO100
6200 REM
6490 PRINT"&[176][170][223][188][190][177][216][171][223][188][179][176][172][186][223][171][183][190][171][209]":GOTO100
6500 IFV$<>"[168][186][190]"THEN7000
6510 IFN$<>"[172][175][190]"THEN6600
6511 IFOB(0)=-2THENPRINT"&[176][170][216][173][186][223][190][179][173][186][190][187][166][223][168][186][190][173][182][177][184][223][182][171][209]":GOTO100
6512 IFOB(0)<>RANDOB(0)<>-1THENPRINT"+[183][190][171][216][172][223][177][176][171][223][183][186][173][186][209]":GOTO100
6515 OB(0)=-2:IN=IN-1:PRINT"+[183][186][223][172][175][190][188][186][172][170][182][171][223][182][172][223][177][176][168][223][189][186][182][177][184][223][168][176][173][177][209]":GOTO100
6600 REM
6990 PRINT"&[176][170][223][188][190][177][216][171][223][168][186][190][173][223][171][183][190][171][209]":GOTO100
7000 IFV$<>"[174][170][182]"THEN7100
7010 POKE806,202:POKE807,241:PRINT"[209]UIT? [193]RE YOU SURE (Y/N)?"
7014 GETX$:IFX$=""THEN7014
7015 IFX$="N"THENPRINT"[207]KAY.":POKE806,60:POKE807,3:GOTO100
7016 IFX$<>"Y"THEN7014
7020 POKE806,202:POKE807,241:PRINT:PRINT"[215]OULD YOU LIKE TO PLAY AGAIN (Y/N)";
7022 GETX$:IFX$=""THEN7022
7024 IFX$="N"THENPRINT"[147]";:END
7026 IFX$<>"Y"THEN7022
7030 RUN
7100 IFV$<>"[173][186][178]"THEN7200
7101 IFN$<>"[172][175][190]"THEN7120
7102 IFOB(0)<>-2THENPRINT"&[176][170][216][173][186][223][177][176][171][223][168][186][190][173][182][177][184][223][182][171][209]":GOTO100
7103 IFIN=>MITHEN4060
7104 IN=IN+1:OB(0)=-1:PRINT"&[176][170][223][190][173][186][223][177][176][223][179][176][177][184][186][173][223][168][186][190][173][182][177][184][223][171][183][186][223][172][175][190][188][186][172][170][182][171][209]";
7105 IF(R>4OR(R=4ANDOD(0)=0))ANDPF<3THEN7107
7106 GOTO100
7107 PRINT:PRINT"[209][209][209][189][170][171][223][166][176][170][223][172][183][176][170][179][187][223][183][190][169][186][223][179][186][185][171][223][182][171][223][176][177][222]"
7108 PRINT"1[176][167][182][176][170][172][223][185][170][178][186][172][223][182][177][172][182][187][186][223][171][183][186][223]>[173][178][172][171][173][176][177][184]"
7109 PRINT"[190][172][175][183][166][167][182][190][171][186][223][166][176][170][223][168][182][171][183][182][177][223][172][186][188][176][177][187][172][222]":GOTO7020
7120 IFN$<>"[188][173][176]"THEN7140
7121 IF(OB(2)<>-3)OR(OB(1)<>-1ORZF<>2)THENPRINT"9[173][176][178][223][168][183][190][171][192]":GOTO100
7122 IFIN=>MITHENPRINT"&[176][170][216][173][186][223][188][190][173][173][166][182][177][184][223][171][176][176][223][178][170][188][183][209]":GOTO100
7123 OB(2)=-1:PI=PI-1:IN=IN+1:PRINT"0[180][190][166][209]":GOTO100
7140 REM
7190 PRINT"&[176][170][223][188][190][177][216][171][223][173][186][178][176][169][186][223][171][183][190][171][209]":GOTO100
7200 IFV$="[189][173][182]"THENPRINT"=[173][182][186][185][223][187][186][172][188][173][182][175][171][182][176][177][172][209]":VF=0:GOTO100
7210 IFV$="[172][170][175]"THENPRINT",[170][175][186][173][189][173][182][186][185][223][187][186][172][188][173][182][175][171][182][176][177][172][209]":VF=-1:GOTO100
7220 IFV$="[169][186][173]"THENPRINT"2[190][167][182][178][170][178][223][169][186][173][189][176][172][182][171][166][209]":VF=1:GOTO100
7300 IFV$<>"[188][170][171]"ANDV$<>"[172][179][190]"ANDV$<>"[172][179][182]"THEN7500
7310 IFN$<>"[175][176][170]"THEN7490
7312 IFOB(1)<>-1THENPRINT"&[176][170][223][187][176][177][216][171][223][183][190][169][186][223][171][183][186][223][175][176][170][188][183][209]":GOTO100
7315 IFOB(3)<>-1THENPRINT"([182][171][183][223][168][183][190][171][192]":GOTO100
7317 IFZF=2THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][189][186][186][177][223][188][170][171][211][223][171][183][190][177][180][223][166][176][170][209]":GOTO100
7320 PRINT"&[176][170][223][188][170][171][223][176][175][186][177][223][171][183][186][223][175][176][170][188][183][223][168][182][171][183][223][171][183][186][223][180][177][182][185][186][209]":ZF=2:GOTO100
7490 PRINT"&[176][170][223][188][190][177][216][171][223][188][170][171][223][171][183][190][171][209]":GOTO100
7500 IFV$<>"[175][173][166]"THEN8000
7501 IFN$<>"[175][190][177]"THEN7600
7502 IFR<>20THEN3990
7503 IFOB(2)=-1THEN7506
7504 IFOB(3)<>-1THENPRINT"([182][171][183][223][168][183][190][171][192]":GOTO100
7505 PRINT"&[176][170][216][179][179][223][177][186][186][187][223][172][176][178][186][171][183][182][177][184][223][172][171][173][176][177][184][186][173][223][171][183][190][177][223][190]":PRINT"[180][177][182][185][186][209]":GOTO100
7506 IFCF>0THEN7510
7507 PRINT"&[176][170][223][190][171][171][186][178][175][171][223][171][176][223][175][173][166][223][171][183][186][223][179][176][188][180][186][187][223][175][190][177][186][179]"
7508 PRINT"[168][182][171][183][223][171][183][186][223][188][173][176][168][189][190][173][211][223][189][170][171][223][190][173][186][223][170][177][172][170][188][188][186][172][172][185][170][179][209]":GOTO100
7510 CF=2:PRINT"&[176][170][223][175][173][166][223][176][175][186][177][223][171][183][186][223][175][190][177][186][179][223][168][182][171][183][223][171][183][186][223][188][173][176][168][189][190][173][209]";:GOTO100
7600 REM
7990 PRINT"&[176][170][223][188][190][177][216][171][223][175][173][166][223][171][183][190][171][209]":GOTO100
8000 IFV$<>"[170][177][179]"THEN9000
8010 IFN$<>"[175][190][177]"THEN8100
8020 IFR<>20THEN3990
8025 IFOB(4)<>-1THENPRINT"&[176][170][223][187][176][177][216][171][223][183][190][169][186][223][190][177][166][223][180][186][166][172][209]":GOTO100
8030 IFCF>0THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][170][177][179][176][188][180][186][187][209]":GOTO100
8035 PRINT"0[180][190][166][209][223]6[171][216][172][223][170][177][179][176][188][180][186][187][209]":CF=1:GOTO100
8100 IFN$<>"[187][176][176]"ORR<>11THEN8200
8105 IFEF=1THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][170][177][179][176][188][180][186][187][209]":GOTO100
8110 PRINT"+[183][186][223][187][176][176][173][223][182][172][223][179][176][188][180][186][187][223][186][179][186][188][171][173][176][177][182][188][190][179][179][166][223][190][177][187]"
8111 PRINT"[188][190][177][223][176][177][179][166][223][189][186][223][170][177][179][176][188][180][186][187][223][189][166][223][176][173][187][186][173][223][176][185][223][171][183][186]"
8112 PRINT"[172][183][182][175][216][172][223][188][176][178][175][170][171][186][173][223][172][166][172][171][186][178][209]":GOTO100
8200 IFN$<>"[189][176][167]"THEN8300
8210 IFOB(6)<>-1ANDOB(6)<>RTHEN3990
8220 IFBF>0THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][170][177][179][176][188][180][186][187][209]":GOTO100
8225 IFOB(4)<>-1THENPRINT"&[176][170][223][187][176][177][216][171][223][183][190][169][186][223][190][177][166][223][180][186][166][172][209]":GOTO100
8230 PRINT"0[180][190][166][209][223]6[171][216][172][223][170][177][179][176][188][180][186][187][209]":BF=1:GOTO100
8300 REM
8990 PRINT"&[176][170][223][188][190][177][216][171][223][170][177][179][176][188][180][223][171][183][190][171][209]":GOTO100
9000 IFV$<>"[171][168][182]"ANDV$<>"[173][176][171]"THEN9500
9005 IFOB(5)<>-1AND(OB(5)AND127)<>RTHEN3990
9007 IFOB(5)>127THENPRINT"1[176][171][223][189][179][176][176][187][166][223][179][182][180][186][179][166][209]":GOTO100
9010 IFN$<>"[187][182][172]"ANDN$<>"[188][166][179]"THEN9100
9020 IFSD<>-1THENPRINT"&[176][170][216][169][186][223][190][179][173][186][190][187][166][223][175][173][182][178][186][187][223][171][183][186][223][187][182][172][173][170][175][171][176][173][209]":GOTO100
9025 SD=4:PRINT"&[176][170][223][171][168][182][172][171][223][171][183][186][223][187][182][172][173][170][175][171][176][173][223][170][177][171][182][179][223][182][171][223][188][179][182][188][180][172][209]";:GOTO100
9026 Y.
9490 PRINT"&[176][170][223][188][190][177][216][171][223][171][168][182][172][171][223][171][183][190][171][209]":GOTO100
9500 IFV$<>"[168][190][182]"THEN9600
9510 PRINT"0[177][186][223][178][182][177][170][171][186][223][175][190][172][172][186][172][209][209][209][209]":GOTO100
9600 IFV$<>"[187][182][190]"THEN9800
9610 IFHP<3THEN9620
9611 PRINT"&[176][170][216][173][186][223][182][177][223][185][182][177][186][223][183][186][190][179][171][183][209][209][209][185][176][173][223][171][183][186][223][171][182][178][186]":PRINT"[189][186][182][177][184][211][223][190][177][166][168][190][166][209]":GOTO100
9620 IFHP<2THEN9630
9621 PRINT"+[183][186][223][172][183][176][188][180][223][171][176][223][166][176][170][173][223][177][186][173][169][176][170][172][223][172][166][172][171][186][178][223][183][190][172]"
9622 PRINT"[179][186][185][171][223][166][176][170][223][182][177][223][173][190][184][184][186][187][223][172][183][190][175][186][209][223]&[176][170][223][190][173][186]"
9623 PRINT"[168][176][189][189][179][166][211][223][187][182][172][176][173][182][186][177][171][186][187][211][223][190][177][187][223][172][179][182][184][183][171][179][166]"
9624 PRINT"[177][190][170][172][186][176][170][172][209][223]&[176][170][223][172][183][176][170][179][187][223][190][169][176][182][187][223][190][187][187][182][171][182][176][177][190][179]"
9625 PRINT"[172][183][176][188][180][172][223][176][185][223][171][183][182][172][223][177][190][171][170][173][186][209]":GOTO100
9630 PRINT"&[176][170][223][190][173][186][223][182][177][223][188][173][182][171][182][188][190][179][223][188][176][177][187][182][171][182][176][177][209][223]0[177][186][223][178][176][173][186]"
9631 PRINT"[172][183][176][188][180][223][179][182][180][186][223][171][183][190][171][223][179][190][172][171][223][176][177][186][223][190][177][187][223][166][176][170][173][223][172][171][190][173][210]"
9632 PRINT"[185][179][166][182][177][184][223][187][190][166][172][223][168][182][179][179][223][188][176][178][186][223][171][176][223][190][177][223][190][189][173][170][175][171][223][183][190][179][171][209]";:GOTO100
9800 IFV$<>"[171][176][170]"THEN10000
9810 IFN$<>"[178][190][184]"THENPRINT"0[180][190][166][209][223]&[176][170][216][169][186][223][171][176][170][188][183][186][187][223][182][171][209]":GOTO100
9820 IFOB(7)<>-1ANDOB(7)<>RTHEN3990
9825 IFOB(7)<>-1OROB(0)<>-2THEN9830
9826 PRINT"6[171][223][188][179][182][177][184][172][223][171][176][223][171][183][186][223][178][186][171][190][179][179][182][188][223][185][182][177][184][186][173][172][223][176][185]":PRINT"[166][176][170][173][223][172][175][190][188][186][172][170][182][171][223][184][179][176][169][186][209]":GOTO100
9830 IFOB(7)=-1OROB(0)>-2THENPRINT"6[171][223][185][186][186][179][172][223][179][182][180][186][223][190][223][178][190][184][177][186][171][209]":GOTO100
9840 PRINT"+[183][186][223][185][182][177][184][186][173][172][223][176][185][223][166][176][170][173][223][172][175][190][188][186][172][170][182][171][223][190][171][171][190][188][183]"
9841 PRINT"[171][183][186][178][172][186][179][169][186][172][223][171][182][184][183][171][179][166][223][171][176][223][171][183][186][223][178][190][184][177][186][171][209][223],[182][177][188][186]"
9842 PRINT"[166][176][170][223][190][173][186][223][213][182][177][213][223][171][183][186][223][172][175][190][188][186][172][170][182][171][211][223][166][176][170][223][190][173][186]"
9843 PRINT"[171][186][178][175][176][173][190][173][182][179][166][223][182][178][178][176][189][182][179][182][165][186][187][209]":MF=1:GOTO100
10000 IFV$<>"[172][190][169]"THEN10500
10002 POKE806,202:POKE807,241:PRINT"[147][211]AVE GAME. [193]RE YOU SURE ([217] OR [206])?"
10003 GETX$:IFX$=""THEN10003
10004 IFX$="N"THENPRINT"[207]KAY.":POKE806,60:POKE807,3:GOTO500
10005 IFX$<>"Y"THEN10002
10010 PRINT"[208]OSITION 1-9 ( [196]EFAULT IS";P"):";
10011 GETX$:IFX$=""THEN10011
10012 IFASC(X$)=13THENPRINTP:GOTO10015
10013 IFVAL(X$)<1ORVAL(X$)>9THEN10011
10014 PRINTVAL(X$):P=VAL(X$)
10015 PRINT"[196]RIVE 8 OR 9 ( [196]EFAULT IS";D"):";
10016 GETX$:IFX$=""THEN10016
10017 IFASC(X$)=13THENPRINTD:GOTO10020
10018 IFVAL(X$)<8ORVAL(X$)>9THEN10016
10019 PRINT"[157]";VAL(X$):D=VAL(X$)
10020 PRINT:PRINT"[211]AVING POSITION";P;"..."
10029 OPEN15,D,15,"S0:STARFLIGHT.SAV"+CHR$(P+48):CLOSE15
10030 OPEN8,D,8,"STARFLIGHT.SAV"+CHR$(P+48)+",S,W"
10040 PRINT#8,ID(0)C$OD(0)C$ID(1)C$OD(1)C$IN;C$MI;C$R;C$VF;C$LF;C$AF;C$RF;C$;
10050 PRINT#8,DF;C$SF;C$PI;C$ZF;C$FR;C$H;C$PF;C$CF;C$EF;C$SD;C$AS;C$BF;C$HP;C$;
10060 PRINT#8,FF;C$MF;C$;:FORI=0TONO-1:PRINT#8,OB(I)C$;:NEXT:PRINT#8,OB$(5)C$;
10070 PRINT#8,MA(4,4)C$MA(4,5)C$MA(5,4)C$MA(5,5)C$MA(17,5)C$MA(21,0)C$;
10080 PRINT#8,MA(11,2)C$;:FORI=1TONR:PRINT#8,RF(I)C$;:NEXT
10090 IFST=0THEN10200
10100 OPEN15,D,15:INPUT#15,A1$,B1$,C1$,D1$:CLOSE15
10110 PRINT"[147][196]ISK [197]RROR #";A1$": "B1$:PRINT"[211]AVE ABORTED.":GOTO10210
10200 PRINT"[147][196]ONE."
10210 POKE806,60:POKE807,3:CLOSE8:GOTO100
10500 IFV$<>"[173][186][172]"THEN11000
10502 POKE806,202:POKE807,241:PRINT"[147][210]ESTORE GAME. [193]RE YOU SURE ([217] OR [206])?"
10503 GETX$:IFX$=""THEN10503
10504 IFX$="N"THENPRINT"[207]KAY.":POKE806,60:POKE807,3:GOTO500
10505 IFX$<>"[217]"ANDX$<>"Y"THEN10502
10510 PRINT"[208]OSITION 1-9 ( [196]EFAULT IS";P"):";
10511 GETX$:IFX$=""THEN10511
10512 IFASC(X$)=13THENPRINTP:GOTO10515
10513 IFVAL(X$)<1ORVAL(X$)>9THEN10511
10514 PRINTVAL(X$):P=VAL(X$)
10515 PRINT"[196]RIVE 8 OR 9 ( [196]EFAULT IS";D"):";
10516 GETX$:IFX$=""THEN10516
10517 IFASC(X$)=13THENPRINTD:GOTO10520
10518 IFVAL(X$)<8ORVAL(X$)>9THEN10516
10519 PRINT"[157]";VAL(X$):D=VAL(X$)
10520 PRINT:PRINT"[210]ESTORING POSITION";P;"..."
10530 OPEN8,D,8,"STARFLIGHT.SAV"+CHR$(P+48)+",S,R"
10540 INPUT#8,ID(0),OD(0),ID(1),OD(1),IN,MI,R,VF,LF,AF,RF
10550 INPUT#8,DF,SF,PI,ZF,FR,H,PF,CF,EF,SD,AS,BF,HP
10560 INPUT#8,FF,MF:FORI=0TONO-1:INPUT#8,OB(I):NEXT:INPUT#8,OB$(5)
10570 INPUT#8,MA(4,4),MA(4,5),MA(5,4),MA(5,5),MA(17,5),MA(21,0)
10580 INPUT#8,MA(11,2):FORI=1TONR:INPUT#8,RF(I):NEXT
10590 IF(ST AND191)=0THEN10700
10600 OPEN15,D,15:INPUT#15,A1$,B1$,C1$,D1$:CLOSE15
10610 PRINT"[147][196]ISK [197]RROR #";A1$": "B1$:PRINT"[210]ESTORE ABORTED.":GOTO10710
10700 PRINT"[147][196]ONE."
10710 POKE806,60:POKE807,3:CLOSE8:GOTO100
11000 IFV$<>"[183][182][171]"ANDV$<>"[180][182][188]"ANDV$<>"[180][182][179]"ANDV$<>"[172][178][190]"THEN11100
11010 PRINT"9[186][186][179][182][177][184][223][169][182][176][179][186][177][171][223][171][176][187][190][166][211][223][190][173][186][223][168][186][192]":GOTO100
11100 IFV$<>"[185][170][188]"ANDV$<>"[172][183][182]"THEN11200
11110 PRINT"/[179][186][190][172][186][222][223]1[176][171][223][183][186][173][186][222]":GOTO100
11200 REM
29980 PRINT"6[223][187][176][177][216][171][223][180][177][176][168][223][183][176][168][223][171][176][223]"TV$;:IFN$<>""THENPRINT"[223][172][176][178][186][171][183][182][177][184]";
29990 PRINT"[209]":GOTO100
30000 IF(RF(R)=1ANDVF=0)ORVF=-1THEN30050
30010 RF(R)=1:ONRGOTO30100,30200,30300,30400,30500,30600,30700,30800,30900,31000
30011 ONR-10GOTO31100,31200,31300,31400,31500,31600,31700,31800,31900,32000
30012 ONR-20GOTO32100,32200
30050 RF(R)=1:ONRGOTO30150,30250,30350,30450,30550,30650,30750,30850,30950,31050
30051 ONR-10GOTO31150,31250,31350,31450,31550,31650,31750,31850,31950,32050
30052 ONR-20GOTO32150,32250
30100 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223][175][182][179][176][171][216][172][223][188][190][189][182][177][223][176][185][223][171][183][186]"
30101 PRINT",[171][190][173][185][179][166][186][173]_8[190][177][166][178][186][187][186][209][223]6[177][223][185][173][176][177][171][223][176][185][223][166][176][170]"
30102 PRINT"[182][172][223][190][223][188][176][177][172][176][179][186][223][188][176][169][186][173][186][187][223][168][182][171][183][223][182][177][172][171][173][170][178][186][177][171][172][211]"
30103 PRINT"[184][190][170][184][186][172][211][223][190][177][187][223][188][176][177][171][173][176][179][172][209][223]+[176][223][190][185][171][223][182][172][223][171][183][186]"
30104 PRINT"[188][176][179][187][223][172][179][186][186][175][223][188][183][190][178][189][186][173][209]":GOTO30160
30150 PRINT"/[182][179][176][171][216][172][223]<[190][189][182][177]"
30160 IFLF=0THENPRINT:PRINT">[223][179][182][184][183][171][223][182][172][223][185][179][190][172][183][182][177][184][223][176][177][223][171][183][186][223][188][176][177][172][176][179][186][209]"
30170 RETURN
30200 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223][188][176][179][187][223][172][179][186][186][175][223][188][183][190][178][189][186][173][209][223]6[177]"
30201 PRINT"[185][173][176][177][171][223][176][185][223][166][176][170][223][182][172][223][171][183][186][223][188][176][185][185][182][177][210][179][182][180][186][223][172][170][172][210]"
30202 PRINT"[175][186][177][187][186][187][223][190][177][182][178][190][171][182][176][177][223][189][176][176][171][183][223][182][177][223][168][183][182][188][183][223][166][176][170]"
30203 PRINT"[173][186][188][186][177][171][179][166][223][190][168][176][180][186][223][185][173][176][178][223][166][176][170][173][223][187][186][188][190][187][186][210][179][176][177][184]"
30204 PRINT"[177][190][175][209]_+[176][223][172][171][190][173][189][176][190][173][187][223][182][172][223][190][177][223][176][175][186][177][223][187][176][176][173][209]"
30205 PRINT"9[176][173][168][190][173][187][223][182][172][223][171][183][186][223][187][176][176][173][223][171][176][223][171][183][186][223][178][190][182][177][223][188][190][189][182][177][209]":RETURN
30250 PRINT"<[176][179][187][223],[179][186][186][175][223]<[183][190][178][189][186][173]":RETURN
30300 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223][172][171][176][173][190][184][186][223][188][190][189][182][177][223][176][185][223][171][183][186]"
30301 PRINT"8[190][177][166][178][186][187][186][209][223]+[183][186][223][168][190][179][179][223][182][172][223][179][182][177][186][187][223][168][182][171][183][223][178][186][171][190][179]"
30302 PRINT"[183][176][176][180][172][223][176][177][223][168][183][182][188][183][223][183][190][169][186][223][189][186][186][177][223][190][177][188][183][176][173][186][187][223][172][178][190][179][179]"
30303 PRINT"[176][189][181][186][188][171][172][211][223][172][176][223][171][183][190][171][223][171][183][186][166][223][168][182][179][179][223][177][176][171][223][185][179][176][190][171]"
30304 PRINT"[190][189][176][170][171][223][182][177][223][171][183][186][223][190][189][172][186][177][188][186][223][176][185][223][184][173][190][169][182][171][166][209][223]+[183][186][173][186]"
30305 PRINT"[182][172][223][190][177][223][186][177][171][173][190][177][188][186][223][171][176][223][171][183][186][223][190][182][173][179][176][188][180][223][172][186][171][223][182][177]"
30306 PRINT"[171][183][186][223][188][186][182][179][182][177][184][223][190][177][187][223][190][223][187][176][176][173][223][171][176][223][175][176][173][171][223][179][186][190][187][182][177][184]"
30307 PRINT"[189][190][188][180][223][171][176][223][171][183][186][223][188][176][179][187][223][172][179][186][186][175][223][188][183][190][178][189][186][173][209]":RETURN
30350 PRINT",[171][176][173][190][184][186][223]<[190][189][182][177]":RETURN
30400 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223]8[190][177][166][178][186][187][186][216][172][223][190][182][173][179][176][188][180][211][223][168][182][171][183]"
30401 PRINT"[171][183][186][223][182][177][177][186][173][223][187][176][176][173][223][189][186][179][176][168][223][166][176][170][223][190][177][187][223][171][183][186][223][176][170][171][186][173]"
30402 PRINT"[187][176][176][173][223][190][189][176][169][186][223][166][176][170][209][223]";
30405 IFID(R-4)=0THENPRINT"+[183][186][223][182][177][177][186][173][223][187][176][176][173][223][182][172][223][176][175][186][177]":PRINT"[190][177][187][223]";:GOTO30410
30406 PRINT"+[183][186][223][182][177][177][186][173][223][187][176][176][173][223][182][172][223][188][179][176][172][186][187]";:PRINT"[190][177][187][223]";
30410 IFOD(R-4)=0THENPRINT"[171][183][186][223][176][170][171][186][173][223][187][176][176][173][223][182][172][223][176][175][186][177][209]":GOTO100
30420 PRINT"[171][183][186][223][176][170][171][186][173][223][187][176][176][173][223][182][172][223][188][179][176][172][186][187][209]":RETURN
30450 PRINT"8[190][177][166][178][186][187][186][216][172][223]>[182][173][179][176][188][180]":RETURN
30500 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223]>[173][178][172][171][173][176][177][184][216][172][223][190][182][173][179][176][188][180][211][223][168][182][171][183]";
30501 PRINT"[171][183][186][223][182][177][177][186][173][223][187][176][176][173][223][190][189][176][169][186][223][166][176][170][223][190][177][187][223][171][183][186][223][176][170][171][186][173]"
30502 PRINT"[187][176][176][173][223][189][186][179][176][168][223][166][176][170][209][223]";:GOTO30405
30550 PRINT">[173][178][172][171][173][176][177][184][216][172][223]>[182][173][179][176][188][180]":RETURN
30600 IFSF<1THENSF=1
30601 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223][171][173][190][177][172][175][176][173][171][190][171][182][176][177][223][173][176][176][178][223][176][185]"
30602 PRINT"[171][183][186][223]>[173][178][172][171][173][176][177][184][209][223]+[176][223][166][176][170][173][223][183][176][173][173][176][173][211][223][166][176][170][223][172][186][186]"
30603 PRINT"[190][223][183][170][178][190][177][223][172][180][186][179][186][171][176][177][223][187][173][186][172][172][186][187][223][182][177][223][190][223][175][186][171][171][166]"
30604 PRINT"[176][185][185][182][188][186][173][216][172][223][170][177][182][185][176][173][178][223][172][186][190][171][186][187][223][171][176][223][176][177][186][223][172][182][187][186][223][176][185]"
30605 PRINT"[171][183][186][223][186][177][171][173][190][177][188][186][168][190][166][211][223][182][171][172][223][183][186][190][187][223][183][170][177][188][183][186][187][223][176][169][186][173]"
30606 PRINT"[190][223][188][176][178][175][170][171][186][173][223][171][186][173][178][182][177][190][179][209][223]9[176][173][168][190][173][187][223][182][172][223][190][223][187][176][176][173][210]"
30607 PRINT"[168][190][166][209][223]=[186][179][176][168][223][182][172][223][171][183][186][223][190][182][173][179][176][188][180][209]":RETURN
30650 IFSF<1THENSF=1
30651 PRINT"+[173][190][177][172][175][176][173][171][190][171][182][176][177][223]-[176][176][178]":RETURN
30700 PRINT"&[176][170][223][190][173][186][223][182][177][223][190][223][179][176][177][184][223][183][190][179][179][168][190][166][223][173][170][177][177][182][177][184][223][185][173][176][178]"
30701 PRINT"[175][176][173][171][223][171][176][223][172][171][190][173][189][176][190][173][187][209][223]+[176][223][190][185][171][223][182][172][223][190][223][187][176][176][173]"
30702 PRINT"[179][190][189][186][179][186][187][223]+->1,/0-+>+601[223]-002[209]":RETURN
30750 PRINT"0[170][171][172][182][187][186][223]+[173][190][177][172][175][176][173][171][190][171][182][176][177][223]-[176][176][178][209]":RETURN
30800 PRINT"&[176][170][223][190][173][186][223][182][177][223][190][223][179][176][177][184][223][183][190][179][179][168][190][166][223][173][170][177][177][182][177][184][223][185][173][176][178]"
30801 PRINT"[175][176][173][171][223][171][176][223][172][171][190][173][189][176][190][173][187][209][223]9[176][173][168][190][173][187][223][182][172][223][190][223][187][176][176][173]"
30802 PRINT"[179][190][189][186][179][186][187][223]/>,,:18:-_)>*3+[209]":RETURN
30850 PRINT"0[170][171][172][182][187][186][223]/[190][172][172][186][177][184][186][173][223])[190][170][179][171][209]":RETURN
30900 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223][175][190][172][172][186][177][184][186][173][223][169][190][170][179][171][211][223][190][223][188][183][190][178][210]"
30901 PRINT"[189][186][173][223][172][176][223][182][178][178][186][177][172][186][223][171][183][190][171][223][171][183][186][223][185][176][173][168][190][173][187][223][172][182][187][186]"
30902 PRINT"[176][185][223][182][171][223][182][172][223][179][176][172][171][223][182][177][223][187][190][173][180][223][178][182][172][171][172][209][223]3[182][177][186][187][223][170][175]"
30903 PRINT"[171][176][223][175][176][173][171][223][190][177][187][223][172][171][190][173][189][176][190][173][187][223][190][173][186][223][171][182][186][173][223][190][185][171][186][173]"
30904 PRINT"[171][182][186][173][223][176][185][223][188][176][179][187][223][172][179][186][186][175][223][189][176][176][171][183][172][211][223][188][176][177][171][190][182][177][182][177][184]"
30905 PRINT"[171][183][186][223][183][182][189][186][173][177][190][171][182][177][184][223][189][176][187][182][186][172][223][176][185][223][171][183][186][223]>[173][178][210]"
30906 PRINT"[172][171][173][176][177][184][216][172][223][175][190][172][172][186][177][184][186][173][172][209][223]+[176][223][190][185][171][223][182][172][223][190][223][187][176][176][173][209]":RETURN
30950 PRINT"/[190][172][172][186][177][184][186][173][223])[190][170][179][171][209]":RETURN
31000 PRINT"&[176][170][223][190][173][186][223][190][171][223][171][183][186][223][172][171][190][173][189][176][190][173][187][223][186][177][187][223][176][185][223][190][223][179][176][177][184]"
31001 PRINT"[183][190][179][179][168][190][166][209][223]+[176][223][190][185][171][223][182][172][223][190][223][187][176][176][173][223][179][190][189][186][179][186][187]"
31002 PRINT",+0->8:[209]":RETURN
31050 PRINT"0[170][171][172][182][187][186][223],[171][176][173][190][184][186][223]-[176][176][178][209]":RETURN
31100 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223]>[173][178][172][171][173][176][177][184][216][172][223][178][190][182][177][223][172][171][176][173][190][184][186]"
31101 PRINT"[173][176][176][178][209][223]+[183][186][223][186][167][182][171][223][182][172][223][185][176][173][168][190][173][187][209][223]";:IFAS=0THENPRINT">[223][188][179][176][172][186][187]":GOTO31103
31102 PRINT">[177][223][176][175][186][177]"
31103 PRINT"[187][176][176][173][223][182][172][223][190][185][171][209]":RETURN
31150 PRINT",[171][176][173][190][184][186][223]-[176][176][178][209]":RETURN
31200 PRINT"&[176][170][223][190][173][186][223][182][177][223][190][223][179][176][177][184][223][183][190][179][179][168][190][166][223][173][170][177][177][182][177][184][223][185][173][176][178]"
31201 PRINT"[175][176][173][171][223][171][176][223][172][171][190][173][189][176][190][173][187][209][223]>[185][171][223][182][172][223][190][223][187][176][176][173]"
31202 PRINT"[179][190][189][186][179][186][187][223],+>6-,7>9+[209]":RETURN
31250 PRINT"0[170][171][172][182][187][186][223],[171][190][182][173][172][183][190][185][171][209]":RETURN
31300 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223]>[173][178][172][171][173][176][177][184][216][172][223][178][190][182][177][171][186][177][190][177][188][186]"
31301 PRINT"[173][176][176][178][209][223]>[177][176][171][183][186][173][223][170][177][182][185][176][173][178][186][187][223][172][180][186][179][186][171][176][177][223][182][172]"
31302 PRINT"[172][175][173][190][168][179][186][187][223][176][169][186][173][223][190][223][188][176][177][172][176][179][186][223][188][176][169][186][173][186][187][223][168][182][171][183]"
31303 PRINT"[184][190][170][184][186][172][223][190][177][187][223][182][177][172][171][173][170][178][186][177][171][172][209][223]+[183][186][173][186][223][182][172][223][190]"
31304 PRINT"[190][223][172][171][190][182][173][172][183][190][185][171][223][179][186][190][187][182][177][184][223][170][175][209]":RETURN
31350 PRINT"2[190][182][177][171][186][177][190][177][188][186][223]-[176][176][178][209]":RETURN
31400 PRINT"&[176][170][223][190][173][186][223][190][171][223][171][183][186][223][188][176][173][177][186][173][223][176][185][223][171][168][176][223][183][190][179][179][168][190][166][172][211]"
31401 PRINT"[176][177][186][223][183][186][190][187][182][177][184][223][185][176][173][168][190][173][187][211][223][171][183][186][223][176][171][183][186][173][223][171][176]"
31402 PRINT"[172][171][190][173][189][176][190][173][187][209]":RETURN
31450 PRINT"<[176][173][177][186][173][223][176][185][223]+[168][176][223]7[190][179][179][168][190][166][172][209]":RETURN
31500 PRINT"&[176][170][223][190][173][186][223][182][177][223][190][223][179][176][177][184][223][183][190][179][179][168][190][166][223][173][170][177][177][182][177][184][223][185][173][176][178]"
31501 PRINT"[185][176][173][186][223][171][176][223][190][185][171][209]":RETURN
31550 PRINT"3[176][177][184][223]7[190][179][179][168][190][166][209]":RETURN
31600 PRINT"&[176][170][223][190][173][186][223][182][177][223][190][223][179][176][177][184][223][183][190][179][179][168][190][166][223][173][170][177][177][182][177][184][223][185][173][176][178]"
31601 PRINT"[185][176][173][186][223][171][176][223][190][185][171][209][223]+[176][223][172][171][190][173][189][176][190][173][187][223][182][172][223][190][223][187][176][176][173]"
31602 PRINT"[179][190][189][186][179][186][187][223]=-6;8:[209]":RETURN
31650 PRINT"0[170][171][172][182][187][186][223]=[173][182][187][184][186][209]":RETURN
31700 PRINT"&[176][170][223][190][173][186][223][182][177][223][190][223][168][182][177][187][182][177][184][223][172][171][190][182][173][172][183][190][185][171][223][179][186][190][187][182][177][184]"
31701 PRINT"[187][176][168][177][168][190][173][187][223][171][176][223][190][223][179][176][168][186][173][223][179][186][169][186][179][223][176][185][223][171][183][186][223][172][183][182][175][209]"
31702 PRINT"+[183][186][173][186][223][182][172][223][190][223][187][176][176][173][223][171][176][223][185][176][173][168][190][173][187][209]":RETURN
31750 PRINT"([182][177][187][182][177][184][223],[171][190][182][173][172][183][190][185][171][209]":RETURN
31800 PRINT"&[176][170][223][190][173][186][223][176][177][223][171][183][186][223][175][176][173][171][223][172][182][187][186][223][176][185][223][171][183][186][223]>[173][178][210]"
31801 PRINT"[172][171][173][176][177][184][216][172][223][189][173][182][187][184][186][209][223]6[177][223][185][173][176][177][171][223][176][185][223][166][176][170][223][182][172][223][190]"
31802 PRINT"[172][188][186][177][186][223][176][185][223][170][177][175][190][173][190][179][179][186][179][186][187][223][188][190][173][177][190][184][186][209][223]3[176][177][184]"
31803 PRINT"[187][186][188][190][166][186][187][223][172][180][186][179][186][171][176][177][172][223][182][177][223][169][190][173][182][188][176][179][176][173][186][187][223][170][177][182][210]"
31804 PRINT"[185][176][173][178][172][223][190][173][186][223][172][175][173][190][168][179][186][187][223][171][176][223][190][179][179][223][172][182][187][186][172][211][223][172][176][178][186]"
31805 PRINT "[172][186][190][171][186][187][223][182][177][223][188][176][177][171][176][170][173][186][187][223][175][179][190][172][171][182][188][223][188][183][190][182][173][172][211][223][172][176][178][186]";
31806 PRINT"[188][176][179][179][190][175][172][186][187][223][176][177][223][171][183][186][223][185][179][176][176][173][223][182][177][223][184][173][176][171][186][172][174][170][186]"
31809 PRINT"[190][171][171][182][171][170][187][186][172][209][223]+[183][186][173][186][223][182][172][223][190][223][187][176][176][173][223][171][176][223][175][176][173][171][209][223]+[183][186]"
31810 PRINT"[189][173][182][187][184][186][223][188][176][177][171][182][177][170][186][172][223][171][176][223][172][171][190][173][189][176][190][173][187][209]":RETURN
31850 PRINT"/[176][173][171][223],[182][187][186][223][176][185][223]=[173][182][187][184][186][209]":RETURN
31900 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223][188][186][177][171][186][173][223][176][185][223][171][183][186][223]>[173][178][172][171][173][176][177][184][216][172]";
31901 PRINT"[189][173][182][187][184][186][209][223]&[176][170][223][172][186][186][223][190][223][172][180][186][179][186][171][176][177][223][187][173][186][172][172][186][187][223][182][177][223][190]"
31902 PRINT"[188][190][175][171][190][182][177][216][172][223][170][177][182][185][176][173][178][211][223][172][186][190][171][186][187][223][182][177][223][190][223][179][190][173][184][186]"
31903 PRINT"[188][183][190][182][173][211][223][182][171][172][223][183][190][177][187][223][175][186][173][188][183][186][187][223][176][169][186][173][223][171][183][186][223][177][190][169][182][210]"
31904 PRINT"[184][190][171][182][176][177][190][179][223][176][169][186][173][173][182][187][186][223][188][176][177][171][173][176][179][172][209]":RETURN
31950 PRINT"<[186][177][171][186][173][223][176][185][223][171][183][186][223]=[173][182][187][184][186][209]":RETURN
32000 PRINT"&[176][170][223][190][173][186][223][176][177][223][171][183][186][223][172][171][190][173][189][176][190][173][187][223][172][182][187][186][223][176][185][223][171][183][186]"
32001 PRINT">[173][178][172][171][173][176][177][184][216][172][223][189][173][182][187][184][186][209][223]>[223][172][180][186][179][186][171][176][177][223][182][177][223][190]"
32002 PRINT"[172][188][182][186][177][188][186][223][176][185][185][182][188][186][173][216][172][223][170][177][182][185][176][173][178][223][182][172][223][172][175][173][190][168][179][186][187]"
32003 PRINT"[177][186][167][171][223][171][176][223][190][223][175][179][190][172][171][182][188][223][175][190][177][186][179][223][172][186][171][223][182][177][171][176][223][171][183][186]"
32004 PRINT"[168][190][179][179][209]";:IFCF<2THENPRINT:RETURN
32005 PRINT"[223]+[183][186][223][175][190][177][186][179][223][182][172][223][176][175][186][177][211][223][173][186][169][186][190][179][182][177][184][223][190]"
32006 PRINT"[188][176][178][175][170][171][186][173][223][169][182][187][186][176][223][172][188][173][186][186][177][211][223][190][223][189][179][190][188][180][223][189][170][171][171][176][177]"
32007 PRINT"[190][177][187][223][190][223][168][183][182][171][186][223][189][170][171][171][176][177][209]":RETURN
32050 PRINT",[171][190][173][189][176][190][173][187][223],[182][187][186][223][176][185][223][171][183][186][223]=[173][182][187][184][186][209]":RETURN
32100 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223]>[173][178][172][171][173][176][177][184][216][172][223][190][170][167][182][179][182][190][173][166]"
32101 PRINT"[172][171][176][173][190][184][186][223][173][176][176][178][209][223]*[177][176][175][186][177][186][187][223][189][176][167][186][172][223][190][173][186]"
32102 PRINT"[190][177][188][183][176][173][186][187][223][171][176][223][171][183][186][223][168][190][179][179][172][223][168][182][171][183][223][189][190][179][182][177][184][223][168][182][173][186][209]":RETURN
32150 PRINT">[170][167][182][179][182][190][173][166][223],[171][176][173][190][184][186][223]-[176][176][178][209]":RETURN
32200 PRINT"&[176][170][223][190][173][186][223][182][177][223][171][183][186][223][178][182][187][187][179][186][223][176][185][223][190][223][169][190][172][171][223][190][172][172][176][173][171][210]"
32201 PRINT"[178][186][177][171][223][176][185][223][187][186][189][173][182][172][209][223]&[176][170][223][188][190][177][223][184][176][223][177][176][223][185][190][173][171][183][186][173]"
32202 PRINT"[185][176][173][168][190][173][187][209]":RETURN
32250 PRINT"6[177][223][171][183][186][223]2[182][187][187][179][186][223][176][185][223];[186][189][173][182][172]":RETURN
49000 F=0:FORI=0TONO-1:IF(OB(I)AND127)=RTHENPRINT"+[183][186][173][186][223][182][172][223]";OB$(I);"[223][183][186][173][186][209]":F=1
49010 NEXT:IFF=1THENPRINT
49020 RETURN
49100 IFFR<>RTHENRETURN
49105 PRINT"&[176][170][223][190][173][186][223][190][168][190][173][186][223][176][185][223][190][223][175][176][168][186][173][185][170][179][211][223][182][177][169][182][172][182][189][179][186]"
49110 PRINT"[185][176][173][188][186][223][182][177][223][171][183][186][223][173][176][176][178][223][168][182][171][183][223][166][176][170][209]":PRINT:RETURN
49200 DATA 76 , 66 , 3 , 76 , 91 , 3 , 133 , 251 , 201 , 13
49210 DATA 240 , 6 , 165 , 154 , 201 , 3 , 240 , 5 , 165 , 251
49220 DATA 76 , 202 , 241 , 169 , 255 , 56 , 229 , 251 , 76 , 202
49230 DATA 241 , 169 , 193 , 32 , 210 , 255 , 162 , 0 , 32 , 207
49240 DATA 255 , 201 , 32 , 240 , 249 , 76 , 111 , 3 , 32 , 207
49250 DATA 255 , 201 , 13 , 240 , 14 , 133 , 251 , 169 , 255 , 56
49260 DATA 229 , 251 , 157 , 145 , 3 , 232 , 76 , 108 , 3 , 138
49270 DATA 160 , 2 , 145 , 45 , 200 , 169 , 145 , 145 , 45 , 200
49280 DATA 169 , 3 , 145 , 45 , 96
50000 FORI=0TONO-1:READOB$(I),O2$(I),OB(I):NEXT:RETURN
50100 DATA "[190][223][189][170][179][180][166][223][172][175][190][188][186][172][170][182][171]","[172][175][190]",3
50110 DATA "[190][223][175][179][190][172][171][182][188][223][175][176][170][188][183]","[175][176][170]",3
50120 DATA"[190][223][188][173][176][168][189][190][173]","[188][173][176]",-3
50130 DATA "[190][223][172][178][190][179][179][223][180][177][182][185][186]","[180][177][182]",0
50140 DATA "[190][223][172][186][171][223][176][185][223][180][186][166][172]","[180][186][166]",0
50150 DATA "[190][223][172][176][177][182][188][223][187][182][172][173][170][175][171][176][173]","[187][182][172]",0
50160 DATA "[190][223][168][176][176][187][186][177][223][189][176][167]","[189][176][167]",11
50170 DATA "[190][223][175][176][168][186][173][185][170][179][223][189][190][173][223][178][190][184][177][186][171]","[178][190][184]",22
50180 DATA "[190][223][171][168][176][210][168][190][166][223][173][190][187][182][176]","[173][190][187]",3
55000 FORI=1TONR:FORD=0TO5:READMA(I,D):NEXT:NEXT:RETURN
55100 DATA 0,2,0,0,0,0
55110 DATA 1,0,3,0,0,0
55120 DATA 0,0,0,2,4,0
55130 DATA0,0,0,0,0,3
55140 DATA 0,0,0,0,0,4
55150 DATA 7,0,0,0,0,5
55160 DATA 0,6,136,12,0,0
55170 DATA 9,0,10,135,0,0
55180 DATA 128,8,0,0,0,0
55190 DATA 0,11,0,8,0,0
55200 DATA 10,0,0,0,0,0
55210 DATA 0,17,7,14,0,0
55220 DATA0,0,0,0,17,0
55230 DATA15,0,12,0,0,0
55240 DATA 16,14,0,0,0,0
55250 DATA 140,15,18,0,0,0
55260 DATA 12,0,0,0,0,129
55270 DATA 0,0,19,16,0,0
55280 DATA 0,0,20,18,0,0
55290 DATA 0,0,0,19,0,0
55300 DATA 0,0,0,0,0,0
55310 DATA 131,16,0,0,0,0
60000 PRINT"l[223][223]_+[183][186][166][223][171][176][179][187][223][166][176][170][223][171][183][190][171][223][172][171][190][173][223][185][179][182][184][183][171][223][168][176][170][179][187]"
60010 PRINT"[189][186][223][187][182][185][185][182][188][170][179][171][209][223]+[183][186][166][223][171][176][179][187][223][166][176][170][223][190][177][187][223][166][176][170]"
60020 PRINT"[189][186][179][182][186][169][186][187][223][171][183][186][178][209][209][209][172][176][173][171][223][176][185][209]":PRINT
60030 PRINT"[223][223][223]([183][190][171][223][171][183][186][166][223][183][190][187][177][216][171][223][171][176][179][187][223][166][176][170][223][168][190][172][223][183][176][168]"
60040 PRINT"[184][173][170][186][179][182][177][184][223][188][176][179][187][223][172][179][186][186][175][223][188][176][170][179][187][223][189][186][211][223][183][176][168][223][171][183][186]"
60050 PRINT"[178][176][177][171][183][172][223][190][177][187][223][166][186][190][173][172][223][176][185][223][166][176][170][173][223][185][179][182][184][183][171][223][168][176][170][179][187][223][189][186]";
60060 PRINT"[185][182][179][179][186][187][223][168][182][171][183][223][186][177][187][179][186][172][172][223][177][182][184][183][171][178][190][173][186][172][211][223][188][176][170][177][171][210]"
60070 PRINT"[179][186][172][172][223][173][186][175][179][190][166][172][223][176][185][223][186][169][186][173][166][223][171][186][173][173][182][189][179][186][223][171][183][182][177][184]"
60080 PRINT"[171][183][190][171][223][183][190][187][223][183][190][175][175][186][177][186][187][223][171][176][223][166][176][170][223][182][177][223][190][223][179][182][185][186][171][182][178][186]"
60090 PRINT"[176][185][223][171][186][173][173][182][189][179][186][223][171][183][182][177][184][172][209][223]([183][186][177][223][171][183][186][223][182][177][172][171][173][170][188][210]"
60100 PRINT"[171][182][176][177][172][223][185][182][177][190][179][179][166][223][190][173][173][182][169][186][187][223][185][173][176][178][223][171][183][186][223][172][183][182][175][216][172]"
60110 PRINT"[188][176][178][175][170][171][186][173][223][171][186][179][179][182][177][184][223][171][183][186][223][188][176][179][187][223][172][179][186][186][175]"
60120 PRINT"[178][190][188][183][182][177][186][173][166][223][171][176][223][173][186][169][182][169][186][223][166][176][170][223][185][176][173][223][171][183][186][223][185][182][177][190][179]"
60130 PRINT"[175][183][190][172][186][223][176][185][223][166][176][170][173][223][185][179][182][184][183][171][211][223][166][176][170][223][168][186][173][186][223][184][173][190][171][186][185][170][179][209]"
60140 PRINT"[223][223][223]([183][190][171][223][166][176][170][223][187][182][187][177][216][171][223][173][186][190][179][182][165][186][211][223][186][169][186][177][223][190][172][223][166][176][170]"
60150 PRINT"[172][171][170][178][189][179][186][187][223][184][173][176][184][184][182][179][166][223][185][173][176][178][223][171][183][186][223][177][190][173][173][176][168][223][172][179][186][186][175]"
60160 PRINT"[188][183][190][178][189][186][173][223][182][177][171][176][223][171][183][186][223][175][182][179][176][171][216][172][223][188][190][189][182][177][223][176][185][223][171][183][186]"
60170 PRINT",[171][190][173][185][179][166][186][173]_8[190][177][166][178][186][187][186][211][223][168][190][172][223][171][183][190][171][223][171][183][186][223][178][176][172][171]"
60180 PRINT"[177][182][184][183][171][178][190][173][182][172][183][223][175][190][173][171][223][176][185][223][166][176][170][173][223][178][182][172][172][182][176][177][223][168][190][172]"
60190 PRINT"[166][186][171][223][171][176][223][188][176][178][186][209][209][209][190][177][187][223][171][183][190][171][223][166][176][170][223][168][176][170][179][187][223][185][190][188][186]"
60200 PRINT"[182][171][223][185][170][179][179][166][223][190][168][190][180][186][209]"
60210 PRINT:PRINT"[223][223][223][223][223][223][223][223][223][223][223][223][195]/-:,,_-:+*-1[193]";
60220 GETA$:IFA$<>CHR$(13)THEN60220
60230 PRINT"l,+>-93687+[197][223]>_<[176][172][178][182][188][223]>[187][169][186][177][171][170][173][186]"
60240 PRINT"([173][182][171][171][186][177][223][217]_[175][173][176][184][173][190][178][178][186][187][223][189][166][223]<[183][173][182][172][223]3[190][178][175][171][176][177]":PRINT:RETURN
63000 FORI=0TO84:READA:POKE828+I,A:NEXT:POKE806,60:POKE807,3:RETURN