home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / STARFLIGHT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  33.8 KB  |  923 lines
  1. 10 CM$="":NO=9:NR=22:DIMRF(NR),MA(NR,5),OB(NO),OB$(NO),O2$(NO),ID(1),OD(1)
  2. 15 PRINT"[147]";CHR$(14);:POKE53280,12:POKE53281,12:GOSUB63000
  3. 20 Q$=CHR$(221):C$=CHR$(13)
  4. 30 GOSUB50000:GOSUB55000:GOSUB60000
  5. 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
  6. 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
  7. 90 GOSUB30000:PRINT:GOSUB49000
  8. 100 IFFR<>RTHENFF=0:GOTO200
  9. 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]"
  10. 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
  11. 105 IFFF=0THENFF=1:GOTO200
  12. 110 IFINT(RND(1)*2)<>1THEN200
  13. 111 HP=HP-1:IFHP<2THEN120
  14. 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]"
  15. 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]"
  16. 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]"
  17. 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]";
  18. 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]"
  19. 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]"
  20. 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
  21. 120 IFHP<1THEN130
  22. 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]"
  23. 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]"
  24. 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]"
  25. 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]"
  26. 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]"
  27. 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]"
  28. 127 PRINT"[184][176][186][172][223][190][168][190][166][209]":GOTO200
  29. 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]"
  30. 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]"
  31. 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]"
  32. 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]"
  33. 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]"
  34. 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]"
  35. 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]";
  36. 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]"
  37. 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
  38. 200 IFAF<>1THEN240
  39. 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]"
  40. 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]"
  41. 230 PRINT"-[186][174][170][186][172][171][223][188][190][177][188][186][179][179][186][187][222]"Q$:AF=0
  42. 240 IFAF=2THENAF=1
  43. 250 IFSD=-1THEN300
  44. 260 SD=SD-1:IFSD=0THEN800
  45. 270 IFOB(5)<>-1ANDOB(5)<>RTHEN300
  46. 280 PRINT:PRINT">[223][184][179][176][168][182][177][184][223][177][170][178][186][173][190][179][223]";
  47. 284 PRINTCHR$(255-ASC(MID$(STR$(SD),2,1)));
  48. 286 PRINT"[223][190][175][175][186][190][173][172][223][176][177][223][176][177][186]"
  49. 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]"
  50. 300 REM
  51. 500 PRINT:CM$="":SYS831:PRINT:PRINT:IFCM$=""THEN500
  52. 510 C=0:V$="":N$=""
  53. 520 C=C+1:IFC>LEN(CM$)THEN550
  54. 530 W$=MID$(CM$,C,1):IFW$="[223]"THEN545
  55. 540 V$=V$+W$:GOTO520
  56. 545 IFC=>LEN(CM$)THEN550
  57. 547 IFMID$(CM$,C+1,1)="[223]"THENC=C+1:GOTO545
  58. 550 C=C+1:IFC>LEN(CM$)THEN580
  59. 560 W$=MID$(CM$,C,1):IFW$="[223]"THEN580
  60. 570 N$=N$+W$:GOTO550
  61. 580 IFV$=""THEN500
  62. 590 TV$=V$:IFLEN(V$)>3THENV$=LEFT$(V$,3)
  63. 600 TN$=N$:IFLEN(N$)>3THENN$=LEFT$(N$,3)
  64. 610 IFV$="[177]"ORV$="[172]"ORV$="[186]"ORV$="[168]"ORV$="[170]"ORV$="[187]"THENN$=V$:V$="[184][176]"
  65. 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]"
  66. 630 IFV$="[185][176][173]"ORV$="[190][185][171]"ORV$="[172][171][190]"ORV$="[175][176][173]"THENN$=V$:V$="[184][176]"
  67. 640 IFN$="[172][170][182]"THENN$="[172][175][190]"
  68. 650 IFN$="[172][176][177]"THENN$="[187][182][172]"
  69. 660 IFN$="[189][190][173]"THENN$="[178][190][184]"
  70. 750 FORI=0TO5:NX=MA(FR,I)AND127:IFNX<>RTHENNEXT:GOTO760
  71. 751 FR=NX
  72. 760 REM
  73. 799 GOTO1000
  74. 800 PRINT:IFOB(5)<>RANDOB(5)<>-1THEN820
  75. 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]"
  76. 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]"
  77. 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]"
  78. 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
  79. 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]"
  80. 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]"
  81. 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
  82. 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]"
  83. 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]"
  84. 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]"
  85. 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
  86. 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]"
  87. 825 MA(17,5)=130:GOTO200
  88. 1000 IFV$="[186][177][171]"THEN1070
  89. 1005 IFV$<>"[184][176]"ANDV$<>"[168][190][179]"ANDV$<>"[173][170][177]"THEN2000
  90. 1010 IFN$="[177][176][173]"ORN$="[177]"ORN$="[185][176][173]"ORN$="[185]"THENDI=0:GOTO1500
  91. 1020 IFN$="[172][176][170]"ORN$="[172]"ORN$="[190][185][171]"ORN$="[190]"THENDI=1:GOTO1500
  92. 1030 IFN$="[186][190][172]"ORN$="[186]"ORN$="[172][171][190]"ORN$="[173]"THENDI=2:GOTO1500
  93. 1040 IFN$="[168][186][172]"ORN$="[168]"ORN$="[175][176][173]"ORN$="[179]"THENDI=3:GOTO1500
  94. 1050 IFN$="[170][175]"ORN$="[170]"THENDI=4:GOTO1500
  95. 1060 IFN$="[187][176][168]"ORN$="[187]"THENDI=5:GOTO1500
  96. 1070 IFN$<>"[189][176][176]"ORR<>2THEN1080
  97. 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]"
  98. 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]"
  99. 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]"
  100. 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]"
  101. 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]"
  102. 1076 PRINT"[185][190][182][179][170][173][186][209]":GOTO100
  103. 1080 REM
  104. 1490 PRINT"&[176][170][223][188][190][177][216][171][223][184][176][223][171][183][186][173][186][222]":GOTO100
  105. 1500 IFMA(R,DI)=0THEN1990
  106. 1510 IFMA(R,DI)>127THEN1600
  107. 1520 GOSUB1590:R=MA(R,DI):GOTO90
  108. 1590 IFMF=0THENRETURN
  109. 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]"
  110. 1595 PRINT"[189][190][173][223][178][190][184][177][186][171][209][209][209][209]":PRINT:RETURN
  111. 1600 IFMA(R,DI)<>128THEN1610
  112. 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]"
  113. 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]"
  114. 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]"
  115. 1604 PRINT"[175][190][173][171][182][188][170][179][190][173][223][190][169][190][182][179][209]":GOTO100
  116. 1610 IFMA(R,DI)<>135ANDMA(R,DI)<>136THEN1620
  117. 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]"
  118. 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]"
  119. 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
  120. 1620 IFMA(R,DI)<>129THEN1630
  121. 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]"
  122. 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]"
  123. 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]"
  124. 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]"
  125. 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]"
  126. 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]"
  127. 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
  128. 1630 IFMA(R,DI)<>130THEN1640
  129. 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]";
  130. 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]"
  131. 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]"
  132. 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
  133. 1640 IFMA(R,DI)<>140THEN1660
  134. 1641 IFOB(0)>-1THENGOSUB1590
  135. 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]"
  136. 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]"
  137. 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]";
  138. 1645 IFOB(0)<0THEN1650
  139. 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]"
  140. 1647 PRINT:R=22:GOTO90
  141. 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]"
  142. 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]"
  143. 1652 PRINT"[187][186][189][173][182][172][209]":GOTO100
  144. 1660 REM
  145. 1990 PRINT"&[176][170][223][188][190][177][216][171][223][184][176][223][171][183][190][171][223][168][190][166][209]":GOTO100
  146. 2000 IFV$<>"[179][176][176]"ANDV$<>"[179]"ANDV$<>"[186][167][190]"THEN4000
  147. 2010 IF(V$="[179][176][176]"ORV$="[179]")ANDN$=""THENGOSUB30010:PRINT:GOSUB49000:GOTO100
  148. 2020 IFN$<>"[179][182][184]"THEN2030
  149. 2021 IFR<>1THEN3990
  150. 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
  151. 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]"
  152. 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
  153. 2030 IF(N$<>"[182][177][172]"ANDN$<>"[184][190][170]"ANDN$<>"[188][176][177]")ORR<>1THEN2040
  154. 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]"
  155. 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]"
  156. 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]"
  157. 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]"
  158. 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]"
  159. 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
  160. 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]"
  161. 2039 PRINT"[176][185][223][171][183][186][223][188][176][177][172][176][179][186][209]":GOTO100
  162. 2040 IFN$="[189][170][171]"THEN5010
  163. 2050 IFN$<>"[173][186][187]"ORR<>1THEN2060
  164. 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]"
  165. 2052 PRINT",+>+*,_-:/0-+[209]":GOTO100
  166. 2060 IFN$<>"[184][173][186]"ORR<>1THEN2070
  167. 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]"
  168. 2062 PRINT"><410(3:;8:[209]":GOTO100
  169. 2070 IFN$<>"[176][173][190]"ORR<>1THEN2080
  170. 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]"
  171. 2072 PRINT";0<4618[223]<01+-03[209]":GOTO100
  172. 2080 IFN$<>"[166][186][179]"ORR<>1THEN2090
  173. 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]"
  174. 2083 PRINT"+><7&01_=:>2[209]":GOTO100
  175. 2090 IF(N$<>"[188][176][178]"ANDN$<>"[171][186][173]")ORR<>6THEN2100
  176. 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
  177. 2092 PRINTQ$",76/[216],[223]308[211][223]:1+-&[223][205][211][204][203][198][209][201][209]":PRINT
  178. 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]";
  179. 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]"
  180. 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]"
  181. 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]"
  182. 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]"
  183. 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
  184. 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
  185. 2100 IFN$<>"[172][180][186]"ORR<>6THEN2110
  186. 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]"
  187. 2102 PRINT"[188][176][178][175][170][171][186][173][223][171][186][173][178][182][177][190][179][209]":GOTO100
  188. 2110 IFN$<>"[189][176][176]"ORR<>9THEN2120
  189. 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]";
  190. 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]"
  191. 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]";
  192. 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
  193. 2120 IFN$<>"[170][177][182]"ORR<>13OROB(3)<>0THEN2130
  194. 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
  195. 2130 IFN$<>"[170][177][182]"ORR<>20OROB(4)<>0THEN2140
  196. 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
  197. 2140 IFN$<>"[175][176][170]"THEN2150
  198. 2141 IFOB(1)<>RANDOB(1)>-1THEN3990
  199. 2142 IFZF<2THENPRINT"6[171][216][172][223][183][186][190][169][166][209]":GOTO100
  200. 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
  201. 2150 IFN$<>"[172][180][186]"ORR<>13THEN2160
  202. 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]"
  203. 2152 PRINT"[182][177][172][171][173][170][178][186][177][171][223][188][176][177][172][176][179][186][209]":GOTO100
  204. 2160 IF(N$<>"[188][176][177]"ANDN$<>"[184][190][170]"ANDN$<>"[182][177][172]")ORR<>13THEN2170
  205. 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]"
  206. 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]"
  207. 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]"
  208. 2164 PRINT"[166][186][179][179][176][168][223][189][170][171][171][176][177][209]":GOTO100
  209. 2170 IFN$<>"[166][186][179]"ORR<>13THEN2180
  210. 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]"
  211. 2172 PRINT"/*-696<>+601_<01+-03[209]":GOTO100
  212. 2180 IFN$<>"[172][182][184]"ORR<>13THEN2190
  213. 2181 IFPF=3THEN2185
  214. 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]"
  215. 2183 PRINT:PRINT">6-[223]3:):3_+0'6<[222]"
  216. 2184 PRINT"/-:,,_/*-696<>+601_<01+-03":PRINT"+7-::_+62:,[222]":GOTO100
  217. 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
  218. 2190 IF(N$<>"[177][190][169]"ANDN$<>"[188][176][177]")ORR<>19THEN2200
  219. 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]"
  220. 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]"
  221. 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]";
  222. 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
  223. 2200 IFN$<>"[189][179][190]"ORR<>20THEN2210
  224. 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]"
  225. 2202 PRINT":2:-8:1<&_2016+0-618_,&,+:2[209]":GOTO100
  226. 2210 IFN$<>"[168][183][182]"ORR<>20THEN2220
  227. 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]"
  228. 2212 PRINT"><410(3:;8:[209]":GOTO100
  229. 2220 IF(N$<>"[172][188][173]"ANDN$<>"[169][182][187]")ORR<>20ORCF<2THEN2230
  230. 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
  231. 2230 IFN$<>"[187][182][172]"THEN2240
  232. 2231 IFOB(5)<>-1ANDOB(5)<>RTHEN3990
  233. 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]"
  234. 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]"
  235. 2234 PRINT"[178][176][170][177][171][186][187][223][186][177][187][223][171][176][223][186][177][187][209]":GOTO100
  236. 2240 IFN$<>"[189][176][167]"THEN2250
  237. 2241 IFOB(6)<>-1ANDOB(6)<>RTHEN3990
  238. 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
  239. 2243 PRINT"6[171][216][172][223][186][178][175][171][166][209]":GOTO100
  240. 2250 IF(N$<>"[172][180][186]"ANDN$<>"[188][190][175]"ANDN$<>"[170][177][182]")ORR<>19THEN2260
  241. 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]";
  242. 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
  243. 2260 IFN$<>"[172][180][186]"ORR<>20THEN2270
  244. 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]"
  245. 2262 PRINT"[190][184][190][182][177][172][171][223][171][183][186][223][175][190][177][186][179][209]":GOTO100
  246. 2270 IFN$<>"[172][175][190]"THEN2280
  247. 2271 IFOB(0)>-1ANDOB(0)<>RTHEN3990
  248. 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]"
  249. 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]"
  250. 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]"
  251. 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
  252. 2280 IFN$<>"[173][190][187]"THEN2290
  253. 2281 IFOB(8)<>-1ANDOB(8)<>RTHEN3990
  254. 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
  255. 2290 REM
  256. 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
  257. 3990 PRINT"+[183][190][171][216][172][223][177][176][171][223][183][186][173][186][209]":GOTO100
  258. 4000 IFV$<>"[184][186][171]"ANDV$<>"[171][190][180]"THEN4500
  259. 4001 IFN$<>"[178][190][184]"THEN4010
  260. 4002 I=7:IFOB(7)=-1THEN4020
  261. 4003 IFOB(7)<>RTHEN3990
  262. 4004 IFIN=>MITHEN4060
  263. 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]"
  264. 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]"
  265. 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
  266. 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
  267. 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
  268. 4022 IFOB(I)=-3AND(ZF<2OROB(1)>-1)THEN3990                           
  269. 4023 IFOB(I)=-3THEN4050
  270. 4030 IF(OB(I)AND127)<>RTHEN3990
  271. 4040 IFOB(I)>127THENPRINT"&[176][170][223][188][190][177][216][171][223][184][186][171][223][171][183][190][171][209]":GOTO100
  272. 4050 IFIN=>MITHEN4060
  273. 4051 PRINT"+[190][180][186][177][209]"
  274. 4052 IN=IN+1:IFOB(I)=-3THENPI=PI-1
  275. 4056 OB(I)=-1:GOTO100
  276. 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
  277. 4500 IFV$<>"[187][173][176]"ANDV$<>"[171][183][173]"ANDV$<>"[175][170][171]"THEN4900
  278. 4501 IFN$<>"[178][190][184]"THEN4510
  279. 4502 I=7:IFOB(7)<>-1THEN4520
  280. 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]"
  281. 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]"
  282. 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
  283. 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
  284. 4520 IFOB(I)>-1THENPRINT"&[176][170][223][187][176][177][216][171][223][183][190][169][186][223][182][171][209]":GOTO100
  285. 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
  286. 4530 OB(I)=R:IN=IN-1:PRINT";[173][176][175][175][186][187][209]":GOTO100
  287. 4900 IFV$<>"[182][177][169]"ANDV$<>"[182]"THEN5000
  288. 4910 PRINT"&[176][170][223][190][173][186][223][188][190][173][173][166][182][177][184][197]"
  289. 4920 IFIN=0ANDOB(0)>-1THENPRINT"[223][223][177][176][171][183][182][177][184]":GOTO100
  290. 4930 FORI=0TONO-1:IFOB(I)>-1THEN4980
  291. 4935 IFOB(I)=-3THEN4980
  292. 4940 PRINT"[223][223]";OB$(I);:IFOB(I)=-2THENPRINT"[223][215][189][186][182][177][184][223][168][176][173][177][214]";
  293. 4950 PRINT
  294. 4960 IFI<>1ORZF<2THEN4980
  295. 4961 IFPI=0THEN4980
  296. 4962 PRINT"[223][223][223][223]+[183][186][223][175][176][170][188][183][223][188][176][177][171][190][182][177][172][197]"
  297. 4963 FORJ=0TONO-1:IFOB(J)=-3THENPRINT"[223][223][223][223][223][223]";OB$(J)
  298. 4964 NEXT
  299. 4980 NEXT:GOTO100
  300. 5000 IFV$<>"[175][170][172]"ANDV$<>"[175][173][186]"THEN5500
  301. 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
  302. 5020 IFN$<>"[189][179][170]"THEN5050
  303. 5021 IFR<>1THEN3990
  304. 5022 IFLF=1THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
  305. 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]"
  306. 5026 PRINT"[176][169][186][173][183][186][190][187][223][172][175][186][190][180][186][173][197]":PRINT
  307. 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]"
  308. 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]"
  309. 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]"
  310. 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]"
  311. 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]"
  312. 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]"
  313. 5033 PRINT"[190][171][223][189][179][190][177][180][223][168][190][179][179][172][211][223][186][183][192]":PRINT
  314. 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]";
  315. 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]"
  316. 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]"
  317. 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]"
  318. 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
  319. 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]"
  320. 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]"
  321. 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]"
  322. 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]"
  323. 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]"
  324. 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$
  325. 5045 GOTO100
  326. 5050 IFN$<>"[173][186][187]"ORR<>1THEN5060
  327. 5051 IFLF<>0ANDRF=0THEN5054
  328. 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]"
  329. 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
  330. 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]";
  331. 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]"
  332. 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]"
  333. 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]"
  334. 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]"
  335. 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
  336. 5060 IFN$<>"[184][173][186]"ORR<>1THEN5080
  337. 5061 IFAF=0THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
  338. 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]"
  339. 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]"
  340. 5064 PRINT"[171][182][190][171][186][187][209]"Q$:PRINT
  341. 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]"
  342. 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]"
  343. 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]"
  344. 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]"
  345. 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]"
  346. 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]"
  347. 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]"
  348. 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]"
  349. 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]"
  350. 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]"
  351. 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
  352. 5080 IFN$<>"[176][173][190]"THEN5100
  353. 5081 IFR<>1THEN3990
  354. 5082 IFDF=1THEN5094
  355. 5083 IFRF=1THEN5087
  356. 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]"
  357. 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]"
  358. 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
  359. 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]"
  360. 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]"
  361. 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]"
  362. 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
  363. 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]"
  364. 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]";
  365. 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]"
  366. 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
  367. 5100 IFN$<>"[166][186][179]"ORR<>1THEN5200
  368. 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]"
  369. 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]"
  370. 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]"
  371. 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]"
  372. 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]"
  373. 5107 PRINT"[183][190][175][175][186][177][186][187][209][223],[183][186][223][173][186][175][179][182][186][172][197]":PRINT
  374. 5110 ONSF+1GOTO5120,5130,5140,5150:GOTO100
  375. 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]"
  376. 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
  377. 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]"
  378. 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]"
  379. 5132 PRINT"[182][178][178][186][187][182][190][171][186][179][166][222]"Q$:GOTO100
  380. 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]"
  381. 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]"
  382. 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]"
  383. 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]"
  384. 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]"
  385. 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
  386. 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]";
  387. 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]"
  388. 5152 PRINT"[166][186][190][173][172][209][223]<[176][178][186][223][176][177][223][183][176][178][186][222]"Q$:PRINT
  389. 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]"
  390. 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]"
  391. 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]"
  392. 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]"
  393. 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]"
  394. 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]"
  395. 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]"
  396. 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]"
  397. 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]"
  398. 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
  399. 5200 IFN$<>"[166][186][179]"ORR<>13THEN5210
  400. 5201 IFPF=3THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
  401. 5203 PF=PF+1:IFPF<3THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
  402. 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]"
  403. 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]"
  404. 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]"
  405. 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
  406. 5210 IFN$<>"[189][179][190]"ORR<>20ORCF<2THEN5240
  407. 5211 IFEF=1THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
  408. 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]"
  409. 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
  410. 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]"
  411. 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]"
  412. 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]"
  413. 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]"
  414. 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]"
  415. 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]"
  416. 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]";
  417. 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]"
  418. 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]"
  419. 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]"
  420. 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]"
  421. 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]"
  422. 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]"
  423. 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]"
  424. 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]"
  425. 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]"
  426. 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
  427. 5240 IFN$<>"[168][183][182]"ORR<>20ORCF<2THEN5250
  428. 5241 IFAF=0THENPRINT"1[176][171][183][182][177][184][223][183][190][175][175][186][177][172][209]":GOTO100
  429. 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]"
  430. 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]"
  431. 5244 PRINT"[182][172][223][177][176][168][223][170][177][179][176][188][180][186][187][209]";Q$:GOTO100
  432. 5250 REM
  433. 5490 PRINT"&[176][170][223][188][190][177][216][171][223][175][170][172][183][223][171][183][190][171][209]":GOTO100
  434. 5500 IFV$<>"[176][175][186]"THEN6000
  435. 5510 IFN$<>"[187][176][176]"OR(R<>4ANDR<>5)THEN5520
  436. 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
  437. 5519 PRINT"+[183][186][173][186][216][172][223][177][176][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
  438. 5520 IFN$<>"[182][177][177]"THEN5600
  439. 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
  440. 5522 IFID(R-4)=0THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][176][175][186][177][209]":GOTO100
  441. 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
  442. 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]"
  443. 5526 IFR=4THENMA(4,5)=3:GOTO100
  444. 5527 MA(5,4)=6:GOTO100
  445. 5600 IFN$<>"[176][170][171]"THEN5700
  446. 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
  447. 5602 IFOD(R-4)=0THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][176][175][186][177][209]":GOTO100
  448. 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
  449. 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]"
  450. 5606 IFR=4ANDDF=1THENMA(4,4)=5
  451. 5607 IFR=5THENMA(5,5)=4
  452. 5608 IFR=5OR(DF=1ANDOB(0)=-2)THENGOTO100
  453. 5609 PRINT:IFDF<>0THEN5650
  454. 5610 IFMF=1THEN5670
  455. 5612 IFOB(0)<>-2THEN5625
  456. 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]"
  457. 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]"
  458. 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]"
  459. 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]"
  460. 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]"
  461. 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]"
  462. 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]"
  463. 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]"
  464. 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
  465. 5622 IFFR=4THEN5660
  466. 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]";
  467. 5624 PRINT"[168][182][171][183][223][171][183][186][223]>[173][178][172][171][173][176][177][184][209][209][209][209]":GOTO7020
  468. 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]"
  469. 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]"
  470. 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]"
  471. 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]"
  472. 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
  473. 5630 IFFR=4THEN5660
  474. 5631 GOTO5623
  475. 5650 IFPF=3THENRETURN
  476. 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]"
  477. 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]"
  478. 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]"
  479. 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]"
  480. 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]"
  481. 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]"
  482. 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]"
  483. 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
  484. 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]"
  485. 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]"
  486. 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]";
  487. 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]"
  488. 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]"
  489. 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
  490. 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]"
  491. 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]"
  492. 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]"
  493. 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]"
  494. 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]";
  495. 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]"
  496. 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]"
  497. 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]"
  498. 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]"
  499. 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]"
  500. 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]"
  501. 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]"
  502. 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]"
  503. 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
  504. 5700 IFN$<>"[175][176][170]"THEN5800
  505. 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
  506. 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           
  507. 5800 IFN$<>"[175][190][177]"ORR<>20THEN5820
  508. 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
  509. 5802 IFCF>1THEN5810
  510. 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]"
  511. 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]"
  512. 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]"
  513. 5806 PRINT"[185][190][179][179][182][177][184][223][190][184][190][182][177][172][171][223][182][171][209]":GOTO100
  514. 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
  515. 5820 IFN$<>"[187][176][176]"ORR<>11THEN5830
  516. 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
  517. 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
  518. 5830 IFN$<>"[189][176][167]"THEN5840
  519. 5831 IFOB(6)<>-1ANDOB(6)<>RTHEN3990
  520. 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
  521. 5833 IFBF=2THENPRINT"6[171][216][172][223][190][179][173][186][190][187][166][223][176][175][186][177][209]":GOTO100
  522. 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
  523. 5840 REM
  524. 5990 PRINT"&[176][170][223][188][190][177][216][171][223][176][175][186][177][223][171][183][190][171][209]":GOTO100
  525. 6000 IFV$<>"[188][179][176]"THEN6500
  526. 6010 IFN$<>"[187][176][176]"THEN6020
  527. 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
  528. 6019 PRINT"+[183][186][173][186][216][172][223][177][176][223][187][176][176][173][223][183][186][173][186][209]":GOTO100
  529. 6020 IFN$<>"[182][177][177]"THEN6100
  530. 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
  531. 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
  532. 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]"
  533. 6025 IFR=4THENMA(4,5)=0
  534. 6026 IFR=5THENMA(5,4)=0
  535. 6027 GOTO100
  536. 6064 PRINT"[171][182][190][171][186][187][209]";CHR$(34):PRINT
  537. 6100 IFN$<>"[176][170][171]"THEN6200
  538. 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
  539. 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
  540. 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]"
  541. 6106 IFR=4THENMA(4,4)=0
  542. 6107 IFR=5THENMA(5,5)=0
  543. 6108 GOTO100
  544. 6200 REM
  545. 6490 PRINT"&[176][170][223][188][190][177][216][171][223][188][179][176][172][186][223][171][183][190][171][209]":GOTO100
  546. 6500 IFV$<>"[168][186][190]"THEN7000
  547. 6510 IFN$<>"[172][175][190]"THEN6600
  548. 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
  549. 6512 IFOB(0)<>RANDOB(0)<>-1THENPRINT"+[183][190][171][216][172][223][177][176][171][223][183][186][173][186][209]":GOTO100
  550. 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
  551. 6600 REM
  552. 6990 PRINT"&[176][170][223][188][190][177][216][171][223][168][186][190][173][223][171][183][190][171][209]":GOTO100
  553. 7000 IFV$<>"[174][170][182]"THEN7100
  554. 7010 POKE806,202:POKE807,241:PRINT"[209]UIT? [193]RE YOU SURE (Y/N)?"
  555. 7014 GETX$:IFX$=""THEN7014
  556. 7015 IFX$="N"THENPRINT"[207]KAY.":POKE806,60:POKE807,3:GOTO100
  557. 7016 IFX$<>"Y"THEN7014
  558. 7020 POKE806,202:POKE807,241:PRINT:PRINT"[215]OULD YOU LIKE TO PLAY AGAIN (Y/N)";
  559. 7022 GETX$:IFX$=""THEN7022
  560. 7024 IFX$="N"THENPRINT"[147]";:END
  561. 7026 IFX$<>"Y"THEN7022
  562. 7030 RUN
  563. 7100 IFV$<>"[173][186][178]"THEN7200
  564. 7101 IFN$<>"[172][175][190]"THEN7120
  565. 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
  566. 7103 IFIN=>MITHEN4060
  567. 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]";
  568. 7105 IF(R>4OR(R=4ANDOD(0)=0))ANDPF<3THEN7107
  569. 7106 GOTO100
  570. 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]"
  571. 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]"
  572. 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
  573. 7120 IFN$<>"[188][173][176]"THEN7140
  574. 7121 IF(OB(2)<>-3)OR(OB(1)<>-1ORZF<>2)THENPRINT"9[173][176][178][223][168][183][190][171][192]":GOTO100
  575. 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
  576. 7123 OB(2)=-1:PI=PI-1:IN=IN+1:PRINT"0[180][190][166][209]":GOTO100
  577. 7140 REM
  578. 7190 PRINT"&[176][170][223][188][190][177][216][171][223][173][186][178][176][169][186][223][171][183][190][171][209]":GOTO100
  579. 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
  580. 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
  581. 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
  582. 7300 IFV$<>"[188][170][171]"ANDV$<>"[172][179][190]"ANDV$<>"[172][179][182]"THEN7500
  583. 7310 IFN$<>"[175][176][170]"THEN7490
  584. 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
  585. 7315 IFOB(3)<>-1THENPRINT"([182][171][183][223][168][183][190][171][192]":GOTO100
  586. 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
  587. 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
  588. 7490 PRINT"&[176][170][223][188][190][177][216][171][223][188][170][171][223][171][183][190][171][209]":GOTO100
  589. 7500 IFV$<>"[175][173][166]"THEN8000
  590. 7501 IFN$<>"[175][190][177]"THEN7600
  591. 7502 IFR<>20THEN3990
  592. 7503 IFOB(2)=-1THEN7506
  593. 7504 IFOB(3)<>-1THENPRINT"([182][171][183][223][168][183][190][171][192]":GOTO100
  594. 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
  595. 7506 IFCF>0THEN7510
  596. 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]"
  597. 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
  598. 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
  599. 7600 REM
  600. 7990 PRINT"&[176][170][223][188][190][177][216][171][223][175][173][166][223][171][183][190][171][209]":GOTO100
  601. 8000 IFV$<>"[170][177][179]"THEN9000
  602. 8010 IFN$<>"[175][190][177]"THEN8100
  603. 8020 IFR<>20THEN3990
  604. 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
  605. 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
  606. 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
  607. 8100 IFN$<>"[187][176][176]"ORR<>11THEN8200
  608. 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
  609. 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]"
  610. 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]"
  611. 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
  612. 8200 IFN$<>"[189][176][167]"THEN8300
  613. 8210 IFOB(6)<>-1ANDOB(6)<>RTHEN3990
  614. 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
  615. 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
  616. 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
  617. 8300 REM
  618. 8990 PRINT"&[176][170][223][188][190][177][216][171][223][170][177][179][176][188][180][223][171][183][190][171][209]":GOTO100
  619. 9000 IFV$<>"[171][168][182]"ANDV$<>"[173][176][171]"THEN9500
  620. 9005 IFOB(5)<>-1AND(OB(5)AND127)<>RTHEN3990
  621. 9007 IFOB(5)>127THENPRINT"1[176][171][223][189][179][176][176][187][166][223][179][182][180][186][179][166][209]":GOTO100
  622. 9010 IFN$<>"[187][182][172]"ANDN$<>"[188][166][179]"THEN9100
  623. 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
  624. 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
  625. 9026 Y.
  626. 9490 PRINT"&[176][170][223][188][190][177][216][171][223][171][168][182][172][171][223][171][183][190][171][209]":GOTO100
  627. 9500 IFV$<>"[168][190][182]"THEN9600
  628. 9510 PRINT"0[177][186][223][178][182][177][170][171][186][223][175][190][172][172][186][172][209][209][209][209]":GOTO100
  629. 9600 IFV$<>"[187][182][190]"THEN9800
  630. 9610 IFHP<3THEN9620
  631. 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
  632. 9620 IFHP<2THEN9630
  633. 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]"
  634. 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]"
  635. 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]"
  636. 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]"
  637. 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
  638. 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]"
  639. 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]"
  640. 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
  641. 9800 IFV$<>"[171][176][170]"THEN10000
  642. 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
  643. 9820 IFOB(7)<>-1ANDOB(7)<>RTHEN3990
  644. 9825 IFOB(7)<>-1OROB(0)<>-2THEN9830
  645. 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
  646. 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
  647. 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]"
  648. 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]"
  649. 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]"
  650. 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
  651. 10000 IFV$<>"[172][190][169]"THEN10500
  652. 10002 POKE806,202:POKE807,241:PRINT"[147][211]AVE GAME. [193]RE YOU SURE ([217] OR [206])?"
  653. 10003 GETX$:IFX$=""THEN10003
  654. 10004 IFX$="N"THENPRINT"[207]KAY.":POKE806,60:POKE807,3:GOTO500
  655. 10005 IFX$<>"Y"THEN10002
  656. 10010 PRINT"[208]OSITION 1-9 ( [196]EFAULT IS";P"):";
  657. 10011 GETX$:IFX$=""THEN10011
  658. 10012 IFASC(X$)=13THENPRINTP:GOTO10015
  659. 10013 IFVAL(X$)<1ORVAL(X$)>9THEN10011
  660. 10014 PRINTVAL(X$):P=VAL(X$)
  661. 10015 PRINT"[196]RIVE 8 OR 9 ( [196]EFAULT IS";D"):";
  662. 10016 GETX$:IFX$=""THEN10016
  663. 10017 IFASC(X$)=13THENPRINTD:GOTO10020
  664. 10018 IFVAL(X$)<8ORVAL(X$)>9THEN10016
  665. 10019 PRINT"[157]";VAL(X$):D=VAL(X$)
  666. 10020 PRINT:PRINT"[211]AVING POSITION";P;"..."
  667. 10029 OPEN15,D,15,"S0:STARFLIGHT.SAV"+CHR$(P+48):CLOSE15
  668. 10030 OPEN8,D,8,"STARFLIGHT.SAV"+CHR$(P+48)+",S,W"
  669. 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$;
  670. 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$;
  671. 10060 PRINT#8,FF;C$MF;C$;:FORI=0TONO-1:PRINT#8,OB(I)C$;:NEXT:PRINT#8,OB$(5)C$;
  672. 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$;
  673. 10080 PRINT#8,MA(11,2)C$;:FORI=1TONR:PRINT#8,RF(I)C$;:NEXT
  674. 10090 IFST=0THEN10200
  675. 10100 OPEN15,D,15:INPUT#15,A1$,B1$,C1$,D1$:CLOSE15
  676. 10110 PRINT"[147][196]ISK [197]RROR #";A1$": "B1$:PRINT"[211]AVE ABORTED.":GOTO10210
  677. 10200 PRINT"[147][196]ONE."
  678. 10210 POKE806,60:POKE807,3:CLOSE8:GOTO100
  679. 10500 IFV$<>"[173][186][172]"THEN11000
  680. 10502 POKE806,202:POKE807,241:PRINT"[147][210]ESTORE GAME. [193]RE YOU SURE ([217] OR [206])?"
  681. 10503 GETX$:IFX$=""THEN10503
  682. 10504 IFX$="N"THENPRINT"[207]KAY.":POKE806,60:POKE807,3:GOTO500
  683. 10505 IFX$<>"[217]"ANDX$<>"Y"THEN10502
  684. 10510 PRINT"[208]OSITION 1-9 ( [196]EFAULT IS";P"):";
  685. 10511 GETX$:IFX$=""THEN10511
  686. 10512 IFASC(X$)=13THENPRINTP:GOTO10515
  687. 10513 IFVAL(X$)<1ORVAL(X$)>9THEN10511
  688. 10514 PRINTVAL(X$):P=VAL(X$)
  689. 10515 PRINT"[196]RIVE 8 OR 9 ( [196]EFAULT IS";D"):";
  690. 10516 GETX$:IFX$=""THEN10516
  691. 10517 IFASC(X$)=13THENPRINTD:GOTO10520
  692. 10518 IFVAL(X$)<8ORVAL(X$)>9THEN10516
  693. 10519 PRINT"[157]";VAL(X$):D=VAL(X$)
  694. 10520 PRINT:PRINT"[210]ESTORING POSITION";P;"..."
  695. 10530 OPEN8,D,8,"STARFLIGHT.SAV"+CHR$(P+48)+",S,R"
  696. 10540 INPUT#8,ID(0),OD(0),ID(1),OD(1),IN,MI,R,VF,LF,AF,RF
  697. 10550 INPUT#8,DF,SF,PI,ZF,FR,H,PF,CF,EF,SD,AS,BF,HP
  698. 10560 INPUT#8,FF,MF:FORI=0TONO-1:INPUT#8,OB(I):NEXT:INPUT#8,OB$(5)
  699. 10570 INPUT#8,MA(4,4),MA(4,5),MA(5,4),MA(5,5),MA(17,5),MA(21,0)
  700. 10580 INPUT#8,MA(11,2):FORI=1TONR:INPUT#8,RF(I):NEXT
  701. 10590 IF(ST AND191)=0THEN10700
  702. 10600 OPEN15,D,15:INPUT#15,A1$,B1$,C1$,D1$:CLOSE15
  703. 10610 PRINT"[147][196]ISK [197]RROR #";A1$": "B1$:PRINT"[210]ESTORE ABORTED.":GOTO10710
  704. 10700 PRINT"[147][196]ONE."
  705. 10710 POKE806,60:POKE807,3:CLOSE8:GOTO100
  706. 11000 IFV$<>"[183][182][171]"ANDV$<>"[180][182][188]"ANDV$<>"[180][182][179]"ANDV$<>"[172][178][190]"THEN11100
  707. 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
  708. 11100 IFV$<>"[185][170][188]"ANDV$<>"[172][183][182]"THEN11200
  709. 11110 PRINT"/[179][186][190][172][186][222][223]1[176][171][223][183][186][173][186][222]":GOTO100
  710. 11200 REM
  711. 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]";
  712. 29990 PRINT"[209]":GOTO100
  713. 30000 IF(RF(R)=1ANDVF=0)ORVF=-1THEN30050
  714. 30010 RF(R)=1:ONRGOTO30100,30200,30300,30400,30500,30600,30700,30800,30900,31000
  715. 30011 ONR-10GOTO31100,31200,31300,31400,31500,31600,31700,31800,31900,32000
  716. 30012 ONR-20GOTO32100,32200
  717. 30050 RF(R)=1:ONRGOTO30150,30250,30350,30450,30550,30650,30750,30850,30950,31050
  718. 30051 ONR-10GOTO31150,31250,31350,31450,31550,31650,31750,31850,31950,32050
  719. 30052 ONR-20GOTO32150,32250
  720. 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]"
  721. 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]"
  722. 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]"
  723. 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]"
  724. 30104 PRINT"[188][176][179][187][223][172][179][186][186][175][223][188][183][190][178][189][186][173][209]":GOTO30160
  725. 30150 PRINT"/[182][179][176][171][216][172][223]<[190][189][182][177]"
  726. 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]"
  727. 30170 RETURN
  728. 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]"
  729. 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]"
  730. 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]"
  731. 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]"
  732. 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]"
  733. 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
  734. 30250 PRINT"<[176][179][187][223],[179][186][186][175][223]<[183][190][178][189][186][173]":RETURN
  735. 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]"
  736. 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]"
  737. 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]"
  738. 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]"
  739. 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]"
  740. 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]"
  741. 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]"
  742. 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
  743. 30350 PRINT",[171][176][173][190][184][186][223]<[190][189][182][177]":RETURN
  744. 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]"
  745. 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]"
  746. 30402 PRINT"[187][176][176][173][223][190][189][176][169][186][223][166][176][170][209][223]";
  747. 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
  748. 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]";
  749. 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
  750. 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
  751. 30450 PRINT"8[190][177][166][178][186][187][186][216][172][223]>[182][173][179][176][188][180]":RETURN
  752. 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]";
  753. 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]"
  754. 30502 PRINT"[187][176][176][173][223][189][186][179][176][168][223][166][176][170][209][223]";:GOTO30405
  755. 30550 PRINT">[173][178][172][171][173][176][177][184][216][172][223]>[182][173][179][176][188][180]":RETURN
  756. 30600 IFSF<1THENSF=1
  757. 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]"
  758. 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]"
  759. 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]"
  760. 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]"
  761. 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]"
  762. 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]"
  763. 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
  764. 30650 IFSF<1THENSF=1
  765. 30651 PRINT"+[173][190][177][172][175][176][173][171][190][171][182][176][177][223]-[176][176][178]":RETURN
  766. 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]"
  767. 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]"
  768. 30702 PRINT"[179][190][189][186][179][186][187][223]+->1,/0-+>+601[223]-002[209]":RETURN
  769. 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
  770. 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]"
  771. 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]"
  772. 30802 PRINT"[179][190][189][186][179][186][187][223]/>,,:18:-_)>*3+[209]":RETURN
  773. 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
  774. 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]"
  775. 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]"
  776. 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]"
  777. 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]"
  778. 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]"
  779. 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]"
  780. 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
  781. 30950 PRINT"/[190][172][172][186][177][184][186][173][223])[190][170][179][171][209]":RETURN
  782. 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]"
  783. 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]"
  784. 31002 PRINT",+0->8:[209]":RETURN
  785. 31050 PRINT"0[170][171][172][182][187][186][223],[171][176][173][190][184][186][223]-[176][176][178][209]":RETURN
  786. 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]"
  787. 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
  788. 31102 PRINT">[177][223][176][175][186][177]"
  789. 31103 PRINT"[187][176][176][173][223][182][172][223][190][185][171][209]":RETURN
  790. 31150 PRINT",[171][176][173][190][184][186][223]-[176][176][178][209]":RETURN
  791. 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]"
  792. 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]"
  793. 31202 PRINT"[179][190][189][186][179][186][187][223],+>6-,7>9+[209]":RETURN
  794. 31250 PRINT"0[170][171][172][182][187][186][223],[171][190][182][173][172][183][190][185][171][209]":RETURN
  795. 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]"
  796. 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]"
  797. 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]"
  798. 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]"
  799. 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
  800. 31350 PRINT"2[190][182][177][171][186][177][190][177][188][186][223]-[176][176][178][209]":RETURN
  801. 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]"
  802. 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]"
  803. 31402 PRINT"[172][171][190][173][189][176][190][173][187][209]":RETURN
  804. 31450 PRINT"<[176][173][177][186][173][223][176][185][223]+[168][176][223]7[190][179][179][168][190][166][172][209]":RETURN
  805. 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]"
  806. 31501 PRINT"[185][176][173][186][223][171][176][223][190][185][171][209]":RETURN
  807. 31550 PRINT"3[176][177][184][223]7[190][179][179][168][190][166][209]":RETURN
  808. 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]"
  809. 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]"
  810. 31602 PRINT"[179][190][189][186][179][186][187][223]=-6;8:[209]":RETURN
  811. 31650 PRINT"0[170][171][172][182][187][186][223]=[173][182][187][184][186][209]":RETURN
  812. 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]"
  813. 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]"
  814. 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
  815. 31750 PRINT"([182][177][187][182][177][184][223],[171][190][182][173][172][183][190][185][171][209]":RETURN
  816. 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]"
  817. 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]"
  818. 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]"
  819. 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]"
  820. 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]"
  821. 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]";
  822. 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]"
  823. 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]"
  824. 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
  825. 31850 PRINT"/[176][173][171][223],[182][187][186][223][176][185][223]=[173][182][187][184][186][209]":RETURN
  826. 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]";
  827. 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]"
  828. 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]"
  829. 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]"
  830. 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
  831. 31950 PRINT"<[186][177][171][186][173][223][176][185][223][171][183][186][223]=[173][182][187][184][186][209]":RETURN
  832. 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]"
  833. 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]"
  834. 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]"
  835. 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]"
  836. 32004 PRINT"[168][190][179][179][209]";:IFCF<2THENPRINT:RETURN
  837. 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]"
  838. 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]"
  839. 32007 PRINT"[190][177][187][223][190][223][168][183][182][171][186][223][189][170][171][171][176][177][209]":RETURN
  840. 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
  841. 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]"
  842. 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]"
  843. 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
  844. 32150 PRINT">[170][167][182][179][182][190][173][166][223],[171][176][173][190][184][186][223]-[176][176][178][209]":RETURN
  845. 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]"
  846. 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]"
  847. 32202 PRINT"[185][176][173][168][190][173][187][209]":RETURN
  848. 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
  849. 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
  850. 49010 NEXT:IFF=1THENPRINT
  851. 49020 RETURN
  852. 49100 IFFR<>RTHENRETURN
  853. 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]"
  854. 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
  855. 49200 DATA 76 , 66 , 3 , 76 , 91 , 3 , 133 , 251 , 201 , 13
  856. 49210 DATA 240 , 6 , 165 , 154 , 201 , 3 , 240 , 5 , 165 , 251
  857. 49220 DATA 76 , 202 , 241 , 169 , 255 , 56 , 229 , 251 , 76 , 202
  858. 49230 DATA 241 , 169 , 193 , 32 , 210 , 255 , 162 , 0 , 32 , 207
  859. 49240 DATA 255 , 201 , 32 , 240 , 249 , 76 , 111 , 3 , 32 , 207
  860. 49250 DATA 255 , 201 , 13 , 240 , 14 , 133 , 251 , 169 , 255 , 56
  861. 49260 DATA 229 , 251 , 157 , 145 , 3 , 232 , 76 , 108 , 3 , 138
  862. 49270 DATA 160 , 2 , 145 , 45 , 200 , 169 , 145 , 145 , 45 , 200
  863. 49280 DATA 169 , 3 , 145 , 45 , 96
  864. 50000 FORI=0TONO-1:READOB$(I),O2$(I),OB(I):NEXT:RETURN
  865. 50100 DATA "[190][223][189][170][179][180][166][223][172][175][190][188][186][172][170][182][171]","[172][175][190]",3
  866. 50110 DATA "[190][223][175][179][190][172][171][182][188][223][175][176][170][188][183]","[175][176][170]",3
  867. 50120 DATA"[190][223][188][173][176][168][189][190][173]","[188][173][176]",-3
  868. 50130 DATA "[190][223][172][178][190][179][179][223][180][177][182][185][186]","[180][177][182]",0
  869. 50140 DATA "[190][223][172][186][171][223][176][185][223][180][186][166][172]","[180][186][166]",0
  870. 50150 DATA "[190][223][172][176][177][182][188][223][187][182][172][173][170][175][171][176][173]","[187][182][172]",0
  871. 50160 DATA "[190][223][168][176][176][187][186][177][223][189][176][167]","[189][176][167]",11
  872. 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
  873. 50180 DATA "[190][223][171][168][176][210][168][190][166][223][173][190][187][182][176]","[173][190][187]",3
  874. 55000 FORI=1TONR:FORD=0TO5:READMA(I,D):NEXT:NEXT:RETURN
  875. 55100 DATA 0,2,0,0,0,0
  876. 55110 DATA 1,0,3,0,0,0
  877. 55120 DATA 0,0,0,2,4,0
  878. 55130 DATA0,0,0,0,0,3
  879. 55140 DATA 0,0,0,0,0,4
  880. 55150 DATA 7,0,0,0,0,5
  881. 55160 DATA 0,6,136,12,0,0
  882. 55170 DATA 9,0,10,135,0,0
  883. 55180 DATA 128,8,0,0,0,0
  884. 55190 DATA 0,11,0,8,0,0
  885. 55200 DATA 10,0,0,0,0,0
  886. 55210 DATA 0,17,7,14,0,0
  887. 55220 DATA0,0,0,0,17,0
  888. 55230 DATA15,0,12,0,0,0
  889. 55240 DATA 16,14,0,0,0,0
  890. 55250 DATA 140,15,18,0,0,0
  891. 55260 DATA 12,0,0,0,0,129
  892. 55270 DATA 0,0,19,16,0,0
  893. 55280 DATA 0,0,20,18,0,0
  894. 55290 DATA 0,0,0,19,0,0
  895. 55300 DATA 0,0,0,0,0,0
  896. 55310 DATA 131,16,0,0,0,0
  897. 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]"
  898. 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]"
  899. 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
  900. 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]"
  901. 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]"
  902. 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]";
  903. 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]"
  904. 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]"
  905. 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]"
  906. 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]"
  907. 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]"
  908. 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]"
  909. 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]"
  910. 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]"
  911. 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]"
  912. 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]"
  913. 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]"
  914. 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]"
  915. 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]"
  916. 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]"
  917. 60200 PRINT"[182][171][223][185][170][179][179][166][223][190][168][190][180][186][209]"
  918. 60210 PRINT:PRINT"[223][223][223][223][223][223][223][223][223][223][223][223][195]/-:,,_-:+*-1[193]";
  919. 60220 GETA$:IFA$<>CHR$(13)THEN60220
  920. 60230 PRINT"l,+>-93687+[197][223]>_<[176][172][178][182][188][223]>[187][169][186][177][171][170][173][186]"
  921. 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
  922. 63000 FORI=0TO84:READA:POKE828+I,A:NEXT:POKE806,60:POKE807,3:RETURN
  923.