home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / UC2EINVA.ZIP / INVADERS.BAS < prev    next >
BASIC Source File  |  1996-05-11  |  28KB  |  1,035 lines
  1. This is the encoded source code of the game. Find out how to decode it and  
  2. be happy...
  3.  
  4. QRPYNER FHO fgnegmnx ()
  5. QRPYNER FHO vavgmnx ()
  6. QRPYNER FHO Vqvbg ()
  7. QRPYNER FHO JrpuUvre ()
  8. QRPYNER FHO SnqrFpe (u NF VAGRTRE)
  9. QRPYNER FHO SnqrHc ()
  10. QRPYNER FHO SnqrQbja ()
  11. QRPYNER FHO FSQbja ()
  12. QRPYNER FHO ErfrgXrlo ()
  13. QRPYNER FHO TrgXrl ()
  14. QRPYNER FHO XrloBss ()
  15. QRPYNER FHO XrloBa ()
  16. QRPYNER FHO FgneJnvg ()
  17. QRPYNER FHO Kgen.FAQ ()
  18. QRPYNER FHO NqqErc (ecg$)
  19. QRPYNER SHAPGVBA PnypPF! ()
  20. QRPYNER FHO YbnqUv ()
  21. QRPYNER FHO FnirUv ()
  22. QRPYNER FHO JebatPF ()
  23. QRPYNER FHO Fubbg (Ahz NF VAGRTRE)
  24. QRPYNER FHO KJrncba.FAQ ()
  25. QRPYNER FHO CfRaq.FAQ ()
  26. QRPYNER FHO CnhfrVg ()
  27. QRPYNER FHO VavgFgnef ()
  28. QRPYNER FHO FgneSvryq ()
  29. QRPYNER FHO SvyyFpea (whzc%, pby%)
  30. QRPYNER FHO Svefg ()
  31. QRPYNER FHO Vafgehpgf ()
  32. QRPYNER FHO Kyvsr.FAQ ()
  33. QRPYNER FHO GkgSnqr (f$, pby%, LCbf%)
  34. QRPYNER FHO Vageb ()
  35. QRPYNER FHO TrgErnql (Yvirf%)
  36. QRPYNER FHO Kcybqr.FAQ ()
  37. QRPYNER FHO NyvraUvg (oahz NF VAGRTRE)
  38. QRPYNER FHO QryObo (oahz%)
  39. QRPYNER FHO NyUvg.FAQ ()
  40. QRPYNER FHO Nyvra.FAQ (gc%)
  41. QRPYNER FHO Fubbg.FAQ ()
  42. QRPYNER FHO QbObof ()
  43. QRPYNER SHAPGVBA NqqObo% (kc%, lc%, kf%, lf%, pu$, py%)
  44. QRPYNER FHO UvFpber (synt NF VAGRTRE, lbh NF VAGRTRE)
  45. QRPYNER FHO NyFubg0.FAQ ()
  46. QRPYNER FHO NyFubg1.FAQ ()
  47. QRPYNER FHO Cnhfr.FAQ ()
  48.  
  49. BA REEBE TBGB Sruyre
  50.  
  51. GLCR Obo
  52.   KCbf NF VAGRTRE
  53.   LCbf NF VAGRTRE
  54.   Pbye NF VAGRTRE
  55.   KQfg NF VAGRTRE
  56.   LQfg NF VAGRTRE
  57. RAQ GLCR
  58.  
  59. QVZ FUNERQ ZnkObof NF VAGRTRE
  60. ZnkObof = 500
  61.  
  62. QVZ FUNERQ Fubg(ZnkObof) NF Obo, NyObo(8) NF VAGRTRE, Yvirf NF VAGRTRE, NyAhz NF VAGRTRE, Uvgf NF VAGRTRE, Fpber, faqba NF VAGRTRE
  63. QVZ FUNERQ FgneK(49) NF VAGRTRE, FgneP(49) NF VAGRTRE, FgneF(49) NF VAGRTRE
  64. QVZ FUNERQ FPby(2), FSynt NF VAGRTRE: FPby(0) = 8: FPby(1) = 7: FPby(2) = 15
  65. QVZ FUNERQ Azr$(10), Fpe(10), Pfhz, OPune$(ZnkObof), NyGlc(8) NF VAGRTRE, Gvr$(1), GlcPby(1) NF VAGRTRE, FuvcK%
  66. QVZ FUNERQ Xrlm(127) NF VAGRTRE, x%, gcny(15, 2) NF VAGRTRE, sqiny(3, 63) NF VAGRTRE, FLNqe(50) NF VAGRTRE
  67.  
  68.  
  69. QRS FRT = &UO800
  70. PYF
  71. JVQGU 80, 50
  72. XrloBss
  73. SBE c% = 0 GB 15: CNYRGGR c%, c%: ARKG
  74.  
  75. SBE bc% = 0 GB 1
  76.   SBE vc% = 0 GB 7
  77.     gcny(8 * bc% + vc%, 0) = 2 * FTA(vc% NAQ 4) + bc%
  78.     gcny(8 * bc% + vc%, 1) = 2 * FTA(vc% NAQ 2) + bc%
  79.     gcny(8 * bc% + vc%, 2) = 2 * FTA(vc% NAQ 1) + bc%
  80.   ARKG
  81. ARKG
  82.  
  83. SBE i% = 0 GB 63
  84.   SBE y% = 1 GB 3
  85.     sqiny(y%, i%) = VAG(y% * i% / 3)
  86.   ARKG
  87. ARKG
  88.  
  89. VavgFgnef
  90. FSynt = 0
  91. SnqrFpe (0)
  92. FPERRA 0, 1, 0, 0
  93. PBYBE 15, 12, 4
  94. PYF
  95. YBPNGR 22, 1
  96. CEVAG GNO(8); "Guvf cebtenz vf bssvpvny cebcregl bs XO bs Gur Bofrffrq Znavnpf.": CEVAG
  97. CEVAG GNO(10); "Znva pbqr pbhyq or punatrq jvgubhg cbfvgvir rssrpg ba tnzr...": CEVAG
  98. CEVAG
  99. CEVAG GNO(24); "(P) G.B.Z. abegurea frpgvba, 1995"
  100. SnqrHc
  101.  
  102. ENAQBZVMR GVZRE
  103.  
  104. YbnqUv
  105. faqba = 1
  106. Gvr$(0) = "Φ": Gvr$(1) = "╞■╡"
  107. fuvc$(0) = " ╓█╖ ": fuvc$(1) = " ╤█╤ ": fuvc$(2) = " ╞╬╡ ": fuvc$(3) = " ╤╬╤ ": fuvc$(4) = " ╠█╣ "
  108. GlcPby(0) = 14: GlcPby(1) = 7
  109. QVZ FUNERQ g$(9), frd(16), frdc
  110. vavgmnx
  111.  
  112. frdc = 0: CYNL BSS
  113. BA CYNL(3) TBFHO zebhg
  114.  
  115.  
  116. SBE l% = 1 GB 50: FLNqe(l%) = 160 * l% - 162: ARKG
  117.  
  118.  
  119. FYRRC 1: TrgXrl: VS Xrlm(1) GURA FSynt = 1
  120.  
  121. Svefg
  122.  
  123. Ortvaavat:
  124. Vageb
  125. Yvirf = 3: Fpber = 0: FugAhz% = 0
  126.  
  127. Tnzr:
  128. FuvcK% = 40: pag% = 0: NyAhz = 0: Uvgf = VAG(Fpber / 100): FugAhz% = FugAhz% - FTA(FugAhz%)
  129. TrgErnql (Yvirf)
  130.  
  131. PYF
  132. YBPNGR 50, 20: PBYBE 15: CEVAG "<=- GVR VAINQREF   (P) XO/GBZ 1995 ! -=>";
  133. VavgFgnef
  134. XrloBss
  135. Znva:
  136.  
  137. TrgXrl
  138. VS Xrlm(75) NAQ FuvcK% > 1 GURA FuvcK% = FuvcK% - 1
  139. VS Xrlm(77) NAQ FuvcK% < 75 GURA FuvcK% = FuvcK% + 1
  140. VS Xrlm(57) GURA
  141.   FPag = FPag + 1: VS FPag = 3 GURA Fubbg (FugAhz%): FPag = 0
  142. RYFR
  143.   FPag = 0
  144. RAQ VS
  145.  
  146. VS Xrlm(25) GURA CnhfrVg: ErfrgXrlo: TBGB Znva
  147. VS Xrlm(1) GURA FSQbja: TBGB Ortvaavat
  148.  
  149. VS 10 * EAQ > 9.5 NAQ NyAhz < 8 GURA
  150.   gc% = 0: VS 100 * EAQ < Uvgf GURA gc% = 1
  151.   py% = GlcPby(gc%): VS EAQ < .05 GURA py% = 2
  152.   no% = NqqObo(78 * EAQ + 1, 1, 78 * EAQ + 1, 35 * EAQ + 1, Gvr$(gc%), py%)
  153.   VS no% GURA
  154.     NyAhz = NyAhz + 1
  155.     NyObo(NyAhz) = no%
  156.     NyGlc(NyAhz) = gc%
  157.     Nyvra.FAQ (gc%)
  158.   RAQ VS
  159. RAQ VS
  160.  
  161. VS NyAhz GURA
  162.   na% = VAG(pag% ZBQ NyAhz + 1)
  163.   oa% = NyObo(na%)
  164.   Fubg(oa%).KQfg = 78 * EAQ + 1 - NyGlc(na%)
  165.   Fubg(oa%).LQfg = 35 * EAQ + 1
  166. RAQ VS
  167.  
  168. VS 100 * EAQ <= Uvgf NAQ NyAhz GURA
  169.   ka% = VAG(NyAhz * EAQ + 1)
  170.   na% = NyObo(ka%)
  171.     VS NyGlc(ka%) = 0 GURA
  172.     no% = NqqObo(Fubg(na%).KCbf, Fubg(na%).LCbf, Fubg(na%).KCbf, 50, "┬", 9)
  173.     VS no% GURA NyFubg0.FAQ RYFR
  174.   RYFR
  175.     no% = NqqObo(Fubg(na%).KCbf + 1, Fubg(na%).LCbf, 0, 50, "/", 12)
  176.     no% = no% BE NqqObo(Fubg(na%).KCbf + 1, Fubg(na%).LCbf, 80, 50, "\", 12)
  177.     no% = no% BE NqqObo(Fubg(na%).KCbf, Fubg(na%).LCbf, Fubg(na%).KCbf, 50, "│", 12)
  178.     VS no% GURA NyFubg1.FAQ
  179.   RAQ VS
  180. RAQ VS
  181.  
  182. YBPNGR 49, FuvcK%: PBYBE 3: CEVAG fuvc$(FugAhz%);
  183. QbObof
  184. YBPNGR 50, 1: PBYBE 10: CEVAG "Fpber:"; Fpber; : YBPNGR 50, 71: CEVAG "Yvirf:"; Yvirf;
  185. FgneSvryq
  186.  
  187. SBE o% = 1 GB ZnkObof
  188.   VS Fubg(o%).LCbf GURA
  189.     VS VAFGE("«»", OPune$(o%)) NAQ Fubg(o%).KCbf = Fubg(o%).KQfg GURA QryObo (o%)
  190.     VS OPune$(o%) = "║" GURA NyvraUvg (o%)
  191.     VS VAFGE("│┬/\", OPune$(o%)) NAQ Fubg(o%).LCbf = 49 NAQ NOF(Fubg(o%).KCbf - FuvcK% - 2) < 2 TBGB YroraJrpu
  192.     VS OPune$(o%) = "F" NAQ Fubg(o%).LCbf = 49 GURA
  193.       kc% = NOF(Fubg(o%).KCbf - FuvcK% - 2)
  194.       QryObo (o%)
  195.       VS kc% < 2 GURA FugAhz% = FugAhz% + 1: KJrncba.FAQ
  196.       VS FugAhz% > 4 GURA FugAhz% = 4: Fpber = Fpber + 1000
  197.     RAQ VS
  198.   RAQ VS
  199. ARKG
  200.  
  201. VS EAQ < .5 GURA pag% = pag% + 1
  202. JNVG &U3QN, 8: JNVG &U3QN, 8, 8
  203. TBGB Znva
  204.  
  205. YroraJrpu:
  206. SBE g% = 4 GB ZnkObof: Fubg(g%).LCbf = 0: ARKG
  207. Fubg(1).LCbf = 49: Fubg(2).LCbf = 49: Fubg(3).LCbf = 49
  208. Fubg(1).KCbf = FuvcK% + 1: Fubg(2).KCbf = FuvcK% + 2: Fubg(3).KCbf = FuvcK% + 3
  209. Fubg(1).KQfg = 0: Fubg(2).KQfg = FuvcK% + 2: Fubg(3).KQfg = 80
  210. Fubg(1).LQfg = 0: Fubg(2).LQfg = 0: Fubg(3).LQfg = 0
  211. OPune$(1) = "╓": OPune$(2) = "█": OPune$(3) = "╖"
  212. Fubg(1).Pbye = 3: Fubg(2).Pbye = 3: Fubg(3).Pbye = 3
  213. Kcybqr.FAQ
  214. JUVYR Fubg(1).LCbf BE Fubg(2).LCbf BE Fubg(3).LCbf > 0
  215.   QbObof
  216.   FgneSvryq
  217.   JNVG &U3QN, 8: JNVG &U3QN, 8, 8
  218. JRAQ
  219. FYRRC 1
  220. Yvirf = Yvirf - 1
  221. VS Yvirf GURA SnqrQbja: TBGB Tnzr
  222.  
  223. YBPNGR 24, 35: PBYBE 15: CEVAG "Tnzr Bire!"
  224. n$ = "Fpber:" + FGE$(Fpber): YBPNGR 26, 40 - YRA(n$) / 2: PBYBE 2: CEVAG n$;
  225. VS faqba GURA
  226.   CYNL "zsg100y32b5p<tq#tq#pq#p<t>p<tq#tq#p<t"
  227.   CYNL "b5p<t#st#spsp<t#>p<t#st#sp<t#"
  228.   CYNL "b4otsts<o>s<ototsts<ot"
  229.   CYNL "b2pqrt>pqrt>pqrt>pqrty64b6p<p<p<p<p<p<ppy16p"
  230. RAQ VS
  231. FYRRC 1
  232. SnqrQbja
  233. PNYY UvFpber(1, 0)
  234. TBGB Ortvaavat
  235.  
  236. Sruyre:
  237.  
  238. VS REE = 70 GURA ERFHZR
  239. FPERRA 0, 1, 1, 1
  240. PBYBE 30, 4
  241. PYF
  242. YBPNGR 10, 35
  243.  
  244. VS REE < 52 TBGB Sree
  245.  
  246. CEVAG "QVFX REEBE !"
  247. CEVAG
  248. PBYBE 15
  249. CEVAG GNO(20); "Fbzrguvat vf jebat jvgu gur Uneq Qvfx."
  250. CEVAG GNO(14); "Cerff (E) gb ergel,(V) gb vtaber be (N) gb nobeg."
  251. XrloBa
  252. QB
  253. x$ = VAXRL$
  254. VS YPNFR$(x$) = "e" GURA FPERRA 0, 1, 0, 0: XrloBss: ERFHZR
  255. VS YPNFR$(x$) = "v" GURA FPERRA 0, 1, 0, 0: XrloBss: ERFHZR ARKG
  256. VS YPNFR$(x$) = "n" GURA NqqErc "Cebtenz nobegrq orpnhfr bs qvfx Reebe #" + FGE$(REE): FPERRA 0, 1, 0, 0: PBYBE 7, 0: PYF : FLFGRZ
  257. YBBC
  258.  
  259. Sree:
  260. XrloBa
  261. CEVAG "SNGNY REEBE:"
  262. CEVAG
  263. PBYBE 15
  264. CEVAG GNO(25); "Vagreany reebe #"; REE; " nccrnerq."
  265. CEVAG GNO(26); "Cyrnfr abgvsl vg naq pbagnpg"
  266. CEVAG
  267. CEVAG GNO(26); "Gnzzb Uvaevpuf, Xy. 11q, NTB"
  268. CEVAG
  269. PBYBE 31
  270. CEVAG
  271. CEVAG GNO(30); "CERFF NAL XRL GB DHVG"
  272. JUVYR VAXRL$ <> "": JRAQ
  273. QB: n$ = VAXRL$: YBBC JUVYR n$ = ""
  274. NqqErc "Cebtenz nobegrq orpnhfr bs Sngny Reebe #" + FGE$(REE)
  275. FPERRA 0, 1, 0, 0
  276. PBYBE 7, 0
  277. PYF
  278. FLFGRZ
  279.  
  280. zebhg:
  281.   VS frd(frdc) = -1 GURA frdc = 0
  282.   VS faqba GURA CYNL g$(frd(frdc))
  283.   frdc = frdc + 1
  284. ERGHEA
  285.  
  286. SHAPGVBA NqqObo% (kc%, lc%, kf%, lf%, pu$, py%)
  287.   bx% = 0: SBE g% = 1 GB ZnkObof
  288.     VS Fubg(g%).LCbf = 0 GURA bx% = 1: RKVG SBE
  289.   ARKG
  290.   VS bx% GURA
  291.     Fubg(g%).KCbf = kc%
  292.     Fubg(g%).LCbf = lc%
  293.     Fubg(g%).KQfg = kf%
  294.     Fubg(g%).LQfg = lf%
  295.     OPune$(g%) = pu$
  296.     Fubg(g%).Pbye = py%
  297.     NqqObo = g%
  298.   RYFR
  299.     NqqObo = 0
  300.   RAQ VS
  301. RAQ SHAPGVBA
  302.  
  303. FHO NqqErc (ecg$)
  304.   BCRA "vainqref.ecg" SBE NCCRAQ NF 2
  305.   CEVAG #2, QNGR$; " , "; GVZR$; " : "; ecg$
  306.   PYBFR 2
  307. RAQ FHO
  308.  
  309. FHO NyUvg.FAQ
  310. VS faqba NAQ CYNL(0) < 5 GURA CYNL "g200y64b2ontsrqp"
  311. RAQ FHO
  312.  
  313. FHO Nyvra.FAQ (gc%)
  314.   VS faqba NAQ CYNL(0) < 5 GURA
  315.     VS gc% = 0 GURA CYNL "g90y64b2s>s>s" RYFR CYNL "g90y64b3s<s<s"
  316.   RAQ VS
  317. RAQ FHO
  318.  
  319. FHO NyvraUvg (oahz NF VAGRTRE)
  320.   VS NyAhz GURA
  321.     bx% = 0: SBE g% = 1 GB NyAhz
  322.       no% = NyObo(g%): VS Fubg(oahz).KCbf = Fubg(no%).KCbf + NyGlc(g%) NAQ NOF(Fubg(oahz).LCbf - Fubg(no%).LCbf) < 2 GURA bx% = 1: RKVG SBE
  323.     ARKG
  324.     VS bx% = 0 GURA RKVG FHO
  325.     Glc% = NyGlc(g%)
  326.     VS Fubg(no%).Pbye = 2 GURA k = NqqObo(Fubg(no%).KCbf, Fubg(no%).LCbf, FuvcK% + 2, 49, "F", 10): VS k GURA Kgen.FAQ
  327.     k = NqqObo(Fubg(no%).KCbf, Fubg(no%).LCbf, Fubg(no%).KCbf - 3, Fubg(no%).LCbf, "«", 15)
  328.     k = NqqObo(Fubg(no%).KCbf, Fubg(no%).LCbf, Fubg(no%).KCbf + 3, Fubg(no%).LCbf, "»", 15)
  329.     QryObo (no%)
  330.     QryObo (oahz)
  331.     NyUvg.FAQ
  332.     VS g% < NyAhz GURA
  333.       SBE k = g% GB NyAhz - 1
  334.         NyObo(k) = NyObo(k + 1)
  335.         NyGlc(k) = NyGlc(k + 1)
  336.       ARKG
  337.     RAQ VS
  338.     NyAhz = NyAhz - 1
  339.     Uvgf = Uvgf + 1
  340.     Fpber = Fpber + 3 * VAG(YBT(Uvgf + 3) * (Glc% + 1) + .5)
  341.     VS Fpber ZBQ 999 - Uvgf < 0 GURA Yvirf = Yvirf + 1: Kyvsr.FAQ
  342.     RAQ VS
  343. RAQ FHO
  344.  
  345. FHO NyFubg0.FAQ
  346. VS faqba NAQ CYNL(0) < 5 GURA CYNL "g255y32b5tsr"
  347. RAQ FHO
  348.  
  349. FHO NyFubg1.FAQ
  350. VS faqba NAQ CYNL(0) < 5 GURA CYNL "g255y32b4tsr"
  351. RAQ FHO
  352.  
  353. SHAPGVBA PnypPF
  354.   k = 0
  355.   SBE g% = 1 GB 10
  356.     k = k + YRA(Azr$(g%)) * Fpe(g%)
  357.   ARKG g%
  358.   PnypPF = k ZBQ 37494
  359. RAQ SHAPGVBA
  360.  
  361. FHO QryObo (oahz%)
  362.   YBPNGR Fubg(oahz%).LCbf, Fubg(oahz%).KCbf
  363.   CEVAG FCNPR$(YRA(OPune$(oahz%)));
  364.   Fubg(oahz%).LCbf = 0
  365. RAQ FHO
  366.  
  367. FHO QbObof
  368. SBE g% = 1 GB ZnkObof
  369.   VS Fubg(g%).LCbf GURA
  370.     YBPNGR Fubg(g%).LCbf, Fubg(g%).KCbf: CEVAG FCNPR$(YRA(OPune$(g%)));
  371.     Fubg(g%).LCbf = Fubg(g%).LCbf + FTA(Fubg(g%).LQfg - Fubg(g%).LCbf)
  372.     Fubg(g%).KCbf = Fubg(g%).KCbf + FTA(Fubg(g%).KQfg - Fubg(g%).KCbf)
  373.     VS Fubg(g%).KCbf > 0 NAQ Fubg(g%).KCbf < 80 NAQ Fubg(g%).LCbf > 0 NAQ Fubg(g%).LCbf < 50 GURA PBYBE Fubg(g%).Pbye: YBPNGR Fubg(g%).LCbf, Fubg(g%).KCbf: CEVAG OPune$(g%);  RYFR Fubg(g%).LCbf = 0
  374.   RAQ VS
  375. ARKG
  376. RAQ FHO
  377.  
  378. FHO SnqrQbja
  379. SBE v% = 63 GB 0 FGRC -1: SnqrFpe (v%): ARKG
  380. RAQ FHO
  381.  
  382. FHO SnqrFpe (u NF VAGRTRE)
  383.   BHG &U3P8, 0
  384.   SBE p% = 0 GB 15
  385.     SBE c% = 0 GB 2
  386.       BHG &U3P9, sqiny(gcny(p%, c%), u)
  387.     ARKG
  388.   ARKG
  389.   JNVG &U3QN, 8: JNVG &U3QN, 8, 8
  390. RAQ FHO
  391.  
  392. FHO SnqrHc
  393. SBE v% = 0 GB 63: SnqrFpe v%: ARKG
  394. RAQ FHO
  395.  
  396. FHO Svefg
  397. PBYBE , 0
  398. SnqrQbja
  399. PYF
  400. SnqrFpe 63
  401. pag% = 0
  402. QVZ gkg$(2)
  403. gkg$(0) = FCNPR$(76) + "     G u r "
  404. gkg$(1) = FCNPR$(76) + "B o f r f f r q "
  405. gkg$(2) = FCNPR$(76) + " Z n a v n p f "
  406. sk$ = "c e b h q y l   c e r f r a g  :"
  407. VavgFgnef
  408. ErfrgXrlo
  409. XrloBss
  410. fgnegmnx
  411.  
  412. QB HAGVY pag% = 310 BE Xrlm(57)
  413.  
  414.   TrgXrl
  415.   FgneSvryq
  416.   VS pag% > 19 NAQ pag% < 20 + 3 * 45 GURA
  417.     p2% = pag% - 20
  418.     ga% = VAG(p2% / 45)
  419.     gc% = p2% ZBQ 45 + 1
  420.     PBYBE 11
  421.     YBPNGR 24 + 2 * ga%, 1
  422.     CEVAG ZVQ$(gkg$(ga%), gc%, 79);
  423.     VS pag% = 154 GURA ga% = 3
  424.   RAQ VS
  425.   VS ga% > 0 GURA
  426.     PBYBE 11
  427.     SBE g% = 0 GB ga% - 1
  428.     YBPNGR 24 + 2 * g%, 1
  429.     CEVAG ZVQ$(gkg$(g%), 45)
  430.     ARKG
  431.   RAQ VS
  432.   JNVG &U3QN, 8: JNVG &U3QN, 8, 8
  433.   pag% = pag% + 1
  434.  
  435.   p3% = (pag% - 185) / 2: VS p3% < 0 GURA p3% = 0
  436.   VS p3% > 32 GURA p3% = 32
  437.   PBYBE 13
  438.   YBPNGR 34, 25
  439.   CEVAG YRSG$(sk$, p3%);
  440. YBBC
  441. SnqrQbja
  442. RAQ FHO
  443.  
  444. FHO TrgXrl
  445. SBE g% = 1 GB 4
  446.   x% = 0
  447.   QB
  448.     b% = x%
  449.     QB: x% = VAC(&U60): YBBC JUVYR x% = 224
  450.     VS x% NAQ 128 GURA
  451.       Xrlm(x% - 128) = 0
  452.       RYFR Xrlm(x%) = 1
  453.     RAQ VS
  454.   YBBC HAGVY b% = x%
  455. ARKG
  456. VS Xrlm(29) NAQ Xrlm(56) NAQ Xrlm(83) GURA Vqvbg
  457. RAQ FHO
  458.  
  459. FHO TrgErnql (Yvirf%)
  460. XrloBss
  461. PYF
  462. YBPNGR 50, 20: PBYBE 15: CEVAG "<=- GVR VAINQREF   (P) XO/GBZ 1995 ! -=>";
  463. YBPNGR 24, 35: PBYBE 15: CEVAG "Trg Ernql!"
  464. YBPNGR 26, 36: PBYBE 2: CEVAG "Yvirf:"; Yvirf%
  465. SnqrHc
  466. VS faqba GURA
  467.   CYNL "zsg100y64b3tq<ot>tq<oa0>tq<ot"
  468.   CYNL "y64b4p<trp>p<trp>p<trp"
  469.   CYNL "b4trp<t>trp<t>trp<t"
  470.   CYNL "b4sp<ns>r<otr>q<nsq"
  471.   CYNL "b5p<trp>p<trp>p<trp"
  472.   CYNL "b4trp<t>trp<t>trp<tzo"
  473. RAQ VS
  474. FYRRC 1
  475. RAQ FHO
  476.  
  477. FHO UvFpber (synt NF VAGRTRE, lbh NF VAGRTRE)
  478.  
  479.   QVZ uvpy%(10)
  480.   uvpy%(1) = 15: uvpy%(2) = 7: uvpy%(3) = 13: uvpy%(4) = 5: uvpy%(5) = 4
  481.   SBE g% = 6 GB 10: uvpy%(g%) = 6: ARKG
  482.  
  483.   PYF
  484.   VavgFgnef
  485.   FgneSvryq
  486. JVQGU 80, 50
  487. PBYBE 1
  488. YBPNGR 1, 13:   CEVAG "                ██ ██ ████  ████ ██ ██          "
  489. YBPNGR 2, 13:   CEVAG "                ██ ██  ██  ██    ██ ██          "
  490. YBPNGR 3, 13:   CEVAG "                ██ ██  ██  ██    ██ ██          "
  491. YBPNGR 4, 13:   CEVAG "                ██ ██  ██  ██    ██ ██          "
  492. YBPNGR 5, 13:   CEVAG "                ██ ██  ██  ██    ██ ██          "
  493. YBPNGR 6, 13:   CEVAG "                ██ ██  ██  ██    ██ ██          "
  494. YBPNGR 7, 13:   CEVAG "                █████  ██  ██ ██ █████          "
  495. YBPNGR 8, 13:   CEVAG "                █████  ██  ██ ██ █████          "
  496. YBPNGR 9, 13:   CEVAG "                ██ ██  ██  ██ ██ ██ ██          "
  497. YBPNGR 10, 13:  CEVAG "                F█ █P  ██  BB██E EE █R          "
  498. YBPNGR 11, 13:  CEVAG "                FF PP PP█B  BB█E █E █R          "
  499. PBYBE 15
  500. YBPNGR 12, 13:  CEVAG "  **        FFF    PP    BB BB EE EE RR           **   "
  501. YBPNGR 13, 13:  CEVAG "******       FFFF  PP    BB BB EEEE  RRRR       ****** "
  502. YBPNGR 14, 13:  CEVAG "  **           FFF PP    BB BB EE E  RR           **   "
  503. YBPNGR 15, 13:  CEVAG " *  *       FF  FF PP PP BB BB EE EE RR  R       *  *  "
  504. YBPNGR 16, 13:  CEVAG "             FFFF   PPP   BBB  EE EE RRRRR             "
  505. YBPNGR 10, 26: CEVAG "FFF"
  506. YBPNGR 10, 34: CEVAG "PP"
  507. YBPNGR 10, 39: CEVAG "B"
  508. YBPNGR 10, 45: CEVAG "E"
  509. YBPNGR 10, 51: CEVAG "RRRR"
  510. YBPNGR 11, 25: CEVAG "FF"
  511. YBPNGR 11, 39: CEVAG "BB"
  512. YBPNGR 11, 45: CEVAG "E"
  513. YBPNGR 11, 48: CEVAG "E"
  514. YBPNGR 11, 51: CEVAG "R  R"
  515. YBPNGR 11, 13: CEVAG " *  *"
  516. YBPNGR 11, 61: CEVAG " *  *"
  517. PBYBE 5
  518. YBPNGR 18, 13: CEVAG "· ··────═══ GUR∙GVR∙VAINQREF'∙UNYY∙BS∙SNZR ═══────·· ·"
  519.  
  520.  
  521.   VS synt = 1 GURA
  522.  
  523.     YbnqUv
  524.  
  525.     bx% = 0
  526.     SBE k% = 1 GB 10
  527.       VS Fpber > Fpe(k%) GURA bx% = 1: RKVG SBE
  528.     ARKG
  529.  
  530.     VS bx% = 1 GURA
  531.  
  532.       PBYBE 11
  533.       YBPNGR 20, 1
  534.       CEVAG GNO(32); "Pbatenghyngvbaf!": CEVAG
  535.       PBYBE 3
  536.       CEVAG GNO(22); "Lbh unir tbg bar bs bhe gbc fpberf !"
  537.       SnqrHc
  538.       VS faqba GURA CYNL "zog200y32b3trpa0>p<tra0>rp<ta0>trptrpta0rp<ta0>trptrptrptrptrpt" RYFR
  539.       PBYBE 14
  540.       YBPNGR 26, 20
  541.       CEVAG "Cyrnfr ragre lbhe anzr: ";
  542.       PBYBE 15
  543.       anz$ = ""
  544.       JUVYR VAXRL$ <> "": JRAQ
  545.       XrloBa
  546.       YVAR VACHG anz$
  547.       XrloBss
  548.       anz$ = YGEVZ$(EGEVZ$(YRSG$(anz$, 16)))
  549.       VS anz$ = "" GURA anz$ = "Qre Ragreqeüpxre" RYFR
  550.  
  551.       VS k% < 10 GURA
  552.         SBE g% = 10 GB k% + 1 FGRC -1
  553.           Azr$(g%) = Azr$(g% - 1): Fpe(g%) = Fpe(g% - 1)
  554.         ARKG
  555.       RAQ VS
  556.  
  557.       Fpe(k%) = Fpber: Azr$(k%) = anz$
  558.       FnirUv
  559.       NqqErc "'" + Azr$(k%) + "' npuvrirq Cynpr" + FGE$(k%) + " jvgu fpber" + FGE$(Fpe(k%))
  560.  
  561.       SnqrQbja
  562.       UvFpber 0, k%
  563.  
  564.     RYFR
  565.       synt = 0
  566.       lbh = 0
  567.       YBPNGR 42, 21
  568.       PBYBE 8
  569.       CEVAG "Fbeel...  gurl'er nyy orggre guna lbh!"
  570.  
  571.     RAQ VS
  572.  
  573.   RAQ VS
  574.  
  575.   VS synt = 0 GURA
  576.  
  577.     YbnqUv
  578.  
  579.     SBE g% = 1 GB 10
  580.       PBYBE uvpy%(g%)
  581.       YBPNGR 2 * g% + 20, 26 - VAG(g% / 10)
  582.       CEVAG g%;
  583.       YBPNGR 2 * g% + 20, 28
  584.       CEVAG ". "; Azr$(g%);
  585.       f$ = ZVQ$(FGE$(Fpe(g%)), 2)
  586.       YBPNGR 2 * g% + 20, 53 - YRA(f$)
  587.       CEVAG f$;
  588.     ARKG
  589.  
  590.     VS lbh GURA
  591.       PBYBE 11
  592.       YBPNGR 2 * lbh + 20, 19
  593.       CEVAG "LBH »";
  594.       YBPNGR 2 * lbh + 20, 55
  595.       CEVAG "« LBH";
  596.     RAQ VS
  597.  
  598.     SnqrHc
  599.     VS faqba GURA
  600.       CYNL "g200y32b4p<t>p<t>p<t>p<t>p<t>p<t>p<t>a0a0"
  601.       CYNL "p<t>p<t>p<t>a0a0p<t>p<t>p<t>a0a0"
  602.       CYNL "tptptptptptptptptptptptp"
  603.     RAQ VS
  604.  
  605.     YBPNGR 46, 26: PBYBE 15: CEVAG "CERFF NAL XRL GB PBAGVAHR."
  606.     FgneJnvg
  607.     FSQbja
  608.  
  609.   RAQ VS
  610.  
  611. RAQ FHO
  612.  
  613. FHO Vqvbg
  614.   SnqrQbja
  615.   FPERRA 0, 1, 2, 2
  616.   PBYBE 11, 4
  617.   PYF
  618.   CEVAG : CEVAG
  619.   CEVAG : CEVAG "  Fb, qve trsäyyg qvrfrf Fcvry nyfb avpug?"
  620.   CEVAG : CEVAG "  Qh zrvafg, qh xbzzfg uvre rvasnpu fb enhf?"
  621.   CEVAG : CEVAG "  Qh qraxfg, ahe jrvy qvrfrf Fcvry va Onfvp cebtenzzvreg vfg, xnaafg"
  622.   CEVAG : CEVAG "  qh rf rvasnpu fb üoreyvfgra haq fb jrvgre?"
  623.   CEVAG : CEVAG
  624.   PBYBE 14
  625.   CEVAG : CEVAG "  Qnaa unfg qh rva Ceboyrz."
  626.   CEVAG : CEVAG "  Qraa jraa qh haorqvatg rva Fcvry oenhpufg, qnf qrvar xenzcsunsgra"
  627.   CEVAG : CEVAG "  Thpxznyvpuovawnfbivrygbyyrenyfqrecebtenzzvreremrvtirefhpur avpug"
  628.   CEVAG : CEVAG "  nosäatg, ovfg qh uvre mvrzyvpu snyfpu. Süe fbypur Ceboyrzsäyyr rzc-"
  629.   CEVAG : CEVAG "  sruyr vpu Jvaqbmr bqre vetraqjnf va qre Evpughat."
  630.   CEVAG : CEVAG "  Nhßreqrz wrgmg abpu rva xyrvare Eng:"
  631.   PBYBE 31
  632.   CEVAG : CEVAG
  633.   CEVAG : CEVAG "  QH QEÜPXFG WRGMG ZNY TNAM OENI NHS FCNPR HAQ FCVRYFG QNAA JRVGRE ,XYNE ???"
  634.   CEVAG : CEVAG
  635.   CEVAG : CEVAG
  636.   PBYBE 11
  637.   CEVAG : CEVAG "  Rva frue rageüfgrgre Cebtenzzvrere"
  638.   SnqrHc
  639.   ErfrgXrlo
  640.   QB: YBBC HAGVY VAC(&U60) = 57
  641.   ErfrgXrlo
  642.   SnqrQbja
  643.   FPERRA 0, 1, 0, 0
  644.   SnqrHc
  645. RAQ FHO
  646.  
  647. FHO VavgFgnef
  648.   SBE g% = 1 GB 49: FgneK(g%) = VAG(79 * EAQ): FgneP(g%) = FPby(VAG(3 * EAQ)): FgneF(g%) = VAG(3 * EAQ) + 1: ARKG
  649. RAQ FHO
  650.  
  651. FHO vavgmnx
  652.  
  653. z$ = "zfy8b0p>p"
  654. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  655. z$ = z$ + "zfy8b0p"
  656. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  657. z$ = z$ + "zfy8b0p>p"
  658. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  659. g$(0) = z$
  660.  
  661. z$ = "zfy8b0q#>q#"
  662. z$ = z$ + "zyb4y64q#p<t#q#p<t#q#p"
  663. z$ = z$ + "zfy8b0q#s"
  664. z$ = z$ + "zyb4y64sq<n#sq<n#sq"
  665. z$ = z$ + "zfy8b0s>s"
  666. g$(1) = z$
  667.  
  668. z$ = "zfy8b0p>p"
  669. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  670. z$ = z$ + "zfy8b0p"
  671. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  672. z$ = z$ + "zay8b3p"
  673. z$ = z$ + "zfy8b0p"
  674. z$ = z$ + "zay8b3p"
  675. g$(2) = z$
  676.  
  677. z$ = "zfy8b0q#>q#"
  678. z$ = z$ + "zyb4y64q#p<t#q#p<t#q#p"
  679. z$ = z$ + "zab3y8pq#q"
  680. z$ = z$ + "zfy8b0s>s"
  681. g$(3) = z$
  682.  
  683. z$ = "zfy8b0p>p"
  684. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  685. z$ = z$ + "zfy8b0p"
  686. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  687. z$ = z$ + "zay8b3t"
  688. z$ = z$ + "zfy8b0p"
  689. z$ = z$ + "zay8b3t"
  690. g$(4) = z$
  691.  
  692. z$ = "zfy8b0q#>q#"
  693. z$ = z$ + "zyb4y64q#p<t#q#p<t#q#p"
  694. z$ = z$ + "zab3y8tn#s"
  695. z$ = z$ + "zfy8b0s>s"
  696. g$(5) = z$
  697.  
  698. z$ = "zfy8b0p>p"
  699. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  700. z$ = z$ + "zfy8b0p"
  701. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  702. z$ = z$ + "zay8b4p"
  703. z$ = z$ + "zfy8b0p"
  704. z$ = z$ + "zay8b4p"
  705. g$(6) = z$
  706.  
  707. z$ = "zfy8b0q#>q#"
  708. z$ = z$ + "zyb4y64q#p<t#q#p<t#q#p"
  709. z$ = z$ + "zab4y8p<n#t"
  710. z$ = z$ + "zfy8b0s>s"
  711. g$(7) = z$
  712.  
  713. z$ = "zfy8b0p>p"
  714. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  715. z$ = z$ + "zfy8b0p"
  716. z$ = z$ + "zyb4y64tq#p<tq#p<tq#"
  717. z$ = z$ + "zay8b3s"
  718. z$ = z$ + "zfy8b0p"
  719. z$ = z$ + "zay8b3s"
  720. g$(8) = z$
  721.  
  722. z$ = "zfy8b0q#>q#"
  723. z$ = z$ + "zyb4y64q#p<t#q#p<t#q#p"
  724. z$ = z$ + "zab3y8tsp"
  725. z$ = z$ + "zfy8b0s>s"
  726. g$(9) = z$
  727.  
  728.  
  729. frd(0) = 0: frd(1) = 1: frd(2) = 0: frd(3) = 1: frd(4) = 2: frd(5) = 3: frd(6) = 4: frd(7) = 5: frd(8) = 6: frd(9) = 7: frd(10) = 8: frd(11) = 9: frd(12) = 0: frd(13) = 1: frd(14) = 0: frd(15) = 1: frd(16) = -1
  730.  
  731. RAQ FHO
  732.  
  733. FHO Vafgehpgf
  734. PYF
  735. PBYBE 15
  736. CEVAG : CEVAG "Vafgehpgvbaf sbe GVR Vainqref:"
  737. CEVAG : CEVAG "Lbh ner guvf yvggyr guvat urer ";
  738. PBYBE 3:  CEVAG "╓█╖ ";
  739. PBYBE 15: CEVAG "naq unir gb fubbg nyy gur ovt onq"
  740. CEVAG : CEVAG "GVR svtugref sebz fcnpr (";
  741. PBYBE 14:  CEVAG Gvr$(0); : PBYBE 15:  CEVAG ","; : PBYBE 7: CEVAG Gvr$(1);
  742. PBYBE 15:  CEVAG "). Qb guvf ol cerffvat gur fcnpr one gb fubbg"
  743. CEVAG : CEVAG "naq gur neebj xrlf gb zbir yrsg be evtug."
  744. CEVAG : CEVAG "Ohg nggragvba. Gur GVR svtugref jba'g or cyrnfrq nobhg gur guvatf lbh qb"
  745. CEVAG : CEVAG "naq fubbg onpx gb qb gur fnzr guvat jvgu lbh lbh qvq gb gurz, anzryl:"
  746. CEVAG : CEVAG "XVYY LBH! Fb jngpu bhg sbe gurve qrnqyl zvffvyrf (";
  747. PBYBE 9: CEVAG "┬"; : PBYBE 15: CEVAG ","; : PBYBE 12: CEVAG "/"; : PBYBE 15:  CEVAG ","; : PBYBE 12:  CEVAG "\"; : PBYBE 15: CEVAG ","; : PBYBE 12: CEVAG "│";
  748. PBYBE 15:  CEVAG ") naq nibvq gurz nf"
  749. CEVAG : CEVAG "bsgra nf lbh pna, orpnhfr vs abg, ln tbaan ybfr bar bs lre 3 yvirf (lb zna!)."
  750. CEVAG : CEVAG "Ohg pnyz qbja. Rirel 1000 cbvagf lbh'yy tnva na rkgen yvsr. "
  751. CEVAG : CEVAG ""
  752. CEVAG : CEVAG "Fb, abj unir sha jvgu guvf yvggyr cebqhpg bs zl oberqbz naq TBBQ YHPX!"
  753. PBYBE 11: CEVAG : CEVAG : CEVAG : CEVAG "XO/GBZ va Abi/Qrp 1995!"
  754. PBYBE 15: CEVAG : CEVAG
  755. CEVAG : CEVAG "C.F. Fbzrgvzrf gurer jvyy or n terra ("; : PBYBE 2:  CEVAG "█"; : PBYBE 15:  CEVAG ") GVR svtugre"
  756. CEVAG : CEVAG "ba fperra. Fubbg vg naq vg jvyy erirny n snyyvat F. Abj whfg qba'g zbir,"
  757. CEVAG : CEVAG "pbyyrpg gur F naq lbhe fubbg cbjre jvyy or vapernfrq."
  758. PBYBE 7: CEVAG : CEVAG : CEVAG : CEVAG : CEVAG : CEVAG "CERFF NAL XRL GB PBAGVAHR"
  759. SnqrHc
  760. FgneJnvg
  761. FSQbja
  762. RAQ FHO
  763.  
  764. FHO Vageb
  765. QVZ fjvgpu$(1): fjvgpu$(0) = "bss": fjvgpu$(1) = "ba "
  766. yno1:
  767. XrloBss
  768. PYF
  769. VS faqba GURA CYNL BA: VS CYNL(0) < 3 GURA fgnegmnx
  770. SnqrFpe 63
  771. PNYY GkgSnqr("▒▒▒▒▒ ▒▒▒▒▒ ▒▒▒▒▒", 6, 3)
  772. PNYY GkgSnqr("▓ ▓ ▓   ▓   ▓   ▓", 6, 4)
  773. PNYY GkgSnqr("  █     █   █    ", 6, 5)
  774. PNYY GkgSnqr("  █     █   ████ ", 14, 6)
  775. PNYY GkgSnqr("  ▓     ▓   ▓    ", 14, 7)
  776. PNYY GkgSnqr("  ▒     ▒   ▒   ▒", 14, 8)
  777. PNYY GkgSnqr(" ░░░  ░░░░░ ░░░░░", 14, 9)
  778.  
  779. VavgFgnef
  780. YBPNGR 12, 1
  781. PBYBE &U4: CEVAG GNO(17); "▒▒▒▒▒ ▒   ▒ ▒   ▒   ▒   ▒▒▒   ▒▒▒▒▒ ▒▒▒▒    ▒▒▒"
  782. PBYBE &U4: CEVAG GNO(17); "  ▓   ▓   ▓ ▓   ▓  ▓ ▓  ▓  ▓  ▓   ▓ ▓   ▓  ▓   "
  783. PBYBE &U4: CEVAG GNO(17); "  █   ██  █ █   █ █   █ █   █ █     █   █ █    "
  784. PBYBE &UP: CEVAG GNO(17); "  █   █ █ █ █   █ █████ █   █ ████  ████   ███ "
  785. PBYBE &UP: CEVAG GNO(17); "  ▓   ▓  ▓▓ ▓   ▓ ▓   ▓ ▓   ▓ ▓     ▓ ▓       ▓"
  786. PBYBE &UP: CEVAG GNO(17); "  ▒   ▒   ▒  ▒ ▒  ▒   ▒ ▒  ▒  ▒   ▒ ▒  ▒     ▒ "
  787. PBYBE &UP: CEVAG GNO(17); "░░░░░ ░   ░   ░   ░░ ░░ ░░░   ░░░░░ ░░ ░░ ░░░  "
  788.  
  789. YBPNGR 21, 1
  790. PBYBE &U1: CEVAG GNO(22); "\\   ░██  ░██ ░███ ░████ ░████     //"
  791. PBYBE &U9: CEVAG GNO(22); " \\  ░██  ░██░██░██░██░██░██░██   //"
  792. PBYBE &UO: CEVAG GNO(22); "  \\ ░██  ░██░██░██░██░██░██░██  //"
  793. PBYBE &US: CEVAG GNO(22); "   >>░██░█░██░█████░████ ░████  <<"
  794. PBYBE &UO: CEVAG GNO(22); "  // ░██░█░██░██░██░██░██░██     \\"
  795. PBYBE &U9: CEVAG GNO(22); " //  ░██░█░██░██░██░██░██░██      \\"
  796. PBYBE &U1: CEVAG GNO(22); "//    ░█████ ░██░██░██░██░██       \\"
  797.  
  798. PBYBE 10: YBPNGR 30, 20: CEVAG "-=*> Gur * Uvtu Erfbyhgvba * Rqvgvba <*=-"
  799.  
  800. PBYBE 8: YBPNGR 50, 2: CEVAG "(P) 1995 XO bs G.B.Z. + ┼▌bCF"; : YBPNGR 1, 1
  801.  
  802. NyAhz = 0: x$ = ""
  803. JUVYR VAXRL$ <> "": JRAQ
  804.  
  805. yno2:
  806.  
  807. VS (10 * EAQ) > 9.5 NAQ NyAhz < 8 GURA
  808.   no% = NqqObo(78 * EAQ + 1, 16 * EAQ + 32, 78 * EAQ + 1, 16 * EAQ + 32, "Φ", 14)
  809.   VS no% GURA
  810.     NyAhz = NyAhz + 1
  811.     NyObo(NyAhz) = no%
  812.   RAQ VS
  813. RAQ VS
  814.  
  815. VS NyAhz GURA
  816.   oa% = NyObo(pag% ZBQ NyAhz + 1)
  817.   Fubg(oa%).KQfg = 78 * EAQ + 1
  818.   Fubg(oa%).LQfg = 16 * EAQ + 32
  819. RAQ VS
  820.  
  821. VS 100 * EAQ <= 15 NAQ NyAhz > 0 GURA
  822.   na% = NyObo(VAG(NyAhz * EAQ + .9))
  823.   no% = NqqObo(Fubg(na%).KCbf, Fubg(na%).LCbf, Fubg(na%).KCbf, 50, "┬", 9)
  824. RAQ VS
  825.  
  826. QbObof
  827. PBYBE 15
  828. YBPNGR 36, 26: CEVAG "cerff 'U' gb ivrj uvtufpberf"
  829. YBPNGR 38, 32: CEVAG "'V' sbe vafgehpgvbaf"
  830. YBPNGR 40, 32: CEVAG "'F' gb ghea fbhaq "; fjvgpu$(1 - faqba)
  831. YBPNGR 42, 32: CEVAG "'FCNPR' gb fgneg tnzr "
  832. YBPNGR 44, 32: CEVAG "'RFP' gb rkvg gb QBF"
  833. PBYBE 7: YBPNGR 46, 30: CEVAG "Va tnzr cerff 'C' gb cnhfr"
  834. FgneSvryq
  835.  
  836. VS EAQ < .5 GURA pag% = pag% + 1
  837.  
  838. JNVG &U3QN, 8: JNVG &U3QN, 8, 8
  839.  
  840. TrgXrl
  841. VS Xrlm(35) GURA CYNL BSS: FSQbja: UvFpber 0, 0: fgnegmnx: TBGB yno1
  842. VS Xrlm(23) GURA FSQbja: Vafgehpgf: TBGB yno1
  843. VS Xrlm(31) GURA faqba = 1 - faqba: VS faqba = 1 GURA fgnegmnx RYFR CYNL BSS
  844. VS Xrlm(57) GURA CYNL BSS: TBGB yno3
  845. VS Xrlm(1) GURA CYNL BSS: JrpuUvre
  846. TBGB yno2
  847.  
  848. yno3:
  849. SBE g% = 1 GB ZnkObof: Fubg(g%).LCbf = 0: ARKG
  850. FSQbja
  851. RAQ FHO
  852.  
  853. FHO XrloBss
  854. BHG &U21, 2
  855. ErfrgXrlo
  856. RAQ FHO
  857.  
  858. FHO XrloBa
  859. QB: YBBC HAGVY VAC(&U60) = VAC(&U60)
  860. BHG &U21, 0
  861. QB: YBBC HAGVY VAXRL$ = ""
  862. RAQ FHO
  863.  
  864. FHO YbnqUv
  865.   BCRA "vainqref.uvf" SBE VACHG NF 1
  866.   SBE g% = 1 GB 10
  867.     VACHG #1, Azr$(g%), Fpe(g%)
  868.   ARKG
  869.   VACHG #1, Pfhz
  870.   PYBFR 1
  871.   VS Pfhz <> PnypPF GURA JebatPF
  872. RAQ FHO
  873.  
  874. FHO Cnhfr.FAQ
  875. VS faqba GURA CYNL "g125y64b0prt>prt>prt>prt>prt>prt>prt"
  876. RAQ FHO
  877.  
  878. FHO CnhfrVg
  879.   Cnhfr.FAQ
  880.   QB JUVYR Xrlm(57) = 0
  881.     TrgXrl
  882.     YBPNGR 23, 34
  883.     PBYBE 15
  884.     CEVAG "┌────────────┐": CEVAG GNO(34); "│";
  885.     PBYBE VAG(15 * EAQ + 1): CEVAG "Tnzr cnhfrq!";
  886.     PBYBE 15: CEVAG "│": CEVAG GNO(34); "└────────────┘"
  887.     FgneSvryq
  888.     JNVG &U3QN, 8: JNVG &U3QN, 8, 8
  889.   YBBC
  890.   YBPNGR 11, 1
  891.   SBE g% = 1 GB 3: CEVAG GNO(34); FCNPR$(14): ARKG
  892.   CfRaq.FAQ
  893. RAQ FHO
  894.  
  895. FHO CfRaq.FAQ
  896. VS faqba GURA CYNL "g125y64b6trp<trp<trp<trp<trp<trp<trp"
  897. RAQ FHO
  898.  
  899. FHO ErfrgXrlo
  900. SBE x% = 0 GB 127: Xrlm(x%) = 0: ARKG
  901. QB: YBBC HAGVY VAC(&U60) = VAC(&U60)
  902. RAQ FHO
  903.  
  904. FHO FnirUv
  905.       BCRA "vainqref.uvf" SBE BHGCHG NF 1
  906.       SBE g% = 1 GB 10
  907.         JEVGR #1, Azr$(g%), Fpe(g%)
  908.       ARKG
  909.       JEVGR #1, PnypPF
  910.       PYBFR 1
  911. RAQ FHO
  912.  
  913. FHO FSQbja
  914.   SBE v% = 63 GB 0 FGRC -1: SnqrFpe v%: FgneSvryq: ARKG
  915. RAQ FHO
  916.  
  917. FHO Fubbg (Ahz NF VAGRTRE)
  918.   no% = 0
  919.   VS Ahz <> 1 GURA no% = no% BE NqqObo(FuvcK% + 2, 49, FuvcK% + 2, 0, "║", 13)
  920.   VS Ahz = 1 BE Ahz = 2 GURA
  921.     no% = no% BE NqqObo(FuvcK% + 1, 49, FuvcK% + 1, 0, "║", 13)
  922.     no% = no% BE NqqObo(FuvcK% + 3, 49, FuvcK% + 3, 0, "║", 13)
  923.   RAQ VS
  924.   VS Ahz = 3 GURA
  925.     no% = no% BE NqqObo(FuvcK% + 2, 49, FuvcK% - 1, 0, "║", 13)
  926.     no% = no% BE NqqObo(FuvcK% + 2, 49, FuvcK% + 5, 0, "║", 13)
  927.   RAQ VS
  928.   VS Ahz > 3 GURA
  929.     no% = no% BE NqqObo(FuvcK% + 2, 49, 0, 0, "║", 13)
  930.     no% = no% BE NqqObo(FuvcK% + 2, 49, 80, 0, "║", 13)
  931.   RAQ VS
  932.   VS no% GURA Fubbg.FAQ
  933. RAQ FHO
  934.  
  935. FHO Fubbg.FAQ
  936. VS faqba NAQ CYNL(0) < 8 GURA CYNL "g255y64b6tp<tp<tp<tp<tp<tp<tp"
  937. RAQ FHO
  938.  
  939. FHO FgneSvryq
  940.   VS FSynt GURA RKVG FHO
  941.   SBE g% = 1 GB 49
  942.     VS CRRX(FLNqe(g%) + 2 * FgneK(g%)) = 249 GURA CBXR FLNqe(g%) + 2 * FgneK(g%), 32
  943.     FgneK(g%) = (FgneK(g%) + FgneF(g%)) ZBQ 79
  944.     VS CRRX(FLNqe(g%) + 2 * FgneK(g%)) = 32 GURA nq% = FLNqe(g%) + 2 * FgneK(g%): CBXR nq%, 249: CBXR nq% + 1, FgneP(g%)
  945.   ARKG
  946. RAQ FHO
  947.  
  948. FHO fgnegmnx
  949. CYNL "g180zo"
  950. CYNL BA: frdc = 0: VS CYNL(0) < 3 GURA CYNL g$(frd(0)): frdc = 1
  951. RAQ FHO
  952.  
  953. FHO FgneJnvg
  954.   XrloBss
  955.   JUVYR Xrlm(57) = 0
  956.     TrgXrl
  957.     FgneSvryq
  958.     JNVG &U3QN, 8: JNVG &U3QN, 8, 8
  959.   JRAQ
  960. RAQ FHO
  961.  
  962. FHO GkgSnqr (f$, pby%, LCbf%)
  963.   f$ = YRSG$(f$, ZnkObof)
  964.   KCbf% = 39 - YRA(f$) / 2
  965.   s% = 1
  966.   SBE g% = 1 GB YRA(f$)
  967.     VS ZVQ$(f$, g%, 1) <> " " GURA
  968.       Fubg(s%).KCbf = 79 * EAQ + 1
  969.       Fubg(s%).LCbf = 5 * EAQ + 45
  970.       Fubg(s%).KQfg = KCbf% + g%
  971.       Fubg(s%).LQfg = LCbf%
  972.       OPune$(s%) = ZVQ$(f$, g%, 1)
  973.       Fubg(s%).Pbye = pby%
  974.       s% = s% + 1
  975.     RAQ VS
  976.   ARKG
  977.   VS YRA(f$) < ZnkObof GURA SBE g% = YRA(f$) + 1 GB ZnkObof: Fubg(g%).LCbf = 0: ARKG
  978.   SBE g% = 1 GB 50
  979.     QbObof
  980.   ARKG
  981.   YBPNGR LCbf%, KCbf% + 1: PBYBE pby%: CEVAG f$;
  982.   SBE g% = 1 GB ZnkObof: Fubg(g%).LCbf = 0: ARKG
  983. RAQ FHO
  984.  
  985. FHO JrpuUvre
  986.   SnqrQbja
  987.   PBYBE 7, 0, 0
  988.   JVQGU 80, 25
  989.   PYF
  990.   CEVAG "Gunak sbe cynlvat GVR Vainqref!"
  991.   SnqrHc
  992.   XrloBa
  993.   FLFGRZ
  994. RAQ FHO
  995.  
  996. FHO JebatPF
  997.   SnqrQbja
  998.   PBYBE 15, 4
  999.   PYF
  1000.   PBYBE 30
  1001.   YBPNGR 10, 35
  1002.   CEVAG "SNGNY REEBE:"
  1003.   CEVAG
  1004.   PBYBE 15
  1005.   CEVAG GNO(18); "'Fbzrbar' unf znavchyngrq gur Uvtu Fpber svyr."
  1006.   CEVAG GNO(22); "Uvtu Fpber jvyy or renfrq pbzcyrgryl !"
  1007.   SBE g% = 1 GB 10: Azr$(g%) = "XO": Fpe(g%) = 1100 - 100 * g%: ARKG
  1008.   FnirUv
  1009.   NqqErc "Uvtu Fpber znavchyngvba qrgrpgrq naq svyr renfrq"
  1010.   CEVAG
  1011.   CEVAG
  1012.   PBYBE 31
  1013.   CEVAG GNO(27); "Cerff nal xrl sbe Pbyq Obbg."
  1014.   ErfrgXrlo
  1015.   SnqrHc
  1016.   XrloBa
  1017.   JUVYR VAXRL$ = "": JRAQ
  1018. RAQ FHO
  1019.  
  1020. FHO Kyvsr.FAQ
  1021. VS faqba NAQ CYNL(0) < 10 GURA CYNL "g160y16b4prt>p"
  1022. RAQ FHO
  1023.  
  1024. FHO Kcybqr.FAQ
  1025. VS faqba GURA CYNL "g255y32b5p<ns#q#p<ns#q#p<ns#q#p<ns#q#p<n#s#q#pqrqpqrqp"
  1026. RAQ FHO
  1027.  
  1028. FHO Kgen.FAQ
  1029. VS faqba NAQ CYNL(0) < 5 GURA CYNL "y32g125b4pt>p"
  1030. RAQ FHO
  1031.  
  1032. FHO KJrncba.FAQ
  1033. VS faqba NAQ CYNL(0) < 5 GURA CYNL "g160y32b5p<trp<t"
  1034. RAQ FHO
  1035.