home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / shareware / share_45 / architype / !ArchiType / ArchiType (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-02-13  |  15KB  |  744 lines
  1.  --> Architype
  2. FA_$="Architype  Ver 0.32":B_$="
  3.  David Holden  Jan 1995":
  4.        \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  5.        _____   ____    ____    _    _   _  ______ _     _   ____    _____
  6.       /    /  /    \  /    \   /    /   /    /    /     /  /    \  /
  7.      /____/  /_____/ /        /____/   /    /    /_____/  /_____/ /____
  8.     /    /  /   \   /        /    /   /    /          /  /       /
  9.   _/   _/ _/     \_ \____/ _/   _/  _/   _/     \____/ _/       /_____
  10.  /////////////////////////////////////////////////////////////////////
  11.     Typing Tutor for the Archimedes  -  (C) David Holden 1992,93, 94
  12.      \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|////////////////////////////
  13. 262343,49,F_%
  14. 262344,,F_%
  15. 262342,,F_%
  16. F_%!12=-2
  17. F_%!16=H_%
  18. F_%!8
  19. 262356,,I_%,(F_%!0)-96,224
  20. !F_%=1
  21. 17,18:
  22. F_%!16=0
  23. 28,59,11,79,0,12,26:
  24. 28,0,31,79,12,12,26:L_%=L_%
  25. %1100000:
  26. N_(0,0,1276,480,2):
  27. 28,1,30,78,18:
  28. O_%=0
  29. 28,2)"
  30. No lessons available":
  31. 27,4)"Press SPACE to continue":
  32. K%=32:P_%=
  33. :I%=R_%:
  34. ?I%<>64:
  35. ?I%<32
  36. I%?1<>64
  37. 13,10
  38. :I%+=1:
  39. 26:S_%=0:I%=T_%-2:
  40. I%?-1>31:I%-=1:
  41. !I%=U_%
  42. :I%+=1:
  43. ?I%=32:
  44. :I%+=1:
  45. ?I%>32:
  46. 33,10,I%
  47. ,,S_%:
  48. 53,12)"Time allocated ";S_%;" seconds ":S_%=S_%*100
  49. N_ (492,572,288,126,15):
  50. 23,17,7,2,16;16;0;0;23,17,7,4,0;0;0;0:*FX202,16
  51. 6,213,136:
  52. 6,214,2:V_%=T_%?(
  53. (W_%)-1):
  54. V_%=163 C%=X_%+282
  55. C%=X_%+((V_%-33)*3)
  56. O]P_%=
  57. 34,11)"Press SPACE";
  58. 35,12)"to begin":
  59. K%=32
  60. K%=Y_%:
  61. K%=Y_%
  62. 28,34,12,45,11,12,26:
  63. 624,660:
  64. 5,V_%,4:T%=
  65. 31,C%?1,C%?2,V_%:
  66. 31,26,5,129,129,31,52,5,129,129
  67. :*fx21,0
  68. K%=Y_% K%=0:
  69. `)Z_%+=(
  70. -T%):Z_%+=(a_%>>3):
  71. 31,43,12:
  72. K%>31
  73. "CTRL"
  74. K%=V_%
  75. 31,36,12,128:D%=
  76. 6,213,101:
  77. 6,214,7:
  78. 31,36,12,132,7:D%=
  79. +(a_%*4):
  80. 6,213,136:
  81. 6,214,2:b_%+=1
  82. dvc_%+=1:d_%=V_%:
  83. :V_%=T_%?(
  84. (W_%)-1):
  85. V_%<>d_%:
  86. %100:
  87. 31,C%?1,C%?2,?C%:
  88. 31,26,5,32,32,31,52,5,32,32
  89. g3P_%=
  90. V_%=163 C%=X_%+282
  91. C%=X_%+((V_%-33)*3)
  92. 31,36,12,32,31,43,12,32,32,32,32,5,d_%,4
  93. 6,213,101:
  94. 6,214,7:
  95. 6,213,136:
  96. 6,214,2
  97. 0:I%=(S_%-
  98. I%<0 I%=0
  99. 53,12)"Time remaining ";I%;" seconds "
  100. O_%=0
  101. 100000
  102. 0,15)
  103. (80):
  104. {CT_%=e_%:N%=f_%:
  105. N%>1:
  106. :T_%+=1:
  107. ?T_%=64:
  108. T_%?-1<32 T_%+=1:N%-=1
  109. :T_%+=1:
  110. ?T_%>32:
  111. !T_%=U_%
  112. :T_%+=1:
  113. ?T_%<32:
  114. ?T_%<33:T_%+=1:
  115. yR_%=T_%:
  116. :R_%+=1:
  117. ?R_%<32:
  118. :R_%+=1:
  119. ?R_%>33:W_%=0:
  120. T_%?W_%>31:W_%+=1:
  121. W_%<38 g_%=2:h_%=40-W_%
  122. g_%=1:h_%=(80-W_%)
  123. 0:I%=0:J%=40:
  124. J%>31:J%=T_%?I%:
  125. 31,(I%*g_%)+h_%,15,J%:I%+=1:
  126. O_%>0
  127. %100:
  128. 31,C%?1,C%?2,?C%:
  129. 31,26,5,32,32,31,52,5,32,32
  130. 28,0,31,79,12,12:
  131. 28,30,15,48,10,12,26:
  132. i_(444,768):
  133. j_(2):
  134. j_(3):
  135. 6,213,101:
  136. 6,214,7:
  137. V_%=32:=
  138. V_%=39:=
  139. V_%<44:=
  140. V_%<58:=
  141. V_%=59:=
  142. V_%=61:=
  143. V_%<91:=
  144. V_%=94:=
  145. V_%=95:=
  146. V_%<123:=
  147. V_%<127:=
  148. 28,0,31,79,12,12,26:L_%=L_%
  149. %100000:
  150. N_(0,16,1276,316,10):
  151. m_%=0
  152. 28,24)"
  153. No exercises available!":
  154. 28,26)"Press SPACE to continue":
  155. K%=32:
  156. n_:=0
  157. :I%=o_%:N%=p_%:
  158. N%>1:
  159. :I%+=1:
  160. ?I%=64:
  161. I%?-1<32 I%+=1:N%-=1
  162. ?I%<33:I%+=1:
  163. :q_%=
  164. :r_%=
  165. !I%=s_%
  166. !I%=t_%:
  167. !I%=s_%
  168. 3q_%=
  169. 60,9)"Exercise Locked!":
  170. !I%=t_% r_%=
  171. :I%+=1:
  172. ?I%<32:
  173. ?I%<33:I%+=1:
  174. 24,16;32;1264;308;:
  175. 23,17,7,2,u_%>>1;(v_%>>2)-2;0;0;:
  176. 23,17,7,4,u_%>>1;v_%>>2;0;0;:
  177. 23,142,255,255,255,255,255,255,255,255:
  178. 16,308
  179. 28,1,30,78,22
  180. :W_%=0:
  181. I%?W_%<>64:
  182. I%?W_%<32
  183. 13,10
  184. I%?W_%
  185. /W_%+=1:
  186. I%?(W_%-1)<33:W_%-=1:
  187. 26,4:=I%
  188. w_:v_%=56:u_%=28:
  189. 28,59,11,79,0,12,26:x_%=
  190. x_%=0
  191. N_(0,340,1276,316,15):
  192. 28,1,20,78,12:
  193. 24,16;360;1264;640;:I%=0:H%=0:V%=0:P%=4:y_%=0:z_%=0:
  194. 16,636:y_%=1
  195. h_%>0
  196. :C%=__%?I%:I%+=1:
  197. C%>31
  198. C%:H%+=1
  199. 13,10:V%+=1:H%=0:y_%+=1:
  200. y_%=2 z_%=I%+__%
  201. I%=h_%:
  202. z_% P%=2
  203. 28,P%)" Press SPACE to start ";:
  204. 31,H%,V%:
  205. 23,0,10,96,0,0,0,0,0,0:
  206. K%>32
  207. K%=32
  208. K%=Y_%
  209. K%=Y_%
  210. 28,P%)
  211. (22);:
  212. ?z_%>31:
  213. ?z_%:z_%+=1:
  214. 31,H%,V%:*FX202,16
  215. 6,213,136:
  216. 6,214,2:B`%=h_%:
  217. %1000
  218. 13:__%?h_%=10:
  219. 13,10:
  220. x_%?h_%>13
  221. C`:D`%+=1
  222. h_%+=1
  223. 8,127:
  224. h_%>0
  225. /h_%-=1:
  226. x_%?h_%<>10
  227. __%?h_%<>x_%?h_% D`%-=1
  228. 4I%=h_%:
  229. :I%-=1:
  230. __%?I%=10
  231. I%=-1:
  232. 31,h_%-1-I%,
  233. E`%+=
  234. K%<32
  235. WO%=h_%-1:
  236. __%?O%<>32:
  237. 127:O%-=1:
  238. :__%?O%=10:
  239. 31,0,
  240. O%<h_%:
  241. __%?O%:O%+=1:
  242. K%:__%?h_%=K%
  243. x_%?h_%<>K%
  244. C`:D`%+=1
  245. h_%+=1
  246. h_%>=W_%:E`%+=
  247. F`:h_%=0:
  248. 23,0,10,16,0,0,0,0,0,0:
  249. 16,19)" Exercise finished, Press SPACE to continue ";:
  250. `_:H%=16+(H%*u_%):V%=636-(V%*v_%):G`%=16+(43*u_%):
  251. K%>32
  252. K%=32
  253. K%=Y_%
  254. K%=Y_%
  255. 28,P%)
  256. (22);:
  257. 24,16;352;1264;640;:
  258. 5:H`%=7:I`%=15:J`%=4:
  259. I`%+128:
  260. 16,636-v_%:
  261. ?z_%>31:
  262. ?z_%:z_%+=1:
  263. H%,V%:*FX202,16
  264. 6,213,136:
  265. 6,214,2:B`%=h_%:
  266. 3,J`%:
  267. BY-u_%,0:
  268. :K`%=
  269. (-1)=0:
  270. >K`%+25
  271. 3,J`%:
  272. BY-u_%,0:K`%=
  273. BY-u_%,0:
  274. H`%:K%=
  275. %1000
  276. 13:__%?h_%=10:
  277. 13,10:
  278. x_%?h_%>13
  279. C`:D`%+=1
  280. h_%+=1:V%-=v_%:H%=16
  281. 8,127:
  282. h_%>0
  283. 4/h_%-=1:
  284. x_%?h_%<>10
  285. __%?h_%<>x_%?h_% D`%-=1
  286. H%=16
  287. 6II%=h_%:
  288. :I%-=1:
  289. __%?I%=10
  290. I%=-1:V%+=v_%:H%=((h_%-1-I%)*u_%)+16:
  291. H%,V%
  292. 127:H%-=u_%
  293. E`%+=
  294. K%<32
  295. H%>G`%
  296. CrO%=h_%-1:
  297. __%?O%<>32:
  298. 127:O%-=1:
  299. :__%?O%=10:V%-=v_%:H%=16:
  300. H%,V%:
  301. O%<h_%:O%+=1:
  302. __%?O%:H%+=u_%:
  303. K%:H%+=u_%
  304. K%:__%?h_%=K%:H%+=u_%
  305. x_%?h_%<>K%
  306. C`:D`%+=1
  307. h_%+=1
  308. h_%>=W_%:E`%+=
  309. F`:h_%=0:
  310. 23,0,10,16,0,0,0,0,0,0:
  311. 16,19)" Exercise finished, Press SPACE to continue ";:
  312. 6,213,101:
  313. 6,214,7:
  314. 4,26:
  315. 23,0,10,16,0,0,0,0,0,0:
  316. 0,0,1280,656:
  317. I%=B`%
  318. __%?I%<33 L`%+=1
  319. :M`%+=(I%-B`%):N`%=(60000/E`%)*L`%:
  320. 4,26:
  321. j_(2):
  322. j_(3):
  323. 262373,,P`%:
  324. I%=R`%
  325. R`%+101:
  326. :J%=P`%:
  327. 19,I%,16,J%?1,J%?2,J%?3:J%+=4:
  328. 19,0,24,J%?1,J%?2,J%?3
  329. 23,0,10,16,0,0,0,0,0,0:
  330. 23,129,0,0,255,255,255,255,0,0:
  331. N_(372,792,536,212,12):
  332. 140:I%=X_%:
  333. :C%=?I%:X%=I%?1:Y%=I%?2:I%+=3:
  334. 31,X%,Y%,C%:
  335. C%=163:
  336. S`(444,768):*FX4,1
  337. *FX229,27
  338. 6,213,101:
  339. 6,214,7:
  340. N_(0,660,320,356,2):
  341. 8,948,308,948:
  342. 4,944,312,944:
  343. 8,940,308,940:
  344. 7,1)"Status":
  345. j_(I%):
  346. j_(U`%):
  347. 31,3,U`%+2:
  348. "Lesson     ";f_%;" "
  349. "Exercise   ";p_%;" "
  350. "Mistakes   ";:
  351. V`(c_%,b_%)
  352. V`(M`%,D`%)
  353. "Speed      ";:
  354. V`(Z_%>>4,c_%)
  355. @%=&2010A:
  356. ;N`%/10;" ":@%=10
  357. "Show key   ";:
  358. "On "
  359. "Off"
  360. "Key Click  ";:
  361. %1000
  362. "On "
  363. "Off"
  364. "Delay      ";a_%;" "
  365. "Lessons    ";O_%
  366. "Exercises  ";m_%
  367. V`(W`%,X`%):
  368. W`%=0
  369. X`%=0
  370. "0   ":
  371. AY`=(X`%/W`%)*100:
  372. Y`>=10
  373. 1;"% "
  374. @%=&2010A:
  375. ;Y`;"% ":@%=10
  376. %10000 L_%=L_%
  377. %10000:
  378. a`%<>b`%
  379. c`(a`%,0):
  380. c`(b`%,7):b`%=a`%
  381. --- up arrow or page up
  382. (-64)
  383. %100000
  384. S%>Z`%:
  385. :S%-=1:
  386. ?S%=12:E%=S%:d`%-=1:
  387. 8,13);d`%;" ":
  388. 28,1,30,78,15:
  389. ?E%:E%+=1:
  390. ?E%=12
  391. ?E%=26:
  392. :a`%-=1:
  393. a`%=0 a`%=8
  394. --- down arrow or page down
  395. (-79)
  396. %100000
  397. E%?1<>26:S%=E%:d`%+=1:
  398. 8,13);d`%;" ":
  399. 28,1,30,78,15:
  400. ?E%:E%+=1:
  401. ?E%=12
  402. ?E%=26:
  403. :a`%+=1:
  404. a`%=9 a`%=1
  405. --- left arrow
  406. f_%>1 f_%-=1:
  407. 2 L_%=L_%
  408. j_(2):
  409. j_(3)
  410. j_(1)
  411. p_%>1 p_%-=1:h_%=0
  412. 1 L_%=L_%
  413. j_(2):
  414. j_(3)
  415. j_(1)
  416. a_%>1 a_%-=1:
  417. j_(6)
  418. --- right arrow
  419. f_%<O_% f_%+=1:
  420. 2 L_%=L_%
  421. j_(2):
  422. j_(3)
  423. j_(1)
  424. p_%<m_% p_%+=1:h_%=0
  425. 1 L_%=L_%
  426. j_(2):
  427. j_(3)
  428. j_(1)
  429. a_%<200 a_%+=1:
  430. j_(6)
  431. 2:c_%=0:b_%=0:Z_%=0:
  432. 2 L_%=L_%
  433. j_(1):
  434. j_(2):
  435. j_(3):
  436. 3:h_%=0:L`%=0:M`%=0:D`%=0:E`%=0:
  437. 1 L_%=L_%
  438. j_(1):
  439. j_(2):
  440. j_(3):
  441. 4:L_%=L_%
  442. %100:
  443. j_(4)
  444. 5:L_%=L_%
  445. %1000:
  446. j_(5)
  447. %100000)=0
  448. e`:L_%=L_%
  449. %100000:
  450. 26,12:
  451. 262372,,P`%
  452. 6,213,101:
  453. 6,214,7:
  454. 6,138,0,&CC:
  455. 6,138,0,13:
  456. N_(0,8,1276,620,14):
  457. 12,564,1264,564:
  458. 8,560,1268,560:
  459. 10,556,1264,556:
  460. 3,13)"Page 1  of ";f`%;"  ----  Use the Page Up and Page Down keys for next/prev page"
  461. 28,1,30,78,15:E%=Z`%:S%=E%:d`%=1:
  462. ?E%=10
  463. .E%+=1:
  464. ?E%=12
  465. E%?1=0:L_%=L_%
  466. %100000:
  467. N_(956,660,320,356,2):
  468. 964,948,1264,948:
  469. 960,944,1268,944:
  470. 964,940,1264,940:
  471. 68,1)"Menu":
  472. c`(I%,7):
  473. :a`%=1:b`%=8:
  474. c`(U`%,g`%):
  475. g`%=0
  476. 31,63,2+U`%:
  477. " Continue     "
  478. " New Lesson   "
  479. " New Exercise "
  480. " Show Key     "
  481. " Key Click    "
  482. " Set Delay    "
  483. " Instructions "
  484. " Desktop      "
  485. S`(x%,y%):
  486. 23,17,7,2,24;14;0;0;23,17,7,4,21;0;0;0;5:
  487. x%,y%:
  488. "Arch";:
  489. BY-4,0:
  490. "i";:
  491. BY-8,0:
  492. "type":
  493. x%+12,y%+12:
  494. "Arch";:
  495. BY-4,0:
  496. "i";:
  497. BY-8,0:
  498. "type":
  499. x%+8,y%+8:
  500. "Arch";:
  501. BY-4,0:
  502. "i";:
  503. BY-8,0:
  504. "type":
  505. i_(x%,y%):
  506. i_(x%,y%):
  507. 23,17,7,2,12;12;0;0;23,17,7,4,12;0;0;0;5:
  508. x%+8,y%-68:
  509. "By David Holden":
  510. x%+20,y%-54:
  511. "By David Holden":
  512. x%+16,y%-60:
  513. "By David Holden":
  514. N_(x%,y%,w%,h%,g`%):
  515. x%,y%,w%,h%:
  516. x%+10,y%+8,x%+10,y%+h%-8:
  517. x%+8,y%+h%-8,x%+8,y%+8:
  518. x%+w%-8,y%+8:
  519. x%+w%-8,y%+h%-8:
  520. x%+8,y%+h%-8:
  521. x%,y%+h%,x%,y%:
  522. x%+w%,y%:
  523. x%+w%,y%+h%:
  524. x%,y%+h%:
  525. 263872:
  526. R`%&80,P`%&50,X_%&180,h`%&400,i`%&100:
  527. __%&800,F_%&100,I_%&80,j`%&180:
  528. 8,17,"<Obey$Dir>.progdata.DataC"
  529. k`%,,,,W_%
  530. 8,16,"<Obey$Dir>.progdata.DataC",h`%,0
  531. l`("Missing DataC file, unable to contine",1):
  532. '-A%=0:B%=F_%:m`%=
  533. (h`%):n`%=!F_%:
  534. )Ro`%=
  535. -&8000:p`%=
  536. q`(&4000)=
  537. l`(1,"Not enough RAM to run Architype"):
  538. n`%>200 r`$="Temp3"
  539. r`$="Temp2"
  540. 262361,,"<Obey$Dir>.progdata."+r`$:
  541. 262363,,p`%,j`%,j`%+&17F,-1,"Info",0
  542. ,,R%:
  543. 262337,,p`%
  544. 262363,,p`%,R%,j`%+&17F,i`%,"banner",0
  545. ,,R%:
  546. 262337,,p`%
  547. 262362:A%=1:C%=t`%:B%=
  548. (h`%)
  549. !F_%=s`%:F_%!4=1:
  550. 262350,,F_%:$(F_%!28)=A_$:!F_%=s`%:F_%!4=3:
  551. 262350,,F_%:$(F_%!28)=B_$:A$="":
  552. ?B%>31:A$+=
  553. (?B%):B%+=1:
  554. :F_%!&80=s`%:F_%!&84=4:
  555. 262350,,F_%+&80:$(F_%!&9C)=A$
  556. 8,17,"<Obey$Dir>.progdata.!palette"
  557. k`%,,,,W_%:
  558. 8,16,"<Obey$Dir>.progdata.!palette",R`%,0:Q`%=
  559. l`("Unable to find !Palette file, using Desktop palette",1):Q`%=
  560. u`:L_%=%11101:
  561.  4=instruc req, 5=instruc on scrn, 6=time lock, 7=ex lock
  562. a_%=20:f_%=1:p_%=1:b_%=0:D`%=0:Z_%=0:E`%=0:c_%=0:M`%=0:h_%=0:N`%=0:L`%=0:Y_%=27:$__%="TIME":U_%=!__%:$__%="LOCK":s_%=!__%:$__%="LARG":t_%=!__%:I%=X_%:
  563. C%,X%,Y%:?I%=C%:I%?1=X%:I%?2=Y%:I%+=3:
  564. C%=163:H_%=
  565. 263873:
  566. u`:f`%=0:Z`%=p`%:
  567. 8,17,"<Obey$Dir>.resources.DataI"
  568. k`%,,,,W_%:
  569. W_%>&3FF0
  570. q`(W_%+8)=
  571. l`("Not enough RAM to load instructions"):
  572. 8,16,"<Obey$Dir>.resources.DataI",Z`%,0:Z`%?W_%=26:I%=Z`%:
  573. :I%+=1:
  574. ?I%=12 f`%+=1
  575. ?I%=26:e_%=(p`%+W_%+8)
  576. l`("Unable to find instructions",1):!Z`%=&0A0D0A0D:$(Z`%+4)=
  577. 26," ")+"
  578. No instructions available"+
  579. 26:e_%=p`%+&48
  580. :e_%!-4=&0A0A0A40:
  581. 8,17,"<ArchitypeRes$Dir>"
  582. k`%=0 I%=
  583. l`("Unable to find Resources directory",1):
  584. `ZC%=0:w`%=e_%:!w`%=0:
  585. 12,10,"<ArchitypeRes$Dir>",__%,1,C%,&400,"LS*"
  586. ,,,F%,C%:
  587. dzf$="":I%=__%+20:
  588. ?I%:f$+=
  589. (?I%):I%+=1:
  590. q`((w`%+__%!8)-p`%)=
  591. l`("Not enough RAM available to load Lessons"):
  592. 8,16,"<ArchitypeRes$Dir>."+f$,w`%,0:w`%+=__%!8:
  593. ?w`%<>64:w`%-=1:
  594. :w`%+=1:!w`%=&0A
  595. C%<0:C%=0:o_%=(w`%+8)
  596. 3:x`%=o_%:!x`%=0:o_%!-4=&0A0A0A40:
  597. 12,10,"<ArchitypeRes$Dir>",__%,1,C%,&400,"EX*"
  598. ,,,F%,C%:
  599. r|f$="":I%=__%+20:
  600. ?I%:f$+=
  601. (?I%):I%+=1:
  602. q`((x`%+__%!8)-p`%)=
  603. l`("Not enough RAM available to load Exercises"):
  604. 8,16,"<ArchitypeRes$Dir>."+f$,x`%,0:x`%+=__%!8:
  605. ?x`%<>64:x`%-=1:
  606. :x`%+=1:!x`%=&0A:x`%+=1
  607. C%<0:O_%=
  608. O_%=0
  609. }.f_%=0:I%=
  610. l`("Couldn't find any Lessons!")
  611. :m_%=
  612. m_%=0
  613. 0p_%=0:I%=
  614. l`("Couldn't find any Exercises!")
  615. y`:J%=0:
  616. I%=e_%
  617. ?I%<32
  618. I%?1=64 J%+=1
  619. z`:J%=0:
  620. I%=o_%
  621. ?I%<32
  622. I%?1=64 J%+=1
  623. H_:F_%!0=-1:F_%!4=8:F_%!8=12:F_%!12=88:F_%!16=96:F_%!20=&2002:$(F_%+24)="!architype":
  624. 262338,,F_%
  625. H_%:=H_%
  626. v`:m%=
  627. I_ (I_%,"Architype",132):m%=
  628. c` ("Info",2,s`%):m%=
  629. c` ("Quit",&80,0):
  630. c` (_`$,``%,Aa%):m%!0=``%:m%!4=Aa%:m%!8=&7000001:$(m%+12)=_`$:=m%+24
  631. I_ (a%,Ba$,Ca%):$a%=Ba$:a%!12=&70207:a%!16=Ca%:a%!20=40:a%!24=0:=a%+28
  632. E_(Da%):
  633. 263874:!F_%=
  634. :$(F_%+4)=
  635. $+" at line "+
  636. 262367,F_%,1,"Architype":
  637. 263874:
  638. 262365,m`%,&4B534154:
  639. l`(l`$,f%):F_%!&80=0:$(F_%+&84)=l`$+
  640. 262367,F_%+&80,f%+16,"Architype"
  641. ,I%:=I%
  642. q`(Ea%):
  643. 262380,o`%+Ea%,-1
  644. e%<(o`%+Ea%):=
  645. 6,213,101:
  646. 6,214,7:
  647. 6,213,136:
  648. 6,214,2:
  649.  49,28,2
  650.  39,50,4
  651.  51,32,2
  652.  52,34,2
  653.  53,36,2
  654.  55,40,2
  655.  39,50,4
  656.  57,44,2
  657.  48,46,2
  658.  56,42,2
  659.  61,50,2
  660.  44,45,5
  661.  45,48,2
  662.  46,47,5
  663.  47,49,5
  664.  48,46,2
  665.  49,28,2
  666.  50,30,2
  667.  51,32,2
  668.  52,34,2
  669.  53,36,2
  670.  54,38,2
  671.  55,40,2
  672.  56,42,2
  673.  57,44,2
  674.  59,48,4
  675.  59,48,4
  676.  44,45,5
  677.  61,50,2
  678.  46,47,5
  679.  47,49,5
  680.  50,30,2
  681.  65,30,4
  682.  66,39,5
  683.  67,35,5
  684.  68,34,4
  685.  69,33,3
  686.  70,36,4
  687.  71,38,4
  688.  72,40,4
  689.  73,43,3
  690.  74,42,4
  691.  75,44,4
  692.  76,46,4
  693.  77,43,5
  694.  78,41,5
  695.  79,45,3
  696.  80,47,3
  697.  81,29,3
  698.  82,35,3
  699.  83,32,4
  700.  84,37,3
  701.  85,41,3
  702.  86,37,5
  703.  87,31,3
  704.  88,33,5
  705.  89,39,3
  706.  90,31,5
  707.  91,49,3
  708.  92,53,3
  709.  93,51,3
  710.  54,38,2
  711.  45,48,2
  712.  96,26,2
  713.  65,30,4
  714.  66,39,5
  715.  67,35,5
  716.  68,34,4
  717.  69,33,3
  718.  70,36,4
  719.  71,38,4
  720.  72,40,4
  721.  73,43,3
  722.  74,42,4
  723.  75,44,4
  724.  76,46,4
  725.  77,43,5
  726.  78,41,5
  727.  79,45,3
  728.  80,47,3
  729.  81,29,3
  730.  82,35,3
  731.  83,32,4
  732.  84,37,3
  733.  85,41,3
  734.  86,37,5
  735.  87,31,3
  736.  88,33,5
  737.  89,39,3
  738.  90,31,5
  739.  91,49,3
  740.  92,53,3
  741.  93,51,3
  742.  96,26,2
  743.  163,52,2
  744.