home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / games / quiz6.amos / quiz6.amosSourceCode < prev   
AMOS Source Code  |  1993-05-28  |  51KB  |  1,932 lines
  1. '*********************************** 
  2. 'arond the worldin80 pic is on dpaintbits&piece as scroll.iff
  3. 'layinginwait pic is on matchcards disc
  4. 'Banks Used 1, 2,  
  5. '*********************************** 
  6. '                                   Yain=dotthei'scrossthet's  
  7. '                                   Tain=keepinginterestalive
  8. '                                   wain=layinginwait
  9. '                                   QAIN=manoverboard
  10. '                                   iain = upintheair
  11. '
  12. '                                   Uain=havingaliein
  13. '                                   hain=itwillbeallrightonthenight
  14. '                                   fain=Canada
  15. '                                   Dain=highbloodpressure 
  16. '                                   Sain=straightlaced 
  17. '                                   Zain=returnthecompliments
  18. '                                   Cain=Flashofinspiration
  19. '                                   Xain=Talkingdoubledutch  
  20. '                                   Aain=It'sallsquare   
  21. '                                   Lain=rising2theoccasion  
  22. '                                   Pain=aroundtheworldin80days
  23. '                                   Bain=allst6&7  
  24. '                                   Jain=holeinone 
  25. '                                   kain=allaboveboard   
  26. '********************************************************************* 
  27. '*                                                                   * 
  28. '* Some screen wipes adapted from Marvin the Martian free with...... * 
  29. '* Amos in Action by Anne & Len Tucker and used with their sanction. * 
  30. '*          The Sample bank is also from the same source                                                                 * 
  31. '*                      Buy it, its worth it !!                      *                                            *    
  32. '*                                                                   * 
  33. '********************************************************************* 
  34. Cls 0
  35. Load "samples.abk",5
  36. Screen Open 1,640,256,16,Hires
  37.  Cls 0 : Curs Off : Flash Off : Hide 
  38. 'Load Iff "Birdy" : Rem this is loaded in then spacked so is not needed    
  39. 'Spack 1 To 6 : Rem Nor this line
  40. Unpack 6 To 1
  41. ' Palette 1
  42. Screen Open 2,640,256,16,Hires
  43. Curs Off : Flash Off : Hide : Cls 0
  44. Get Palette 1
  45. _SPLURGE[2,1,2]
  46. Wait 500
  47. Curs Off : Flash Off 
  48. Cls 0 : Curs Off : Flash Off : Hide 
  49. Paper 0
  50. Ink 0
  51. Bar 0,0 To 10,10
  52. Screen Open 1,640,256,16,Hires
  53. Paper 0 : Pen 4 : Curs Off : Flash Off : Hide : Cls 0
  54. Wave 0 To 15
  55. Locate ,0
  56. Wait 50
  57. Locate ,3 : Centre "Welcome to Bird Productions Quiz "
  58.  Bell 
  59. Wait 50
  60. Locate 0,1
  61.  For X=79 To 0 Step -1
  62.     Play 96-(20+(X/2)),0
  63.    Print "?";
  64.  Next X
  65. Wait 50
  66. Locate 0,5
  67.  For L=79 To 0 Step -1
  68.    Play 96-(10+(L/2)),0
  69. Print "?";
  70.  Next L
  71. Wait 150
  72. Paper 0 : Pen 5 : Curs Off : Flash Off : Hide : Cls 0
  73. Wave 0 To 15
  74. Locate ,0
  75. Wait 50
  76. Locate ,9 : Centre "Loading Please Wait" : Bell 
  77. Locate 0,7
  78.    For G=79 To 0 Step -1
  79.      Play 96-(20+(G/2)),0
  80.   Print "*";
  81.  Next G
  82. Wait 50
  83. Locate ,9 : Centre "Loading Please Wait" : Bell 
  84. Locate 0,11
  85.  For K=79 To 0 Step -1
  86.    Play 96-(10+(K/2)),0
  87.  Print "*";
  88. Next K
  89. Wait 100
  90. Get Fonts 
  91. Screen Open 0,320,40,16,Lowres : Curs Off 
  92. Screen Open 1,320,40,16,Lowres : Curs Off : Screen Hide 1
  93. Screen 0
  94. Set Font 6 : Text 45,12,"Bird Productions Present"
  95. Print : Print 
  96. Wait 100
  97. Pen 6
  98. Locate 6,3 : Print "A Lateral Thinking Quiz No.6"
  99. Screen Copy 0 To 1
  100. Screen Open 1,320,40,16,Lowres : Curs Off : Screen Hide 1 : 
  101. Screen 1
  102. Set Font 1 : Text 40,12,"Programming by John the Doc."
  103. Wait 115
  104. Print : Print 
  105. Locate 2,3 : Print "Interrupted by having to work 7-4-93!"
  106. Wait 115
  107. Fade 17
  108. Appear 1 To 0,3
  109. Wait 115
  110. Fade 17
  111. Cls 0
  112. Wait 75
  113. Screen Open 0,320,256,32,LORES
  114. Cls 0 : Curs Off : Flash Off : Hide 
  115. Palette $905
  116. Cls 0 : Curs Off 
  117. Paper 0 : Pen 5
  118. Locate 1,10 : Bell : Print "You are being started with some quite   "
  119. Locate 2,12 : Print "easy ones.They will get harder!!!!!"
  120. Wait 175
  121. Paper 0 : Pen 4
  122. Locate ,15 : Bell : Centre "You are playing against yourself."
  123. Wait 155
  124. Locate ,17 : Bell : Centre "There is no need to type anything"
  125. Wait 200
  126. Locate ,15 : Centre "                                   "
  127. Locate ,17 : Centre "                                   "
  128. Pen 4
  129. Locate ,15 : Bell : Centre "This takes about 30 Minutes to complete"
  130. Wait 150
  131. Locate ,17 : Bell : Centre "To help you it can be split into two"
  132. Wait 150 : Locate ,19 : Bell : Centre "Follow on screen instructions"
  133. Wait 250
  134. Locate 1,10
  135. Locate 1,10 : Print "                                         "
  136. Locate 2,12 : Print "                                     "
  137. Pen 5
  138. SDF:
  139. Wait 50 : Locate ,10 : Bell : Centre "Press F1 to start at the beginning"
  140. Wait 100 : Locate ,12 : Bell : Centre "Press F2 to start halfway through "
  141. Wait 50
  142. Say "Press me pleas 1 needs it"
  143. Wait Key 
  144. If Key State(80)=True Then Gosub ALLOFF
  145. If Key State(81)=True Then Gosub SALFOFF
  146. Paper 0 : Pen 3
  147. Wait 500
  148. Fade 7
  149. Wait 100
  150. ALLOFF:
  151. Music 1
  152. BBAIN
  153. '
  154. '
  155. 'Load "df1:samples.abk"
  156. 'Load "df1:shallow_mallow.abk" 
  157. OPENBIT
  158. SAIN
  159. KAIN
  160. IAIN
  161. DAIN
  162. YAIN
  163. WAIN
  164. EAIN
  165. BAIN
  166. UAIN
  167. TAIN
  168. QAIN
  169. Goto OTHER
  170. SALFOFF:
  171. ARF
  172. Music 1
  173. OPENBIT
  174. OTHER:
  175. HAIN
  176. PAIN
  177. FAIN
  178. ZAIN
  179. XAIN
  180. CAIN
  181. AAIN
  182. TAIN
  183. LAIN
  184. JAIN
  185. LASTBIT
  186. Procedure DAIN
  187. Screen Open 0,320,256,32,LORES
  188. Flash Off : Hide : Curs Off 
  189. Cls 0
  190. Palette $9
  191. SCNON[SCR]
  192. Locate ,14 : Pen 4 : Paper 0 : Centre "Let's be lazy and use this again !"
  193. Wait 200 : Locate ,14 : Cline 
  194. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  195. Wait 150 : Locate ,1 : Cline 
  196.  Pen 3
  197. Bar 105,3 To 225,23
  198. Ink 5
  199. Box 104,2 To 226,24
  200. Ink 3
  201. Box 103,1 To 227,25
  202. Locate 14,1 : Paper 2 : Print "Blood Pressure"
  203. Ink 2
  204. Circle 60,80,30 : Ink 2 : Paint 70,70 : Circle 260,80,30 : Ink 2 : Paint 270,70
  205. Circle 45,60,25 : Paint 40,49 : Circle 245,60,25 : Paint 240,49
  206. Circle 69,45,15 : Paint 65,44 : Circle 269,45,15 : Paint 265,44
  207. Circle 90,70,35 : Paint 89,69 : Circle 290,70,35 : Paint 289,69
  208. Pen 3
  209. Paper 0
  210. Locate 6,14 : Print "/ / / /" : Locate 30,14 : Print "/ / / /"
  211. Locate 6,15 : Print "/ / / /" : Locate 30,15 : Print "/ / / / "
  212. Wait 78
  213. Ink 2
  214. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  215. Wait 120 : Locate ,21 : Centre "                             "
  216. Wait 300
  217. Locate ,25 : Centre "Press the A key for the answer"
  218. Clear Key 
  219. Wait Key 
  220. If Key State(51)=True Then Gosub KJY Else Goto CLOG
  221. CLOG:
  222. If Key State(32)=True Then Gosub YUK
  223. KJY:
  224. Paper 0
  225. Locate ,25 : Centre "                              "
  226. Wait 50
  227. JUGH:
  228. Clear Key 
  229. Wait Key 
  230. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  231. YUK:
  232. Locate ,25 : Centre "                                 "
  233. Paper 2
  234. Paper 0
  235. Pen 5
  236. Locate ,22 : Centre "The answer is .....   "
  237. Wait 75 : Locate ,22 : Centre "                        "
  238. Locate ,22 : Pen 5 : Centre "Hypertension "
  239. Wait 150
  240. Locate ,24 : Pen 2 : Centre "To you....High Blood Pressure !"
  241. Pen 4
  242. Wait 150
  243. Locate ,26 : Pen 3 : Centre "If you dont understand press'Help'"
  244. Wait 25
  245. Locate ,28 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  246. Clear Key 
  247. Wait Key 
  248. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  249. DITHO:
  250. Locate ,28 : Cline 
  251. Locate ,26 : Cline 
  252. Locate ,26 : Pen 3 : Centre "Blood pressure is High in the Air ! "
  253. Wait 150
  254. Locate ,28 : Pen 4 : Centre "Press Spacebar to continue"
  255. Clear Key 
  256. Wait Key 
  257. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  258. GROO:
  259. Wait 25
  260. Fade 7
  261. Wait 150
  262. Cls 0
  263. End Proc
  264. Procedure IAIN
  265. Screen Open 0,320,256,32,LORES
  266. Flash Off : Hide : Curs Off 
  267. Cls 0
  268. Palette $9
  269. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  270. Wait 150 : Locate ,1 : Cline 
  271.  Pen 3
  272. Bar 145,3 To 175,23
  273. Ink 5
  274. Box 144,2 To 176,24
  275. Ink 3
  276. Box 143,1 To 177,25
  277. Locate 19,1 : Paper 2 : Print "IT"
  278. Ink 2
  279. Circle 60,80,30 : Ink 2 : Paint 70,70 : Circle 260,80,30 : Ink 2 : Paint 270,70
  280. Circle 45,60,25 : Paint 40,49 : Circle 245,60,25 : Paint 240,49
  281. Circle 69,45,15 : Paint 65,44 : Circle 269,45,15 : Paint 265,44
  282. Circle 90,70,35 : Paint 89,69 : Circle 290,70,35 : Paint 289,69
  283. Pen 3
  284. Paper 0
  285. Locate 6,14 : Print "/ / / /" : Locate 30,14 : Print "/ / / /"
  286. Locate 6,15 : Print "/ / / /" : Locate 30,15 : Print "/ / / / "
  287. Wait 78
  288. Ink 2
  289. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  290. Wait 120 : Locate ,21 : Centre "                             "
  291. Wait 300
  292. Locate ,25 : Centre "Press the A key for the answer"
  293. Clear Key 
  294. Wait Key 
  295. If Key State(51)=True Then Gosub KJY Else Goto CLOG
  296. CLOG:
  297. If Key State(32)=True Then Gosub YUK
  298. KJY:
  299. Paper 0
  300. Locate ,25 : Centre "                              "
  301. Wait 50
  302. JUGH:
  303. Clear Key 
  304. Wait Key 
  305. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  306. YUK:
  307. Locate ,25 : Centre "                                 "
  308. Paper 2
  309. Paper 0
  310. Pen 5
  311. Locate ,22 : Centre "The answer is .....   "
  312. Wait 75 : Locate ,22 : Centre "                        "
  313. Locate 11,22 : Pen 5 : Print "It's Up in the Air"
  314. Wait 150
  315. Pen 4
  316. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  317. Wait 25
  318. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  319. Clear Key 
  320. Wait Key 
  321. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  322. DITHO:
  323. Locate ,26 : Cline 
  324. Locate ,24 : Cline 
  325. Locate ,24 : Pen 3 : Centre "Up is up in the air....!! "
  326. Wait 50
  327. Locate ,26 : Pen 4 : Centre "Press Spacebar to continue"
  328. Clear Key 
  329. Wait Key 
  330. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  331. GROO:
  332. Wait 25
  333. SCNOFF[SCR]
  334. Fade 7
  335. Wait 150
  336. Cls 0
  337. End Proc
  338. Procedure YAIN
  339. Sam Play 8,4,14000
  340. Screen Open 0,320,256,32,LORES
  341. Cls 0 : Flash Off : Curs Off : Hide 
  342. Palette $157
  343. Cls 0 : Curs Off : Flash Off 
  344. Locate ,3
  345. Paper 0
  346. Centre "What is this well known saying ?"
  347. Wait 150
  348. Locate ,3 : Cline 
  349. Wait 60
  350. Ink 7
  351. Box 79,89 To 251,161
  352. Ink 9
  353. Bar 80,90 To 250,160
  354. Ink 5
  355. Box 78,88 To 252,162
  356. Ink 2
  357. Box 77,87 To 253,163 : Box 76,86 To 254,164
  358. Wait 75
  359. Locate 16,13 : Paper 9 : Pen 5 : Print "| | | | | "
  360. Locate 16,17 : Pen 2 : Print "| | | | |"
  361. Wait 222
  362. Locate 16,17 : Pen 2 : Print "T T T T T"
  363. Locate 16,13 : Pen 5 : Print "i i i i i"
  364. Locate ,21
  365. Paper 0 : Pen 5
  366. Wait 100
  367. Centre " You have 30 seconds to think !"
  368. Wait 150 : Locate 19,21
  369. Cline 
  370. Wait 300
  371. HLL:
  372.  Locate 8,21 : Print "Press the A key for answer     "
  373. Clear Key 
  374. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  375. HVS:
  376. Locate 8,21 : Print "                              "
  377. Wait 50
  378. Locate 19,21 : Pen 2
  379. Centre "The answer is ..."
  380. Wait 75 : Locate 19,21 : Centre "                 "
  381. Locate 6,21 : Pen 2 : Print "Dot the I's and cross the T's !"
  382. Locate 13,24
  383. Wait 150
  384. Pen 5 : Print "Were You Right ?"
  385. Wait 100
  386. Paper 0 : Pen 4
  387. Locate ,26 : Centre "If you dont understand press HELP "
  388. Wait 150
  389. Locate ,28 : Centre "Or press spacebar to continue"
  390. HNKP:
  391. Wait 75
  392. Clear Key 
  393. Wait Key 
  394. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  395. HONDAY:
  396. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  397. Wait 100
  398. HSW:
  399. Locate ,26 : Cline 
  400. Locate ,24 : Cline 
  401. Locate 2,28 : Print "                                    "
  402. Paper 0 : Pen 3
  403. Locate 0,24 : Centre "Oh boy! Do I deserve this !!"
  404. Wait 75
  405. Locate ,26 : Centre "I've dotted the I's etc. etc.?"
  406. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  407. Clear Key 
  408. Wait Key 
  409. HAAB:
  410. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  411. Wait 75
  412. HAAC:
  413. Wait 150
  414. WIPE
  415. Wait 50
  416. Locate ,14 : Centre "Wow ! It's a good job I Ducked !!"
  417. Wait 150
  418. Cls 0
  419. End Proc
  420. Procedure SAIN
  421. Sam Play 8,4,14000
  422. Screen Open 0,320,256,32,LORES
  423. Cls 0 : Flash Off : Curs Off : Hide 
  424. Palette $232
  425. Cls 0 : Curs Off : Flash Off 
  426. Locate ,3
  427. Paper 0
  428. Centre "What is this well known saying ?"
  429. Wait 150
  430. Locate ,3 : Cline 
  431. Wait 175
  432. Bar 130,30 To 185,120
  433. Ink 4
  434. Box 129,29 To 186,121
  435. Ink 3
  436. Box 128,28 To 187,122
  437. Wait 100
  438. Locate 19,5 : Pen 6 : Paper 2 : Print "L" : Wait 40
  439. Locate 19,7 : Pen 4 : Print "A" : Wait 40
  440. Locate 19,9 : Pen 5 : Print "C" : Wait 40
  441. Locate 19,11 : Pen 3 : Print "E" : Wait 40
  442. Locate 19,13 : Pen 6 : Print "D" : Wait 100
  443. Locate 8,21
  444. Paper 0 : Pen 2
  445. Centre "You have 30 seconds to think!!"
  446. Wait 150 : Locate 19,21
  447. Centre "                                "
  448. Wait 300
  449. HLL:
  450.  Locate 8,21 : Paper 0 : Print "Press the A key for answer     "
  451. Clear Key 
  452. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  453. HVS:
  454. Locate 8,21 : Print "                              "
  455. Wait 50
  456. Locate 19,21 : Pen 2
  457. Centre "The answer is ..."
  458. Wait 75 : Locate 19,21 : Centre "                 "
  459. Locate ,21 : Pen 5 : Centre "Straight Laced"
  460. Locate 12,25
  461. Wait 150 : Pen 5
  462. Print "Were You Right ?"
  463. Wait 175
  464. Locate ,25 : Cline 
  465. Paper 0 : Pen 4
  466. Locate ,26 : Centre "If you dont understand press HELP "
  467. Wait 150
  468. Locate ,28 : Centre "Or press spacebar to continue"
  469. HNKP:
  470. Wait 75
  471. Clear Key 
  472. Wait Key 
  473. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  474. HONDAY:
  475. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  476. Wait 100
  477. HSW:
  478. Locate ,26 : Centre "                                  "
  479. Locate 2,28 : Print "                                    "
  480. Paper 0 : Pen 3
  481. Locate 0,23 : Centre " Ditho ! who needs help with this"
  482. Wait 50
  483. Wait 150
  484. Locate ,25 : Centre "Laced is straight up & down !"
  485. Wait 75
  486. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  487. Clear Key 
  488. Wait Key 
  489. HAAB:
  490. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  491. Wait 75
  492. HAAC:
  493. Locate ,30 : Paper 0 : Centre "Oh,Oh,this a sweeping statement !"
  494. Wait 100
  495. WIPE
  496. Cls 0
  497. Wait 100
  498. End Proc
  499. Procedure UAIN
  500. Sam Play 8,4,14000
  501. Screen Open 0,320,256,32,LORES
  502. Cls 0 : Flash Off : Curs Off : Hide 
  503. Ink 0
  504. Bar 0,0 To 10,10
  505. Locate ,2 : Paper 0 : Centre "What is this well known saying ?"
  506. Wait 100
  507. 'Load Iff "in" 
  508. 'Spack 0 To 2
  509. Wait 50
  510. Unpack 2 To 0
  511. Wait 150
  512. Locate ,24 : Paper 3 : Pen 5 : Centre "You have 30 seconds to think"
  513. Wait 115
  514. Locate ,24 : Cline 
  515. Wait 300
  516. HLL:
  517.  Locate 8,24 : Pen 6 : Paper 3 : Print "Press the A key for answer     "
  518. Clear Key 
  519. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  520. HVS:
  521. Locate 8,24 : Print "                              "
  522. Wait 50
  523. Locate 19,24 : Pen 6
  524. Centre "The answer is ..."
  525. Wait 75 : Locate 19,24 : Centre "                 "
  526. Sam Play 8,1,10000
  527. Locate ,24 : Pen 5 : Centre "Having a Lie In !"
  528. Wait 100
  529. Locate ,26 : Centre "In my pretty border !"
  530. Locate 11,28
  531. Wait 150
  532. Print "Were You Right ?"
  533. Wait 150
  534. Locate ,28 : Cline 
  535. Locate ,26 : Cline 
  536. Paper 3 : Pen 4
  537. Locate ,26 : Centre "If you dont understand press HELP "
  538. Wait 150
  539. Locate ,28 : Centre "Or press spacebar to continue"
  540. HNKP:
  541. Wait 75
  542. Clear Key 
  543. Wait Key 
  544. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  545. HONDAY:
  546. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  547. Wait 100
  548. HSW:
  549. Sam Play 7
  550. Locate ,26 : Centre "                                  "
  551. Locate 2,28 : Print "                                    "
  552. Paper 3 : Pen 4
  553. Locate ,26 : Centre "IN is lying down !For goodness sake!  "
  554. Wait 75
  555. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  556. Clear Key 
  557. Wait Key 
  558. HAAB:
  559. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  560. Wait 75
  561. HAAC:
  562. WIPE
  563. Cls 0
  564. Wait 150
  565. End Proc
  566. Procedure WAIN
  567. Screen Open 0,320,256,32,LORES
  568. Cls 0 : Flash Off : Curs Off : Hide 
  569. Sam Play 8,4,14000
  570. Palette $992
  571. Cls 0 : Curs Off : Flash Off 
  572. Locate ,3
  573. Paper 0
  574. Centre "What is this well known saying ?"
  575. Wait 150
  576. Locate ,3 : Cline 
  577. Wait 60
  578. Ink 7
  579. Box 79,89 To 251,161
  580. Ink 4
  581. Bar 80,90 To 250,160
  582. Ink 2
  583. Box 78,88 To 252,162
  584. Ink 9
  585. Box 77,87 To 253,163 : Box 76,86 To 254,164
  586. Locate 19,21
  587. Paper 0 : Pen 2
  588. Wait 150 : Locate 19,21
  589. Centre "                                "
  590. Locate 11,15 : Paper 4 : Print "W A L A Y I N G I T "
  591. Wait 75
  592. Locate ,21 : Pen 6 : Paper 0
  593. Centre "You have 30 seconds to think!!"
  594. Wait 150 : Locate ,21 : Cline 
  595. Wait 400
  596. HLL:
  597.  Locate 8,21 : Pen 6 : Print "Press the A key for answer     "
  598. Clear Key 
  599. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  600. HVS:
  601. Locate 8,21 : Print "                              "
  602. Wait 50
  603. Locate 19,21 : Pen 2
  604. Centre "The answer is ..."
  605. Wait 75 : Locate 19,21 : Centre "                 "
  606. Locate 10,22 : Pen 6 : Centre "Laying in wait !"
  607. Locate 13,24
  608. Wait 150
  609. Print "Were You Right ?"
  610. Wait 150
  611. Locate ,24 : Cline 
  612. Paper 0 : Pen 4
  613. Locate ,26 : Centre "If you dont understand press HELP "
  614. Wait 50
  615. Locate ,28 : Centre "Or press spacebar to continue"
  616. HNKP:
  617. Wait 75
  618. Clear Key 
  619. Wait Key 
  620. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  621. HONDAY:
  622. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  623. Wait 100
  624. HSW:
  625. Locate ,26 : Centre "                                  "
  626. Locate 2,28 : Print "                                    "
  627. Paper 0 : Pen 3
  628. Locate ,24 : Centre "Excuse me ! these are the easy ones ! "
  629. Wait 100
  630. Locate ,26 : Centre "Laying is IN wait Flathead !"
  631. Wait 75
  632. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  633. Clear Key 
  634. Wait Key 
  635. HAAB:
  636. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  637. Wait 75
  638. HAAC:
  639. Locate ,21 : Cline 
  640. Locate ,20 : Cline 
  641. Locate ,22 : Cline 
  642. Locate ,24 : Cline 
  643. Locate ,26 : Cline 
  644. Locate ,28 : Cline 
  645. Locate ,30 : Cline 
  646. Wait 50
  647. Flash 8,"(099,5)(033,5)"
  648. Locate ,24 : Pen 8 : Centre "LOOK OUT....Hold on to your hat!"
  649. Wait 150
  650. SCNOFF[SCR]
  651. Wait 150
  652. Cls 0
  653. End Proc
  654. Procedure BAIN
  655. Screen Open 0,320,256,32,LORES
  656. Cls 0 : Flash Off : Curs Off : Hide 
  657. Palette $637
  658. Cls 0 : Curs Off : Flash Off 
  659. Sam Play 8,4,14000
  660. Locate ,3
  661. Paper 0 : Pen 2
  662. Centre "I like that .Lets do it again !!"
  663. Wait 150
  664. Locate ,6 : Pen 5
  665. Centre "What is this well known saying ?"
  666. Wait 200
  667. Locate ,3 : Cline 
  668. Locate ,6 : Cline 
  669. Locate 0,10 : Print "6 6 6"
  670. Locate ,12 : Print "7 7 7 "
  671. Wait 150
  672. Pen 2
  673. A$="Alll"
  674. Curs Off 
  675. N=1
  676. Repeat 
  677.    L$=Mid$(A$,N,1)+Chr$(32)
  678.    Locate 39,10 : Print L$
  679.    For T=39 To N+5 Step -1
  680.       Locate T,10 : Print L$
  681.       Wait Vbl 
  682.    Next T
  683.    Inc N
  684. Until N=Len(A$)
  685. A$="Alll"
  686. Curs Off 
  687. N=1
  688. Repeat 
  689.    L$=Mid$(A$,N,1)+Chr$(32)
  690.    Locate 39,12 : Print L$
  691.    For T=39 To N+5 Step -1
  692.       Locate T,12 : Print L$
  693.       Wait Vbl 
  694.    Next T
  695.    Inc N
  696. Until N=Len(A$)
  697. Ink 5
  698. Paper 0 : Pen 4
  699. Wait 150
  700. Locate ,24 : Centre "Thats it !!!!"
  701. Wait 75
  702. Centre "You have 30 seconds to think!!!"
  703. Wait 150 : Locate 19,24
  704. Centre "                                "
  705. Wait 250 : Locate ,24 : Centre "Still not much to go on  ? (Snigger !)"
  706. Wait 100 : Locate ,24 : Cline 
  707. Wait 250
  708. HLL:
  709.  Locate 9,24 : Pen 5 : Print "Press the A key for answer     "
  710. Clear Key 
  711. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  712. HVS:
  713. Locate 9,24 : Print "                              "
  714. Wait 50
  715. Locate 19,24
  716. Centre "The answer is ..."
  717. Wait 105 : Locate 19,21 : Centre "                 "
  718. Locate ,24 : Pen 5 : Centre "All at sixes & sevens !!"
  719. Locate 22,26
  720. Wait 150
  721. Centre "Were You Right ?"
  722. Wait 150
  723. Locate ,28 : Pen 6 : Centre "Ha Ha thats still a bit difficult !!"
  724. Wait 150
  725. Locate ,28 : Cline 
  726. Locate ,26 : Cline 
  727. Paper 0 : Pen 4
  728. Locate ,28 : Centre "If you dont understand press HELP "
  729. Wait 50
  730. Locate ,30 : Centre "Or press spacebar to continue"
  731. HNKP:
  732. Wait 75
  733. Clear Key 
  734. Wait Key 
  735. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  736. HONDAY:
  737. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  738. Wait 100
  739. HSW:
  740. Locate ,30 : Centre "                                  "
  741. Locate 2,28 : Print "                                    "
  742. Paper 0 : Pen 3
  743. Wait 50
  744. Locate ,26 : Centre "All has gone to 6s & 7s Braindead"
  745. Wait 150
  746. Locate ,28 : Centre "I'm to clever for my boots. Tee Hee !"
  747. Wait 75
  748. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  749. Clear Key 
  750. Wait Key 
  751. HAAB:
  752. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  753. Wait 75
  754. HAAC:
  755. Ink 2
  756. For A=1 To 400
  757.    Draw 0,A To 340,A
  758.    Draw 0,600-A To 340,1100-A
  759. Wait 1
  760. Next A
  761. 'Fade 7
  762. Locate ,18 : Paper 2 : Pen 4 : Centre "Oh dear whats happening ?"
  763. Wait 75
  764. Locate ,18 : Cline 
  765. Wait 50
  766. Fade 7
  767. Locate ,18 : Paper 2 : Pen 4 : Centre "Byee !!"
  768. Wait 150
  769. Cls 0
  770. End Proc
  771. Procedure TAIN
  772. Screen Open 0,320,256,32,LORES
  773. Cls 0 : Flash Off : Curs Off : Hide 
  774. Sam Play 8,4,14000
  775. Palette $666
  776. Cls 0 : Curs Off : Flash Off 
  777. Locate ,4
  778. Paper 0
  779. Centre "What is this well known saying ?"
  780. Wait 150
  781. Locate ,4 : Pen 6 : Centre "It's one of those that makes you GROAN!"
  782. Wait 100
  783. Locate ,6 : Pen 4 : Centre "Keep the sound turned UP !"
  784. Wait 200
  785. Locate ,4 : Cline 
  786. Locate ,6 : Cline 
  787. Bar 0,190 To 320,191
  788. Locate 10,10 : Pen 4 : Wait 50 : Print "Hobby" : Locate 22,6 : Pen 6 : Wait 50 : Print "Pastime" : Locate 16,8 : Pen 2 : Wait 50 : Print "Interest"
  789. Locate 3,3 : Pen 5 : Wait 50 : Print "Pursuit" : Locate 26,18 : Pen 3 : Wait 50 : Print "Activity"
  790. Locate 6,20 : Pen 6 : Wait 50 : Print "Engrossment" : Locate 28,14 : Pen 5 : Wait 50 : Print "Absorption"
  791. Wait 150 : Locate 10,10 : Shoot : Wait 15 : Shoot : Print "     " : Locate 22,6 : Wait 50 : Shoot : Wait 15 : Shoot : Print "       "
  792. Wait 50 : Locate 3,3 : Shoot : Wait 15 : Shoot : Print "       " : Locate 26,18 : Wait 50 : Shoot : Wait 15 : Shoot : Print "        "
  793. Wait 40 : Locate 6,20 : Shoot : Wait 15 : Shoot : Print "           " : Locate 28,14 : Wait 50 : Shoot : Wait 15 : Shoot : Print "           "
  794. Ink 3
  795. Wait 100
  796. Locate ,25 : Paper 7
  797. Centre "You have 30 seconds to think!!"
  798. Wait 150 : Locate ,25
  799. Centre "                                "
  800. Wait 400
  801. HLL:
  802.  Locate 8,25 : Pen 6 : Print "Press the A key for answer     "
  803. Clear Key 
  804. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  805. HVS:
  806. Locate 8,25 : Print "                              "
  807. Wait 50
  808. Locate 19,25 : Pen 2
  809. Centre "The answer is ..."
  810. Wait 75 : Locate 19,25 : Centre "                 "
  811. Locate 10,25 : Pen 6 : Centre "Keeping the interest alive !"
  812. Locate 13,27
  813. Wait 150
  814. Centre "Oh Groan !"
  815. Wait 200
  816. Centre "Where you right ?"
  817. Wait 150
  818. Paper 7 : Pen 4
  819. Locate ,27 : Centre "If you dont understand press HELP "
  820. Wait 50
  821. Locate ,29 : Centre "Or press spacebar to continue"
  822. HNKP:
  823. Wait 75
  824. Clear Key 
  825. Wait Key 
  826. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  827. HONDAY:
  828. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  829. Wait 100
  830. HSW:
  831. Locate ,27 : Cline : Locate ,29 : Cline 
  832. Locate ,27 : Pen 4 : Centre "Oh come on thicko.It's obvious !"
  833. Wait 75
  834. Locate ,29 : Centre "I've shot them with the SHOOT command !"
  835. Wait 200
  836. Locate ,29 : Cline : Locate ,29 : Pen 4 : Centre "Press SPACE BAR to continue"
  837. Clear Key 
  838. Wait Key 
  839. HAAB:
  840. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  841. Wait 75
  842. HAAC:
  843. Wait 50
  844. Locate ,24 : Pen 2 : Centre "LOOK OUT....Here comes the Sweeper !"
  845. Wait 150
  846. WIPE
  847. Wait 150
  848. Cls 0
  849. End Proc
  850. Procedure QAIN
  851. Screen Open 0,320,256,32,LORES
  852. Cls 0 : Flash Off : Curs Off : Hide 
  853. Sam Play 8,4,14000
  854. Palette $325
  855. Cls 0 : Curs Off : Flash Off 
  856. Locate ,3
  857. Paper 0
  858. Centre "What is this well known saying ?"
  859. Wait 150
  860. Locate ,3 : Cline 
  861. Wait 60
  862. Ink 4
  863. Box 79,89 To 251,161
  864. Ink 7
  865. Bar 80,90 To 250,160
  866. Ink 1
  867. Box 78,88 To 252,162
  868. Ink 4
  869. Box 77,87 To 253,163 : Box 76,86 To 254,164
  870. Locate 14,13 : Paper 7 : Pen 2 : Print "Frank Spencer !!"
  871. Wait 75
  872. Locate 18,17 : Print "BOARD"
  873. Locate 19,21
  874. Paper 0 : Pen 5
  875. Wait 110
  876. Centre "You have 30 seconds to think!!"
  877. Wait 150 : Locate 19,21
  878. Centre "                                "
  879. Wait 400
  880. HLL:
  881.  Locate 8,21 : Print "Press the A key for answer     "
  882. Clear Key 
  883. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  884. HVS:
  885. Locate 8,21 : Print "                              "
  886. Wait 50
  887. Locate 19,21 : Pen 2
  888. Centre "The answer is ..."
  889. Wait 75 : Locate 19,21 : Centre "                 "
  890. Locate 13,21 : Pen 5 : Print "Man Overboard !"
  891. Wait 150
  892. Locate 13,24 : Centre "Stop the Rowing Boat !"
  893. Wait 100
  894. Locate 13,24 : Cline 
  895.  Wait 150
  896. Print "Were You Right ?"
  897. Wait 150
  898. Locate ,24 : Cline 
  899. Paper 0 : Pen 4
  900. Locate ,26 : Centre "If you dont understand press HELP "
  901. Wait 50
  902. Locate ,28 : Centre "Or press spacebar to continue"
  903. HNKP:
  904. Wait 75
  905. Clear Key 
  906. Wait Key 
  907. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  908. HONDAY:
  909. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  910. Wait 100
  911. HSW:
  912. Locate ,26 : Centre "                                  "
  913. Locate 2,28 : Print "                                    "
  914. Paper 0 : Pen 3
  915. Locate ,24 : Centre "It's that man Frank Spencer again Dumbo!"
  916. Wait 75
  917. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  918. Clear Key 
  919. Wait Key 
  920. HAAB:
  921. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  922. Wait 75
  923. HAAC:
  924. Wait 50
  925. Flash 8,"(099,5)(033,5)"
  926. Locate ,24 : Pen 8 : Centre "LOOK OUT....Hold on to your hat!"
  927. Wait 150
  928. SCNOFF[SCR]
  929. Wait 150
  930. Cls 0
  931. End Proc
  932. Procedure HAIN
  933. Sam Play 8,4,14000
  934. Screen Open 0,320,256,32,LORES
  935. Cls 0 : Flash Off : Curs Off : Hide 
  936. Palette $333
  937. Cls 0 : Curs Off : Flash Off 
  938. Locate ,3
  939. Paper 0
  940. Centre "What is this well known saying ?"
  941. Wait 150
  942. Locate ,3 : Cline 
  943. Wait 60
  944. Ink 4
  945. Box 79,84 To 251,161
  946. Ink 2
  947. Bar 80,85 To 250,160
  948. Ink 6
  949. Box 78,83 To 252,162
  950. Ink 4
  951. Box 77,82 To 253,163 : Box 76,81 To 254,164
  952. Locate 25,11 : Paper 2 : Pen 3 : Wait 50 : Print "It"
  953. Locate 25,13 : Pen 6 : Wait 50 : Print "Will"
  954. Locate 25,15 : Pen 4 : Wait 50 : Print "Be"
  955. Locate 25,17 : Pen 5 : Wait 50 : Print "All"
  956. Locate 13,18 : Pen 3 : Wait 50 : Print "L A N C E L O T"
  957. Locate ,21
  958. Paper 0 : Pen 5
  959. Wait 75
  960. Centre " 20 seconds to think cos it's so easy !"
  961. Wait 150 : Locate 19,21
  962. Cline 
  963. Wait 300
  964. HLL:
  965.  Locate 8,21 : Print "Press the A key for answer     "
  966. Clear Key 
  967. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  968. HVS:
  969. Locate 8,21 : Print "                              "
  970. Wait 50
  971. Locate 19,21 : Pen 2
  972. Centre "The answer is ..."
  973. Wait 75 : Locate 19,21 : Centre "                 "
  974. Locate ,21 : Pen 5 : Centre "It will be all right on the night !"
  975. Locate 13,24
  976. Wait 150
  977. Print "Were You Night ?"
  978. Wait 200 : Locate 10,26 : Print "SORRY. were you RIGHT !"
  979. Wait 250
  980. Paper 0 : Pen 4
  981. Locate ,26 : Centre "If you dont understand press HELP "
  982. Wait 150
  983. Locate ,28 : Centre "Or press spacebar to continue"
  984. HNKP:
  985. Wait 75
  986. Clear Key 
  987. Wait Key 
  988. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  989. HONDAY:
  990. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  991. Wait 100
  992. HSW:
  993. Locate ,26 : Cline 
  994. Locate ,24 : Cline 
  995. Locate 2,28 : Print "                                    "
  996. Paper 0 : Pen 3
  997. Locate 0,24 : Centre "Sir Lancelot !The rest is on the right !"
  998. Wait 75
  999. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1000. Clear Key 
  1001. Wait Key 
  1002. HAAB:
  1003. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1004. Wait 75
  1005. HAAC:
  1006. Wait 150
  1007. SCNOFF[SCR]
  1008. Wait 150
  1009. Cls 0
  1010. End Proc
  1011. Procedure PAIN
  1012. Sam Play 8,4,14000
  1013. Screen Open 0,320,256,32,LORES
  1014. Cls 0 : Flash Off : Curs Off : Hide 
  1015. Ink 0
  1016. Bar 0,0 To 10,10
  1017. Locate ,2 : Paper 0 : Centre "What is this well known saying ?"
  1018. Wait 100
  1019. 'Load Iff "scroll.iff" 
  1020. 'Spack 0 To 1
  1021. Wait 50
  1022. Unpack 1 To 0
  1023. Paper 0
  1024. Wait 150
  1025. Locate ,24 : Paper 0 : Pen 5 : Centre "You have 30 seconds to think"
  1026. Wait 115
  1027. Locate ,24 : Cline 
  1028. Wait 300
  1029. HLL:
  1030.  Locate 8,24 : Pen 6 : Paper 0 : Print "Press the A key for answer     "
  1031. Clear Key 
  1032. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1033. HVS:
  1034. Locate 8,24 : Print "                              "
  1035. Wait 50
  1036. Locate 19,24 : Pen 6
  1037. Centre "The answer is ..."
  1038. Wait 75 : Locate 19,24 : Centre "                 "
  1039. Sam Play 8,1,10000
  1040. Locate 7,24 : Pen 5 : Print "Around the world in 80 days"
  1041. Locate 11,26
  1042. Wait 150
  1043. Print "Were You Right ?"
  1044. Wait 150
  1045. Locate ,26 : Cline 
  1046. Paper 0 : Pen 4
  1047. Locate ,26 : Centre "If you dont understand press HELP "
  1048. Wait 150
  1049. Locate ,28 : Centre "Or press spacebar to continue"
  1050. HNKP:
  1051. Wait 75
  1052. Clear Key 
  1053. Wait Key 
  1054. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1055. HONDAY:
  1056. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1057. Wait 100
  1058. HSW:
  1059. Sam Play 7
  1060. Locate ,26 : Centre "                                  "
  1061. Locate 2,28 : Print "                                    "
  1062. Paper 0 : Pen 3
  1063. Locate 0,26 : Centre "Its a classic Film/Book.The world is  "
  1064. Locate ,28 : Centre "round and there are 80 days.Honest !"
  1065. Wait 75
  1066. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1067. Clear Key 
  1068. Wait Key 
  1069. HAAB:
  1070. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1071. Wait 75
  1072. HAAC:
  1073. WIPE
  1074. Cls 0
  1075. Wait 150
  1076. End Proc
  1077. Procedure AAIN
  1078. Sam Play 8,4,14000
  1079. Screen Open 0,320,256,32,LORES
  1080. Cls 0 : Flash Off : Curs Off : Hide 
  1081. Palette $419
  1082. Cls 0 : Curs Off : Flash Off 
  1083. Locate ,3
  1084. Paper 0
  1085. Centre "What is this well known saying ?"
  1086. Wait 150
  1087. Locate ,3 : Cline 
  1088. Wait 60
  1089. Ink 2
  1090. Box 79,89 To 251,161
  1091. Ink 5
  1092. Bar 80,90 To 250,160
  1093. Ink 6
  1094. Box 78,88 To 252,162
  1095. Ink 2
  1096. Box 77,87 To 253,163 : Box 76,86 To 254,164
  1097. Locate 7,21 : Paper 0 : Print "You have 30 seconds to think"
  1098. Wait 100
  1099. Locate ,21 : Cline 
  1100. Locate 17,12 : Paper 5 : Pen 6 : Print "L L A L"
  1101. Locate 17,14 : Print "A     L" : Locate 17,16 : Print "L     A" : Locate 17,18 : Print "L A L L"
  1102. Wait 300
  1103. HLL:
  1104.  Locate 8,21 : Paper 0 : Pen 2 : Print "Press the A key for answer     "
  1105. Clear Key 
  1106. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1107. HVS:
  1108. Locate 8,21 : Print "                              "
  1109. Wait 50
  1110. Locate 19,21 : Pen 2 : Paper 0
  1111. Centre "The answer is ..."
  1112. Wait 105 : Locate 19,21 : Centre "                 "
  1113. Locate 13,21 : Pen 5 : Print "It's all Square !"
  1114. Locate 13,24
  1115. Wait 150
  1116. Print "Were You Right ?"
  1117. Wait 100
  1118. Paper 0 : Pen 4
  1119. Locate ,26 : Centre "If you dont understand press HELP "
  1120. Wait 150
  1121. Locate ,28 : Centre "Or press spacebar to continue"
  1122. HNKP:
  1123. Wait 75
  1124. Clear Key 
  1125. Wait Key 
  1126. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1127. HONDAY:
  1128. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1129. Wait 100
  1130. HSW:
  1131. Locate ,26 : Cline 
  1132. Locate ,24 : Cline 
  1133. Locate 2,28 : Print "                                    "
  1134. Paper 0 : Pen 3
  1135. Locate 0,24 : Centre "ALL makes up the Square !"
  1136. Wait 75
  1137. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1138. Clear Key 
  1139. Wait Key 
  1140. HAAB:
  1141. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1142. Wait 75
  1143. HAAC:
  1144. Wait 150
  1145. SCNOFF[SCR]
  1146. Wait 150
  1147. Cls 0
  1148. End Proc
  1149. Procedure LAIN
  1150. Sam Play 8,4,14000
  1151. Screen Open 0,320,256,32,LORES
  1152. Cls 0 : Flash Off : Curs Off : Hide 
  1153. Palette $913
  1154. Cls 0 : Curs Off : Flash Off 
  1155. Locate ,3
  1156. Paper 0
  1157. Centre "What is this well known saying ?"
  1158. Wait 150
  1159. Locate ,3 : Cline 
  1160. Wait 100
  1161. Locate 0,0 : Paper 0 : Pen 6 : Centre "Occasion"
  1162. Wait 100
  1163. Locate ,30 : Pen 2 : Centre "2" : Wait 10 : Locate ,30 : Centre " " : Locate ,29 : Centre "2" : Wait 10 : Locate ,29 : Centre " "
  1164. Locate ,28 : Pen 2 : Centre "2" : Wait 10 : Locate ,28 : Centre " " : Locate ,27 : Centre "2" : Wait 10 : Locate ,27 : Centre " "
  1165. Locate ,26 : Pen 2 : Centre "2" : Wait 10 : Locate ,26 : Centre " " : Locate ,25 : Centre "2" : Wait 10 : Locate ,25 : Centre " "
  1166. Locate ,24 : Pen 2 : Centre "2" : Wait 10 : Locate ,24 : Centre " " : Locate ,23 : Centre "2" : Wait 10 : Locate ,23 : Centre " "
  1167. Locate ,22 : Pen 2 : Centre "2" : Wait 10 : Locate ,22 : Centre " " : Locate ,21 : Centre "2" : Wait 10 : Locate ,21 : Centre " "
  1168. Locate ,20 : Pen 2 : Centre "2" : Wait 10 : Locate ,20 : Centre " " : Locate ,19 : Centre "2" : Wait 10 : Locate ,19 : Centre " "
  1169. Locate ,18 : Pen 2 : Centre "2" : Wait 10 : Locate ,18 : Centre " " : Locate ,17 : Centre "2" : Wait 10 : Locate ,17 : Centre " "
  1170. Locate ,16 : Pen 2 : Centre "2" : Wait 10 : Locate ,16 : Centre " " : Locate ,15 : Centre "2" : Wait 10 : Locate ,15 : Centre " "
  1171. Locate ,14 : Pen 2 : Centre "2" : Wait 10 : Locate ,14 : Centre " " : Locate ,13 : Centre "2" : Wait 10 : Locate ,13 : Centre " "
  1172. Locate ,12 : Pen 2 : Centre "2" : Wait 10 : Locate ,12 : Centre " " : Locate ,11 : Centre "2" : Wait 10 : Locate ,11 : Centre " "
  1173. Locate ,10 : Pen 2 : Centre "2" : Wait 10 : Locate ,10 : Centre " " : Locate ,9 : Centre "2" : Wait 10 : Locate ,9 : Centre " "
  1174. Locate ,8 : Pen 2 : Centre "2" : Wait 10 : Locate ,8 : Centre " " : Locate ,7 : Centre "2" : Wait 10 : Locate ,7 : Centre " "
  1175. Locate ,6 : Pen 2 : Centre "2" : Wait 10 : Locate ,6 : Centre " " : Locate ,5 : Centre "2" : Wait 10 : Locate ,5 : Centre " "
  1176. Locate ,4 : Pen 2 : Centre "2" : Wait 10 : Locate ,4 : Centre " " : Locate ,3 : Centre "2" : Wait 10 : Locate ,3 : Centre " "
  1177. Locate ,2 : Pen 2 : Centre "2" : Wait 10 : Locate ,2 : Centre " " : Locate ,1 : Centre "2"
  1178. Wait 109
  1179. Locate 7,28 : Paper 0 : Pen 2 : Print "You have 30 seconds to think"
  1180. Wait 100
  1181. Locate ,28 : Cline 
  1182. Wait 300
  1183. HLL:
  1184.  Locate 8,28 : Paper 0 : Pen 2 : Print "Press the A key for answer     "
  1185. Clear Key 
  1186. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1187. HVS:
  1188. Locate 8,28 : Print "                              "
  1189. Wait 50
  1190. Locate 19,26 : Pen 2 : Paper 0
  1191. Centre "The answer is ..."
  1192. Wait 105 : Locate 19,26 : Centre "                 "
  1193. Locate ,26 : Pen 5 : Centre "Rising to the occasion !"
  1194. Locate 13,28
  1195. Wait 150
  1196. Print "Were You Right ?"
  1197. Wait 100
  1198. Paper 0 : Pen 4
  1199. Locate ,28 : Centre "If you dont understand press HELP "
  1200. Wait 150
  1201. Locate ,30 : Centre "Or press spacebar to continue"
  1202. HNKP:
  1203. Wait 75
  1204. Clear Key 
  1205. Wait Key 
  1206. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1207. HONDAY:
  1208. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1209. Wait 100
  1210. HSW:
  1211. Locate ,28 : Cline 
  1212. Locate ,30 : Cline 
  1213. Paper 0 : Pen 3
  1214. Locate 0,28 : Centre "Two is going up DODO ! "
  1215. Wait 75
  1216. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1217. Clear Key 
  1218. Wait Key 
  1219. HAAB:
  1220. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1221. Wait 75
  1222. HAAC:
  1223. Wait 150
  1224. Fade 7
  1225. Wait 150
  1226. Cls 0
  1227. End Proc
  1228. Procedure JAIN
  1229. Sam Play 8,4,14000
  1230. Screen Open 0,320,256,32,LORES
  1231. Cls 0 : Flash Off : Curs Off : Hide 
  1232. Palette $993
  1233. Cls 0 : Curs Off : Flash Off 
  1234. Locate ,3
  1235. Paper 0
  1236. Centre "What is this well known saying ?"
  1237. Wait 150
  1238. Locate ,3 : Cline 
  1239. Wait 60
  1240. Ink 6
  1241. Box 79,89 To 251,161
  1242. Ink 6
  1243. Bar 80,90 To 250,160
  1244. Ink 2
  1245. Box 78,88 To 252,162
  1246. Ink 6
  1247. Box 77,87 To 253,163 : Box 76,86 To 254,164
  1248. Ink 2
  1249. 'Bar 159,93 To 160,108 : Draw 154,102 To 160,110 : Draw 165,102 To 160,110 
  1250. Locate 16,15 : Paper 6 : Pen 2 : Print "O       E"
  1251. Wait 100
  1252. Locate 7,21 : Paper 0 : Pen 2 : Print "You have 30 seconds to think"
  1253. Wait 100
  1254. Locate ,21 : Cline 
  1255. Wait 300
  1256. HLL:
  1257. Locate 6,21 : Pen 3 : Print "If you want a Clue press 'C'"
  1258. Wait 75
  1259.  Locate 6,23 : Paper 0 : Pen 6 : Print "Or Press the A key for answer "
  1260. Clear Key 
  1261. Wait Key : If Key State(32)=True Then Gosub HVS : Rem Else Goto HLL
  1262. If Key State(51)=True Then Goto AID
  1263. AID:
  1264. Locate ,21 : Cline : Locate ,23 : Cline 
  1265. Locate 8,9 : Print "The black hole of Calcutta"
  1266. Ink 4
  1267. Bar 159,93 To 160,108 : Draw 154,102 To 160,110 : Draw 165,102 To 160,110
  1268. Ink 2
  1269. Circle 160,122,10 : Ink 3 : Paint 165,120,1
  1270. Wait 150
  1271. Locate ,23 : Centre "Press the A key for the answer"
  1272. Clear Key 
  1273. Wait Key : If Key State(32)=True Then Goto HVS
  1274. HVS:
  1275. Locate ,9 : Cline 
  1276. Ink 6
  1277. Bar 159,93 To 160,108 : Draw 154,102 To 160,110 : Draw 165,102 To 160,110
  1278. Circle 160,122,10 : Ink 6 : Paint 165,120,1
  1279. Locate ,21 : Cline 
  1280. Wait 50
  1281. Locate 19,21 : Pen 2 : Paper 0
  1282. Locate ,23 : Cline 
  1283. Centre "The answer is ..."
  1284. Wait 105
  1285. Locate ,23 : Cline 
  1286. Locate 13,23 : Pen 6 : Print "A Hole in One !"
  1287. Locate 13,25
  1288. Wait 150
  1289. Print "Were You Right ?"
  1290. Wait 100
  1291. Paper 0 : Pen 5
  1292. Locate ,27 : Centre "If you dont understand press HELP "
  1293. Wait 150
  1294. Locate ,29 : Centre "Or press spacebar to continue"
  1295. HNKP:
  1296. Wait 75
  1297. Clear Key 
  1298. Wait Key 
  1299. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1300. HONDAY:
  1301. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1302. Wait 100
  1303. HSW:
  1304. Locate ,27 : Cline 
  1305. Locate ,29 : Cline 
  1306. Paper 0 : Pen 3
  1307. Locate 0,25 : Centre "There is a Hole in One"
  1308. Locate ,27 : Centre "Where the 'N' should be"
  1309. Wait 75
  1310. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1311. Clear Key 
  1312. Wait Key 
  1313. HAAB:
  1314. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1315. Wait 75
  1316. HAAC:
  1317. Wait 150
  1318. SCNOFF[SCR]
  1319. Wait 150
  1320. Cls 0
  1321. End Proc
  1322. Procedure KAIN
  1323. Sam Play 8,4,14000
  1324. Screen Open 0,320,256,32,LORES
  1325. Cls 0 : Flash Off : Curs Off : Hide 
  1326. Palette $189
  1327. Cls 0 : Curs Off : Flash Off 
  1328. Locate ,3
  1329. Paper 0
  1330. Centre "What is this well known saying ?"
  1331. Wait 150
  1332. Locate ,3 : Cline 
  1333. Wait 60
  1334. Ink 4
  1335. Box 79,89 To 251,161
  1336. Ink 6
  1337. Bar 80,90 To 250,160
  1338. Ink 7
  1339. Box 78,88 To 252,162
  1340. Ink 4
  1341. Box 77,87 To 253,163 : Box 76,86 To 254,164
  1342. Wait 50
  1343. Paper 6 : Locate 18,14 : Pen 4 : Print "A L L"
  1344. Locate 16,17 : Print "B O A R D"
  1345. Paper 0
  1346. Wait 150
  1347. Locate 7,21 : Paper 0 : Print "You have 30 seconds to think"
  1348. Wait 100
  1349. Locate ,21 : Cline 
  1350. Wait 300
  1351. HLL:
  1352.  Locate 8,21 : Paper 0 : Pen 2 : Print "Press the A key for answer     "
  1353. Clear Key 
  1354. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1355. HVS:
  1356. Locate 8,21 : Print "                              "
  1357. Wait 50
  1358. Locate 19,21 : Pen 2 : Paper 0
  1359. Centre "The answer is ..."
  1360. Wait 105 : Locate 19,21 : Centre "                 "
  1361. Locate 10,21 : Pen 5 : Print "It's All Above Board !"
  1362. Locate 13,24
  1363. Wait 150
  1364. Print "Were You Right ?"
  1365. Wait 100
  1366. Locate ,24 : Centre "That one was easy peasy wasn't it !"
  1367. Wait 150
  1368. Paper 0 : Pen 4
  1369. Locate ,26 : Centre "If you dont understand press HELP "
  1370. Wait 150
  1371. Locate ,28 : Centre "Or press spacebar to continue"
  1372. HNKP:
  1373. Wait 75
  1374. Clear Key 
  1375. Wait Key 
  1376. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1377. HONDAY:
  1378. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1379. Wait 100
  1380. HSW:
  1381. Locate ,26 : Cline 
  1382. Locate ,24 : Cline 
  1383. Locate 2,28 : Print "                                    "
  1384. Paper 0 : Pen 3
  1385. Locate 0,24 : Centre "Oh come on.Use your Brain! Look at it!"
  1386. Wait 75
  1387. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1388. Clear Key 
  1389. Wait Key 
  1390. HAAB:
  1391. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1392. Wait 75
  1393. HAAC:
  1394. Wait 150
  1395. SCNOFF[SCR]
  1396. Wait 150
  1397. Cls 0
  1398. End Proc
  1399. Procedure CAIN
  1400. Sam Play 8,4,14000
  1401. Screen Open 0,320,256,32,LORES
  1402. Cls 0 : Curs Off : Hide 
  1403. Palette $173
  1404. Cls 0 : Curs Off : Rem Flash Off  
  1405. Locate ,3
  1406. Paper 0
  1407. Centre "What is this well known saying ?"
  1408. Wait 150
  1409. Locate ,3 : Cline 
  1410. Wait 60
  1411. Ink 6
  1412. Box 79,89 To 251,161
  1413. Ink 7
  1414. Bar 80,90 To 250,160
  1415. Ink 3
  1416. Box 78,88 To 252,162
  1417. Ink 4
  1418. Box 77,87 To 253,163 : Box 76,86 To 254,164
  1419. Flash 5,"(099,5)(033,5)"
  1420. Locate 15,15 : Pen 5 : Paper 7 : Print "Inspiration"
  1421. Paper 0 : Pen 3
  1422. Wait 175
  1423. Flash Off 
  1424. Locate 15,15 : Paper 7 : Print "           "
  1425. Wait 75
  1426. Locate ,21 : Paper 0
  1427. Centre " You have 30 seconds to think !"
  1428. Wait 150 : Locate 19,21
  1429. Cline 
  1430. Wait 300
  1431. HLL:
  1432.  Locate 8,21 : Print "Press the A key for answer     "
  1433. Clear Key 
  1434. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1435. HVS:
  1436. Locate 8,21 : Print "                              "
  1437. Wait 50
  1438. Locate 19,21 : Pen 2
  1439. Centre "The answer is ..."
  1440. Wait 75 : Locate 19,21 : Centre "                 "
  1441. Locate 9,21 : Pen 6 : Centre "A Flash of Inspiration !"
  1442. Wait 150
  1443. Locate 13,24
  1444. Wait 150
  1445. Print "Were You Right ?"
  1446. Wait 100
  1447. Paper 0 : Pen 4
  1448. Locate ,26 : Centre "If you dont understand press HELP "
  1449. Wait 150
  1450. Locate ,28 : Centre "Or press spacebar to continue"
  1451. HNKP:
  1452. Wait 75
  1453. Clear Key 
  1454. Wait Key 
  1455. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1456. HONDAY:
  1457. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1458. Wait 100
  1459. HSW:
  1460. Locate ,26 : Cline 
  1461. Locate ,24 : Cline 
  1462. Locate 2,28 : Print "                                    "
  1463. Paper 0 : Pen 3
  1464. Locate 0,24 : Centre "Come ON!!!.Inspiration is flashing "
  1465. Wait 75
  1466. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1467. Clear Key 
  1468. Wait Key 
  1469. HAAB:
  1470. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1471. Wait 75
  1472. HAAC:
  1473. Wait 150
  1474. SCNOFF[SCR]
  1475. Wait 150
  1476. Cls 0
  1477. End Proc
  1478. Procedure EAIN
  1479. Screen Open 0,320,256,32,LORES
  1480. Cls 0 : Flash Off : Curs Off : Hide 
  1481. Palette $637
  1482. Cls 0 : Curs Off : Flash Off 
  1483. Sam Play 8,4,14000
  1484. Locate ,3
  1485. Paper 0
  1486. Centre "What is this well known saying ?"
  1487. Wait 150
  1488. Locate ,3 : Cline 
  1489. Locate 0,10 : Print "Err"
  1490. Locate ,12 : Print "Err"
  1491. Wait 150
  1492. Pen 5
  1493. A$="HOMOO"
  1494. Curs Off 
  1495. N=1
  1496. Repeat 
  1497.    L$=Mid$(A$,N,1)+Chr$(32)
  1498.    Locate 39,10 : Print L$
  1499.    For T=39 To N+5 Step -1
  1500.       Locate T,10 : Print L$
  1501.       Wait Vbl 
  1502.    Next T
  1503.    Inc N
  1504. Until N=Len(A$)
  1505. A$="SAPIENN"
  1506. Curs Off 
  1507. N=1
  1508. Repeat 
  1509.    L$=Mid$(A$,N,1)+Chr$(32)
  1510.    Locate 39,12 : Print L$
  1511.    For T=39 To N+5 Step -1
  1512.       Locate T,12 : Print L$
  1513.       Wait Vbl 
  1514.    Next T
  1515.    Inc N
  1516. Until N=Len(A$)
  1517. Ink 5
  1518. Paper 0 : Pen 4
  1519. Wait 150
  1520. Locate ,24 : Centre "Thats it !!!!"
  1521. Wait 75
  1522. Centre "You have 30 seconds to think!!!"
  1523. Wait 150 : Locate 19,24
  1524. Centre "                                "
  1525. Wait 250 : Locate ,24 : Centre "Not much to go on is there ? (Snigger !)"
  1526. Wait 100 : Locate ,24 : Cline 
  1527. Wait 250
  1528. HLL:
  1529.  Locate 9,24 : Pen 5 : Print "Press the A key for answer     "
  1530. Clear Key 
  1531. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1532. HVS:
  1533. Locate 9,24 : Print "                              "
  1534. Wait 50
  1535. Locate 19,24
  1536. Centre "The answer is ..."
  1537. Wait 105 : Locate 19,21 : Centre "                 "
  1538. Locate ,24 : Pen 5 : Centre "To Err is Human !!"
  1539. Locate 22,26
  1540. Wait 150
  1541. Centre "Were You Right ?"
  1542. Wait 150
  1543. Locate ,28 : Pen 4 : Centre "Ha Ha that was a bit more difficult !!"
  1544. Wait 150
  1545. Locate ,28 : Cline 
  1546. Locate ,26 : Cline 
  1547. Paper 0 : Pen 4
  1548. Locate ,28 : Centre "If you dont understand press HELP "
  1549. Wait 50
  1550. Locate ,30 : Centre "Or press spacebar to continue"
  1551. HNKP:
  1552. Wait 75
  1553. Clear Key 
  1554. Wait Key 
  1555. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1556. HONDAY:
  1557. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1558. Wait 100
  1559. HSW:
  1560. Locate ,30 : Centre "                                  "
  1561. Locate 2,28 : Print "                                    "
  1562. Paper 0 : Pen 3
  1563. Wait 50
  1564. Locate ,26 : Centre "Err Twice(two).A Human goes to it !"
  1565. Wait 150
  1566. Locate ,28 : Centre "I'm to clever for my boots. Tee Hee !"
  1567. Wait 75
  1568. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1569. Clear Key 
  1570. Wait Key 
  1571. HAAB:
  1572. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1573. Wait 75
  1574. HAAC:
  1575. Ink 2
  1576. For A=1 To 400
  1577.    Draw 0,A To 340,A
  1578.    Draw 0,600-A To 340,1100-A
  1579. Wait 1
  1580. Next A
  1581. 'Fade 7
  1582. Locate ,18 : Paper 2 : Pen 4 : Centre "Oh dear whats happening ?"
  1583. Wait 75
  1584. Locate ,18 : Cline 
  1585. Wait 50
  1586. Fade 7
  1587. Locate ,18 : Paper 2 : Pen 4 : Centre "Byee !!"
  1588. Wait 150
  1589. Cls 0
  1590. End Proc
  1591. Procedure XAIN
  1592. Sam Play 8,4,14000
  1593. Screen Open 0,320,256,32,LORES
  1594. Cls 0 : Flash Off : Curs Off : Hide 
  1595. Palette $173
  1596. Cls 0 : Curs Off : Flash Off 
  1597. Locate ,3
  1598. Paper 0
  1599. Centre "What is this well known saying ?"
  1600. Wait 150
  1601. Locate ,3 : Cline 
  1602. Locate ,18 : Centre "Make sure the sounds turned UP !!!"
  1603. Wait 200
  1604. Locate ,18 : Cline 
  1605. Ink 6
  1606. Box 79,85 To 251,161
  1607. Ink 7
  1608. Bar 80,86 To 250,160
  1609. Ink 3
  1610. Box 78,84 To 252,162
  1611. Ink 4
  1612. Box 77,83 To 253,163 : Box 76,82 To 254,164
  1613. Paper 7 : Pen 6
  1614. Locate 12,11 : Print "Discuss"
  1615. Locate 12,13 : Pen 5 : Print "Speaking"
  1616. Locate 12,15 : Pen 2 : Print "Gossip"
  1617. Locate 12,17 : Pen 4 : Print "Chatter"
  1618. Locate 12,19 : Pen 3 : Print "Converse"
  1619. Locate 24,13 : Pen 6 : Print "Dutch"
  1620. Locate 24,15 : Print "Dutch"
  1621. Paper 0 : Pen 3
  1622. Wait 175
  1623. Locate ,21 : Centre "You have 30 seconds to think"
  1624. Wait 150
  1625. Locate ,21 : Cline 
  1626. Wait 250
  1627. HLL:
  1628.  Locate 8,21 : Paper 0 : Print "Press the A key for answer     "
  1629. Clear Key 
  1630. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1631. HVS:
  1632. Locate 8,21 : Print "                              "
  1633. Wait 50
  1634. Locate 19,21 : Pen 2 : Paper 0
  1635. Centre "The answer is ..."
  1636. Wait 75 : Locate 19,21 : Centre "                 "
  1637. Say "oogy      glog   glog     bif bif  snoddle dog    dangle    wiggle    wog     flobber   flo bb"
  1638. Locate 10,21 : Pen 5 : Print "Talking Double Dutch"
  1639. Locate ,24 : Pen 2
  1640. Wait 150
  1641. Centre "This is how I talk to my patients !!"
  1642. Wait 100
  1643. Paper 0 : Pen 4
  1644. Locate ,26 : Centre "If you dont understand press HELP "
  1645. Wait 150
  1646. Locate ,28 : Centre "Or press spacebar to continue"
  1647. HNKP:
  1648. Wait 75
  1649. Clear Key 
  1650. Wait Key 
  1651. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1652. HONDAY:
  1653. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1654. Wait 100
  1655. HSW:
  1656. Locate ,26 : Cline 
  1657. Locate ,24 : Cline 
  1658. Locate 2,28 : Print "                                    "
  1659. Paper 0 : Pen 3
  1660. Locate 0,24 : Centre "Alternative Talkings & 2 Dutches"
  1661. Wait 75
  1662. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1663. Clear Key 
  1664. Wait Key 
  1665. HAAB:
  1666. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1667. Wait 75
  1668. HAAC:
  1669. Wait 150
  1670. SCNOFF[SCR]
  1671. Wait 150
  1672. Cls 0
  1673. End Proc
  1674. Procedure ZAIN
  1675. Sam Play 8,4,14000
  1676. Screen Open 0,320,256,32,LORES
  1677. Cls 0 : Flash Off : Curs Off : Hide 
  1678. Palette $157
  1679. Cls 0 : Curs Off : Flash Off 
  1680. Locate ,3
  1681. Paper 0
  1682. Centre "What is this well known saying ?"
  1683. Wait 150
  1684. Locate ,3 : Cline 
  1685. Wait 60
  1686. Ink 7
  1687. Box 79,89 To 251,161
  1688. Ink 9
  1689. Bar 80,90 To 250,160
  1690. Ink 5
  1691. Box 78,88 To 252,162
  1692. Ink 2
  1693. Box 77,87 To 253,163 : Box 76,86 To 254,164
  1694. Wait 75
  1695. Locate 10,15 : Paper 9 : Pen 5 : Print "S T N E M I L P M O C"
  1696. Locate ,21
  1697. Paper 0 : Pen 5
  1698. Wait 75
  1699. Centre " You have 30 seconds to think !"
  1700. Wait 150 : Locate 19,21
  1701. Cline 
  1702. Wait 300
  1703. HLL:
  1704.  Locate 8,21 : Print "Press the A key for answer     "
  1705. Clear Key 
  1706. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1707. HVS:
  1708. Locate 8,21 : Print "                              "
  1709. Wait 50
  1710. Locate 19,21 : Pen 2
  1711. Centre "The answer is ..."
  1712. Wait 75 : Locate 19,21 : Centre "                 "
  1713. Locate 10,21 : Pen 2 : Print "Return the compliments !"
  1714. Locate 13,24
  1715. Wait 150
  1716. Pen 5 : Print "Were You Right ?"
  1717. Wait 100
  1718. Paper 0 : Pen 4
  1719. Locate ,26 : Centre "If you dont understand press HELP "
  1720. Wait 150
  1721. Locate ,28 : Centre "Or press spacebar to continue"
  1722. HNKP:
  1723. Wait 75
  1724. Clear Key 
  1725. Wait Key 
  1726. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1727. HONDAY:
  1728. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1729. Wait 100
  1730. HSW:
  1731. Locate ,26 : Cline 
  1732. Locate ,24 : Cline 
  1733. Locate 2,28 : Print "                                    "
  1734. Paper 0 : Pen 3
  1735. Locate 0,24 : Centre "Compliments is backwards(returned)"
  1736. Wait 75
  1737. Locate ,26 : Centre "Are you backwards or just slow ?"
  1738. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1739. Clear Key 
  1740. Wait Key 
  1741. HAAB:
  1742. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1743. Wait 75
  1744. HAAC:
  1745. Wait 150
  1746. WIPE
  1747. Wait 150
  1748. Cls 0
  1749. End Proc
  1750. Procedure FAIN
  1751. Sam Play 8,4,14000
  1752. Screen Open 0,320,256,32,LORES
  1753. Cls 0 : Flash Off : Curs Off : Hide 
  1754. Palette $419
  1755. Cls 0 : Curs Off : Flash Off 
  1756. Locate ,3
  1757. Paper 0
  1758. Centre "What is this well known saying ?"
  1759. Wait 150
  1760. Locate ,3 : Cline 
  1761. Wait 60
  1762. Ink 1
  1763. Box 99,89 To 231,161
  1764. Ink 6
  1765. Bar 100,90 To 230,160
  1766. Ink 2
  1767. Box 98,88 To 232,162
  1768. Ink 1
  1769. Box 97,87 To 233,163 : Box 96,86 To 234,164
  1770. Locate 16,15 : Paper 6 : Pen 5 : Wait 50 : Print "Can"
  1771. Wait 50
  1772. Locate 21,15 : Pen 2 : Print "+"
  1773. Wait 50
  1774. Locate 24,15 : Pen 5 : Print "A"
  1775. Locate ,21
  1776. Paper 0 : Pen 5
  1777. Wait 75
  1778. Centre " 20 seconds to think.It's so easy !"
  1779. Wait 150 : Locate 19,21
  1780. Cline 
  1781. Wait 300
  1782. HLL:
  1783.  Locate 8,21 : Print "Press the A key for answer     "
  1784. Clear Key 
  1785. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1786. HVS:
  1787. Locate 8,21 : Print "                              "
  1788. Wait 50
  1789. Locate 13,21 : Pen 2
  1790. Print "The answer is ..."
  1791. Wait 100 : Locate ,21 : Cline 
  1792. Locate 17,21 : Pen 5 : Print "Canada !"
  1793. Locate 13,24
  1794. Wait 150
  1795. Print "Were You Right ?"
  1796. Wait 100
  1797. Paper 0 : Pen 4
  1798. Locate ,26 : Centre "If you dont understand press HELP "
  1799. Wait 150
  1800. Locate ,28 : Centre "Or press spacebar to continue"
  1801. HNKP:
  1802. Wait 75
  1803. Clear Key 
  1804. Wait Key 
  1805. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1806. HONDAY:
  1807. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1808. Wait 100
  1809. HSW:
  1810. Locate ,26 : Cline 
  1811. Locate ,24 : Cline 
  1812. Locate 2,28 : Print "                                    "
  1813. Paper 0 : Pen 3
  1814. Locate 11,24 : Print "Can +=Plus ie ADD A"
  1815. Wait 75
  1816. Locate 18,26 : Print "Dumbo !!"
  1817. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1818. Clear Key 
  1819. Wait Key 
  1820. HAAB:
  1821. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1822. Wait 75
  1823. HAAC:
  1824. Wait 50
  1825. SCNOFF[SCR]
  1826. Wait 150
  1827. Cls 0
  1828. End Proc
  1829. '
  1830. '
  1831. '
  1832. Procedure SCNON[SCR]
  1833. 'Cls 0 
  1834. For SD=-180 To 48 : Screen Display SCR,128,SD,, : For MAT=1 To 20 : Next MAT : Next SD
  1835.    For LOP=30 To 0 Step -10
  1836.       For LOP1=1 To LOP Step 5 : Screen Display SCR,,50-LOP1,,256 : View : Wait Vbl : Next LOP1
  1837.       For LOP2=LOP To 1 Step -5 : Screen Display SCR,,50-LOP2,,256 : View : Wait Vbl : Next LOP2
  1838.    Next LOP : Screen Display SCR,,50,,256 : View 
  1839. End Proc
  1840. Procedure SCNOFF[SCR]
  1841. For SD=48 To -256 Step -1 : Screen Display SCR,128,SD,, : For MAT=1 To 20 : Next MAT : Next SD
  1842. End Proc
  1843. Procedure WIPE
  1844. Ink 0
  1845.    For X=1 To 320 : Polyline 160,100 To X,0 : Next X
  1846.    For Y=1 To 256 : Polyline 160,100 To 320,Y : Next Y
  1847.    For X=1 To 320 : Polyline 160,100 To 320-X,256 : Next X
  1848.    For Y=1 To 256 : Polyline 160,100 To 0,256-Y : Next Y
  1849. End Proc
  1850. Procedure LASTBIT
  1851. Music Off 
  1852. Screen Open 0,640,256,16,Hires
  1853. Curs Off : Flash Off : Hide : Cls 0
  1854. Palette $F36
  1855. Cls 0 : Curs Off 
  1856. Paper 0
  1857. Wait 100
  1858. Locate ,5 : Bell : Centre "Well Done,that was the last one on this disc"
  1859. Wait 100
  1860. Locate ,7 : Bell : Centre "I hope you enjoyed it as much I as I did Doing it"
  1861. Wait 100
  1862. Locate ,9 : Bell : Centre "Be Warned,I am doing another one!!!! "
  1863. Wait 150 : Boom 
  1864. Pen 5
  1865. Locate ,15 : Centre "THE END"
  1866. Pen 6 : Wait 150 : Boom 
  1867. Locate ,19 : Centre "AU REVOIR!!!!!"
  1868. Wait 700
  1869. Cls 0
  1870. End 
  1871. End Proc
  1872. Procedure OPENBIT
  1873. Screen Open 0,320,256,16,LORES
  1874. Cls 0 : Curs Off : Flash Off : Hide 
  1875. Palette $0
  1876. Cls 0 : Curs Off 
  1877. Locate ,16 : Pen 4 : Paper 0 : Centre "Have Fun"
  1878. Paper 0
  1879. Wait 100
  1880. Music 1
  1881. Wait 100
  1882. End Proc
  1883. Procedure _SPLURGE[SPEED,SOURCE,DEST]
  1884. 'SPEED=3 
  1885. 'SOURCE=1
  1886. 'DEST=2
  1887. Screen SOURCE
  1888. SOURCE_SIZE=Screen Height
  1889. Screen DEST
  1890. DEST_SIZE=Screen Height
  1891. V=Min(SOURCE_SIZE,DEST_SIZE)
  1892. Screen SOURCE
  1893. SOURCE_SIZE=Screen Width
  1894. Screen DEST
  1895. DEST_SIZE=Screen Width
  1896. H=Min(SOURCE_SIZE,DEST_SIZE)
  1897. For LOP=V-SPEED To O Step -SPEED
  1898. For LOP1=0 To LOP Step SPEED
  1899. Screen Copy SOURCE,0,LOP,H,LOP+SPEED To DEST,0,LOP1
  1900. Next LOP1
  1901. Next LOP
  1902. End Proc
  1903. Procedure BBAIN
  1904.    Screen Open 0,320,256,32,LORES
  1905.    Cls 0 : Curs Off : Hide 
  1906.    Palette $F0F
  1907.    Curs Off : Cls 0 : Hide 
  1908.    Paper 0 : Pen 3
  1909.    Locate ,10 : Centre "You have chosen the beginning"
  1910.    Wait 150
  1911.    Pen 5
  1912. Flash Off : Locate ,16 : Centre "Music by Luke Miller,thanks Luke"
  1913.    Wait 250
  1914.    Fade 7
  1915.    Cls 0
  1916.    Wait 50
  1917. End Proc
  1918. Procedure ARF
  1919.    Screen Open 0,320,256,32,LORES
  1920.    Cls 0 : Curs Off : Hide 
  1921.    Palette $F0F
  1922.    Curs Off : Cls 0 : Hide 
  1923.    Paper 0 : Pen 3
  1924.    Locate ,10 : Centre "You have chosen Halfway"
  1925.    Wait 150
  1926.    Pen 5
  1927. Flash Off : Locate ,16 : Centre "Music by Luke Miller,thanks Luke"
  1928.    Wait 250
  1929.    Fade 7
  1930.    Cls 0
  1931.    Wait 50
  1932. End Proc