home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 1 / NIKKEI-MAC-CD-ROM-1994-2-17.ISO.7z / NIKKEI-MAC-CD-ROM-1994-2-17.ISO / デモソフト・ライブラリー / 教育⁄学習 / ORBITER-CD / MENU / MENU.rsrc / BITD_1026 (.txt) < prev    next >
AmigaBASIC Source Code  |  1994-01-14  |  20KB  |  165 lines
  1.                                                                                                                                                                                                                                                               <0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d>                                                                                                                                                                                                                                          NEXT
  2. ATN
  3. ATN
  4. OR
  5. <0x16da6ea>MKD$MID$ASC<0xfc,0xfffffffb>MID$ASC<0xfc,0xfffffffa><0xfc,0xfffffffa>MID$ASCMID$ASCMID$ASCMID$ASC<0xfc,0xfffffffa>ASCMID$<0xfc,0xfffffffa><0xfc,0xfffffffa>=PUT
  6. ATN
  7. ATN
  8. /
  9. labelfffffefa{<0x7d>ASC<0x16da715>{ASCASCMID$<0xfc,0xfffffffb>{<0x7c>ASCASCMID$<0xfc,0x00>ASClabelffffa5fc=RIGHT$
  10. ATN
  11. ATN
  12. <
  13. 5PRINT<0xfc,0x00>MID$MID$<0xfc,0x01>MID$MID$ASCATNASC<0xfc,0x01><0xfc,0x01>MID$ASCMID$<0xfc,0x01><0xfc,0x01><0x7e>ASClabelfffffba6<0x7e>SIN
  14. ATN
  15. ATN
  16. NOT
  17. <0xfc,0x00><0xfc,0x01><0xfc,0x01>{<0xfc,0x01>MID$ASCMID$ASC<0xfc,0x01><0xfc,0x01><0xfc,0x01><0xfc,0x01>MID$<0xfc,0x01>{<0xfc,0x01>=STRING$
  18. ATN
  19. ATN
  20. STATIC
  21. -2.24664e-16MID${<0xfc,0x0c>MID$ASC<0xfc,0x01><0xfc,0x01><0xfc,0x01><0xfc,0x01>MID$ASC<0xfc,0x01>ASCMID$<0xfc,0x01>ASC<0xfc,0x01><0x7e>WHILEATN
  22. ATN
  23. <0x60>
  24. 4252729765<0xfc,0x00>ASCMID$ASC<0xfc,0x01>MID$ASC<0xfc,0x01>MID$ASCMID$ASC<0xfc,0x01>MID$ASCASC<0xfc,0x01>MID$ASCMID$<0xfc,0x01>CVL
  25. ATN
  26. ATN
  27. <0x5c>
  28. <0x16da7cd><0xfc,0xfffffffb>ASCMID$ASC<0xfc,0xfffffffa><0x7e><0xfc,0x00>ASC<0xfc,0x01>ASC<0xfc,0x01>                                                                                                                                 <0xc00,0x00><0xf9,0x01>{<0xf9,0x01>ASC<0xf9,0x01><0xf9,0x01><0x7d><0x46>
  29. ATN
  30. ATN
  31. <0x59>
  32.  <0x60>MID$ASC<0xf9,0x00>ASCMID$ASC{ASCMID$ASC<0xf9,0x01>ASC<0xf9,0x01><0xf9,0x01><0xf9,0x01>ASCMID$ASCASC<0xf9,0x01><0xf9,0x01>ASCMID$PRINTPRINT<0x4b>
  33. ATN
  34. ATN
  35. <0x55>
  36. <0x16da851>={ASCASCMID$ASC<0x7e><0xf9,0x00>ASC<0xf9,0x01>ASC<0xf9,0x01>MID${<0xf9,0x01>ASCLINE<0xf9,0x01><0xf9,0x01>MID$ASC<0xf9,0x01>ASCATNPRINT<0x7e><0x4f>
  37. ATN
  38. ATN
  39. <0x51>
  40. "û･ûû{û＋ûû{･û＝û＝û{･û{û▼ûüｬêﾕ
  41. ATN
  42. ATN
  43. <0x4e>
  44. &HeafcPOKEW<0xf9,0x00>ASC<0xf9,0x01><0xf9,0x01>ASCMID$<0x7e>ASC&Ha581<0xf9,0x00><0xf9,0x01>MID$<0xf9,0x01>ASCMID$ASC<0xf9,0x01>ASC<0xf9,0x01><0x7e><0x59>
  45. ATN
  46. ATN
  47. <0x4a>
  48. #<0x7d>MID$ASC<0xf9,0x00><0xf9,0x01>MID$<0xf9,0x01>MID$ASCASCATNMID$ASC<0xf9,0x01><0xf9,0x01>MID$ASC<0xf9,0x01>ASC<0xf9,0x01>ASCMID$<0xf9,0x01><0xf9,0x01>CLOSEMKD$<0x7e><0x5d>
  49. ATN
  50. ATN
  51. <0x46>
  52. $<0x7d>{ASCMID$ASCASC<0xf9,0x00>                                                                                                                                 <0xc00,0x00>ASC<0xf9,0x01>{ASCMID$ASCASC{<0xf9,0x01>ASC<0xf9,0x01>ASCASC<0xf9,0x01>OPEN{ASC<0xf9,0x01>EQV<0x62>
  53. ATN
  54. ATN
  55. CVL
  56. $<0x7c>MID$ASC<0xf9,0x00>ASCMID$ASCASCMID$ASCASC<0xf9,0x01>ASCMID$<0xf9,0x01><0xf9,0x01><0x7c>ASCASC<0xf9,0x00>ASC<0xf9,0x01>{MID$ASC<0xf9,0x01>MID$ASC<0x7c><0x7d>THEN
  57. ATN
  58. ATN
  59. WRITE
  60. &=<0x7c>ASCASCMID$<0xf9,0x00><0xf9,0x01>ASC<0xf9,0x01><0xf9,0x01>MID$ASCASCMID${<0xf9,0x01>MID$<0xf9,0x01>ASCMID$ASC{MID$<0xf9,0x01><0xf9,0x01><0xf9,0x01>ASC<0xf9,0x01>=<
  61. ATN
  62. ATN
  63. <0x3b>
  64. '<0x7e>{MID$ASC<0xf9,0x00><0xf9,0x01><0xf9,0x01><0x7c>ASCMID$ASCASCMID$ATNASC<0xf9,0x00>ASCASC<0xf9,0x01>POKELMID$ASCASC<0xf9,0x01>MID$ASCASCMID$ASC{<0xf9,0x01>EQV^
  65. ATN
  66. ATN
  67. SQR
  68. <0x16da9f3><0x7c>ASC<0xf9,0x00><0xf9,0x01>ASCMID$<0xf9,0x01>ASC<0x7d><0xf9,0x00><0xf9,0x01>ASCASC<0xf9,0x01>{POKELMID$ASCASC<0xf9,0x01>MID$ASC<0xf9,0x01><0xf9,0x01>ASCASCMID$PRINT<0x7e>EQV
  69. ATN
  70. ATN
  71. RSET
  72. "＝･▼ûû▼＋û▼ûû＋･‚                                                                                                                                 MID$ASC<0x7f,0x00><0x7f,0x01>MID${ASCMID$<0x7e>ASCvarffffa6fe<0x7f,0x00>ATN
  73. ATN
  74. RETURN
  75. 3<0x7d>MID$ASC<0x7f,0x00>ASC<0x7f,0x01>MID${<0x7f,0x01>MID$ASC<0x7f,0x01><0x7f,0x01><0x7f,0x01><0x7f,0x01>ASC<0x16daaa1>MID$ASC<0x7f,0xfffffffb><0x7f,0xfffffffa>ASC<0x7f,0xfffffffa>MID$ASC<0x7f,0xfffffffa>ASCASC<0x7c><0x7d><0x7c>
  76. ATN
  77. ATN
  78. PRINT
  79. )<0x7d>ASC<0x7f,0x00>{ASC<0x7f,0x01><0x7f,0x01>MID$ASC<0x7f,0x01><0x7f,0x01><0x7f,0x01>MID$ASCMID$ASCMID$ASC<0x7f,0x01><0x7f,0x01>MID$<0x7f,0x01>ASC<0x7f,0x01><0x7f,0x01>MID$<0x7f,0x01>MKD$<0x7e>
  80. ATN
  81. ¥
  82. varfffffdac<0x7e><0x7d>ü%÷÷                                                                                                                                                                                                                                    PRINT<0x16dab23><0x7d>PRINT<0x7d>PRINT<0x7d>PRINT<0x7d><0x7d>PRINT<0x7e><0x7d>
  83. labelfffffeac<0x7d><0xfb,0x00>PRINT<0x7d>=<0x4c>
  84. NEXT
  85. &=MID${ASC<0xfb,0x00>ASC<0xfb,0x01>MID$ASCASC<0xfb,0x01>MID$<0xfb,0x01>MID$<0xfb,0x01>ASC<0xfb,0x01><0xfb,0x01><0xfb,0x01>MID$ASC<0xfb,0x01>MID$ASC<0xfb,0x01>MID$ASCASCMID$labelffff81fb<0x7d>CHR$
  86. <0x7e>
  87.  
  88. <0x7e><0x7e>PRINT<0x7e><0x7c>1<0xfb,0x00><0xfb,0x01>,PVP<0xfb,0x01>P+,¥%,+MOD,MOD,MOD+%%+MODMOD+MOD,+%,+,,¥,¥P+P,P,V,WASC<0x7e><0x7c>4<0xfb,0x00>P,¥%+MOD,+,MOD,<0xfb,0x01><0xfb,0x01><0x7c>PRINTPRINT<0x7c>PRINT<0x57>
  89. MID$
  90. "™ú▼û▼úａ･û＋ü＝ûûû{û▼û▼úû▼û□ûûú･ｬ煬
  91. varfffffefd2902260865{<0xfb,0x00>,¥%MOD<0x16dac03>%varfffff501IMPvarfffff601IMPvarfffff5f5varfffff501IMPIMPvar01feIMP<0x16dac19>varfffff500 IMPvarfffff501IMPvarfffff5f5varfffff5f5varfffffef5IMPIMPvarfffff5f5varfffffef6var0101<0x7e>IMP<0x16dac71>varfffff501IMPvarfffff501<0x7d>IMP<0x16dac7b><0x16dac7c>%+,MODMOD<0xf3,0xfffffffb>CLOSEMKD$<0x60><0x5f>
  92. LOC
  93. 2896527745<0xf3,0x00>ASC<0xf3,0x01>MID$ASC<0xf3,0x01><0x7c>ASCASCMID$ASCASCMID${<0xf3,0x00>ASC<0xf3,0x01><0xf3,0x01>ASCATN{
  94. MID$<0x7e>ASCMID$ASCASC<0x7c>PRINT=FOR
  95. <0x16dacbb><0x7e><0x7d>PRINT<0x7c>ATN<0x16dacc1>ASC<0xf3,0xfffffffb>,¥varfffff601varfffff5fevar10f5%IMPIMPvar2401$var2501%var2501var25fevar0124varfffffe25<0x16dace7>var2501%var2525var25f5var0124var01f5%<0x7d>var0624%varfffff525%IMP<0x7e>var1e25$var2501%varfffff501%varfffff501%var0124IMPvarfffff501IMPIMP<0x16dad1d>varfffff6faASCASC<0x7d>=THEN
  96. LEN
  97. 9PRINT{<0xf3,0x00>MID$ASC<0xf3,0x01><0xf3,0x01>{MID$ASCASCMID$ASC<0xf3,0x01><0xf3,0x01>ASCASC<0xf3,0x01><0xf3,0x01>                                                                                                                                                                                                                                                           
  98.                                                                                                                                  <0x7e><0xa3,0x00>{<0xa3,0x01><0xa3,0x01><0xa3,0x01>ASCPRINT=INKEY$
  99. <0x16dadc1><0x7e><0x7d>ASC{VV&H502b%IMPvar0124var2501IMP%varfffffe254var2501%%var2501%var25f5%var2401%IMP%IMPvar25fevar1b25IMP%var2501var25f5var25f5var2501%IMPvar25f5%varfffff501%var2501<0x7e>%<0x16dae10>var0125var25f5%varfffffc25<0x16dae1b>var2525var0125var2401varfffffbf5<0x16dae28>,<0xa3,0xfffffffb>ASCPUT+
  100. INPUT
  101. 6<0x7e>ASCASCMID$ASC<0xa3,0x00>MID$ASC{MID$<0xa3,0x01><0xa3,0x01><0xa3,0x01><0xa3,0x01>ASCMID$MID$ASC<0xa3,0x01>LINEMID$<0xa3,0x01><0x7e><0xa3,0x00>ASC                                                                                                                                 MID$ASCASC<0x7f,0x00><0x7f,0x01>MID$<0x7c><0x7e>LEN
  102. <0x16dae8e><0x5f>MKD$<0x7f,0x00>Pvar20f5%%var0125%var2501var2525var0125var2501%var2501%var2525var25f5var0124<0x7e>var1e25var0125var2401$var2501%IMP%%IMP%varfffff501%IMP%IMPvar25f5var01f5varfffffc25<0x16daedb>var2525IMP%var01f5%var25f7%MOD%var25fevar0925IMPIMPvar0124var25f5varfffffef5<0x16daefc>varfffff501                                                                                                                                                                                                                      =XOR=EQVIMP
  103. GOSUB
  104. <0x16daf3a>MKD$zASCASC<0xc7,0xfffffffb><0xc7,0xfffffffa>MID$<0xc7,0xfffffffa>ASC<0x16daf47><0xc7,0xfffffffb>MID$ASC<0xc7,0xfffffffa><0xc7,0xfffffffa>ASC<0xc7,0xfffffffa>ASCPOKEW<0xc7,0xfffffffa>ASC42491ASC<0xc7,0x00>LINE<0xc7,0x01>MID$ASCASC<0xc7,0x01><0x7d>LOF
  105. PRINT{,<0x7f>%%var0125%varfffffc25
  106. varfffffe25Vvar25f5%var2501%var25f5var2501%%$var2525var25f5%var2401%var2501$var2501IMPvar0125var25f5var0125varfffff501%IMPvar2401%MOD%var2525var2501%%varfffff750+&+&var2501$var2401varfffff501$var2401varfffff5fevar0ff5var2473LOFLSET<0x47>LSET<0x47>LOG<0x4f>XORXOR=<0x56>=<0x7e>
  107. FN
  108. <0x16daff1><0x7d><0xc7,0x00><0x7c>{MID$                                                                                                                                  ASC<0xf9,0x00>MID$ASCMID$<0xf9,0x01>2ASCMID$ASC<0xf9,0x01><0xf9,0x01>++%+P<0xf9,0x01><0xf9,0x01>ASCMID$ASCMID$<0x7d>ASC
  109. <0xf9,0x00>ASClabelffffa5fb<0x7e>MKI$
  110. <0x16db04b><0x7e><0x7d>ASCP,%<0x16db052>MOD%var25f6%MOD&<0x7d>%%var25f5%varfffffe25
  111. varfffffc25<0x16db06d>var2525var25fevar2b25var0125var2501$var25f5%var2501%var2501%%IMP%IMPvar25f5var2401%IMPvar2501%MOD&,,¥%%+<0x7e>%P+&MOD%%<0x7d>varfffffdf57varfffff501var2501%IMPvar4f4fyLOGLENLEFT$LOGELSEIFLOFLOFCLNGLOG<0x47><0x47>LOG<0x48><0x16db0cc><0x4f><0x56><0x50>XORXORFOR
  112. &Hfee0<0x7e>=PRINT<0x7c>{ASCPOKEW{ASCASC
  113. {<0x7d>ASC2.61179e+36<0xf9,0x0b>&MODvarfffff52bWASCMID$<0xf9,0x00><0xf9,0x01><0xf9,0x01>MID$ASC<0xf9,0x01>MID$<0xf9,0x01><0xf9,0x01><0x7d>ON
  114. <0x16db107><0x7e>PRINTP,%
  115. MOD<0x7e>%740633382MOD&MOD+                                     +%+%                                      %%MOD%var2525varfffff625var25f6<0x7e>%
  116. MOD<0x7d>%5var2525var2501%var2501%var2501%IMP%var2501%var2501%IMPvar2501%var2401var25f5+PP,<0xf4,0x00><0xf4,0x01>WVP,¥&+%%varfffffe259IMPvar2501IMPvar01f5%var2525+sLEFT$LOGLOGELSEIFLOGLOGCLNGLOGLOGELSEIFLOFELSEIFLEFT$&Ha2c1LOFLOGELSEIFLOG<0x47>LSET<0x4f><0x50>OR<0x50><0x56>FN
  117. <0xf4,0x00>MID$labelfffffcfbMKD$<0x7e><0x7c><0x16db215>MKD$<0xf4,0xfffffffb><0xf4,0xfffffffa>ASC<0xf4,0xfffffffa>ASCVMODvar252bASC<0xf4,0x00><0x7e>ASC&Hfb81ASC<0xf4,0x00>MID$ASCASC<0xf4,0x01>ASCMID$PRINTPRINT
  118. labelffffac7bP5.92268e-316+&%,%+&MOD%,&%&MOD,%%MODMOD&%MOD%MOD<0x7d>%<0x16db260>MOD%var25f6<0x7e>%
  119. varfffffe25label0125MOD<0x7c>%
  120. varfffffe25<0x16db276>var2501%varfffffe25:var2501%%ü%÷÷                                     var0125var2501%,OP<0x23,0x00>zzP,PP¥%,%+%var0125IMPvar2401$var0100 var73c6LOGLOGELSEIFLOGLENLENLOFLENLEFT$LOG157LOFLOGLOGLOFLEFT$ELSEIFLOFLEFT$LOGELSEIFLOF<0x47>LOG<0x47><0x47><0x7e><0x4f>labelffffd600                                                                                                                                                        
  121. IMP
  122. <0x16db355>ASCASC<0xf2,0xfffffffb>ASC<0xf2,0xfffffffa>V%<0x16db35f>IMPP<0x7d>ASC31738MID$ASCMID$ASCASC<0xf2,0x00>MID$ASCASC<0xf2,0x01>READ
  123.  
  124. ATN:PP,P,P,O&¥&,+,%,%,¥&+%,+&+&+&,++&+&+,%,%,%,%,%MOD,%MOD,%+%%MOD&var2bfe%var012b<0x7d>%labelfffff625varfffffe25
  125. varfffffe25label0124varfffffe251var2501%MOD,¥u]WWz<0xf2,0x00>,P¥&+<0x7e>%3var2501%var0125%var2525+¥yLENLEFT$yLENLOFLENLEFT$<0x7e>LEFT$162LENLEFT$LOFLEN<0x46>LOGLEN<0x46>LENLOFLEFT$LEFT$LOGLOGLEN<0x7e>LOG
  126. <0x47><0x7d><0x4f>
  127.  
  128. <0x7e><0x7d>LOC
  129. OR
  130. <0x16db418>{ASCASC{ATNMID$ASC<0xf2,0xfffffffb>PMODMOD,ABS<0xf2,0xfffffffa>{<0x7c>ASC<0x7e><0xf2,0x00>MID$<0x7e><0xf2,0x00>ASC<0xf2,0x01>EQVRND
  131. I
  132. <0x7d>STEPP¥P<0xf2,0x00>                                                                                                                                                                                                                                                        ,OP,¥P¥PO&¥P,O,¥&O,¥%,&¥,¥&¥,+,%,%,%+,%+,                                      +&+%,%+&MOD+%%MOD%MOD&%+<0x7e>%<0x16db4e6>+%var25f6var2525varfffff625MOD%varfffffe2531488                                                                                       WVPP,¥,+&MOD<0x7e>%
  133. varfffffc25&¥xLENLEFT$x<0x16db54c>LENLEFT$xGOSUBxLEFT$LENLEFT$LOFLEN<0x7e>LEFT$41629LOFLEFT$LOFLOGLEFT$LENLOFLENLOGCLNGLENLOFLENLOFLOG<0x4e>yASCPOKEW<0x78,0x00>PRINT<0x60><0x7e><0x7e><0x60>PRINT
  134. /
  135. <0x16db57b>OPENMKD$MID$<0x78,0xfffffffb>ASCMID$<0x78,0xfffffffa>ASC<0x78,0xfffffffa>+P<0x7e>ASC<0x16db58c><0x78,0xfffffffb>ASC{ASC<0x78,0xfffffffa>ASC{POKEWASCMID${<0x78,0xfffffffa><0x7e>SPACE$
  136. <0x7e>
  137. <0x16db5a2>=MKD$<0x78,0xfffffffb><0x78,0xfffffffa>                                                                                                                                                                                                                                                        ,<0x7e>PJ,,OP,P+,P,¥P,O&¥,¥&<0x2a,0x00>,¥I,¥%,O%,O,+¥&+                                            ¥&+%+&+¥%&++&+&+,%MOD,%%+MOD&%+%%+&MOD%%                                      var2556PRINT<0xfc,0x00>{<0xfc,0x01>WTABPVP,O,,++%¥%,%,,I,<0xfc,0x01>s<0x16db6b4>xxLEFT$rxrxLEFT$xxLEFT$x<0x7e>LEFT$
  138. LOF<0x7e>LEFT$2744949923LEFT$LENLOFLEFT$LOFLOGLEFT$LOFLENLOGLEFT$LENLENABSyzz<0xfc,0x00>VWV<0xfc,0x01><0x7d><0x7e><0x7e>SGN
  139. <
  140. %<0x60><0x7e><0x7c><0xfc,0x00>ASC{<0xfc,0x01>zP¥%ASCMID$<0xfc,0x01>ASC<0xfc,0x01>ASCASCMID$<0xfc,0x01><0xfc,0x01>zWASCz<0xfc,0x01><0x50><0x5f><0x7e>=<0x60>WHILE<0xfc,0x00>4><0x7c>WzWPVVPVP<0xfc,0x00>VPP,P¥PP¥<0x7e>P_¥,PP<0xfc,0x00>¥,,O&,P,PP,,O,¥J+,O&<0xfc,0x01>%,O,,O,%,¥%&+&+,%,¥+%,%,%+&,%&MOD%,%+%MOD,%%W<0x7d>ATNMID$ATNASC<0xfc,0x00><0xfc,0x01>WP<0xfc,0x01><0xfc,0x01>P,PP,P¥P,                                                                                <0x16db7c2>P<0xf5,0xfffffffb>xrrxrrGOSUBxGOSUBxxLEFT$xLEFT$<0x7e>x0LEFT$xLEFT$LEFT$LENLEFT$LOFLEFT$LEFT$LOGLEFT$LEFT$LOGLENLOFLEFT$LOGLOF<0xf5,0x00>&H797aU<0xf5,0x00>MOD,¥¥<0xf5,0x01><0x7e><0x7e><0x3b>
  141. *
  142. .<0x7d><0x7d><0x7e><0x7d><0x7d><0x7e><0x7d><0x7d>PRINT{zV<0xf5,0x00>PVVPV<0xf5,0x01><0xf5,0x01><0xf5,0x01><0xf5,0x01>MID$ASC<0xf5,0x01>ASC<0xf5,0x01><0xf5,0x01>VVP<0xf5,0x01>{<0xf5,0x01><0x7d><0x7d><0x7c><0x7c><0x7d><0xf5,0x00><0x60>=EQV<0x53>
  143. <0xf5,0x00><0x16db83a><0x7e><0xf5,0x00>WzW<0xf5,0x01><0xf5,0x01>VQVP<0x7e>V<0x16db84b>PVQ<0xf5,0xfffffffb>P<0xf5,0xfffffffa>P<0xf5,0xfffffffa>,<0x7d>PM<0xf5,0x00>¥P¥,PO,P,O,P,O,P,O,P¥,¥P,I,¥P¥&¥,+&¥&+,%,¥%+,+%,%+&+&%+%ASPRINTMKD$<0x7c><0xf5,0x00><0xf5,0x01>{<0xf5,0x01>W{WVPVP2<0x7e>Pvar32505.72684e+13Q                                                                                                                  xrrxxrxxGOSUBxrxxGOSUBxxLEFT$xLEFT$xLEFT$x<0x7e>LEFT$-4.14548e-21LENLOFLENLEFT$LENLOFCLNGLEFT$LOGLEFT$LOGLOGLENLSETABSVzvarfffff5f5,<0x70,0x00><0x7c><0x7d><0x7e>CLNG
  144. +
  145.  
  146. =<0x7e>z<0x16db921><0x70,0xfffffffb>z<0x70,0xfffffffa>V<0x70,0xfffffffa>VPP<0x70,0xfffffffa>/ASC<0x70,0xfffffffa>{MID$ASCMID$ASC<0x70,0xfffffffa>{MID$ASC<0x70,0xfffffffa><0x70,0xfffffffa>O<0x70,0xfffffffa>P<0x70,0xfffffffa>OVVP<0x70,0xfffffffa>Vz<0x70,0xfffffffa>                                                                                                                                 POKEWASCMID$ASC<0x79,0x00>MID$<0x79,0x01><0x7c><0x7c><PRINTlabelfffffdac<0x7d>IMP
  147. IMP
  148. 2<0x7e>PRINTATNASCPOKEW{<0x79,0x00>W{V{<0x79,0x01>WP<0x79,0x01>V<0x79,0x01>VWVW<0x79,0x01>WVPVV<0x79,0x01>PP<0x79,0x01><0x79,0x01>P,VP<0x79,0x01>P¥P,<0x7e>P<0x16db9ce>,P,PO,,O,<0x79,0xfffffffb>+&O&OP¥&¥P¥O,%¥,%<0x7e>,<0x16db9ed>¥&¥&+¥%%W=<0x7e>PRINT                                                                                                                                                                            <0x7c>ATN<0xfa,0x00>ASC<0xfa,0x01>z{W<0xfa,0x01><0xfa,0x01><0xfa,0x01>V{<0xfa,0x01>{W{TAByrrxxrx<0x7e>rrxr<0x7e>xlabel7278r<0x7e>x$GOSUBxxLEFT$xLEFT$xLEFT$LEFT$LENLEFT$LOFLEFT$LENLEFT$LOGLEFT$LEN<0x46>LENLOFLOF<0x48>LOGOPENMID$<0xfa,0x00>+IMPvarfffff62b<0xfa,0x00>PRINT<0x60><0x47>
  149. >
  150. ?<0x7e>OP<0xfa,0x00><0xfa,0x01>PUPzVPzV<0xfa,0x01>PVVPzASC{<0xfa,0x01>MID$ASCASC<0xfa,0x01>MID$<0xfa,0x01>MID$ASC{VVPV<0xfa,0x01>z<0xfa,0x01>PUPUP<0xfa,0x01><0xfa,0x01>UVP<0xfa,0x01>VVP<0xfa,0x01>V20566zVPVzVVzVzSTEPz<0xfa,0x00>Wz<0xfa,0x01><0xfa,0x01><0xfa,0x01>Vz<0x7c>PRINT<0xfa,0x00>XOR<0x7c>lPRINTMID$ATN<0xfa,0x00>ATN{POKEWATN{POKEW{W{<0xfa,0x01>WzWSTEPWzW<0xfa,0x01>V<0xfa,0x01><0xfa,0x01><0xfa,0x01><0xfa,0x01>VWVWPVVQVPV<0xfa,0x01><0xfa,0x01>P<0xfa,0x01><0xfa,0x01>V                                                                                VPP,P,<0x2a,0x00><0x2a,0x01>P,P<0x2a,0x01>&<0x2a,0x01>,P¥P¥O,%<0x2a,0x01>¥&O,,<0x2a,0x01><0x7d>PRINTPUT<0x7d>PRINTPRINT                                                                                                                                                                                                                                                            MKD$ATNMID$ATN<0x7e>ASC
  151. {8ASC{<0xa4,0x00><0xa4,0x01>{POKEW{<0xa4,0x01>rxrrxrrxrxrxrx<0x7e>rlabel7872x<0x7e>rlabel7878GOSUB<0x7e>x!LEFT$xxLEFT$xLEFT$LENLEFT$LOFLEFT$LEFT$LOFLENLEFT$LOGLEFT$LEFT$LOGCLNGNEXT<0x48>LSET¥%MODIMPvarfffff501,V<0xa4,0x00><0x7e><0x4d>
  152. THEN
  153.  <0x7e>,<0xa4,0x00><0xa4,0x01>V<0xa4,0x01>V<0xa4,0x01>z<0xa4,0x01>zP<0xa4,0x01>PzV<0xa4,0x01>MID$ASCASC<0xa4,0x01>{<0xa4,0x01>ASC<0x7e><0xa4,0x00>ASCMID$z<0xa4,0x01>Vz<0xa4,0x01>V<0xa4,0x01><0x7e>Vvar5055<0x7e>V+PVzP<0xa4,0x00><0xa4,0x01>P<0xa4,0x01>zP<0xa4,0x01>V<0xa4,0x01>                                                                                VP<0xf6,0x00><0xf6,0x01>V<0xf6,0x01>PVV<0xf6,0x01><0xf6,0x01>V<0xf6,0x01>P<0xf6,0x01><0xf6,0x01>zPzP<0xf6,0x01><0xf6,0x01>P<0xf6,0x01><0xf6,0x01>PP<0xf6,0x01><0xf6,0x01>V{STEP<0xf6,0x01>W{POKEW{<0x7e>ASC%<0xf6,0x00>ASC<0xf6,0x01>{W{<0xf6,0x01>Wz{{W{<0xf6,0x01><0xf6,0x01>VSTEPQVW<0xf6,0x01><0xf6,0x01><0xf6,0x01>VVWPVQ<0x7e>V.P<0xf6,0x00>VP<0xf6,0x01>WPVP<0xf6,0x01>VP<0xf6,0x01>P,<0xf6,0x01>P¥P,P,POP,P&O,,%{<0x7e>PRINTPUTPRINTPRINT<0x7d>PUTPRINT<0x7d><0x7d>PRINT<0x7f><0x7c>252MKD$<0x7c>MID$<0xf6,0x00><0xf6,0x01>ASC<0xf6,0x01>ATN<0xf6,0x01>sr<0x7e>x1.04216e+09xrxrxrrxxrxrrxxrrxrxrxrxxLEFT$<0x7d>x<0x16dbd5b>LEFT$yLEFT$xLOFLEFT$LENLOFLENLOFLENLOGy+MODvar01fbIMPlabel25df=<0x51>
  154. STATIC
  155. `=OVzVP<0xf6,0x00>P<0xf6,0x01>t<0xf6,0x01>V                                                                                                                                                                                                                                                        z<0x54,0x00>VPz<0x54,0x01><0x54,0x01>{<0x54,0x01><0x54,0x01>ASCMID$ASCMID$ASCASCTABz<0x54,0x01>VtVVP<0x54,0x01><0x54,0x01>PV<0x54,0x01><0x54,0x01>TABVz<0x54,0x01>zPVV<0x54,0x01><0x54,0x01><0x54,0x01>V<0x54,0x01><0x54,0x01><0x54,0x01>VPzPTABtVPVzPVz<0x54,0x01>z<0x54,0x01>                                                                                V<0xf6,0x00>z<0xf6,0x01>z<0xf6,0x01><0xf6,0x01><0xf6,0x01><0xf6,0x01><0xf6,0x01><0xf6,0x01>VP<0x7e>V`zV<0xf6,0x00>{ASC{ASC{ATNASCASC<0xf6,0x01>ASC{<0xf6,0x01>]{<0xf6,0x01>{W<0xf6,0x01>{W{<0xf6,0x01><0xf6,0x01>STEPzW<0xf6,0x01>{VW{VW<0xf6,0x01>STEPQ<0xf6,0x01>VWPVVWPVPVP<0xf6,0x01>QVP<0xf6,0x01><0xf6,0x01><0xf6,0x01>,P2P<0xf6,0x01>PP<0xf6,0x01>ASC<0x7d>PRINTPRINT<0x50>PRINTPRINT<0x7d>PRINT<0x7d><0x7d>PRINT<0x7d>PUTPRINT<0x7d><0x7e>PRINT0<0x7c><0x7d>MKD$<0x7c>PRINTMKD$PRINT<0x7c>PRINTLETxxrxrxxrxrxrTrrxrrxrrxrrxrrxrxrxrxrxrxGOSUB<0x7e>xvarffff9c79<0x7c>LEFT$<0x16dbeeb>LOGLEFT$OMOD%varfffffaf5<0xf6,0x00><0x7d><0x55>
  156. AND
  157. <0x16dbefd><0x7d>=EQV=<0x7e><0x7d><0xf6,0x00>aOPEN<0x7c>OPEN<0x7c><0xf6,0x00>P<0xf6,0x01>VzPVVPV<0xf6,0x01><0xf6,0x01><0xf6,0x01>PVzPVVzASCASCLINE                                                                                                                                                                                                                                                           ASCMID$<0x7f,0x00><0x7f,0x01><0x7f,0x01>ASCzPPV<0x7f,0x01><0x7f,0x01>VVPV<0x7f,0x01><0x7f,0x01><0x7f,0x01>VUtVP<0x7f,0x01><0x7f,0x01><0x7f,0x01>z<0x7f,0x01><0x7f,0x01>V<0x7f,0x01>PVPVPP<0x7f,0x01>V<0x7f,0x01><0x7f,0x01><0x7f,0x01><0x7f,0x01>var5650<0x7d>V3PzVVzV<0x7f,0x00>zPz<0x7f,0x01>PzVPVVPVVzV<0x7f,0x01>PVP<0x7f,0x01>VV<0x7f,0x01>{V<0x7f,0x01>{ASCATNASCMKD$ATNMID$ASCASC{ASCASC{<0x7d><0x7f,0x00>{<0x7f,0x01>                                                                                                                           {W{<0xf7,0x00><0xf7,0x01>STEP<0xf7,0x01>Q<0xf7,0x01>QzW<0xf7,0x01>zWWQV<0xf7,0x01><0xf7,0x01>VWQ<0xf7,0x01>VPWVVP<0xf7,0x01><0xf7,0x01>VPP<0xf7,0x01>PP<0xf7,0x01>PRINT<0x7d>PRINTPUT<0x7d>PRINT<0x7d>MKD$3PRINT<0x7d>PRINTPUTPRINT<0x7d><0x7d>PRINTPUTPRINTPUTPRINTPRINT<0x7d>PRINTPUTPRINTPUTMKD$<0x16dc052>r<0xf7,0xfffffffb>
  158. r<0x7e>x
  159. r<0x7e>x<0x16dc05e>rxrxrrx<0x7e>r0xrxrxrxrxrxrxxrLEFT$rLEFT$<0x7e>x<0x16dc07d>LENxLEFT$MODMOD%varfffff6fevar0afa<0xf7,0x00>POKEW]<0xf7,0x01><0x5f>><0x60><0x5b>
  160. *
  161. kPRINT¥<0xf7,0x00>VPUP¥O<0xf7,0x01><0xf7,0x01>O,O<0xf7,0x01>¥O¥<0xf7,0x01>V<0xf7,0x01>z<0xf7,0x01>tV<0xf7,0x01>PV<0xf7,0x01>VUPV<0xf7,0x01><0xf7,0x01><0xf7,0x01>MID$ASC{<0xf7,0x01><0xf7,0x01><0xf7,0x01>ASC<0xf7,0x01>zVzPVVz<0xf7,0x01>VPz<0xf7,0x01>t<0xf7,0x01>VPVVPVPVzPV<0xf7,0x01>z<0xf7,0x01>PV                                                                                                                          <0xc00,0x00>UPVt<0x54,0x01>Pz!<0x54,0x01>VPV<0x54,0x01>P<0x54,0x01>V<0x54,0x01><0x54,0x01>V<0x54,0x01>V<0x54,0x01>P<0x54,0x01>PVzPVUt<0x54,0x01>z<0x7e><0x54,0x00>z<0x54,0x01>zP<0x54,0x01>1P<0x54,0x01>V<0x54,0x01><0x54,0x01><0x54,0x01>ASCATN<0x7c>ATNMID$ATN<0x54,0x00>MKD$POKEWPOKEW|POKEWASC                                                                                                                                                                                                                                                          {<0x79,0x00><0x79,0x01><0x79,0x01>zW<0x79,0x01>{WzW<0x79,0x01>z<0x79,0x01>zWV{V<0x7e><0x79,0x00>QSTEPPW<0x79,0x01>PW<0x79,0x01>WVQ<0x79,0x01>P<0x79,0x01>PRINT<0x7d>MKD$<0x7d>PRINT4255579645PRINT<0x7d>MKD$<0x7d>PRINT<0x7d>MKD$<0x7d><0x7d>PRINT<0x7d><0x7d>PRINTPUTPRINTPRINT<0x7d>OPENLENyLENyLENxLENxLEN<0x7e>x<0x16dc1f8>rxxrrxr<0x7e>x/rxTrxrxNxrxrxrxrxrrxrxx                                                                                                                                                            xx%IMP%MODMODvar25f5IMP<0x7c>OR<0x7e><0x50>ABSLSET<0x50>OPENzABSLSET<0x5e>
  162. <
  163. 7PRINT$¥%O+¥+O+¥,O++¥+O+O¥OPUPO<0x76,0x00>PO<0x76,0x01>PO<0x76,0x01>PU<0x76,0x01><0x76,0x01><0x76,0x01><0x76,0x01>MID$ASC<0x76,0x01><0x7c>ASCMID$ASC<0x76,0x00><0x7e><0x76,0x00><0x76,0x01>PO<0x76,0x01>UPP¥PU¥PO<0x76,0x01>OP<0x76,0x01>O<0x76,0x01>UP¥UPOV                                                                               <0xc00,0x00>O<0xf6,0x01><0x7e>PP<0xf6,0x00>;PU¥P<0xf6,0x01><0xf6,0x01><0xf6,0x01>PUPOUP¥UUPUPPO<0xf6,0x01>PUP¥<0xf6,0x01>P<0xf6,0x01>P¥PPUPOP¥OV<0xf6,0x01>UO,P<0xf6,0x01>PV<0xf6,0x01><0xf6,0x01><0x7d>ASC<0x16dc33d>ATNMKD$<0x7c>ATN<0x7c>ATNATNASC<0xf6,0x00>{<0x7d>ASC/POKEWATNPOKEL{POKEW{<0xf6,0x00>{<0xf6,0x01>{SPC{<0xf6,0x01><0xf6,0x01>W{WzWzWzWzW<0xf6,0x01>V{VWP<0xf6,0x01>WVASCPUT<0x7d>MKD$`<0x7e><0x7c>PUT<0x7d>PRINT<0x7d>PRINT<0x7d>MKD$<0x7d>PRINT<0x7d>MKD$<0x7d>PRINTPRINT<0x7d>MKD$PRINTPUT<0x7c><0x50>PUT<0x50>LSETyLOG<0x16dc398>LEN<0x16dc39a>LENyLENyLENLENyLENxsLEFT$xrxxrxxrxxrxrxrxrxxrrxxrxrxrxrxrx%MOD%*%var25f5varfffff5cf<0x7c>ORORyLENOPEN<0x50>yLENyMID$XORSTATIC
  164. '
  165. "ｬ+OO                                                                                                                                                                                                                                                       O+P+O¥+O¥O+P+P<0x4d,0x00>¥+¥OP¥¥O,O¥O<0x7e>¥#O+O+OVMID$<0x4d,0x00>MID${<0x4d,0x01>MID$POKELMID$ASC<0x4d,0x01>MID$<0x4d,0x01>O¥¥O¥+O¥O¥O¥O<0x7d>¥&H4ff7O¥P+                                                                                                                                                                                                                                                       O¥¥O<0x7e>¥<0x16dc498>O¥O,O¥¥O ¥+O+O,O¥O¥<0xf5,0xfffffffb>,O¥O¥,O¥P+O,O¥¥O¥O¥+O<0x7e>¥ZO¥¥O¥OP+¥¥O¥PUO++O¥<0xf5,0x00>VOP¥P¥OP¥VzPOKEW<0x7c>MKD$<0xf5,0x00><0x7c><0x7c>MKD$COMMONMKD$<0x7c><0xf5,0x00><0x7c>ATNASCATN<0xf5,0x00>ASCATNASC<0xf5,0x01>ASCASCATNASC{ASC<0xf5,0x01>ASC{POKEW<0xf5,0x01><0xf5,0x01>]{W<0xf5,0x01><0xf5,0x01>z{V{<0xf5,0x01>W<0xf5,0x01>PATN<0x7e><0x7d>,<0x7c>PUTPRINTPRINT<0x7d>MKD$PUTPRINT<0x7d>PRINT<0x7d>PRINTPUTPRINT<0x7d>PRINT<0x7d>PRINTPUT<0x7c><0x50>PUT<0x50>OPENLSETLSETLENLOGLSETLENLOGLOGLETLOGyLOGLENyLENLOGyyLENyLEN<0x7d>y<0x16dc553>LEFT$yxyxyxrxr<0x7e>xxxr<0x7e>x4.921e+30%¥O+%var25f5var2501OPEN<0x4f>y<0x56>LENABSy<0x56>ONxrxyMID$<0x50>