home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / hobbbies / orgami / intro.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-21  |  33.2 KB  |  1,506 lines
  1. 10  SCREEN 1,0:COLOR 8,0:CLS:KEY OFF
  2. 15  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 20  LOCATE 11,1:PRINT FNCEN$("INTRODUCTION",40)
  4. 25  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 30  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  6. 35  PRINT FNCEN$("All Rights Reserved",40)
  7. 40  FOR K=1 TO 2000:NEXT K
  8. 45  CLS
  9. 50  LINE(10,10)-(310,190),3,B
  10. 55  LOCATE 5,1
  11. 60  PRINT FNCEN$("What is Origami?",40)
  12. 65  LINE(10,31)-(10,40)
  13. 70  FOR K=1 TO 750:NEXT K
  14. 75  GOSUB 10030         '** Textpad **
  15. 80  PRINT FNCEN$("* Press <C> to continue *",40)
  16. 85  A$=INKEY$:IF A$="" GOTO 85
  17. 90  IF A$="C" OR A$="c" GOTO 100
  18. 95  GOTO 75
  19. 100  LOCATE 8,1
  20. 105  PRINT FNCEN$("Formally speaking, Origami is",40)
  21. 110  LINE(10,55)-(10,75)
  22. 115  PRINT FNCEN$("the Japanese art of paperfolding.",40)
  23. 120  LINE(10,55)-(10,75)
  24. 125  A$=INKEY$:IF A$="" GOTO 125
  25. 130  IF A$="C" OR A$="c" GOTO 140
  26. 135  GOTO 125
  27. 140  LOCATE 12,1
  28. 145  PRINT FNCEN$("Less formally, one might say",40)
  29. 150  LINE(10,85)-(10,130)
  30. 155  PRINT FNCEN$("it is a pastime art,",40)
  31. 160  LINE(10,85)-(10,130)
  32. 165  PRINT FNCEN$("a recreational art,",40)
  33. 170  LINE(10,85)-(10,130)
  34. 175  PRINT FNCEN$("and even less formally,",40)
  35. 180  LINE(10,85)-(10,130)
  36. 185  PRINT FNCEN$("a doodling art.",40)
  37. 190  LINE(10,85)-(10,130)
  38. 195  A$=INKEY$:IF A$="" GOTO 195
  39. 200  IF A$="C" OR A$="c" GOTO 210
  40. 205  GOTO 195
  41. 210  LOCATE 19,1
  42. 215  PRINT FNCEN$("Above all, however,",40)
  43. 220  LINE(10,140)-(10,160)
  44. 225  PRINT FNCEN$("it is a fun art.",40)
  45. 230  LINE(10,140)-(10,160)
  46. 235  A$=INKEY$:IF A$="" GOTO 235
  47. 240  IF A$="C" OR A$="c" GOTO 250
  48. 245  GOTO 235
  49. 250  CLS
  50. 255  LOCATE 6,1
  51. 260  LINE(10,10)-(310,190),3,B
  52. 265  PRINT FNCEN$("It is a fun art",40)
  53. 270  LINE(10,10)-(10,190)
  54. 275  PRINT FNCEN$("that requires nimble fingers,",40)
  55. 280  LINE(10,10)-(10,190)
  56. 285  GOSUB 10030         '** Textpad **
  57. 290  PRINT FNCEN$("* Press <C> to continue *",40)
  58. 295  A$=INKEY$:IF A$="" GOTO 295
  59. 300  IF A$="C" OR A$="c" GOTO 310
  60. 305  GOTO 285
  61. 310  LOCATE 9,1
  62. 315  PRINT FNCEN$("a sense of order",40)
  63. 320  LINE(10,10)-(10,190)
  64. 325  PRINT FNCEN$("and precision",40)
  65. 330  LINE(10,10)-(10,190)
  66. 335  PRINT FNCEN$("and exactitude",40)
  67. 340  LINE(10,10)-(10,190)
  68. 345  PRINT FNCEN$("and rigor,",40)
  69. 350  LINE(10,10)-(10,190)
  70. 355  A$=INKEY$:IF A$="" GOTO 355
  71. 360  IF A$="C" OR A$="c" GOTO 370
  72. 365  GOTO 355
  73. 370  LOCATE 14,1
  74. 375  PRINT FNCEN$("and a meticulous,",40)
  75. 380  LINE(10,10)-(10,190)
  76. 385  PRINT FNCEN$("painstaking and thorough",40)
  77. 390  LINE(10,10)-(10,190)
  78. 395  PRINT FNCEN$("feeling for detail.",40)
  79. 400  LINE(10,10)-(10,190)
  80. 405  A$=INKEY$:IF A$="" GOTO 405
  81. 410  IF A$="C" OR A$="c" GOTO 420
  82. 415  GOTO 405
  83. 420  LOCATE 18,1
  84. 425  PRINT FNCEN$("All of which we have in abundance.",40)
  85. 430  LINE(10,10)-(10,190)
  86. 435  A$=INKEY$:IF A$="" GOTO 435
  87. 440  IF A$="C" OR A$="c" GOTO 450
  88. 445  GOTO 435
  89. 450  LOCATE 20,1
  90. 455  PRINT FNCEN$("So let's proceed.",40)
  91. 460  LINE(10,10)-(10,190)
  92. 465  A$=INKEY$:IF A$="" GOTO 465
  93. 470  IF A$="C" OR A$="c" GOTO 480
  94. 475  GOTO 465
  95. 480  CLS
  96. 485  LINE(10,10)-(310,190),3,B
  97. 490  LOCATE 10,1
  98. 495  PRINT FNCEN$("Here's a sample",40)
  99. 500  LINE(10,10)-(10,190)
  100. 505  PRINT
  101. 510  PRINT FNCEN$("of what even a few origami folds",40)
  102. 515  LINE(10,10)-(10,190)
  103. 520  PRINT
  104. 525  PRINT FNCEN$("can do to a piece of paper.",40)
  105. 530  LINE(10,10)-(10,190)
  106. 535  GOSUB 10030         '** Textpad **
  107. 540  PRINT FNCEN$("* Press <C> to continue *",40)
  108. 545  A$=INKEY$:IF A$="" GOTO 545
  109. 550  IF A$="C" OR A$="c" GOTO 560
  110. 555  GOTO 535
  111. 560  CLS
  112. 565  SCREEN 1,0:COLOR 8,0:KEY OFF:CLS
  113. 570  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  114. 575  GOSUB 10000         '** Textpad **
  115. 580  PRINT FNCEN$("* SAMPLE *",40)
  116. 585  FOR K=1 TO 1000:NEXT K
  117. 590  GOSUB 10000         '** Textpad **
  118. 595  PRINT FNCEN$("We begin with a sheet of paper",40)
  119. 600  FOR K=1 TO 1500:NEXT K
  120. 605  PRINT FNCEN$("from our kit",40)
  121. 610  FOR K=1 TO 750:NEXT K
  122. 615  FOR A=0 TO 20
  123. 620  OUT 66,A:OUT 66,A
  124. 625  OUT 97,(INP(97) OR 3)
  125. 630  NEXT A
  126. 635  SOUND 37,0
  127. 640  LINE(160,30)-(80,100)
  128. 645  LINE-(160,170)
  129. 650  LINE-(240,100)
  130. 655  LINE-(160,30)
  131. 660  FOR K=1 TO 750:NEXT K
  132. 665  GOSUB 10000         '** Textpad **
  133. 670  PRINT FNCEN$("and take this corner",40)
  134. 675  FOR K=1 TO 750:NEXT K
  135. 680                              '***end arrow left ***
  136. 685                              '*** arrow up ***
  137. 690  FOR K=1 TO 15
  138. 695  PSET(160,178):DRAW"G5R4D7R2U7R4H5"
  139. 700  PAINT(160,184)
  140. 705  FOR M=1 TO 25:NEXT M
  141. 710  CIRCLE(160,184),7,0
  142. 715  PAINT(160,184),0
  143. 720  NEXT K
  144. 725                              '***end arrow up ***
  145. 730  FOR K=1 TO 250:NEXT K
  146. 735  GOSUB 10000         '** Textpad **
  147. 740  PRINT FNCEN$("up to this corner",40)
  148. 745  FOR K=1 TO 750:NEXT K
  149. 750                              '*** arrow down ***
  150. 755  FOR K=1 TO 15
  151. 760  PSET(160,22):DRAW"E5L4U7L2D7L4F5"
  152. 765  PAINT(160,16)
  153. 770  FOR M=1 TO 25:NEXT M
  154. 775  CIRCLE(160,16),7,0
  155. 780  PAINT(160,16),0
  156. 785  NEXT K
  157. 790                              '***end arrow down ***
  158. 795  FOR K=1 TO 250:NEXT K
  159. 800  GOSUB 10000         '** Textpad **
  160. 805  PRINT FNCEN$("across this line,",40)
  161. 810  FOR K=1 TO 750:NEXT K
  162. 815  FOR H=80 TO 240 STEP 2
  163. 820  PSET(H,100),3
  164. 825  NEXT H
  165. 830  FOR K=1 TO 250:NEXT K
  166. 835  GOSUB 10000         '** Textpad **
  167. 840  PRINT FNCEN$("SO!",40)
  168. 845  FOR K=1 TO 750:NEXT K
  169. 850  FOR V=170 TO 100 STEP -1
  170. 855  LINE(80,100)-(160,V),3
  171. 860  LINE-(240,100),3
  172. 865  LINE(80,100)-(160,V),0
  173. 870  LINE-(240,100),0
  174. 875  NEXT V
  175. 880  FOR V=100 TO 30 STEP -1
  176. 885  LINE(80,100)-(160,V),0
  177. 890  LINE-(240,100),0
  178. 895  LINE(80,100)-(160,V),3
  179. 900  LINE-(240,100),3
  180. 905  NEXT V
  181. 910  FOR K=1 TO 750:NEXT K
  182. 915  GOSUB 10000         '** Textpad **
  183. 920  PRINT FNCEN$("Let's move down to center a bit more.",40)
  184. 925  FOR K=1 TO 1500:NEXT K
  185. 930  FOR Q=0 TO 30
  186. 935  LINE(80,100+Q)-(240,100+Q)
  187. 940  LINE(80,100+Q)-(160,30+Q),0
  188. 945  LINE-(240,100+Q),0
  189. 950  FOR M=1 TO 5:NEXT M
  190. 955  NEXT Q
  191. 960  FOR K=1 TO 750:NEXT K
  192. 965  GOSUB 10000         '** Textpad **
  193. 970  PRINT FNCEN$("Next, we fold these corners",40)
  194. 975  FOR K=1 TO 750:NEXT K
  195. 980                              '*** arrow left ***
  196. 985  FOR K=1 TO 15
  197. 990  PSET(248,130):DRAW"E5D4R7D2L7D4H5"
  198. 995  PAINT(254,130)
  199. 1000  PSET(72,130):DRAW"H5D4L7D2R7D4E5"
  200. 1005  PAINT(66,130)
  201. 1010  CIRCLE(254,130),7,0
  202. 1015  PAINT(254,130),0
  203. 1020  CIRCLE(66,130),7,0
  204. 1025  PAINT(66,130),0
  205. 1030  NEXT K
  206. 1035                              '***end arrow left ***
  207. 1040  FOR K=1 TO 750:NEXT K
  208. 1045  GOSUB 10000         '** Textpad **
  209. 1050  PRINT FNCEN$("over to this center point",40)
  210. 1055  FOR K=1 TO 750:NEXT K
  211. 1060                              '*** arrow up ***
  212. 1065  FOR K=1 TO 15
  213. 1070  PSET(160,138):DRAW"G5R4D7R2U7R4H5"
  214. 1075  PAINT(160,144)
  215. 1080  FOR M=1 TO 25:NEXT M
  216. 1085  CIRCLE(160,144),7,0
  217. 1090  PAINT(160,144),0
  218. 1095  NEXT K
  219. 1100                              '***end arrow up ***
  220. 1105  FOR K=1 TO 250:NEXT K
  221. 1110  GOSUB 10000         '** Textpad **
  222. 1115  PRINT FNCEN$("across these lines,",40)
  223. 1120  FOR K=1 TO 750:NEXT K
  224. 1125  FOR V=95 TO 130 STEP 2
  225. 1130  PSET(120,V),0
  226. 1135  PSET(200,V),0
  227. 1140  NEXT V
  228. 1145  FOR K=1 TO 250:NEXT K
  229. 1150  GOSUB 10000         '** Textpad **
  230. 1155  PRINT FNCEN$("SO!",40)
  231. 1160  FOR K=1 TO 750:NEXT K
  232. 1165  FOR H=240 TO 200 STEP -1
  233. 1170  LINE(200,95)-(H,130),0
  234. 1175  LINE-(200,130),0
  235. 1180  NEXT H
  236. 1185  FOR H=200 TO 160 STEP -1
  237. 1190  LINE(200,95)-(H,130),0
  238. 1195  LINE-(200,130),0
  239. 1200  LINE(200,95)-(H,130),3
  240. 1205  LINE-(200,130),3
  241. 1210  NEXT H
  242. 1215  LINE(160,130)-(200,95),0
  243. 1220  FOR K=1 TO 750:NEXT K
  244. 1225  FOR H=80 TO 120
  245. 1230  LINE(120,95)-(H,130),0
  246. 1235  LINE-(120,130),0
  247. 1240  NEXT H
  248. 1245  FOR H=120 TO 160
  249. 1250  LINE(120,95)-(H,130),0
  250. 1255  LINE-(120,130),0
  251. 1260  LINE(120,95)-(H,130),3
  252. 1265  LINE-(120,130),3
  253. 1270  NEXT H
  254. 1275  LINE(120,95)-(160,130),0
  255. 1280  FOR K=1 TO 750:NEXT K
  256. 1285  GOSUB 10000         '** Textpad **
  257. 1290  PRINT FNCEN$("and lastly fold this corner",40)
  258. 1295  FOR K=1 TO 750:NEXT K
  259. 1300                              '*** arrow down ***
  260. 1305  FOR K=1 TO 15
  261. 1310  PSET(160,52):DRAW"E5L4U7L2D7L4F5"
  262. 1315  PAINT(160,46)
  263. 1320  FOR M=1 TO 25:NEXT M
  264. 1325  CIRCLE(160,46),7,0
  265. 1330  PAINT(160,46),0
  266. 1335  NEXT K
  267. 1340                              '***end arrow down ***
  268. 1345  FOR K=1 TO 250:NEXT K
  269. 1350  GOSUB 10000         '** Textpad **
  270. 1355  PRINT FNCEN$("down to this center point",40)
  271. 1360  FOR K=1 TO 750:NEXT K
  272. 1365                              '*** arrow up ***
  273. 1370  FOR K=1 TO 15
  274. 1375  PSET(160,138):DRAW"G5R4D7R2U7R4H5"
  275. 1380  PAINT(160,144)
  276. 1385  FOR M=1 TO 25:NEXT M
  277. 1390  CIRCLE(160,144),7,0
  278. 1395  PAINT(160,144),0
  279. 1400  NEXT K
  280. 1405                              '***end arrow up ***
  281. 1410  FOR K=1 TO 250:NEXT K
  282. 1415  GOSUB 10000         '** Textpad **
  283. 1420  PRINT FNCEN$("across this line,",40)
  284. 1425  FOR K=1 TO 750:NEXT K
  285. 1430  FOR H=120 TO 200 STEP 2
  286. 1435  PSET(H,95),0
  287. 1440  NEXT H
  288. 1445  FOR K=1 TO 750:NEXT K
  289. 1450  GOSUB 10000   '*** <Textpad> ***
  290. 1455  PRINT FNCEN$("SO!",40)
  291. 1460  FOR K=1 TO 750:NEXT K
  292. 1465  FOR V=60 TO 95
  293. 1470  LINE(120,95)-(160,V),0
  294. 1475  LINE-(200,95),0
  295. 1480  NEXT V
  296. 1485  FOR V=95 TO 130
  297. 1490  LINE(120,95)-(160,V),0
  298. 1495  LINE-(200,95),0
  299. 1500  LINE(120,95)-(160,V),3
  300. 1505  LINE-(200,95),3
  301. 1510  NEXT V
  302. 1515  LINE(120,95)-(160,130),0
  303. 1520  LINE-(200,95),0
  304. 1525  FOR K=1 TO 250:NEXT K
  305. 1530  GOSUB 10000         '** Textpad **
  306. 1535  PRINT FNCEN$("There!  That does it!",40)
  307. 1540  FOR K=1 TO 1500:NEXT K
  308. 1545  GOSUB 10000         '** Textpad **
  309. 1550  PRINT FNCEN$("What do we have?",40)
  310. 1555  FOR K=1 TO 1500:NEXT K
  311. 1560  GOSUB 10000         '** Textpad **
  312. 1565  PRINT FNCEN$("Not much of anything.",40)
  313. 1570  FOR K=1 TO 1500:NEXT K
  314. 1575  GOSUB 10000         '** Textpad **
  315. 1580  PRINT FNCEN$("Let's open up.",40)
  316. 1585  FOR K=1 TO 1500:NEXT K
  317. 1590  GOSUB 10000   '*** Textpad ***
  318. 1595  PRINT FNCEN$("One moment, please.",40)
  319. 1600  FOR K=1 TO 1500:NEXT K
  320. 1605  FOR A=0 TO 20
  321. 1610  OUT 66,A:OUT 66,A
  322. 1615  OUT 97,(INP(97) OR 3)
  323. 1620  NEXT A
  324. 1625  SOUND 37,0
  325. 1630  LINE(200,95)-(187,115),0
  326. 1635  LINE-(180,135),0
  327. 1640  LINE-(200,130),3
  328. 1645  LINE(188,115)-(181,135),3
  329. 1650  PAINT(185,133),3
  330. 1655  LINE(200,95)-(191,115),0
  331. 1660  LINE-(180,135),0
  332. 1665  LINE(120,95)-(133,115),0
  333. 1670  LINE-(140,135),0
  334. 1675  LINE-(120,130),3
  335. 1680  LINE(132,115)-(139,135),3
  336. 1685  PAINT(135,133),3
  337. 1690  LINE(120,95)-(129,115),0
  338. 1695  LINE-(140,135),0
  339. 1700  LINE(120,95)-(160,130),3
  340. 1705  LINE-(200,95),3
  341. 1710  LINE(120,95)-(160,125),0
  342. 1715  LINE-(200,95),0
  343. 1720  LINE(120,95)-(160,115),0
  344. 1725  LINE-(200,95),0
  345. 1730  CIRCLE(145,100),5,0,,,0.5
  346. 1735  CIRCLE(175,100),5,0,,,0.5
  347. 1740  CIRCLE(145,100),0,0
  348. 1745  CIRCLE(175,100),0,0
  349. 1750  FOR K=1 TO 250:NEXT K
  350. 1755  GOSUB 10000         '** Textpad **
  351. 1760  PRINT FNCEN$("Well, well!  What do you know!",40)
  352. 1765  FOR K=1 TO 1500:NEXT K
  353. 1770  GOSUB 10000         '** Textpad **
  354. 1775  PRINT FNCEN$("A little creature!",40)
  355. 1780  FOR K=1 TO 1500:NEXT K
  356. 1785  GOSUB 10000         '** Textpad **
  357. 1790  PRINT FNCEN$("With only four folds!",40)
  358. 1795  FOR K=1 TO 1500:NEXT K
  359. 1800  GOSUB 10000         '** Textpad **
  360. 1805  PRINT FNCEN$("What do you suppose we could make",40)
  361. 1810  FOR K=1 TO 1500:NEXT K
  362. 1815  PRINT FNCEN$("with five folds?",40)
  363. 1820  FOR K=1 TO 1500:NEXT K
  364. 1825  GOSUB 10000         '** Textpad **
  365. 1830  PRINT FNCEN$("Six folds?",40)
  366. 1835  FOR K=1 TO 1000:NEXT K
  367. 1840  PRINT FNCEN$("Ten!",40)
  368. 1845  FOR K=1 TO 750:NEXT K
  369. 1850  PRINT FNCEN$("Twenty!",40)
  370. 1855  FOR K=1 TO 750:NEXT K
  371. 1860  GOSUB 10000         '** Textpad **
  372. 1865  PRINT FNCEN$("Whoa, there!",40)
  373. 1870  FOR K=1 TO 1500:NEXT K
  374. 1875  GOSUB 10000         '** Textpad **
  375. 1880  PRINT FNCEN$("Let's not get carried away!",40)
  376. 1885  FOR K=1 TO 1500:NEXT K
  377. 1890  GOSUB 10000         '** Textpad **
  378. 1895  PRINT FNCEN$("All in good time.",40)
  379. 1900  FOR K=1 TO 1500:NEXT K
  380. 1905  GOSUB 10000         '** Textpad **
  381. 1910  PRINT FNCEN$("First, here are some folding hints.",40)
  382. 1915  FOR K=1 TO 1500:NEXT K
  383. 1920  FOR A=0 TO 20
  384. 1925  OUT 66,A:OUT 66,A
  385. 1930  OUT 97,(INP(97) OR 3)
  386. 1935  NEXT A
  387. 1940  SOUND 37,0
  388. 1945  CLS
  389. 1950  LINE(5,10)-(315,190),3,B
  390. 1955  LOCATE 5,1
  391. 1960  PRINT FNCEN$("* Hint No. 1 *",40)
  392. 1965  LINE(5,30)-(5,50)
  393. 1970  PRINT:PRINT
  394. 1975  PRINT FNCEN$("Run a program through once or twice",40)
  395. 1980  LINE(5,55)-(5,72)
  396. 1985  PRINT FNCEN$("without doing any actual folding.",40)
  397. 1990  LINE(5,55)-(5,72)
  398. 1995  GOSUB 10030   '*** Textpad ***
  399. 2000  PRINT FNCEN$("* Press <C> to continue *",40)
  400. 2005  A$=INKEY$:IF A$="" GOTO 2005
  401. 2010  IF A$="C" OR A$="c" GOTO 2020
  402. 2015  GOTO 1995
  403. 2020  LOCATE 11,1
  404. 2025  PRINT FNCEN$("Then when you do take paper in hand",40)
  405. 2030  LINE(5,79)-(5,111)
  406. 2035  PRINT FNCEN$("and start folding,",40)
  407. 2040  LINE(5,79)-(5,111)
  408. 2045  PRINT FNCEN$("you'll have a pretty good idea",40)
  409. 2050  LINE(5,79)-(5,111)
  410. 2055  PRINT FNCEN$("of what lies ahead:",40)
  411. 2060  LINE(5,79)-(5,111)
  412. 2065  A$=INKEY$:IF A$="" GOTO 2065
  413. 2070  IF A$="C" OR A$="c" GOTO 2080
  414. 2075  GOTO 2065
  415. 2080  LOCATE 16,1
  416. 2085  PRINT FNCEN$("what kind of folds are coming up",40)
  417. 2090  LINE(5,119)-(5,145)
  418. 2095  PRINT FNCEN$("and how many",40)
  419. 2100  LINE(5,119)-(5,145)
  420. 2105  PRINT FNCEN$("and of what degree of difficulty,",40)
  421. 2110  LINE(5,119)-(5,145)
  422. 2115  PRINT FNCEN$("etc., etc.",40)
  423. 2120  LINE(5,119)-(5,155)
  424. 2125  A$=INKEY$:IF A$="" GOTO 2125
  425. 2130  IF A$="C" OR A$="c" GOTO 2140
  426. 2135  GOTO 2125
  427. 2140  LOCATE 21,1
  428. 2145  PRINT FNCEN$("You'll be forearmed.",40)
  429. 2150  LINE(5,150)-(5,160)
  430. 2155  LINE(5,10)-(315,190),3,B
  431. 2160  A$=INKEY$:IF A$="" GOTO 2160
  432. 2165  IF A$="C" OR A$="c" GOTO 2175
  433. 2170  GOTO 2160
  434. 2175  CLS
  435. 2180  LINE(5,10)-(315,190),3,B
  436. 2185  LOCATE 5,1
  437. 2190  PRINT FNCEN$("* Hint No. 2 *",40)
  438. 2195  LINE(5,30)-(5,40)
  439. 2200  PRINT:PRINT:PRINT
  440. 2205  PRINT FNCEN$("Position your paper",40)
  441. 2210  LINE(5,62)-(5,96)
  442. 2215  PRINT FNCEN$("and execute your folds",40)
  443. 2220  LINE(5,62)-(5,96)
  444. 2225  PRINT FNCEN$("so that you're always comfortable",40)
  445. 2230  LINE(5,62)-(5,96)
  446. 2235  PRINT FNCEN$("as you work.",40)
  447. 2240  LINE(5,62)-(5,96)
  448. 2245  GOSUB 10030   '*** Textpad ***
  449. 2250  PRINT FNCEN$("* Press <C> to continue *",40)
  450. 2255  A$=INKEY$:IF A$="" GOTO 2255
  451. 2260  IF A$="C" OR A$="c" GOTO 2270
  452. 2265  GOTO 2245
  453. 2270  LOCATE 15,1
  454. 2275  PRINT FNCEN$("What you see on the screen",40)
  455. 2280  LINE(5,110)-(5,128)
  456. 2285  PRINT FNCEN$("will not always be",40)
  457. 2290  LINE(5,110)-(5,128)
  458. 2295  PRINT
  459. 2300  PRINT FNCEN$("EXACTLY",40)
  460. 2305  LINE(5,135)-(5,145)
  461. 2310  PRINT
  462. 2315  PRINT FNCEN$("how you'll be doing it.",40)
  463. 2320  LINE(5,150)-(5,160)
  464. 2325  LINE(5,10)-(315,190),3,B
  465. 2330  A$=INKEY$:IF A$="" GOTO 2330
  466. 2335  IF A$="C" OR A$="c" GOTO 2345
  467. 2340  GOTO 2330
  468. 2345  CLS
  469. 2350  LINE(5,10)-(315,190),3,B
  470. 2355  LOCATE 6,1
  471. 2360  PRINT FNCEN$("* Hint No. 3 *",40)
  472. 2365  LINE(5,40)-(5,47)
  473. 2370  PRINT:PRINT
  474. 2375  PRINT FNCEN$("Sometimes you'll find it helpful",40)
  475. 2380  LINE(5,64)-(5,105)
  476. 2385  PRINT FNCEN$("to use the straightedge in your kit",40)
  477. 2390  LINE(5,64)-(5,105)
  478. 2395  PRINT FNCEN$("to get a fold",40)
  479. 2400  LINE(5,64)-(5,105)
  480. 2405  PRINT FNCEN$("that's difficult to get at",40)
  481. 2410  LINE(5,64)-(5,105)
  482. 2415  PRINT FNCEN$("started.",40)
  483. 2420  LINE(5,64)-(5,105)
  484. 2425  GOSUB 10030   '*** Textpad ***
  485. 2430  PRINT FNCEN$("Press <C> to continue.",40)
  486. 2435  A$=INKEY$:IF A$="" GOTO 2435
  487. 2440  IF A$="C" OR A$="c" GOTO 2450
  488. 2445  GOTO 2425
  489. 2450  LOCATE 15,1
  490. 2455  PRINT FNCEN$("And sometimes you'll find",40)
  491. 2460  LINE(5,110)-(5,151)
  492. 2465  PRINT FNCEN$("that actually drawing a fold",40)
  493. 2470  LINE(5,110)-(5,151)
  494. 2475  PRINT FNCEN$("as a line on your paper",40)
  495. 2480  LINE(5,110)-(5,151)
  496. 2485  PRINT FNCEN$("will make the fold",40)
  497. 2490  LINE(5,110)-(5,151)
  498. 2495  PRINT FNCEN$("a lot easier to execute.",40)
  499. 2500  LINE(5,110)-(5,151)
  500. 2505  LINE(5,10)-(315,190),3,B
  501. 2510  A$=INKEY$:IF A$="" GOTO 2510
  502. 2515  IF A$="C" OR A$="c" GOTO 2525
  503. 2520  GOTO 2510
  504. 2525  CLS
  505. 2530  LINE(5,10)-(315,190),3,B
  506. 2535  LOCATE 6,1
  507. 2540  PRINT FNCEN$("* Hint No. 4 *",40)
  508. 2545  LINE(5,10)-(5,190)
  509. 2550  PRINT:PRINT:PRINT
  510. 2555  PRINT FNCEN$("Origami, like chess, has openings",40)
  511. 2560  LINE(5,10)-(5,190)
  512. 2565  PRINT
  513. 2570  PRINT FNCEN$("that are pretty standard.",40)
  514. 2575  LINE(5,10)-(5,190)
  515. 2580  GOSUB 10030   '*** Textpad ***
  516. 2585  PRINT FNCEN$("* Press <C> to continue *",40)
  517. 2590  A$=INKEY$:IF A$="" GOTO 2590
  518. 2595  IF A$="C" OR A$="c" GOTO 2605
  519. 2600  GOTO 2580
  520. 2605  LOCATE 14,1
  521. 2610  PRINT FNCEN$("Here's a demonstration",40)
  522. 2615  LINE(5,10)-(5,190)
  523. 2620  PRINT
  524. 2625  PRINT FNCEN$("of some opening folds",40)
  525. 2630  LINE(5,10)-(5,190)
  526. 2635  PRINT
  527. 2640  PRINT FNCEN$("you'll encounter quite frequently.",40)
  528. 2645  LINE(5,10)-(5,190)
  529. 2650  A$=INKEY$:IF A$="" GOTO 2650
  530. 2655  IF A$="C" OR A$="c" GOTO 2665
  531. 2660  GOTO 2650
  532. 2665  FOR A=0 TO 20
  533. 2670  OUT 66,A:OUT 66,A
  534. 2675  OUT 97,(INP(97) OR 3)
  535. 2680  NEXT A
  536. 2685  SOUND 37,0
  537. 2690  CLS
  538. 2695  LINE(160,30)-(80,100)
  539. 2700  LINE-(160,170)
  540. 2705  LINE-(240,100)
  541. 2710  LINE-(160,30)
  542. 2715  FOR H=80 TO 240 STEP 2
  543. 2720  PSET(H,100)
  544. 2725  NEXT H
  545. 2730  FOR V=30 TO 170 STEP 2
  546. 2735  PSET(160,V)
  547. 2740  NEXT V
  548. 2745  LINE(120,65)-(200,135)
  549. 2750  LINE(120,135)-(200,65)
  550. 2755  FOR K=1 TO 750:NEXT K
  551. 2756  GOSUB 10000   '*** <Textpad> ***
  552. 2758  PRINT FNCEN$("* DEMONSTRATION *",40)
  553. 2759  FOR K=1 TO 1500:NEXT K
  554. 2760  GOSUB 10000   '*** <Textpad> ***
  555. 2765  PRINT FNCEN$("This opening figure signifies",40)
  556. 2770  FOR K=1 TO 1500:NEXT K
  557. 2775  PRINT FNCEN$("that you've already executed",40)
  558. 2780  FOR K=1 TO 1500:NEXT K
  559. 2785  PRINT FNCEN$("the following four folds:",40)
  560. 2790  FOR K=1 TO 1500:NEXT K
  561. 2795  GOSUB 10000   '*** <Textpad> ***
  562. 2800  PRINT FNCEN$("Fold 1",40)
  563. 2805  FOR K=1 TO 750:NEXT K
  564. 2810  LINE(160,31)-(160,169),0
  565. 2815  LINE(120,65)-(200,135),0
  566. 2820  PSET(120,65):PSET(200,135)
  567. 2825  LINE(120,135)-(200,65),0
  568. 2830  PSET(120,135):PSET(200,65)
  569. 2835  PSET(160,100)
  570. 2840  FOR K=1 TO 750:NEXT K
  571. 2845  FOR V=30 TO 100
  572. 2850  LINE(80,100)-(160,V)
  573. 2855  LINE-(240,100)
  574. 2860  LINE(80,100)-(160,V),0
  575. 2865  LINE-(240,100),0
  576. 2870  NEXT V
  577. 2875  FOR V=100 TO 170
  578. 2880  LINE(80,100)-(160,V)
  579. 2885  LINE-(240,100)
  580. 2890  NEXT V
  581. 2895  FOR V=170 TO 100 STEP -1
  582. 2900  LINE(80,100)-(160,V),0
  583. 2905  LINE-(240,100),0
  584. 2910  LINE(80,100)-(160,170)
  585. 2915  LINE-(240,100)
  586. 2920  NEXT V
  587. 2925  FOR H=80 TO 240 STEP 2
  588. 2930  PSET(H,100)
  589. 2935  NEXT H
  590. 2940  FOR V=90 TO 30 STEP -1
  591. 2945  LINE(80,100)-(160,V)
  592. 2950  LINE-(240,100)
  593. 2955  LINE(80,100)-(160,V),0
  594. 2960  LINE-(240,100),0
  595. 2965  NEXT V
  596. 2970  LINE(80,100)-(160,30)
  597. 2975  LINE-(240,100)
  598. 2980  FOR H=80 TO 240 STEP 2
  599. 2985  PSET(H,100)
  600. 2990  NEXT H
  601. 2995  FOR K=1 TO 250:NEXT K
  602. 3000  GOSUB 10000   '*** <Textpad> ***
  603. 3005  PRINT FNCEN$("Fold 2",40)
  604. 3010  FOR K=1 TO 750:NEXT K
  605. 3015  LINE(81,100)-(239,100),0
  606. 3020  FOR V=30 TO 170 STEP 2
  607. 3025  PSET(160,V)
  608. 3030  NEXT V
  609. 3035  FOR K=1 TO 750:NEXT K
  610. 3040  FOR H=80 TO 160
  611. 3045  LINE(160,30)-(H,100)
  612. 3050  LINE-(160,170)
  613. 3055  LINE(160,30)-(H,100),0
  614. 3060  LINE-(160,170),0
  615. 3065  NEXT H
  616. 3070  FOR H=160 TO 240
  617. 3075  LINE(160,30)-(H,100)
  618. 3080  LINE-(160,170)
  619. 3085  NEXT H
  620. 3090  FOR H=240 TO 160 STEP -1
  621. 3095  LINE(160,30)-(H,100)
  622. 3100  LINE-(160,170)
  623. 3105  LINE(160,30)-(H,100),0
  624. 3110  LINE-(160,170),0
  625. 3115  LINE(160,30)-(240,100)
  626. 3120  LINE-(160,170)
  627. 3125  NEXT H
  628. 3130  FOR V=30 TO 170 STEP 2
  629. 3135  PSET(160,V)
  630. 3140  NEXT V
  631. 3145  FOR H=150 TO 80 STEP -1
  632. 3150  LINE(160,30)-(H,100)
  633. 3155  LINE-(160,170)
  634. 3160  LINE(160,30)-(H,100),0
  635. 3165  LINE-(160,170),0
  636. 3170  NEXT H
  637. 3175  LINE(160,30)-(80,100)
  638. 3180  LINE-(160,170)
  639. 3185  FOR V=30 TO 170 STEP 2
  640. 3190  PSET(160,V)
  641. 3195  NEXT V
  642. 3200  FOR K=1 TO 250:NEXT K
  643. 3205  GOSUB 10000   '*** <Textpad> ***
  644. 3210  PRINT FNCEN$("Fold 3",40)
  645. 3215  FOR K=1 TO 750:NEXT K
  646. 3220  LINE(160,31)-(160,169),0
  647. 3225  LINE(120,135)-(200,65)
  648. 3230  FOR K=1 TO 750:NEXT K
  649. 3235  FOR Q=0 TO 40
  650. 3240  LINE(200,65)-(160+Q,30+0.88*Q)
  651. 3245  LINE-(80+Q,100+0.88*Q)
  652. 3250  LINE-(120,135)
  653. 3255  LINE(200,65)-(160+Q,30+0.88*Q),0
  654. 3260  LINE-(80+Q,100+0.88*Q),0
  655. 3265  LINE-(120,135),0
  656. 3270  NEXT Q
  657. 3275  FOR Q=0 TO 40
  658. 3280  LINE(200,65)-(200+Q,65+0.88*Q)
  659. 3285  LINE-(120+Q,135+0.88*Q)
  660. 3290  LINE-(120,135),0
  661. 3295  LINE(200,65)-(199+Q,65+0.88*Q)
  662. 3300  LINE-(119+Q,135+0.88*Q)
  663. 3305  LINE-(120,135),0
  664. 3310  NEXT Q
  665. 3315  FOR Q=0 TO 40
  666. 3320  LINE(200,65)-(240-Q,100-0.88*Q),0
  667. 3325  LINE-(160-Q,170-0.88*Q),0
  668. 3330  LINE-(120,135),0
  669. 3335  LINE(200,65)-(241-Q,100-0.88*Q),0
  670. 3340  LINE-(161-Q,170-0.88*Q),0
  671. 3345  LINE-(120,135),0
  672. 3350  LINE(200,65)-(240,100)
  673. 3355  LINE-(160,170)
  674. 3360  LINE-(120,135)
  675. 3365  NEXT Q
  676. 3370  LINE(120,134)-(199,65),0
  677. 3375  FOR Q=0 TO 40
  678. 3380  LINE(200,65)-(200-Q,65-0.88*Q)
  679. 3385  LINE-(120-Q,135-0.88*Q)
  680. 3390  LINE-(120,135)
  681. 3395  LINE(200,65)-(200-Q,65-0.88*Q),0
  682. 3400  LINE-(120-Q,135-0.88*Q),0
  683. 3405  LINE-(120,135),0
  684. 3410  LINE(120,135)-(200,65)
  685. 3415  NEXT Q
  686. 3420  LINE(200,65)-(160,30)
  687. 3425  LINE-(80,100)
  688. 3430  LINE-(120,135)
  689. 3435  FOR K=1 TO 250:NEXT K
  690. 3440  GOSUB 10000   '*** <Textpad> ***
  691. 3445  PRINT FNCEN$("Fold 4",40)
  692. 3450  FOR K=1 TO 750:NEXT K
  693. 3455  LINE(120,135)-(200,65),0
  694. 3460  PSET(120,135):PSET(200,65)
  695. 3465  LINE(120,65)-(200,135)
  696. 3470  FOR K=1 TO 750:NEXT K
  697. 3475  FOR Q=0 TO 40
  698. 3480  LINE(120,65)-(160-Q,30+0.88*Q)
  699. 3485  LINE-(240-Q,100+0.88*Q)
  700. 3490  LINE-(200,135)
  701. 3495  LINE(120,65)-(160-Q,30+0.88*Q),0
  702. 3500  LINE-(240-Q,100+0.88*Q),0
  703. 3505  LINE-(200,135),0
  704. 3510  NEXT Q
  705. 3515  FOR Q=0 TO 40
  706. 3520  LINE(120,65)-(120-Q,65+0.88*Q)
  707. 3525  LINE-(200-Q,135+0.88*Q)
  708. 3530  LINE-(200,135),0
  709. 3535  LINE(120,65)-(121-Q,65+0.88*Q)
  710. 3540  LINE-(201-Q,135+0.88*Q)
  711. 3545  LINE-(200,135),0
  712. 3550  NEXT Q
  713. 3555  FOR Q=0 TO 40
  714. 3560  LINE(120,65)-(80+Q,100-0.88*Q),0
  715. 3565  LINE-(160+Q,170-0.88*Q),0
  716. 3570  LINE-(200,135),0
  717. 3575  LINE(120,65)-(79+Q,100-0.88*Q),0
  718. 3580  LINE-(159+Q,170-0.88*Q),0
  719. 3585  LINE-(200,135),0
  720. 3590  LINE(120,65)-(80,100)
  721. 3595  LINE-(160,170)
  722. 3600  LINE-(200,135)
  723. 3605  NEXT Q
  724. 3610  LINE(121,65)-(200,134),0
  725. 3615  FOR Q=0 TO 40
  726. 3620  LINE(120,65)-(120+Q,65-0.88*Q)
  727. 3625  LINE-(200+Q,135-0.88*Q)
  728. 3630  LINE-(200,135)
  729. 3635  LINE(120,65)-(120+Q,65-0.88*Q),0
  730. 3640  LINE-(200+Q,135-0.88*Q),0
  731. 3645  LINE-(200,135),0
  732. 3650  LINE(120,65)-(200,135)
  733. 3655  NEXT Q
  734. 3660  LINE(120,65)-(160,30)
  735. 3665  LINE-(240,100)
  736. 3670  LINE-(200,135)
  737. 3675  FOR K=1 TO 1500:NEXT K
  738. 3680  GOSUB 10000   '*** <Textpad> ***
  739. 3685  PRINT FNCEN$("And here are the creases",40)
  740. 3690  FOR K=1 TO 1500:NEXT K
  741. 3695  PRINT FNCEN$("those folds generated.",40)
  742. 3700  FOR K=1 TO 1500:NEXT K
  743. 3705  LINE(120,135)-(200,65)
  744. 3710  FOR V=30 TO 170 STEP 2
  745. 3715  PSET(160,V)
  746. 3720  NEXT V
  747. 3725  FOR H=80 TO 240 STEP 2
  748. 3730  PSET(H,100)
  749. 3735  NEXT H
  750. 3740  FOR K=1 TO 1500:NEXT K
  751. 3745  GOSUB 10000   '*** <Textpad> ***
  752. 3750  PRINT FNCEN$("Here's another opening figure.",40)
  753. 3755  FOR K=1 TO 750:NEXT K
  754. 3760  FOR A=0 TO 20
  755. 3765  OUT 66,A:OUT 66,A
  756. 3770  OUT 97,(INP(97) OR 3)
  757. 3775  NEXT A
  758. 3780  SOUND 37,0
  759. 3785  CLS
  760. 3790  LINE(105,45)-(215,145),3,B
  761. 3795  FOR H=105 TO 215 STEP 2
  762. 3800  PSET(H,95)
  763. 3805  NEXT H
  764. 3810  FOR K=1 TO 750:NEXT K
  765. 3815  GOSUB 10000   '*** <Textpad> ***
  766. 3820  PRINT FNCEN$("We know how to generate that crease.",40)
  767. 3825  FOR K=1 TO 1500:NEXT K
  768. 3830  GOSUB 10000   '*** Textpad ***
  769. 3835  PRINT FNCEN$("Press <C> to continue.",40)
  770. 3840  A$=INKEY$:IF A$="" GOTO 3840
  771. 3845  IF A$="C" OR A$="c" GOTO 3855
  772. 3850  GOTO 3830
  773. 3855  FOR H=105 TO 215 STEP 2
  774. 3860  PSET(H,70)
  775. 3865  PSET(H,120)
  776. 3870  NEXT H
  777. 3875  FOR K=1 TO 750:NEXT K
  778. 3880  GOSUB 10000   '*** <Textpad> ***
  779. 3885  PRINT FNCEN$("Fold 2",40)
  780. 3890  FOR K=1 TO 750:NEXT K
  781. 3895  FOR V=45 TO 70
  782. 3900  LINE(105,70)-(105,V)
  783. 3905  LINE-(215,V)
  784. 3910  LINE-(215,70)
  785. 3915  LINE(105,70)-(105,V),0
  786. 3920  LINE-(215,V),0
  787. 3925  LINE-(215,70),0
  788. 3930  NEXT V
  789. 3935  FOR V=70 TO 95
  790. 3940  LINE(105,70)-(105,V)
  791. 3945  LINE-(215,V)
  792. 3950  LINE-(215,70)
  793. 3955  NEXT V
  794. 3960  FOR K=1 TO 750:NEXT K
  795. 3965  GOSUB 10000   '*** <Textpad> ***
  796. 3970  PRINT FNCEN$("Fold 3",40)
  797. 3975  FOR K=1 TO 750:NEXT K
  798. 3980  FOR V=145 TO 120 STEP -1
  799. 3985  LINE(105,120)-(105,V)
  800. 3990  LINE-(215,V)
  801. 3995  LINE-(215,120)
  802. 4000  LINE(105,120)-(105,V),0
  803. 4005  LINE-(215,V),0
  804. 4010  LINE-(215,120),0
  805. 4015  NEXT V
  806. 4020  FOR V=120 TO 95 STEP -1
  807. 4025  LINE(105,120)-(105,V)
  808. 4030  LINE-(215,V)
  809. 4035  LINE-(215,120)
  810. 4040  NEXT V
  811. 4045  LINE(105,95)-(215,95),0
  812. 4050  FOR K=1 TO 750:NEXT K
  813. 4055  GOSUB 10000   '*** <Textpad> ***
  814. 4060  PRINT FNCEN$("Would you like to review those folds?",40)
  815. 4065  FOR K=1 TO 1500:NEXT K
  816. 4070  GOSUB 10000
  817. 4075  PRINT FNCEN$("If so, press <R>.",40)
  818. 4080  FOR K=1 TO 1000:NEXT K
  819. 4085  PRINT FNCEN$("To continue, press <C>.",40)
  820. 4090  A$=INKEY$:IF A$="" GOTO 4090
  821. 4095  IF A$="r" OR A$="R" GOTO 4110
  822. 4100  IF A$="c" OR A$="C" GOTO 4180
  823. 4105  GOTO 4070
  824. 4110  FOR A=0 TO 20
  825. 4115  OUT 66,A:OUT 66,A
  826. 4120  OUT 97,(INP(97) OR 3)
  827. 4125  NEXT A
  828. 4130  SOUND 37,0
  829. 4135  CLS
  830. 4140  LINE(105,45)-(215,145),3,B
  831. 4145  FOR H=105 TO 215 STEP 2
  832. 4150  PSET(H,95)
  833. 4155  NEXT H
  834. 4160  GOSUB 10000
  835. 4165  PRINT FNCEN$("* Review *",40)
  836. 4170  FOR K=1 TO 1500:NEXT K
  837. 4175  GOTO 3855
  838. 4180  GOSUB 10000   '*** <Textpad> ***
  839. 4185  PRINT FNCEN$("Let's go on to our next hint.",40)
  840. 4190  FOR K=1 TO 1500:NEXT K
  841. 4195  CLS
  842. 4200  LINE(5,10)-(315,190),3,B
  843. 4205  LOCATE 6,1
  844. 4210  PRINT FNCEN$("* Hint No. 5 *",40)
  845. 4215  LINE(5,40)-(5,50)
  846. 4220  PRINT:PRINT
  847. 4225  PRINT FNCEN$("From time to time,",40)
  848. 4230  LINE(5,60)-(5,95)
  849. 4235  PRINT FNCEN$("we have to make absolutely sure",40)
  850. 4240  LINE(5,60)-(5,95)
  851. 4245  PRINT FNCEN$("that our creases are",40)
  852. 4250  LINE(5,60)-(5,95)
  853. 4255  PRINT FNCEN$("good and sharp and supple.",40)
  854. 4260  LINE(5,60)-(5,95)
  855. 4265  GOSUB 10030   '*** <Textpad> ***
  856. 4270  PRINT FNCEN$("* Press <C> to continue *",40)
  857. 4275  A$=INKEY$:IF A$="" GOTO 4275
  858. 4280  IF A$="C" OR A$="c" GOTO 4290
  859. 4285  GOTO 4265
  860. 4290  LOCATE 14,1
  861. 4295  PRINT FNCEN$("When that need comes up,",40)
  862. 4300  LINE(5,103)-(5,135)
  863. 4305  PRINT FNCEN$("we will employ a technique",40)
  864. 4310  LINE(5,103)-(5,135)
  865. 4315  PRINT FNCEN$("we'll call",40)
  866. 4320  LINE(5,103)-(5,135)
  867. 4325  PRINT FNCEN$("FOLD and BACKFOLD.",40)
  868. 4330  LINE(5,103)-(5,135)
  869. 4335  A$=INKEY$:IF A$="" GOTO 4335
  870. 4340  IF A$="C" OR A$="c" GOTO 4350
  871. 4345  GOTO 4335
  872. 4350  LOCATE 19,1
  873. 4355  PRINT FNCEN$("Let's demonstrate that.",40)
  874. 4360  LINE(5,143)-(5,155)
  875. 4365  A$=INKEY$:IF A$="" GOTO 4365
  876. 4370  IF A$="C" OR A$="c" GOTO 4380
  877. 4375  GOTO 4365
  878. 4380  CLS
  879. 4385  GOSUB 10000         '** Textpad **
  880. 4390  PRINT FNCEN$("* DEMONSTRATION *",40)
  881. 4395  FOR K=1 TO 750:NEXT K
  882. 4400                             '***Zapsound***
  883. 4405  FOR A=0 TO 20
  884. 4410  OUT 66,A:OUT 66,A
  885. 4415  OUT 97,(INP(97) OR 3)
  886. 4420  NEXT A
  887. 4425  SOUND 37,0
  888. 4430                             '***End Zapsound***
  889. 4435  CLS
  890. 4440  LINE(160,30)-(80,100)
  891. 4445  LINE-(160,170)
  892. 4450  LINE-(240,100)
  893. 4455  LINE-(160,30)
  894. 4460  FOR V=30 TO 170 STEP 2
  895. 4465  PSET(160,V)
  896. 4470  NEXT V
  897. 4475  LINE(114,70)-(160,170)
  898. 4480  LINE-(206,70)
  899. 4485  FOR K=1 TO 750:NEXT K
  900. 4490  GOSUB 10000         '** Textpad **
  901. 4495  PRINT FNCEN$("Here's an opening figure",40)
  902. 4500  FOR K=1 TO 1000:NEXT K
  903. 4505  PRINT FNCEN$("we'll be running into quite frequently.",40)
  904. 4510  FOR K=1 TO 1500:NEXT K
  905. 4515  GOSUB 10000         '** Textpad **
  906. 4520  PRINT FNCEN$("It's called",40)
  907. 4525  FOR K=1 TO 1000:NEXT K
  908. 4530  GOSUB 10000         '** Textpad **
  909. 4535  PRINT FNCEN$("KITE BASE",40)
  910. 4540  FOR K=1 TO 1000:NEXT K
  911. 4545  GOSUB 10000         '** Textpad **
  912. 4550  PRINT FNCEN$("Fold 1 generates the center crease,",40)
  913. 4555  FOR K=1 TO 1500:NEXT K
  914. 4560  GOSUB 10030   '*** <Textpad> ***
  915. 4565  PRINT FNCEN$("and here's Fold 2",40)
  916. 4570  FOR K=1 TO 1500:NEXT K
  917. 4575  FOR Q=0 TO 41
  918. 4580  LINE(114,70)-(80+Q,100-0.37*Q)
  919. 4585  LINE-(160,170)
  920. 4590  LINE(114,70)-(80+Q,100-0.37*Q),0
  921. 4595  LINE-(160,170),0
  922. 4600  NEXT Q
  923. 4605  FOR Q=0 TO 39
  924. 4610  LINE(114,70)-(122+Q,85-0.38*Q)
  925. 4615  LINE-(160,170)
  926. 4620  LINE(114,70)-(121+Q,85-0.38*Q)
  927. 4625  LINE-(160,170)
  928. 4630  NEXT Q
  929. 4635  LINE(161,70)-(161,169),0
  930. 4640  FOR K=1 TO 750:NEXT K
  931. 4645  GOSUB 10030   '*** <Textpad> ***
  932. 4650  PRINT FNCEN$("and Fold 3",40)
  933. 4655  FOR K=1 TO 1050:NEXT K
  934. 4660  FOR Q=0 TO 41
  935. 4665  LINE(206,70)-(240-Q,100-0.37*Q)
  936. 4670  LINE-(160,170)
  937. 4675  LINE(206,70)-(240-Q,100-0.37*Q),0
  938. 4680  LINE-(160,170),0
  939. 4685  NEXT Q
  940. 4690  FOR Q=0 TO 39
  941. 4695  LINE(206,70)-(198-Q,85-0.38*Q)
  942. 4700  LINE-(160,170)
  943. 4705  LINE(206,70)-(199-Q,85-0.38*Q)
  944. 4710  LINE-(160,170)
  945. 4715  NEXT Q
  946. 4720  LINE(160,70)-(160,170),0
  947. 4725  FOR K=1 TO 750:NEXT K
  948. 4730  GOSUB 10000         '** Textpad **
  949. 4735  PRINT FNCEN$("KITE BASE",40)
  950. 4740  FOR K=1 TO 1500:NEXT K
  951. 4745  GOSUB 10000         '** Textpad **
  952. 4750  PRINT FNCEN$("Let's go on.",40)
  953. 4755  FOR K=1 TO 1500:NEXT K
  954. 4760  GOSUB 10000         '** Textpad **
  955. 4765  PRINT FNCEN$("For this demonstration,",40)
  956. 4770  FOR K=1 TO 1500:NEXT K
  957. 4775  GOSUB 10000         '** Textpad **
  958. 4780  PRINT FNCEN$("we will FOLD and BACKFOLD this corner",40)
  959. 4785  FOR K=1 TO 750:NEXT K
  960. 4790                              '*** arrow up ***
  961. 4795  FOR K=1 TO 15
  962. 4800  PSET(160,178):DRAW"G5R4D7R2U7R4H5"
  963. 4805  PAINT(160,184)
  964. 4810  FOR M=1 TO 25:NEXT M
  965. 4815  CIRCLE(160,184),7,0
  966. 4820  PAINT(160,184),0
  967. 4825  NEXT K
  968. 4830                              '***end arrow up ***
  969. 4835  FOR K=1 TO 250:NEXT K
  970. 4840  GOSUB 10000         '** Textpad **
  971. 4845  PRINT FNCEN$("up to this corner",40)
  972. 4850  FOR K=1 TO 750:NEXT K
  973. 4855                              '*** arrow down ***
  974. 4860  FOR K=1 TO 15
  975. 4865  PSET(160,22):DRAW"E5L4U7L2D7L4F5"
  976. 4870  PAINT(160,16)
  977. 4875  FOR M=1 TO 25:NEXT M
  978. 4880  CIRCLE(160,16),7,0
  979. 4885  PAINT(160,16),0
  980. 4890  NEXT K
  981. 4895                              '***end arrow down ***
  982. 4900  FOR K=1 TO 250:NEXT K
  983. 4905  GOSUB 10000         '** Textpad **
  984. 4910  PRINT FNCEN$("across this line,",40)
  985. 4915  FOR K=1 TO 750:NEXT K
  986. 4920  FOR K=1 TO 25
  987. 4925  LINE(128,100)-(192,100),0
  988. 4930  FOR M=1 TO 25:NEXT M
  989. 4935  LINE(128,100)-(192,100),3
  990. 4940  NEXT K
  991. 4945  FOR H=128 TO 192 STEP 2
  992. 4950  PSET(H,100),0
  993. 4955  NEXT H
  994. 4960  FOR K=1 TO 750:NEXT K
  995. 4965  GOSUB 10000         '** Textpad **
  996. 4970  PRINT FNCEN$("SO!",40)
  997. 4975  FOR K=1 TO 750:NEXT K
  998. 4980  LINE(132,110)-(154,158),0
  999. 4985  LINE(188,110)-(166,158),0
  1000. 4990  FOR V=170 TO 100 STEP -1
  1001. 4995  LINE(128,100)-(160,V),0
  1002. 5000  LINE-(192,100),0
  1003. 5005  NEXT V
  1004. 5010  FOR V=99 TO 70 STEP -1
  1005. 5015  LINE(128,100)-(160,V),0
  1006. 5020  LINE-(192,100),0
  1007. 5025  LINE(128,100)-(160,V+1),3
  1008. 5030  LINE-(192,100),3
  1009. 5035  NEXT V
  1010. 5040  LINE(128,101)-(192,101),0
  1011. 5045  FOR V=70 TO 30 STEP -1
  1012. 5050  LINE(128,100)-(160,V),0
  1013. 5055  LINE-(192,100),0
  1014. 5060  LINE(128,100)-(160,V),3
  1015. 5065  LINE-(192,100),3
  1016. 5070  NEXT V
  1017. 5075  LINE(128,100)-(140,70),0
  1018. 5080  LINE(192,100)-(180,70),0
  1019. 5085  GOSUB 10000         '** Textpad **
  1020. 5090  PRINT FNCEN$("Use your thumbnail",40)
  1021. 5095  FOR K=1 TO 1500:NEXT K
  1022. 5100  GOSUB 10000         '** Textpad **
  1023. 5105  PRINT FNCEN$("or the straightedge in your kit",40)
  1024. 5110  FOR K=1 TO 1500:NEXT K
  1025. 5115  GOSUB 10000         '** Textpad **
  1026. 5120  PRINT FNCEN$("to get a good, sharp crease",40)
  1027. 5125  FOR K=1 TO 1500:NEXT K
  1028. 5130  GOSUB 10000         '** Textpad **
  1029. 5135  PRINT FNCEN$("along this edge,",40)
  1030. 5140  FOR K=1 TO 750:NEXT K
  1031. 5145                              '*** arrow up ***
  1032. 5150  PSET(160,108):DRAW"G5R4D7R2U7R4H5"
  1033. 5155  PAINT(160,114)
  1034. 5160  FOR K=1 TO 25
  1035. 5165  LINE(128,100)-(192,100),0
  1036. 5170  FOR M=1 TO 25:NEXT M
  1037. 5175  LINE(128,100)-(192,100),3
  1038. 5180  NEXT K
  1039. 5185  FOR K=1 TO 750:NEXT K
  1040. 5190  GOSUB 10000         '** Textpad **
  1041. 5195  PRINT FNCEN$("creasing once,",40)
  1042. 5200  FOR K=1 TO 250:NEXT K
  1043. 5205  FOR P=192 TO 128 STEP -2
  1044. 5210  PSET(P,101),1
  1045. 5215  PSET(P,102),1
  1046. 5220  FOR Q=1 TO 10:NEXT Q
  1047. 5225  NEXT P
  1048. 5230  FOR P=192 TO 128 STEP-2
  1049. 5235  PSET(P,101),0
  1050. 5240  PSET(P,102),0
  1051. 5245  NEXT P
  1052. 5250  FOR K=1 TO 500:NEXT K
  1053. 5255  GOSUB 10000         '** Textpad **
  1054. 5260  PRINT FNCEN$("creasing twice,",40)
  1055. 5265  FOR K=1 TO 250:NEXT K
  1056. 5270  FOR P=128 TO 192 STEP 2
  1057. 5275  PSET(P,101),1
  1058. 5280  PSET(P,102),1
  1059. 5285  FOR Q=1 TO 10:NEXT Q
  1060. 5290  NEXT P
  1061. 5295  FOR P=128 TO 192 STEP 2
  1062. 5300  PSET(P,101),0
  1063. 5305  PSET(P,102),0
  1064. 5310  NEXT P
  1065. 5315  CIRCLE(160,114),7,0
  1066. 5320  PAINT(160,114),0
  1067. 5325  FOR K=1 TO 750:NEXT K
  1068. 5330  GOSUB 10000         '** Textpad **
  1069. 5335  PRINT FNCEN$("and back we go down again!",40)
  1070. 5340  FOR K=1 TO 1500:NEXT K
  1071. 5345  LINE(160,30)-(160,100),3
  1072. 5350  FOR V=30 TO 70
  1073. 5355  LINE(128,100)-(160,V),0
  1074. 5360  LINE-(192,100),0
  1075. 5365  LINE(128,70)-(192,100),3,BF
  1076. 5370  FOR W=30 TO 70 STEP 2
  1077. 5375  PSET(160,W)
  1078. 5380  NEXT W
  1079. 5385  NEXT V
  1080. 5390  FOR V=71 TO 100
  1081. 5395  LINE(128,100)-(160,V),0
  1082. 5400  LINE-(192,100),0
  1083. 5405  LINE(128,100)-(160,V),3
  1084. 5410  LINE-(192,100),3
  1085. 5415  LINE(128,V-1)-(192,V-1),3
  1086. 5420  PSET(160,V-1),0
  1087. 5425  NEXT V
  1088. 5430  FOR H=128 TO 192 STEP 2
  1089. 5435  PSET(H,99),0
  1090. 5440  NEXT H
  1091. 5445  FOR V=101 TO 170
  1092. 5450  LINE(128,101)-(160,V),3
  1093. 5455  LINE-(192,101),3
  1094. 5460  PSET(160,V-1),0
  1095. 5465  NEXT V
  1096. 5470  LINE(160,70)-(160,170),0
  1097. 5475  FOR H=128 TO 192 STEP 2
  1098. 5480  PSET(H,99),3
  1099. 5485  NEXT H
  1100. 5490  FOR H=128 TO 192 STEP 2
  1101. 5495  PSET(H,100),0
  1102. 5500  NEXT H
  1103. 5505  PSET(160,99),0
  1104. 5510  LINE(114,70)-(160,171),0
  1105. 5515  LINE-(206,70),0
  1106. 5520  PSET(128,102),0:PSET(192,102),0
  1107. 5525  FOR K=1 TO 250:NEXT K
  1108. 5530  GOSUB 10000         '** Textpad **
  1109. 5535  PRINT FNCEN$("and BACKFOLD!",40)
  1110. 5540  FOR K=1 TO 750:NEXT K
  1111. 5545  FOR V=170 TO 100 STEP -1
  1112. 5550  LINE(128,100)-(160,V),0
  1113. 5555  LINE-(192,100),0
  1114. 5560  LINE(160,70)-(160,100),0
  1115. 5565  NEXT V
  1116. 5570  FOR V=100 TO 70 STEP -1
  1117. 5575  LINE(128,100)-(160,V),1
  1118. 5580  LINE-(192,100),1
  1119. 5585  LINE(128,100)-(160,V),3
  1120. 5590  LINE-(191,100),3
  1121. 5595  PSET(160,V+1),0
  1122. 5600  NEXT V
  1123. 5605  LINE(128,70)-(192,100),3,BF
  1124. 5610  LINE(160,70)-(160,100),0
  1125. 5615  FOR V=69 TO 30 STEP -1
  1126. 5620  LINE(128,100)-(160,V),1
  1127. 5625  LINE-(192,100),1
  1128. 5630  LINE(128,100)-(160,V),0
  1129. 5635  LINE-(192,100),0
  1130. 5640  LINE(128,70)-(192,100),3,BF
  1131. 5645  LINE(160,70)-(160,100),0
  1132. 5650  FOR W=68 TO 30 STEP -2
  1133. 5655  PSET(160,W)
  1134. 5660  NEXT W
  1135. 5665  NEXT V
  1136. 5670  LINE(142,69)-(128,100),1
  1137. 5675  LINE(178,69)-(192,100),1
  1138. 5680  LINE(142,69)-(160,30),1
  1139. 5685  LINE-(178,69),1
  1140. 5690  FOR K=1 TO 750:NEXT K
  1141. 5695  GOSUB 10000         '** Textpad **
  1142. 5700  PRINT FNCEN$("and crease once,",40)
  1143. 5705  FOR K=1 TO 750:NEXT K
  1144. 5710  FOR P=192 TO 128 STEP -2
  1145. 5715  PSET(P,101),1
  1146. 5720  PSET(P,102),1
  1147. 5725  FOR Q=1 TO 10:NEXT Q
  1148. 5730  NEXT P
  1149. 5735  FOR P=192 TO 128 STEP -2
  1150. 5740  PSET(P,101),0
  1151. 5745  PSET(P,102),0
  1152. 5750  NEXT P
  1153. 5755  FOR K=1 TO 750:NEXT K
  1154. 5760  GOSUB 10000         '** Textpad **
  1155. 5765  PRINT FNCEN$("and crease twice,",40)
  1156. 5770  FOR K=1 TO 750:NEXT K
  1157. 5775  FOR P=128 TO 192 STEP 2
  1158. 5780  PSET(P,101),1
  1159. 5785  PSET(P,102),1
  1160. 5790  FOR Q=1 TO 10:NEXT Q
  1161. 5795  NEXT  P
  1162. 5800  FOR P=128 TO 192 STEP 2
  1163. 5805  PSET(P,101),0
  1164. 5810  PSET(P,102),0
  1165. 5815  NEXT P
  1166. 5820  FOR K=1 TO 750:NEXT K
  1167. 5825  GOSUB 10000         '** Textpad **
  1168. 5830  PRINT FNCEN$("and return!",40)
  1169. 5835  FOR K=1 TO 250:NEXT K
  1170. 5840  FOR V=30 TO 70
  1171. 5845  LINE(128,100)-(160,V),1
  1172. 5850  LINE-(192,100),1
  1173. 5855  LINE(128,100)-(160,V),0
  1174. 5860  LINE-(192,100),0
  1175. 5865  LINE(128,70)-(192,100),3,BF
  1176. 5870  LINE(166,42)-(178,68),0
  1177. 5875  LINE(154,42)-(142,68),0
  1178. 5880  LINE(160,70)-(160,100),0
  1179. 5885  FOR W=30 TO 70 STEP 2
  1180. 5890  PSET(160,W)
  1181. 5895  NEXT W
  1182. 5900  NEXT V
  1183. 5905  FOR V=71 TO 100
  1184. 5910  LINE(128,100)-(160,V),1
  1185. 5915  LINE-(192,100),1
  1186. 5920  LINE(128,100)-(160,V),3
  1187. 5925  LINE-(192,100),3
  1188. 5930  LINE(128,V-1)-(192,V-1),3
  1189. 5935  PSET(160,V-1),0
  1190. 5940  NEXT V
  1191. 5945  FOR H=128 TO 192 STEP 2
  1192. 5950  PSET(H,99),0
  1193. 5955  NEXT H
  1194. 5960  FOR V=100 TO 170
  1195. 5965  LINE(128,100)-(160,V),3
  1196. 5970  LINE-(192,100),3
  1197. 5975  PSET(160,V-1),0
  1198. 5980  NEXT V
  1199. 5985  LINE(160,70)-(160,170),0
  1200. 5990  LINE(114,70)-(160,171),0
  1201. 5995  LINE-(206,70),0
  1202. 6000  FOR K=1 TO 750: NEXT K
  1203. 6005  GOSUB 10000         '** Textpad **
  1204. 6010  PRINT FNCEN$("There!",40)
  1205. 6015  FOR K=1 TO 1500:NEXT K
  1206. 6020  GOSUB 10000         '** Textpad **
  1207. 6025  PRINT FNCEN$("FOLDing and BACKFOLDing",40)
  1208. 6030  FOR K=1 TO 1500:NEXT K
  1209. 6035  GOSUB 10000         '** Textpad **
  1210. 6040  PRINT FNCEN$("and the judicious use of our thumbnail",40)
  1211. 6045  FOR K=1 TO 1500:NEXT K
  1212. 6050  GOSUB 10000         '** Textpad **
  1213. 6055  PRINT FNCEN$("(or our straightedge)",40)
  1214. 6060  FOR K=1 TO 1500:NEXT K
  1215. 6065  GOSUB 10000         '** Textpad **
  1216. 6070  PRINT FNCEN$("gave us a crease here",40)
  1217. 6075  FOR K=1 TO 250:NEXT K
  1218. 6080  FOR K=1 TO 25
  1219. 6085  LINE(128,99)-(192,99),0
  1220. 6090  FOR M=1 TO 25:NEXT M
  1221. 6095  LINE(128,99)-(192,99),3
  1222. 6100  NEXT K
  1223. 6105  FOR H=128 TO 192 STEP 2
  1224. 6110  PSET(H,99),0
  1225. 6115  NEXT H
  1226. 6120  FOR K=1 TO 250:NEXT K
  1227. 6125  GOSUB 10000         '** Textpad **
  1228. 6130  PRINT FNCEN$("that's nice and sharp and supple.",40)
  1229. 6135  FOR K=1 TO 1500:NEXT K
  1230. 6140  GOSUB 10000         '** Textpad **
  1231. 6145  PRINT FNCEN$("It's a technique we'll use fairly often.",40)
  1232. 6150  FOR K=1 TO 1500:NEXT K
  1233. 6155  GOSUB 10000
  1234. 6160  PRINT FNCEN$("To review that demo, press <R>.",40)
  1235. 6165  FOR K=1 TO 1000:NEXT K
  1236. 6170  PRINT FNCEN$("To continue, press <C>.",40)
  1237. 6175  A$=INKEY$:IF A$="" GOTO 6175
  1238. 6180  IF A$="r" OR A$="R" GOTO 6195
  1239. 6185  IF A$="c" OR A$="C" GOTO 6240
  1240. 6190  GOTO 6155
  1241. 6195  FOR A=0 TO 20
  1242. 6200  OUT 66,A:OUT 66,A
  1243. 6205  OUT 97,(INP(97) OR 3)
  1244. 6210  NEXT A
  1245. 6215  SOUND 37,0
  1246. 6220  GOSUB 10000
  1247. 6225  PRINT FNCEN$("* Review *",40)
  1248. 6230  FOR K=1 TO 1500:NEXT K
  1249. 6235  GOTO 4760
  1250. 6240  GOSUB 10000   '*** <Textpad> ***
  1251. 6245  PRINT FNCEN$("Let's go on to our final folding hint.",40)
  1252. 6250  FOR K=1 TO 1500:NEXT K
  1253. 6255  FOR A=0 TO 20
  1254. 6260  OUT 66,A:OUT 66,A
  1255. 6265  OUT 97,(INP(97) OR 3)
  1256. 6270  NEXT A
  1257. 6275  SOUND 37,0
  1258. 6280  CLS
  1259. 6285  LINE(5,10)-(315,190),3,B
  1260. 6290  LOCATE 7,1
  1261. 6295  PRINT FNCEN$("* Hint No. 7 *",40)
  1262. 6300  LINE(5,45)-(5,55)
  1263. 6305  LOCATE 10,1
  1264. 6310  PRINT FNCEN$("Every once in a while,",40)
  1265. 6315  LINE(5,70)-(5,95)
  1266. 6320  PRINT FNCEN$("we will be called upon to execute",40)
  1267. 6325  LINE(5,70)-(5,95)
  1268. 6330  PRINT FNCEN$("two folds,",40)
  1269. 6335  LINE(5,70)-(5,95)
  1270. 6340  PRINT
  1271. 6345  PRINT FNCEN$("a MOUNTAIN FOLD",40)
  1272. 6350  LINE(5,104)-(5,127)
  1273. 6355  PRINT FNCEN$("and/or",40)
  1274. 6360  LINE(5,104)-(5,127)
  1275. 6365  PRINT FNCEN$("a VALLEY FOLD.",40)
  1276. 6370  LINE(5,104)-(5,127)
  1277. 6375  GOSUB 10030   '*** Textpad ***
  1278. 6380  PRINT FNCEN$("* Press <C> to continue *",40)
  1279. 6385  A$=INKEY$:IF A$="" GOTO 6385
  1280. 6390  IF A$="C" OR A$="c" GOTO 6400
  1281. 6395  GOTO 6375
  1282. 6400  LOCATE 18,1
  1283. 6405  PRINT FNCEN$("Let's look at them",40)
  1284. 6410  LINE(5,135)-(5,150)
  1285. 6415  PRINT FNCEN$("in their simplest forms.",40)
  1286. 6420  LINE(5,135)-(5,150)
  1287. 6425  A$=INKEY$:IF A$="" GOTO 6425
  1288. 6430  IF A$="C" OR A$="c" GOTO 6440
  1289. 6435  GOTO 6425
  1290. 6440  FOR A=0 TO 20
  1291. 6445  OUT 66,A:OUT 66,A
  1292. 6450  OUT 97,(INP(97) OR 3)
  1293. 6455  NEXT A
  1294. 6460  SOUND 37,0
  1295. 6465  CLS
  1296. 6470  GOSUB 10000   '*** <Textpad> ***
  1297. 6475  PRINT FNCEN$("MOUNTAIN FOLD",40)
  1298. 6480  LINE(105,45)-(215,145),3,BF
  1299. 6485  FOR K=1 TO 1000:NEXT K
  1300. 6490  GOSUB 10000         '** Textpad **
  1301. 6495  PRINT FNCEN$("Here's our fold line,",40)
  1302. 6500  FOR K=1 TO 750:NEXT K
  1303. 6505  FOR H=105 TO 215 STEP 2
  1304. 6510  PSET(H,95),2
  1305. 6515  NEXT H
  1306. 6520  FOR K=1 TO 750:NEXT K
  1307. 6525  GOSUB 10000   '*** <Textpad> ***
  1308. 6530  PRINT FNCEN$("and here's our MOUNTAIN FOLD,",40)
  1309. 6535  FOR K=1 TO 1500:NEXT K
  1310. 6540  GOSUB 10000   '*** <Textpad> ***
  1311. 6545  PRINT FNCEN$("folding downwards in back,",40)
  1312. 6550  FOR K=1 TO 1500:NEXT K
  1313. 6555  GOSUB 10000   '*** <Textpad> ***
  1314. 6560  PRINT FNCEN$("SO!",40)
  1315. 6565  FOR K=1 TO 750:NEXT K
  1316. 6570  LINE(105,95)-(100,45)
  1317. 6575  LINE-(105,45)
  1318. 6580  PAINT(103,50)
  1319. 6585  LINE(210,45)-(215,45),0
  1320. 6590  LINE-(215,95),0
  1321. 6595  LINE-(210,45),0
  1322. 6600  PAINT(213,50),0
  1323. 6605  LINE(210,45)-(215,95)
  1324. 6610  LINE(105,95)-(110,145),0
  1325. 6615  LINE-(105,145),0
  1326. 6620  LINE-(105,95),0
  1327. 6625  PAINT(107,140),0
  1328. 6630  LINE(105,95)-(110,145)
  1329. 6635  LINE(215,95)-(220,145)
  1330. 6640  LINE-(215,145)
  1331. 6645  PAINT(217,140)
  1332. 6650  FOR K=1 TO 750:NEXT K
  1333. 6655  FOR Q=0 TO 50
  1334. 6660  LINE(105,95)-(100+0.1*Q,45+Q),0
  1335. 6665  LINE-(210+0.1*Q,45+Q),0
  1336. 6670  LINE-(215,95),0
  1337. 6675  NEXT Q
  1338. 6680  LINE(105,95)-(215,95),2
  1339. 6685  FOR Q=0 TO 45
  1340. 6690  LINE(105-0.11*Q,95+Q)-(105+0.11*Q,95+Q)
  1341. 6695  LINE(105-0.11*Q,95+Q)-(105+0.11*Q,95+Q),0
  1342. 6700  PSET(105-0.11*Q,95+Q)
  1343. 6705  PSET(105,95),2
  1344. 6710  NEXT Q
  1345. 6715  LINE(100,140)-(110,140)
  1346. 6720  FOR K=1 TO 750:NEXT K
  1347. 6725  GOSUB 10000   '*** <Textpad> ***
  1348. 6730  PRINT FNCEN$("MOUNTAIN FOLD",40)
  1349. 6735  FOR K=1 TO 1500:NEXT K
  1350. 6740  GOSUB 10000
  1351. 6745  PRINT FNCEN$("To review MOUNTAIN FOLD, press <R>.",40)
  1352. 6750  FOR K=1 TO 1000:NEXT K
  1353. 6755  PRINT FNCEN$("To continue, press <C>.",40)
  1354. 6760  A$=INKEY$:IF A$="" GOTO 6760
  1355. 6765  IF A$="r" OR A$="R" GOTO 6780
  1356. 6770  IF A$="c" OR A$="C" GOTO 6800
  1357. 6775  GOTO 6740
  1358. 6780  GOSUB 10000
  1359. 6785  PRINT FNCEN$("* Review *",40)
  1360. 6790  FOR K=1 TO 1000:NEXT K
  1361. 6795  GOTO 6440
  1362. 6800  GOSUB 10000   '*** <Textpad> ***
  1363. 6805  PRINT FNCEN$("Let's now examine",40)
  1364. 6810  FOR K=1 TO 1500:NEXT K
  1365. 6815  PRINT FNCEN$("VALLEY FOLD.",40)
  1366. 6820  FOR K=1 TO 1500:NEXT K
  1367. 6825  FOR A=0 TO 20
  1368. 6830  OUT 66,A:OUT 66,A
  1369. 6835  OUT 97,(INP(97) OR 3)
  1370. 6840  NEXT A
  1371. 6845  SOUND 37,0
  1372. 6850  CLS
  1373. 6855  LINE(105,45)-(215,145),3,BF
  1374. 6860  FOR K=1 TO 1000:NEXT K
  1375. 6865  GOSUB 10000         '** Textpad **
  1376. 6870  PRINT FNCEN$("Here's our fold line,",40)
  1377. 6875  FOR K=1 TO 750:NEXT K
  1378. 6880  LINE(105,95)-(215,95),1
  1379. 6885  FOR K=1 TO 750:NEXT K
  1380. 6890  GOSUB 10000   '*** <Textpad> ***
  1381. 6895  PRINT FNCEN$("and here's our VALLEY FOLD,",40)
  1382. 6900  FOR K=1 TO 1500:NEXT K
  1383. 6905  GOSUB 10000   '*** <Textpad> ***
  1384. 6910  PRINT FNCEN$("folding upwards in front,",40)
  1385. 6915  FOR K=1 TO 1500:NEXT K
  1386. 6920  GOSUB 10000   '*** <Textpad> ***
  1387. 6925  PRINT FNCEN$("SO!",40)
  1388. 6930  FOR K=1 TO 750:NEXT K
  1389. 6935  LINE(105,95)-(100,45)
  1390. 6940  LINE-(105,45)
  1391. 6945  PAINT(103,50)
  1392. 6950  LINE(210,45)-(215,45),0
  1393. 6955  LINE-(215,95),0
  1394. 6960  LINE-(210,45),0
  1395. 6965  PAINT(213,50),0
  1396. 6970  LINE(210,45)-(215,95)
  1397. 6975  LINE(105,95)-(110,145),0
  1398. 6980  LINE-(105,145),0
  1399. 6985  LINE-(105,95),0
  1400. 6990  PAINT(107,140),0
  1401. 6995  LINE(105,95)-(110,145)
  1402. 7000  LINE(215,95)-(220,145)
  1403. 7005  LINE-(215,145)
  1404. 7010  PAINT(217,140)
  1405. 7015  FOR K=1 TO 750:NEXT K
  1406. 7020  LINE(100,45)-(220,50),0,BF
  1407. 7025  FOR Q=0 TO 50
  1408. 7030  LINE(105,95)-(110-0.1*Q,145-Q),0
  1409. 7035  LINE-(220-0.1*Q,145-Q),0
  1410. 7040  NEXT Q
  1411. 7045  FOR Q=0 TO 50
  1412. 7050  LINE(105+0.11*Q,95-Q)-(215+0.11*Q,95-Q),0
  1413. 7055  PSET(105+0.11*Q,95-Q)
  1414. 7060  PSET(215+0.11*Q,95-Q)
  1415. 7065  LINE(105,95)-(215,95),1
  1416. 7070  NEXT Q
  1417. 7075  LINE(110,45)-(220,45)
  1418. 7080  FOR K=1 TO 750:NEXT K
  1419. 7085  GOSUB 10000   '*** <Textpad> ***
  1420. 7090  PRINT FNCEN$("VALLEY FOLD",40)
  1421. 7095  FOR K=1 TO 1500:NEXT K
  1422. 7100  GOSUB 10000
  1423. 7105  PRINT FNCEN$("To review VALLEY FOLD, press <R>.",40)
  1424. 7110  FOR K=1 TO 1000:NEXT K
  1425. 7115  PRINT FNCEN$("To continue, press <C>.",40)
  1426. 7120  A$=INKEY$:IF A$="" GOTO 7120
  1427. 7125  IF A$="r" OR A$="R" GOTO 7140
  1428. 7130  IF A$="c" OR A$="C" GOTO 7210
  1429. 7135  GOTO 7100
  1430. 7140  FOR A=0 TO 20
  1431. 7145  OUT 66,A:OUT 66,A
  1432. 7150  OUT 97,(INP(97) OR 3)
  1433. 7155  NEXT A
  1434. 7160  SOUND 37,0
  1435. 7165  CLS
  1436. 7170  LINE(105,45)-(215,145),3,BF
  1437. 7175  GOSUB 10000
  1438. 7180  PRINT FNCEN$("* Review *",40)
  1439. 7185  FOR K=1 TO 1000:NEXT K
  1440. 7190  GOSUB 10000   '*** <Textpad> ***
  1441. 7195  PRINT FNCEN$("VALLEY FOLD",40)
  1442. 7200  FOR K=1 TO 1500:NEXT K
  1443. 7205  GOTO 6865
  1444. 7210  GOSUB 10000         '** Textpad **
  1445. 7215  PRINT FNCEN$("Let's look at those folds side by side.",40)
  1446. 7220  FOR K=1 TO 1500:NEXT K
  1447. 7225                             '***Zapsound***
  1448. 7230  FOR A=0 TO 20
  1449. 7235  OUT 66,A:OUT 66,A
  1450. 7240  OUT 97,(INP(97) OR 3)
  1451. 7245  NEXT A
  1452. 7250  SOUND 37,0
  1453. 7255                             '***End Zapsound***
  1454. 7260  CLS
  1455. 7265  LINE(35,140)-(25,140)
  1456. 7270  LINE-(30,95)
  1457. 7275  LINE-(35,145)
  1458. 7280  LINE-(145,145)
  1459. 7285  LINE-(140,95)
  1460. 7290  LINE-(30,95),2
  1461. 7295  LINE(190,100)-(180,100)
  1462. 7300  LINE-(185,145)
  1463. 7305  LINE-(190,95)
  1464. 7310  LINE-(300,95)
  1465. 7315  LINE-(295,145)
  1466. 7320  LINE-(185,145),1
  1467. 7325  FOR K=1 TO 1500:NEXT K
  1468. 7330  GOSUB 10000         '** Textpad **
  1469. 7335  PRINT FNCEN$("Take a good look.  I'll wait. ",40)
  1470. 7340  FOR K=1 TO 1500:NEXT K
  1471. 7345  GOSUB 10000   '*** Textpad ***
  1472. 7350  PRINT FNCEN$("Press <C> to continue.",40)
  1473. 7355  A$=INKEY$:IF A$="" GOTO 7355
  1474. 7360  IF A$="C" OR A$="c" GOTO 7370
  1475. 7365  GOTO 7345
  1476. 7370  GOSUB 10000   '*** <Textpad> ***
  1477. 7375  PRINT FNCEN$("And that's it for INTRODUCTION!",40)
  1478. 7380  FOR K=1 TO 1500:NEXT K
  1479. 7385  GOSUB 10000                '*** Textpad ***
  1480. 7390  LOCATE 1,4
  1481. 7395  PRINT "Press <1> - To go to MAIN MENU."
  1482. 7400  PRINT "         <2> - To repeat INTRODUCTION."
  1483. 7405  PRINT "         <3> - To exit from program."
  1484. 7410  E$=INPUT$(1)
  1485. 7415  IF E$<"1" OR E$>"3" GOTO 7410
  1486. 7420  SEL=VAL(E$)
  1487. 7425  COMMON SEL
  1488. 7430  CLS
  1489. 7435  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  1490. 7436  LINE(70,75)-(250,125),3,B
  1491. 7440  ON SEL GOTO 7445,7450,7455
  1492. 7445  CHAIN"a:main"
  1493. 7450  CHAIN"a:intro
  1494. 7455  CHAIN"a:end"
  1495. 8999  END
  1496. 9900  GOSUB 30000   '*** <Textpad> ***
  1497. 9910  PRINT FNCEN$("N",40)
  1498. 9920  FOR K=1 TO 1500:NEXT K
  1499. 9930  DELETE 9900-9930
  1500. 10000  LOCATE 1,1
  1501. 10010  PRINT"                                                                                                                        "
  1502. 10020  LOCATE 1,1:RETURN
  1503. 10030  LOCATE 1,1
  1504. 10040  PRINT"                                        "
  1505. 10050  LOCATE 1,1:RETURN
  1506.