home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd618 / quiz_20.amos / quiz_20.amosSourceCode < prev    next >
AMOS Source Code  |  1986-08-03  |  54KB  |  2,366 lines
  1. '                                  Yain=inafix 
  2. '                                  Uain=overcooked 
  3. '                                  Cain=putitinwriting 
  4. '                                  Zzzain=downpayment
  5. '                                  Zain=acheckup 
  6. '                                  Iain=doubleyellowlines
  7. '                                  Xain=greenfingers 
  8. '                                  Nnain=huntinghighandlow 
  9. '                                  Btrain=gonetoearth
  10. '                                  Qain=lieinstate 
  11. '                                  Main=awideload
  12. '                                  Dain=oncloudnine
  13. '                                  Hain=safetyinnumbers
  14. '                                  Bain=redraw 
  15. '                                  Bbain=laughingallthewaytothebank
  16. '                                  Kain=inoneear&outtheother 
  17. '                                  Sain=Inthered 
  18. '                                  Tain=lifebeginsatforty
  19. '                                  Bain=adoublehelping 
  20. '                                  zzain=asignofthetimes 
  21. '
  22. Cls 0
  23. Screen Open 1,640,256,16,Hires
  24. Curs Off : Flash Off : Hide : Cls 0
  25. 'Load Iff "df1:Birdy" : Rem this is loaded in then spacked so is not needed    
  26. 'Spack 1 To 6 : Rem Nor this line
  27. Unpack 6 To 1
  28.  Palette 1
  29. Screen Open 2,640,256,16,Hires
  30. Curs Off : Flash Off : Hide : Cls 0
  31. Get Palette 1
  32. _SPLURGE[2,1,2]
  33. Wait 500
  34. Curs Off : Flash Off 
  35. Cls 0 : Curs Off : Flash Off : Hide 
  36. Paper 0
  37. Ink 0
  38. Bar 0,0 To 10,10
  39. Screen Open 1,640,256,16,Hires
  40. Paper 0 : Pen 4 : Curs Off : Flash Off : Hide : Cls 0
  41. Wave 0 To 15
  42. Locate ,0
  43. Wait 50
  44. Locate ,3 : Centre "Welcome to Bird Productions Quiz "
  45.  Bell 
  46. Wait 50
  47. Locate 0,1
  48.  For X=79 To 0 Step -1
  49.     Play 96-(20+(X/2)),0
  50.    Print "?";
  51. Next X
  52. Wait 50
  53. Locate 0,5
  54.  For L=79 To 0 Step -1
  55.    Play 96-(10+(L/2)),0
  56. Print "?";
  57.  Next L
  58. Wait 150
  59. Paper 0 : Pen 5 : Curs Off : Flash Off : Hide : Cls 0
  60. Wave 0 To 15
  61. Locate ,0
  62. Wait 50
  63. Locate ,9 : Centre "Loading Please Wait" : Bell 
  64. Locate 0,7
  65.    For G=79 To 0 Step -1
  66.      Play 96-(20+(G/2)),0
  67.   Print "*";
  68.  Next G
  69. Wait 50
  70. Locate ,9 : Centre "Loading Please Wait" : Bell 
  71. Locate 0,11
  72.  For K=79 To 0 Step -1
  73.    Play 96-(10+(K/2)),0
  74.  Print "*";
  75. Next K
  76. Wait 100
  77. Get Fonts 
  78. 'Load "df1:samples.abk"
  79. Screen Open 0,320,40,16,Lowres : Curs Off 
  80. Screen Open 1,320,40,16,Lowres : Curs Off : Screen Hide 1
  81. Screen 0
  82. Set Font 6 : Text 65,12,"Bird Productions Present"
  83. Print : Print 
  84. Wait 100
  85. Pen 6
  86. Locate 6,3 : Print "A Lateral Thinking Quiz No.20"
  87. Screen Copy 0 To 1
  88. Screen Open 1,320,40,16,Lowres : Curs Off : Screen Hide 1 : 
  89. Screen 1
  90. Set Font 1 : Text 40,12,"Programming by John the Doc."
  91. Wait 115
  92. Print : Print 
  93. Locate 3,3 : Print "Hampered by Carpenters(door)25-1-94!"
  94. Wait 115
  95. Fade 17
  96. Appear 1 To 0,3
  97. Wait 115
  98. Fade 17
  99. Cls 0
  100. Wait 75
  101. Screen Open 0,320,256,32,LORES
  102. Cls 0 : Curs Off : Flash Off : Hide 
  103. Palette $905
  104. Cls 0 : Curs Off 
  105. Paper 0 : Pen 5
  106. Locate 1,10 : Bell : Print "You are being started with some quite   "
  107. Locate 2,12 : Print "easy ones.They will get harder!!!!!"
  108. Wait 175
  109. Paper 0 : Pen 4
  110. Locate ,15 : Bell : Centre "You are playing against yourself."
  111. Wait 155
  112. Locate ,17 : Bell : Centre "There is no need to type anything"
  113. Wait 200
  114. Locate ,10 : Cline 
  115. Locate ,12 : Cline 
  116. Locate ,15 : Cline 
  117. Locate ,17 : Cline 
  118. Wait 50 : Locate ,10 : Bell : Centre "Press F1 to start at the beginning"
  119. Say "Press me pleas 1 needs it"
  120. Wait Key 
  121. If Key State(80)=True Then Gosub ALLOFF
  122. '
  123. 'Load "df1:samples.abk"
  124.  ALLOFF:
  125.  Screen Open 0,320,256,32,LORES
  126.    Cls 0 : Curs Off : Hide 
  127.    Palette $F0F
  128.    Curs Off : Cls 0 : Hide 
  129.    Paper 0 : Pen 3
  130. Sam Play 8,8,10000
  131. Locate ,10 : Centre "You have chosen the beginning"
  132.    Wait 150
  133.    Pen 5
  134. Flash Off : Locate ,16 : Centre "Music by Anon,thanks Anon"
  135. Locate 0,18 : Centre "(M) Toggles Music Off"
  136. Locate ,20 : Centre "(T) Plays the Tune"
  137. Pen 6
  138. Locate ,22 : Centre "Which one do you want?"
  139. Wait Key 
  140. If Key State(55)=True Then Gosub SILENT Else Goto NOH
  141. NOH:
  142. 'Wait Key  
  143. If Key State(20)=True Then Gosub HIP Else Goto NOH
  144. Wait Key 
  145. HIP:
  146. Music 1
  147. Goto JUMP
  148. SILENT:
  149. Music Off 
  150. JUMP:
  151. OPENBIT
  152. YAIN
  153. CAIN
  154. ZZZAIN
  155. UAIN
  156. ZAIN
  157. IAIN
  158. XAIN
  159. NNAIN
  160. BTRAIN
  161. QAIN
  162. MAIN
  163. DAIN
  164. HAIN
  165. BAIN
  166. BBAIN
  167. KAIN
  168. SAIN
  169. TAIN
  170. GAIN
  171. ZZAIN
  172. LASTBIT
  173. '
  174. '
  175. Procedure ZZZAIN
  176. Screen Open 0,320,256,16,LORES
  177. Cls 0 : Flash Off : Curs Off : Hide 
  178. Sam Play 8,4,14000
  179. Palette $812
  180. Cls 0 : Curs Off : Flash Off 
  181. Paper 0 : Pen 2
  182. Wait 50
  183. Locate ,3 : Pen 5
  184. Centre "What is this well known saying ?"
  185. Wait 150
  186. Locate ,3 : Cline 
  187. Wait 50
  188. Ink 3
  189. Bar 126,43 To 167,155
  190. Ink 2
  191. Box 125,42 To 168,156
  192. Ink 5
  193. Box 124,41 To 169,157
  194. Ink 2
  195. Box 123,40 To 170,158
  196. Paper 3
  197. Pen 4
  198. Wait 50
  199. Sam Play 8,7,10000
  200. Locate 18,6 : Print "P"
  201. Pen 4
  202. Wait 50
  203. Sam Play 8,7,10000
  204. Locate 18,8 : Print "A"
  205. Pen 4
  206. Wait 50
  207. Sam Play 8,7,10000
  208. Locate 18,10 : Print "Y"
  209. Pen 4
  210. Wait 50
  211. Sam Play 8,7,10000
  212. Locate 18,12 : Print "M"
  213. Pen 4
  214. Wait 50
  215. Sam Play 8,7,10000
  216. Locate 18,14 : Print "E"
  217. Pen 4
  218. Wait 50
  219. Sam Play 8,7,10000
  220. Locate 18,16 : Print "N"
  221. Pen 4
  222. Wait 50
  223. Sam Play 8,7,10000
  224. Locate 18,18 : Print "T"
  225. 'Double Buffer 
  226. 'Get Sprite Palette  
  227. 'Pen 10 : Paper 0
  228. 'Bob 3,214,65,2
  229. 'Wait 40 
  230. 'Wait 50 
  231. 'Locate 28,6 : Print "       " 
  232. 'Bob Off 3 
  233. 'Bell  
  234. 'For X=214 To 25 Step -1 
  235. '   Bob 1,X,65,2 
  236. 'Wait Vbl  
  237. 'Next X
  238. 'Bell  
  239. 'Wait 75 
  240. Paper 0
  241. Locate ,24 : Centre "You have 20 seconds to think"
  242. Wait 100
  243. Locate ,24 : Cline 
  244. Wait 200
  245. HLL:
  246.  Locate 9,24 : Pen 5 : Paper 0 : Print "Press the A key for answer     "
  247. Clear Key 
  248. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  249. HVS:
  250. Locate 9,24 : Print "                              "
  251. Wait 50
  252. Locate ,24
  253. Centre "The answer is ..."
  254. Wait 105 : Locate 19,24 : Centre "                 "
  255. Sam Play 8,1,10000
  256. Locate ,24 : Pen 5 : Centre "A Down Payment!"
  257. Locate 22,26
  258. Wait 150
  259. Centre "Were You Right ?"
  260. Wait 150
  261. Locate ,26 : Cline 
  262. Paper 0 : Pen 4
  263. Locate ,28 : Centre "If you dont understand press HELP "
  264. Wait 80
  265. Locate ,30 : Centre "Or press spacebar to continue"
  266. HNKP:
  267. Wait 75
  268. Clear Key 
  269. Wait Key 
  270. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  271. HONDAY:
  272. 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
  273. Wait 100
  274. HSW:
  275. Locate ,30 : Centre "                                  "
  276. Locate 2,28 : Print "                                    "
  277. Paper 0 : Pen 2
  278. Wait 50
  279. Sam Play 8,7,10000
  280. Locate ,26 : Centre "PAYMENT is down you DODO!!"
  281. Wait 175
  282. Locate ,28 : Centre "Are You Down in the dumps?....YES!!"
  283. Wait 100
  284. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  285. Clear Key 
  286. Wait Key 
  287. HAAB:
  288. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  289. Wait 75
  290. HAAC:
  291. Locate ,24 : Cline 
  292. Locate ,26 : Cline 
  293. Locate ,28 : Cline 
  294. Locate ,30 : Cline 
  295. Locate ,26 : Paper 0 : Pen 2 : Centre "I'm Going down now!!Byeee"
  296. Wait 150
  297. Fade 7
  298. Wait 125
  299. Cls 0
  300. End Proc
  301. Procedure BTRAIN
  302. Screen Open 0,320,256,32,LORES
  303. Cls 0 : Flash Off : Curs Off : Hide 
  304. Sam Play 8,4,14000
  305. Palette $842
  306. Cls 0 : Curs Off : Flash Off 
  307. Paper 0 : Pen 2
  308. Wait 50
  309. Locate ,3 : Pen 5
  310. Centre "What is this well known saying ?"
  311. Wait 150
  312. Locate ,3 : Cline 
  313. Pen 2
  314. Wait 100
  315. Locate 0,10
  316. Print "Earth"
  317. Wait 100
  318. Pen 5
  319. A$="     GONEE"
  320. Curs Off 
  321. N=5
  322. Repeat 
  323.    L$=Mid$(A$,N,1)+Chr$(32)
  324.    Locate 39,10 : Print L$
  325.    For T=39 To N+1 Step -1
  326.       Locate T,10 : Print L$
  327.       Wait Vbl 
  328.  Next T
  329.    Inc N
  330. Until N=Len(A$)
  331. Ink 5
  332. Paper 0 : Pen 4
  333. Wait 150
  334. Locate ,24 : Centre "Thats it !!!!"
  335. Wait 75
  336. Centre "You have 30 seconds to think!!!"
  337. Wait 100 : Locate 19,24
  338. Centre "                                "
  339. Wait 250 : Locate ,24 : Centre "This is Quite Easy I think!"
  340. Wait 150 : Locate ,24 : Cline 
  341. Wait 150
  342. HLL:
  343.  Locate 9,24 : Pen 5 : Print "Press the A key for answer     "
  344. Clear Key 
  345. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  346. HVS:
  347. Locate 9,24 : Print "                              "
  348. Wait 50
  349. Locate ,24
  350. Centre "The answer is ..."
  351. Wait 105 : Locate 19,24 : Centre "                 "
  352. Sam Play 8,1,10000
  353. Locate ,24 : Pen 5 : Centre "Gone to Earth!!"
  354. Locate 22,26
  355. Wait 150
  356. Centre "Were You Right ?"
  357. Wait 150
  358. Locate ,28 : Pen 4 : Centre "You see it was easy wasn't it!"
  359. Wait 150
  360. Locate ,28 : Cline 
  361. Locate ,26 : Cline 
  362. Paper 0 : Pen 4
  363. Locate ,28 : Centre "If you dont understand press HELP "
  364. Wait 50
  365. Locate ,30 : Centre "Or press spacebar to continue"
  366. HNKP:
  367. Wait 75
  368. Clear Key 
  369. Wait Key 
  370. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  371. HONDAY:
  372. 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
  373. Wait 100
  374. HSW:
  375. Locate ,30 : Centre "                                  "
  376. Locate 2,28 : Print "                                    "
  377. Paper 0 : Pen 2
  378. Wait 50
  379. Sam Play 8,7,10000
  380. Locate ,26 : Centre "Gone has gone to Earth...PLONKER!"
  381. Wait 175
  382. Locate ,28 : Centre "Crikey.Has your Brain gone too !!"
  383. Wait 100
  384. Locate ,30 : Pen 5 : Centre "Press SPACE BAR to continue"
  385. Clear Key 
  386. Wait Key 
  387. HAAB:
  388. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  389. Wait 75
  390. HAAC:
  391. Ink 2
  392. For A=1 To 400
  393.    Draw 0,A To 340,A
  394.    Draw 0,600-A To 340,1100-A
  395. Wait 1
  396. Next A
  397. 'Fade 7
  398. Locate ,18 : Paper 2 : Pen 4 : Centre "I'm going to earth now!"
  399. Wait 75
  400. Locate ,18 : Cline 
  401. Wait 50
  402. Fade 7
  403. Locate ,18 : Paper 2 : Pen 4 : Centre "No I'm not a WORM !!"
  404. Wait 150
  405. Cls 0
  406. End Proc
  407. Procedure QAIN
  408. Screen Open 0,320,256,32,LORES
  409. Cls 0 : Curs Off : Hide : Flash Off 
  410. Sam Play 8,4,14000
  411. Palette $F76
  412. Cls 0 : Curs Off : Flash Off 
  413. Locate ,3
  414. Paper 0 : Pen 4
  415. Centre "What is this well known saying ?"
  416. Wait 175
  417. Locate ,3 : Cline 
  418. Wait 25
  419. Paper 0 : Pen 6
  420. Ink 2
  421. Sam Play 8,2,10000
  422. Bar 80,60 To 248,140
  423. Ink 8
  424. Box 79,59 To 249,141
  425. Wait 100
  426. Paper 2
  427. Wait 50
  428. Sam Play 8,2,10000
  429. Locate 13,12 : Print "T"
  430. Wait 50
  431. Sam Play 8,2,10000
  432. Locate 15,12 : Print "E"
  433. Wait 50
  434. Sam Play 8,2,10000
  435. Locate 17,12 : Print "L"
  436. Wait 50
  437. Sam Play 8,2,10000
  438. Locate 19,12 : Print "I"
  439. Wait 50
  440. Sam Play 8,2,10000
  441. Locate 21,12 : Print "E"
  442. Wait 50
  443. Sam Play 8,2,10000
  444. Locate 23,12 : Print "X"
  445. Wait 50
  446. Sam Play 8,2,10000
  447. Locate 25,12 : Print "A"
  448. Wait 50
  449. Sam Play 8,2,10000
  450. Locate 27,12 : Print "S"
  451.  Pen 4 : Paper 0
  452. 'Sam Play 8,5,10000
  453. Wait 100
  454. Locate ,19 : Centre "You have 20 seconds to think !"
  455. Wait 100
  456. Locate ,21 : Centre "Cos it is Soooooo..easy"
  457. Wait 100
  458. Locate ,19 : Cline 
  459. Locate ,21 : Cline 
  460. Wait 200
  461. ZHHJ:
  462. Locate 4,19 : Print "                                  "
  463. Locate 8,19 : Print "Press the A key for answer     "
  464. Clear Key 
  465. Wait Key 
  466. If Key State(32)=True Then Gosub ZGHG Else Goto ZHHJ
  467. ZGHG:
  468. Locate 10,19
  469. Centre "                                     "
  470. Locate ,21
  471. Centre "The answer is ... "
  472. Wait 100
  473. Locate ,21
  474. Centre "                  "
  475. Pen 3
  476. Sam Play 8,1,10000
  477. Locate 13,21 : Print "Lie in state !"
  478. Locate 22,26
  479. Wait 100
  480. Pen 2
  481. Centre "Were You Right ?"
  482. Wait 150
  483. Paper 0 : Pen 5
  484. Locate ,26 : Centre "If you dont understand press HELP "
  485. Wait 75
  486. Locate ,28 : Centre "Or press spacebar to continue"
  487. ZVFR:
  488. Wait 75
  489. Clear Key 
  490. Wait Key 
  491. If Key State(95)=True Then Gosub ZDMM Else Goto ZJO
  492. ZJO:
  493. If Key State(64)=True Then Gosub ZCTC Else Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,26 : Centre "THicko you pressed the wrong key" : Goto ZVFR
  494. Wait 50
  495. ZDMM:
  496. Locate ,26 : Centre "                                       "
  497. Locate ,28 : Centre "                                       "
  498. Paper 0 : Pen 5
  499. Sam Play 8,6,10000
  500. Locate ,24 : Pen 6 : Centre "Crikey ! You shouldn't need help!"
  501. Wait 150
  502.  Sam Play 8,1,10000
  503. Locate ,26 : Centre "Texas is a state.A lie is in it"
  504. Wait 75
  505. Locate ,28 : Centre "You're in a bit of a state !! Plonker."
  506. Locate 7,30 : Pen 4 : Print "press SPACE BAR to continue"
  507. Wait 75
  508. Clear Key 
  509. Wait Key 
  510. ZFRT:
  511. If Key State(64)=True Then Gosub ZCTC Else Goto ZFRT
  512. ZCTC:
  513. Fade 7
  514. Wait 150
  515. Cls 0
  516. End Proc
  517. Procedure BBAIN
  518. Screen Open 0,320,256,32,LORES
  519. Flash Off : Hide : Curs Off 
  520. Cls 0
  521. Palette $909
  522. Sam Play 8,4,14000
  523. Wait 20
  524. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  525. Wait 155 : Locate ,1 : Cline 
  526. Pen 5 : Paper 0
  527. Wait 50
  528. X=0 : Y=125
  529. 'Get Disc Fonts:rem remmed out with Set Font line to use default font  
  530. Cls 0
  531. 'Set Font 1
  532. Colour 1,$FFF
  533. Wait 25
  534. Sam Play 8,1,10000
  535. Locate 39,12 : Print "B"
  536. Wait 25
  537. Sam Play 8,1,10000
  538. Locate 39,13 : Print "A"
  539. Wait 25
  540. Sam Play 8,1,10000
  541. Locate 39,14 : Print "R"
  542. Wait 25
  543. Sam Play 8,1,10000
  544. Locate 39,15 : Print "C"
  545. Wait 25
  546. Sam Play 8,1,10000
  547. Locate 39,16 : Print "L"
  548. Wait 25
  549. Sam Play 8,1,10000
  550. Locate 39,17 : Print "A"
  551. Wait 25
  552. Sam Play 8,1,10000
  553. Locate 39,18 : Print "Y"
  554. Wait 25
  555. Sam Play 8,1,10000
  556. Locate 39,19 : Print "S"
  557. Wait 25
  558. A$="Ha,Ha,Ha,Ha,Ha,Ha,Ha,Ha,Ha,Ha,Ha,Ha,Ha"
  559. For T=1 To Len(A$)
  560. Q$=Mid$(A$,T,1)
  561. Ink 1,0
  562. Sam Play 8,1,10000
  563. Sam Play 8,1,10000
  564. Text X,Y,Q$
  565. Ink 0,1
  566. Sam Play 8,1,10000
  567. Wait 5
  568. X=X+8
  569. Next T
  570. GOOGOO:
  571. Wait 100
  572. Paper 0
  573. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  574. Wait 120 : Locate ,21 : Centre "                             "
  575. Wait 250
  576. Locate ,25 : Centre "Press the A key for the answer"
  577. Clear Key 
  578. Wait Key 
  579. If Key State(51)=True Then Gosub KJY Else Goto CLOG
  580. CLOG:
  581. If Key State(32)=True Then Gosub YUK
  582. KJY:
  583. Paper 0
  584. Locate ,25 : Centre "                              "
  585. Wait 50
  586. JUGH:
  587. Clear Key 
  588. Wait Key 
  589. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  590. YUK:
  591. Locate ,25 : Cline 
  592. Paper 2
  593. Paper 0
  594. Pen 3
  595. Locate 11,22 : Print "The answer is .....   "
  596. Wait 120 : Locate ,22 : Centre "                        "
  597. Sam Play 8,1,10000
  598. Locate 4,22 : Pen 6 : Print "Laughing all the way to the bank!"
  599. Wait 150
  600. Pen 4
  601. Sam Play 8,1,10000
  602. Locate 5,24 : Pen 4 : Print "Unless your in the red like me!!"
  603. Wait 175
  604. Sam Play 8,1,10000
  605. Locate 13,26 : Print "Were you right"
  606. Wait 150
  607. Locate ,26 : Cline 
  608. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  609. Wait 55
  610. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  611. Clear Key 
  612. Wait Key 
  613. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  614. DITHO:
  615. Locate ,26 : Cline 
  616. Locate ,24 : Cline 
  617. Sam Play 8,6,10000
  618. Locate ,24 : Centre "Ho,Ho,Ho...DUMBO!!"
  619. Wait 100
  620. Locate ,26 : Pen 4 : Centre "I'm certainly NOT explaining this one!"
  621. Wait 100
  622. Locate ,28 : Centre "press Spacebar to continue"
  623. Clear Key 
  624. Wait Key 
  625. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  626. GROO:
  627. Wait 25
  628. Fade 7
  629. Wait 150
  630. Cls 0
  631. End Proc
  632. Procedure ZZAIN
  633. Screen Open 0,320,256,32,LORES
  634. Cls 0
  635. Sam Play 8,4,14000
  636. Curs Off : Flash Off : Hide 
  637. 'Load Iff "df1:wall" 
  638. 'Spack 0 To 1
  639. Unpack 1 To 0
  640. 'Cls ,0,175 To 320,256 
  641. Locate ,3 : Paper 15 : Pen 1 : Centre "What is this everyday phrase?"
  642. Wait 100
  643. Locate ,3 : Centre "                                "
  644. Locate ,5 : Paper 15 : Pen 3 : Centre "You have 30 seconds to think"
  645. Wait 200
  646. Locate ,5 : Centre "                            "
  647. Wait 250
  648. Locate ,4 : Pen 3 : Centre "Press the 'A' key for the answer"
  649. IDI:
  650. Clear Key 
  651. Wait Key 
  652. If Key State(32)=True Then Goto OHNO Else Goto OFTY
  653. OFTY:
  654. Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,8 : Centre "Dozy you pressed the wrong key" : Wait 150 : Locate ,8 : Centre "                              " : Goto IDI
  655. OHNO:
  656. Wait 50 : Locate ,4 : Centre "                                 "
  657. Locate ,4 : Centre "The answer is......."
  658. Wait 75 : Sam Play 8,1,10000 : Locate ,4 : Paper 15 : Ink 6 : Centre "A Sign of The Times"
  659. Wait 200 : Locate ,6 : Pen 5 : Centre "Where you correct?"
  660. Wait 100 : Locate ,6 : Pen 4 : Centre "If you dont understand Press 'Help'"
  661. Wait 100 : Locate ,8 : Pen 6 : Centre "Or Press 'Spacebar' to continue"
  662. GIXX:
  663. Clear Key : Wait Key 
  664. If Key State(95)=True Then Goto OZZO Else Goto POO
  665. POO:
  666. If Key State(64)=True Then Goto WIZZO Else Goto LOPP
  667. LOPP:
  668. Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,10 : Centre "Oh, Oh, Wrong key again Ditho !" : Wait 150 : Locate ,10 : Centre "                                  " : Goto GIXX
  669. OZZO:
  670. Wait 75
  671. Locate ,6 : Centre "                                    "
  672. Locate ,8 : Centre "                                "
  673. Sam Play 8,7,10000 : Locate ,6 : Pen 6 : Centre "Your joking!!" : Locate ,8 : Centre " Times are in a Sign Plonker!!"
  674. Locate ,10 : Wait 75 : Pen 8 : Centre "Press 'Spacebar' to continue"
  675. Clear Key : Wait Key 
  676. If Key State(64)=True Then Goto WIZZO Else Goto OZZO
  677. WIZZO:
  678. Wait 75
  679. Fade 7
  680. Wait 75
  681.  Cls 0
  682. Wait 100
  683. End Proc
  684. Procedure GAIN
  685. Sam Play 8,4,14000
  686. Screen Open 0,320,256,32,LORES
  687. Cls 0 : Flash Off : Curs Off : Hide 
  688. Palette $184
  689. Cls 0 : Curs Off : Flash Off 
  690. Locate ,3
  691. Paper 0
  692. Centre "What is this well known saying ?"
  693. Wait 150
  694. Locate ,3 : Cline 
  695. Wait 60
  696. Ink 5
  697. Box 97,89 To 236,161
  698. Ink 6
  699. Bar 98,90 To 236,160
  700. Ink 4
  701. Box 96,88 To 238,162
  702. Ink 5
  703. Box 95,87 To 239,163 : Ink 4 : Box 94,86 To 240,164
  704. Wait 100 : Paper 6
  705. Wait 30
  706. Sam Play 8,5,10000
  707. Locate 14,14 : Pen 2 : Print "H"
  708. Wait 30
  709. Sam Play 8,5,10000
  710. Locate 16,14 : Print "E"
  711. Wait 30
  712. Sam Play 8,5,10000
  713. Locate 18,14 : Print "L"
  714. Wait 30
  715. Sam Play 8,5,10000
  716. Locate 20,14 : Pen 2 : Print "P"
  717. Wait 30
  718. Sam Play 8,5,10000
  719. Locate 22,14 : Print "I"
  720. Wait 30
  721. Sam Play 8,5,10000
  722. Locate 24,14 : Print "N"
  723. Wait 30
  724. Sam Play 8,5,10000
  725. Locate 26,14 : Print "G"
  726. Wait 100
  727. Sam Play 8,5,10000
  728. Locate 14,16 : Pen 5 : Print "H"
  729. Wait 30
  730. Sam Play 8,5,10000
  731. Locate 16,16 : Print "E"
  732. Wait 30
  733. Sam Play 8,5,10000
  734. Locate 18,16 : Print "L"
  735. Wait 30
  736. Sam Play 8,5,10000
  737. Locate 20,16 : Print "P"
  738. Wait 30
  739. Sam Play 8,5,10000
  740. Locate 22,16 : Print "I"
  741. Wait 30
  742. Sam Play 8,5,10000
  743. Locate 24,16 : Print "N"
  744. Wait 30
  745. Sam Play 8,5,10000
  746. Locate 26,16 : Print "G"
  747. Wait 150 : Pen 4
  748. Locate 13,16 : Print ">"
  749. Locate 27,16 : Print "<"
  750. Wait 40
  751. Locate 13,16 : Print " "
  752. Locate 27,16 : Print " "
  753. Wait 40
  754. Locate 13,16 : Print ">"
  755. Locate 27,16 : Print "<"
  756. Wait 40
  757. Locate 13,16 : Print " "
  758. Locate 27,16 : Print " "
  759. Wait 40
  760. Locate 13,16 : Print ">"
  761. Locate 27,16 : Print "< "
  762. Wait 40
  763. Locate 13,16 : Print " "
  764. Locate 27,16 : Print " "
  765. Wait 40
  766. Locate 13,16 : Print ">"
  767. Locate 27,16 : Print "<"
  768. Wait 40
  769. Locate 13,16 : Print " "
  770. Locate 27,16 : Print " "
  771. Wait 40
  772. Locate 13,16 : Print ">"
  773. Locate 27,16 : Print "<"
  774. Wait 40
  775. Locate 13,16 : Print " "
  776. Locate 27,16 : Print " "
  777. Wait 40
  778. Locate 27,16 : Print "<"
  779. Locate 13,16 : Print ">"
  780. Ink 6
  781. 'Bar 150,100 To 200,120
  782. Locate 7,21 : Paper 0 : Pen 2 : Print "You have 30 seconds to think"
  783.  Wait 150
  784. Locate ,21 : Cline 
  785. Wait 200
  786. HLL:
  787. Wait 25
  788.  Locate 8,23 : Paper 0 : Pen 6 : Print "Press the A key for answer "
  789. Clear Key 
  790. Wait Key : If Key State(32)=True Then Gosub HVS : Rem Else Goto HLL
  791. HVS:
  792. Locate ,9 : Cline 
  793. Ink 6
  794. Locate ,21 : Cline 
  795. Wait 50
  796. Locate 19,21 : Pen 2 : Paper 0
  797. Locate ,23 : Cline 
  798. Centre "The answer is ..."
  799. Wait 105
  800. Locate ,23 : Cline 
  801. Sam Play 8,1,10000
  802. Locate 12,23 : Pen 2 : Print "A Second Helping !"
  803. Locate 14,25
  804. Wait 150
  805. Sam Play 8,1,10000
  806. Print "Were You Right ?"
  807. Wait 150
  808. Sam Play 8,1,10000
  809. Locate 10,25 : Print "Or didn't you get it?"
  810. Paper 0 : Pen 5
  811. Wait 150
  812. Locate ,27 : Centre "If you dont understand press HELP "
  813. Wait 150
  814. Locate ,29 : Centre "Or press spacebar to continue"
  815. HNKP:
  816. Wait 75
  817. Clear Key 
  818. Wait Key 
  819. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  820. HONDAY:
  821. 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
  822. Wait 100
  823. HSW:
  824. Locate ,27 : Cline 
  825. Locate ,29 : Cline 
  826. Paper 0 : Pen 3
  827. Sam Play 8,7,10000
  828. Locate 0,25 : Centre "I think it's time YOU had some help !!"
  829. Sam Play 8,6,10000
  830. Wait 120
  831. Locate ,27 : Centre "It is the 2nd Helping arrowed Plank!"
  832. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  833. Clear Key 
  834. Wait Key 
  835. HAAB:
  836. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  837. Wait 75
  838. HAAC:
  839. Wait 150
  840. Locate ,29 : Cline 
  841. Locate ,25 : Cline 
  842. Locate ,27 : Cline 
  843. Locate ,30 : Cline 
  844. Locate ,27 : Pen 3 : Centre "I'm climbing to the top of the tree!"
  845. Wait 55
  846. SCNOFF[SCR]
  847. Wait 150
  848. Cls 0
  849. End Proc
  850. Procedure TAIN
  851. Screen Open 0,320,256,32,LORES
  852. Cls 0 : Flash Off : Curs Off : Hide 
  853. Sam Play 8,4,14000
  854. Palette $42
  855. Cls 0 : Curs Off : Flash Off 
  856. Paper 0 : Pen 2
  857. Wait 50
  858. Locate ,3 : Pen 5
  859. Centre "What is this well known saying ?"
  860. Wait 150
  861. Locate ,3 : Cline 
  862. Pen 2
  863. Wait 100
  864. Locate 0,10
  865. Print "40"
  866. Wait 100
  867. Pen 4
  868. A$="L L I "
  869. Curs Off 
  870. N=3
  871. Repeat 
  872.    L$=Mid$(A$,N,1)+Chr$(32)
  873.    Locate 39,10 : Print L$
  874.    For T=39 To N+1 Step -1
  875.       Locate T,10 : Print L$
  876.       Wait Vbl 
  877.  Next T
  878.    Inc N
  879. Until N=Len(A$)
  880. Ink 5
  881. Paper 0 : Pen 4
  882. Wait 150
  883. Locate ,24 : Centre "Thats it !!!!"
  884. Wait 75
  885. Centre "You have 30 seconds to think!!!"
  886. Wait 100 : Locate 19,24
  887. Centre "                                "
  888. Wait 250 : Locate ,24 : Centre "I dont think this is very easy !!"
  889. Wait 150 : Locate ,24 : Cline 
  890. Wait 150
  891. HLL:
  892.  Locate 9,24 : Pen 5 : Print "Press the A key for answer     "
  893. Clear Key 
  894. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  895. HVS:
  896. Locate 9,24 : Print "                              "
  897. Wait 50
  898. Locate ,24
  899. Centre "The answer is ..."
  900. Wait 105 : Locate 19,24 : Centre "                 "
  901. Sam Play 8,1,10000
  902. Locate ,24 : Pen 5 : Centre "Life begins at Forty !"
  903. Locate 22,26
  904. Wait 150
  905. Centre "Were You Right ?"
  906. Wait 150
  907. Locate ,28 : Pen 4 : Centre "You see it was'nt easy was it!"
  908. Wait 150
  909. Locate ,28 : Cline 
  910. Locate ,26 : Cline 
  911. Paper 0 : Pen 4
  912. Locate ,28 : Centre "If you dont understand press HELP "
  913. Wait 50
  914. Locate ,30 : Centre "Or press spacebar to continue"
  915. HNKP:
  916. Wait 75
  917. Clear Key 
  918. Wait Key 
  919. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  920. HONDAY:
  921. 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
  922. Wait 100
  923. HSW:
  924. Locate ,30 : Centre "                                  "
  925. Locate 2,28 : Print "                                    "
  926. Paper 0 : Pen 2
  927. Wait 50
  928. Sam Play 8,7,10000
  929. Locate ,26 : Centre "Li is the start of Life .PLONKER!"
  930. Wait 175
  931. Locate ,28 : Centre "It is at Forty THICKO"
  932. Wait 100
  933. Locate ,30 : Pen 5 : Centre "Press SPACE BAR to continue"
  934. Clear Key 
  935. Wait Key 
  936. HAAB:
  937. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  938. Wait 75
  939. HAAC:
  940. Ink 2
  941. For A=1 To 400
  942.    Draw 0,A To 340,A
  943.    Draw 0,600-A To 340,1100-A
  944. Wait 1
  945. Next A
  946. 'Fade 7
  947. Locate ,18 : Paper 2 : Pen 4 : Centre "I'm off to start begining!"
  948. Wait 75
  949. Locate ,18 : Cline 
  950. Wait 50
  951. Fade 7
  952. Locate ,18 : Paper 2 : Pen 4 : Centre "Toodle Pip !!"
  953. Wait 150
  954. Cls 0
  955. End Proc
  956. Procedure SAIN
  957. Screen Open 0,320,256,32,LORES
  958. Cls 0 : Curs Off : Flash Off : Hide 
  959. Sam Play 8,4,14000
  960. Palette $F
  961. Cls 0 : Curs Off : Flash Off 
  962. Locate ,3
  963. Paper 0
  964. Centre "What is this well known saying ?"
  965. Wait 150
  966. Locate ,3 : Cline 
  967. Wait 60
  968. Ink 5
  969. Bar 90,80 To 235,160
  970. Ink 3
  971. Box 89,79 To 236,161
  972. Ink 2
  973. Box 88,78 To 237,162
  974. Ink 3
  975. Box 87,77 To 238,163
  976. Paper 2 : Pen 4
  977. Paper 5
  978. Wait 100
  979. Ink 6
  980. 'Sam Play 8,7,10000
  981. 'Locate 13,14 : Print "A"
  982. 'Wait 40 
  983. Sam Play 8,7,10000
  984. Locate 15,14 : Print "T"
  985. Wait 40
  986. Sam Play 8,7,10000
  987. Locate 17,14 : Print "H"
  988. Wait 40
  989. Sam Play 8,7,10000
  990. Locate 19,14 : Print "R"
  991. Wait 40
  992. Sam Play 8,7,10000
  993. Locate 21,14 : Print "E"
  994. Wait 40
  995. Sam Play 8,7,10000
  996. Locate 23,14 : Print "D"
  997. Wait 40
  998. Sam Play 8,7,10000
  999. Locate 25,14 : Print "E"
  1000. 'Wait 40 
  1001. 'Sam Play 8,7,10000
  1002. 'Locate 27,14 : Print "N"
  1003. Locate 19,22
  1004. Paper 0 : Pen 2
  1005. Wait 100
  1006. Centre "You have 30 seconds to think!!!"
  1007. Wait 100
  1008. Locate 19,22
  1009. Centre "                               "
  1010. Wait 250
  1011. Locate 19,22
  1012. Centre "                               "
  1013. HJJ:
  1014.  Locate 8,22 : Print "Press the A key for answer     "
  1015. Clear Key 
  1016. Wait Key 
  1017. Locate 8,22 : Print "                          "
  1018. If Key State(32)=True Then Gosub ABQ Else Goto HJJ
  1019. ABQ:
  1020. Wait 50
  1021. Locate 19,22
  1022. Centre "The answer is...."
  1023. Wait 100
  1024. Sam Play 8,1,10000
  1025. Locate 9,22 : Centre "                 " : Locate ,22 : Pen 4 : Centre "In the Red!"
  1026. Wait 200
  1027. Locate ,24 : Cline 
  1028. Locate 5,24 : Print "It's VERY Topical in my house !!"
  1029. Wait 200
  1030. Locate ,24 : Cline 
  1031. Paper 0 : Pen 5
  1032. Locate ,24 : Centre "If you dont understand press HELP "
  1033. Locate ,26 : Centre "Or press spacebar to continue"
  1034. LKP:
  1035. Wait 75
  1036. Clear Key 
  1037. Wait Key 
  1038. If Key State(95)=True Then Gosub XEX Else Goto OON
  1039. OON:
  1040. If Key State(64)=True Then Gosub ZAC Else Locate ,26 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Goto LKP
  1041. Wait 100
  1042. XEX:
  1043. Locate ,24 : Cline 
  1044. Paper 0 : Pen 2
  1045. Locate ,26 : Cline 
  1046. Sam Play 8,7,10000
  1047. Locate ,24 : Centre "Red is inside 'T H E' Donkey Brain!"
  1048. Wait 250
  1049. Sam Play 1,8,10000
  1050. Locate ,26 : Centre "You should be inside a classroom Ditho"
  1051. Wait 150
  1052. Locate ,28 : Pen 4 : Centre "press SPACE BAR to continue"
  1053. Clear Key 
  1054. Wait Key 
  1055. BSB:
  1056. If Key State(64)=True Then Gosub ZAC Else Goto BSB
  1057. Wait 75
  1058. ZAC:
  1059. Fade 7
  1060. Wait 150
  1061. Cls 0
  1062. End Proc
  1063. Procedure KAIN
  1064. KLIN:
  1065. Sam Play 8,4,14000
  1066. Screen Open 0,320,256,32,LORES
  1067. Cls 0 : Flash Off : Curs Off : Hide 
  1068. Palette $888
  1069. Cls 0 : Curs Off : Flash Off 
  1070. Locate ,3
  1071. Paper 0 : Pen 6
  1072. Centre "What is this well known saying ?"
  1073. Wait 150
  1074. Locate ,3 : Cline 
  1075. Wait 50
  1076. Ink 5
  1077. Box 80,89 To 251,161
  1078. Ink 1
  1079. Bar 81,90 To 250,160
  1080. Ink 6
  1081. Box 79,88 To 252,162
  1082. Ink 2
  1083. Box 78,87 To 253,163 : Ink 6 : Box 77,86 To 254,164
  1084. Wait 25
  1085. Paper 1
  1086. Wait 50
  1087. Sam Play 8,7,10000
  1088. Locate 13,15 : Pen 2 : Print "E"
  1089. Wait 50
  1090. Sam Play 8,7,10000
  1091. Locate 14,15 : Pen 6 : Print "I"
  1092. Wait 50
  1093. Sam Play 8,7,10000
  1094. Locate 15,15 : Pen 2 : Print "N"
  1095. Wait 50
  1096.    Sam Play 8,7,10000
  1097. Locate 16,15 : Pen 6 : Print "A"
  1098. Wait 50
  1099. Sam Play 8,7,10000
  1100. Locate 17,15 : Pen 2 : Print "R"
  1101. Wait 100
  1102. Sam Play 8,7,10000
  1103. Locate 21,15 : Pen 6 : Print "E"
  1104. Wait 50
  1105. Sam Play 8,7,10000
  1106. Locate 22,15 : Pen 2 : Print "A"
  1107. Wait 50
  1108. Sam Play 8,7,10000
  1109. Locate 23,15 : Pen 6 : Print "O"
  1110. Wait 50
  1111. Sam Play 8,7,10000
  1112. Locate 24,15 : Pen 2 : Print "U"
  1113. Wait 50
  1114. Sam Play 8,7,10000
  1115. Locate 25,15 : Pen 6 : Print "T"
  1116. Wait 50
  1117. Sam Play 8,7,10000
  1118. Locate 26,15 : Pen 2 : Print "R"
  1119. 'Wait 50 
  1120. 'Sam Play 8,7,10000
  1121. 'Locate 27,15 : Pen 6 : Print "I"
  1122. 'Wait 50 
  1123. 'Sam Play 8,7,10000
  1124. 'Locate 28,15 : Pen 2 : Print "N"
  1125. 'Wait 50 
  1126. 'Sam Play 8,7,10000
  1127. 'Locate 29,15 : Pen 5 : Print "D"
  1128. Locate 6,21
  1129. Paper 0 : Pen 5
  1130. Wait 75
  1131. Print " You have 30 seconds to think !"
  1132. Wait 150 : Locate 19,21
  1133. Cline 
  1134. Wait 250
  1135. HLL:
  1136.  Locate 8,21 : Print "Press the A key for answer     "
  1137. Clear Key 
  1138. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1139. HVS:
  1140. Locate 8,21 : Print "                              "
  1141. Wait 50
  1142. Locate 19,21 : Pen 2
  1143. Centre "The answer is ..."
  1144. Wait 75 : Locate 19,21 : Centre "                 "
  1145. Sam Play 8,1,10000
  1146. Locate 7,21 : Print "In one ear & out the other !"
  1147. Wait 75
  1148. Locate 13,24
  1149. Pen 5 : Print "Were You Right ?"
  1150. Wait 100
  1151. Paper 0 : Pen 4
  1152. Locate ,26 : Centre "If you dont understand press HELP "
  1153. Wait 150
  1154. Locate ,28 : Centre "Or press spacebar to continue"
  1155. HNKP:
  1156. Wait 75
  1157. Clear Key 
  1158. Wait Key 
  1159. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1160. Clear Key 
  1161. HONDAY:
  1162. 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
  1163. Wait 100
  1164. HSW:
  1165. Locate ,26 : Cline 
  1166. Locate ,24 : Cline 
  1167. Locate 2,28 : Print "                                    "
  1168. Paper 0 : Pen 5
  1169. Sam Play 8,6,10000
  1170. Locate 0,24 : Centre "Have a closer look.. Dummy!!"
  1171. Wait 155
  1172. Sam Play 8,7,10000
  1173. Locate ,26 : Pen 3 : Centre "In is in one ear & out is in the other!"
  1174. Wait 100
  1175. Locate 18,15 : Paper 1 : Pen 1 : Print "      "
  1176. Paper 0 : Pen 2
  1177. Sam Play 8,2,10000
  1178. Locate ,28 : Centre "Press R for a repeat if you want to "
  1179. Sam Play 8,2,10000
  1180. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1181. Clear Key 
  1182. Wait Key 
  1183. If Key State(19)=True Then Goto KLIN Else Goto HAAB
  1184. HAAB:
  1185. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1186. Wait 75
  1187. HAAC:
  1188. Wait 75
  1189. Fade 7
  1190. Wait 150
  1191. Cls 0
  1192. End Proc
  1193. Procedure BAIN
  1194. Screen Open 0,320,256,32,LORES
  1195. Flash Off : Hide : Curs Off 
  1196. Cls 0
  1197. Sam Play 8,4,14000
  1198. Palette $909
  1199. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  1200. Wait 155 : Locate ,1 : Cline 
  1201. Ink 3 : 
  1202. Circle 163,82,61
  1203. Ink 4
  1204. Circle 163,82,62
  1205. Ink 1
  1206. Circle 163,82,63
  1207. Ink 6
  1208. Circle 163,82,64
  1209. Ink 5
  1210. Circle 163,82,60
  1211. Paint 161,82
  1212. Wait 100
  1213. Sam Play 8,7,10000
  1214. Locate 18,10 : Paper 5 : Pen 4 : Print "R"
  1215. Wait 50
  1216. Sam Play 8,7,10000
  1217. Locate 20,10 : Print "A"
  1218. Wait 50
  1219. Sam Play 8,7,10000
  1220. Locate 22,10 : Print "W"
  1221. Wait 200
  1222. Paper 0
  1223. Locate ,21 : Pen 4 : Centre "Thats all of it!"
  1224. Wait 100
  1225. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  1226. Wait 120 : Locate ,21 : Centre "                             "
  1227. Wait 300
  1228. Locate ,25 : Centre "Press the A key for the answer"
  1229. Clear Key 
  1230. Wait Key 
  1231. If Key State(51)=True Then Gosub KJY Else Goto CLOG
  1232. CLOG:
  1233. If Key State(32)=True Then Gosub YUK
  1234. KJY:
  1235. Paper 0
  1236. Locate ,25 : Centre "                              "
  1237. Wait 50
  1238. JUGH:
  1239. Clear Key 
  1240. Wait Key 
  1241. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  1242. YUK:
  1243. Locate ,25 : Cline 
  1244. Paper 2
  1245. Paper 0
  1246. Pen 3
  1247. Locate 11,22 : Print "The answer is .....   "
  1248. Wait 120 : Locate ,22 : Centre "                        "
  1249. Sam Play 8,1,10000
  1250. Locate 16,22 : Pen 6 : Print "Red Raw !"
  1251. Wait 175
  1252. Sam Play 8,1,10000
  1253. Locate 13,26 : Pen 5 : Print "Were you right"
  1254. Wait 150
  1255. Locate ,26 : Cline 
  1256. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  1257. Wait 55
  1258. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  1259. Clear Key 
  1260. Wait Key 
  1261. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  1262. DITHO:
  1263. Locate ,26 : Cline 
  1264. Locate ,24 : Cline 
  1265. Sam Play 8,6,10000
  1266. Locate ,24 : Centre "RAW is RED...DUMBO!!"
  1267. Wait 100
  1268. Locate ,26 : Pen 4 : Centre "Is your face red now Donkey Brain!"
  1269. Wait 150
  1270. Locate ,26 : Cline 
  1271. Locate ,26 : Centre "Press Spacebar to continue"
  1272. Clear Key 
  1273. Wait Key 
  1274. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  1275. GROO:
  1276. Wait 25
  1277. SCNOFF[SCR]
  1278. Wait 150
  1279. Cls 0
  1280. End Proc
  1281. Procedure HAIN
  1282. Screen Open 0,320,256,16,LORES
  1283. Curs Off : Flash Off : Hide : Cls 0
  1284. Sam Play 8,4,14000
  1285. Palette 111
  1286. Locate ,4 : Paper 0 : Pen 4 : Centre "What is this well known Phrase ?"
  1287. Wait 150
  1288. Locate ,4 : Cline 
  1289. Wait 50
  1290. Ink 6
  1291. Bar 98,57 To 224,145
  1292. Ink 2
  1293. Box 97,56 To 225,146
  1294. Ink 6
  1295. Box 96,55 To 226,147
  1296. Ink 2
  1297. Box 95,54 To 227,148
  1298. Ink 3
  1299. Box 94,53 To 228,149
  1300. Wait 100
  1301. Sam Play 8,2,10000
  1302. Paper 6
  1303. X=100 : Y=80
  1304. A$="1,2,3,4,5,6,7,8"
  1305. For T=1 To Len(A$)
  1306. Q$=Mid$(A$,T,1)
  1307. Ink 1,6
  1308. Sam Play 8,1,10000
  1309. 'Sam Play 8,1,10000
  1310. Text X,Y,Q$
  1311. 'Ink 0,1 
  1312. Sam Play 8,1,10000
  1313. Wait 5
  1314. X=X+8
  1315. Next T
  1316. Wait 50
  1317. X=100 : Y=120
  1318. A$="1,2,3,4,5,6,7,8"
  1319. For T=1 To Len(A$)
  1320. Q$=Mid$(A$,T,1)
  1321. Ink 1,6
  1322. Sam Play 8,1,10000
  1323. 'Sam Play 8,1,10000
  1324. Text X,Y,Q$
  1325. 'Ink 0,1 
  1326. Sam Play 8,1,10000
  1327. Wait 5
  1328. X=X+8
  1329. Next T
  1330. X=117 : Y=100
  1331. Wait 50
  1332. A$="S A F E T Y"
  1333. For T=1 To Len(A$)
  1334. Q$=Mid$(A$,T,1)
  1335. Ink 3,6
  1336. Sam Play 8,1,10000
  1337. 'Sam Play 8,1,10000
  1338. Text X,Y,Q$
  1339. 'Ink 0,1 
  1340. Sam Play 8,1,10000
  1341. Wait 15
  1342. X=X+8
  1343. Next T
  1344. Paper 4
  1345. Wait 100
  1346. Locate ,22 : Pen 5 : Paper 0 : Centre "You have 30 seconds to think"
  1347. Wait 150
  1348. Locate ,22 : Cline 
  1349. Wait 200
  1350. Locate ,27 : Centre "Press the A key for the answer"
  1351. JUGH:
  1352. Clear Key 
  1353. Wait Key 
  1354. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  1355. YUK:
  1356. Locate ,27 : Centre "                                 "
  1357. Paper 2
  1358. Paper 0
  1359. Pen 5
  1360. Locate ,24 : Centre "The answer is .....   "
  1361. Wait 75 : Locate ,24 : Centre "                        "
  1362. Sam Play 8,1,10000
  1363. Locate 11,24 : Pen 5 : Print "Safety In Numbers!"
  1364. Wait 150
  1365. Pen 4
  1366. Wait 150
  1367. Locate ,26 : Pen 3 : Centre "If you dont understand press'Help'"
  1368. Wait 25
  1369. Wait 50
  1370. Locate ,28 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  1371. Clear Key 
  1372. GLOG:
  1373. Wait Key 
  1374. If Key State(95)=True Then Gosub DITHO Else Gosub BLEEP
  1375. BLEEP:
  1376. If Key State(64)=True Then Gosub GROO Else Goto GLOG
  1377. DITHO:
  1378. Locate ,28 : Cline 
  1379. Locate ,26 : Cline 
  1380. Locate ,26 : Pen 2 : Centre "It explains itself ..Plonker ! "
  1381. Sam Play 8,7,10000 : Wait 150
  1382. Locate ,28 : Pen 4 : Centre "Safety is between numbers"
  1383. Wait 150 : Locate ,30 : Centre "Is it safe for you to be out..Deadhead!"
  1384. Wait 200
  1385. Locate ,28 : Cline 
  1386. Locate ,30 : Cline : Locate ,28 : Centre "Press Spacebar to continue"
  1387. Clear Key 
  1388. Wait Key 
  1389. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  1390. GROO:
  1391. Wait 25
  1392. Fade 7
  1393. Wait 150
  1394. Cls 0
  1395. End Proc
  1396. Procedure DAIN
  1397. Screen Open 0,320,256,32,LORES
  1398. Cls 0 : Curs Off : Hide : Flash Off 
  1399. Sam Play 8,4,14000
  1400. Palette $316
  1401. Cls 0 : Curs Off : Flash Off 
  1402. Locate ,3
  1403. Paper 0 : Pen 4
  1404. Centre "What is this well known saying ?"
  1405. Wait 175
  1406. Locate ,3 : Cline 
  1407. Wait 70
  1408. Paper 2 : Ink 2
  1409. Ink 5
  1410. Ink 6
  1411. Bar 80,80 To 246,140
  1412. Box 79,79 To 247,141
  1413. Ink 4
  1414. Box 78,78 To 248,142
  1415. Ink 3
  1416. Box 77,77 To 249,143
  1417. Ink 2
  1418. Box 76,76 To 250,144
  1419. 'Wait 150
  1420. Paper 6 : Pen 2 : Wait 50
  1421. Locate 17,14 : Print "Cumulus"
  1422. Wait 125
  1423. X=96 : Y=100
  1424. A$="1,2,3,4,5,6,7,8,9"
  1425. For T=1 To Len(A$)
  1426. Q$=Mid$(A$,T,1)
  1427. Ink 5,6
  1428. Sam Play 8,1,10000
  1429. 'Sam Play 8,1,10000
  1430. Text X,Y,Q$
  1431. 'Ink 0,1 
  1432. Sam Play 8,1,10000
  1433. Wait 5
  1434. X=X+8
  1435. Next T
  1436.  Pen 4 : Paper 6
  1437. Wait 100
  1438. Paper 0 : Pen 2
  1439. Locate ,19 : Centre "You have 30 seconds to think !"
  1440. Wait 100
  1441. Locate ,19 : Cline 
  1442. Locate ,21 : Cline 
  1443. Wait 300
  1444. ZHHJ:
  1445. Locate 4,19 : Print "                                  "
  1446. Locate 8,19 : Print "Press the A key for answer     "
  1447. Clear Key 
  1448. Wait Key 
  1449. If Key State(32)=True Then Gosub ZGHG Else Goto ZHHJ
  1450. ZGHG:
  1451. Locate 10,19
  1452. Centre "                                     "
  1453. Locate ,21
  1454. Centre "The answer is ... "
  1455. Wait 100
  1456. Locate ,21
  1457. Centre "                  "
  1458. Pen 5
  1459. Sam Play 8,1,10000
  1460. Locate 14,21 : Centre "On Cloud Nine!"
  1461. Locate 22,26
  1462. Wait 100
  1463. Pen 2
  1464. Centre "Were You Right ?"
  1465. Wait 150
  1466. Paper 0 : Pen 5
  1467. Locate ,26 : Centre "If you dont understand press HELP "
  1468. Wait 75
  1469. Locate ,28 : Centre "Or press spacebar to continue"
  1470. ZVFR:
  1471. Wait 75
  1472. Clear Key 
  1473. Wait Key 
  1474. If Key State(95)=True Then Gosub ZDMM Else Goto ZJO
  1475. ZJO:
  1476. If Key State(64)=True Then Gosub ZCTC Else Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,26 : Locate ,26 : Cline : Locate ,26 : Centre "THICKO you pressed the wrong key" : Goto ZVFR
  1477. Wait 50
  1478. ZDMM:
  1479. Locate ,26 : Centre "                                       "
  1480. Locate ,28 : Centre "                                       "
  1481. Paper 0 : Pen 5
  1482. Sam Play 8,6,10000
  1483. Locate ,24 : Pen 2 : Centre "Look at it . Plonk!"
  1484. Wait 100 : Sam Play 8,1,10000
  1485. Locate ,26 : Centre "Cumulus is a cloud,9 is on it!!"
  1486. Wait 200
  1487. Locate 7,30 : Pen 4 : Print "press SPACE BAR to continue"
  1488. Wait 75
  1489. Clear Key 
  1490. Wait Key 
  1491. ZFRT:
  1492. If Key State(64)=True Then Gosub ZCTC Else Goto ZFRT
  1493. ZCTC:
  1494. Fade 7
  1495. Wait 150
  1496. Cls 0
  1497. End Proc
  1498. Procedure MAIN
  1499. Screen Open 0,320,256,32,LORES
  1500. Cls 0 : Flash Off : Curs Off : Hide 
  1501. Sam Play 8,4,14000
  1502. Palette $212
  1503. Cls 0 : Curs Off : Flash Off 
  1504. Paper 0 : Pen 2
  1505. Wait 50
  1506. Locate ,3 : Pen 5
  1507. Centre "What is this well known saying ?"
  1508. Wait 150
  1509. Locate ,3 : Cline 
  1510. Pen 2
  1511. Wait 100
  1512. Sam Play 8,1,10000
  1513. Locate 0,12 : Print "L           O            A             D"
  1514. Wait 250 : Locate ,24 : Centre "This is Quite Easy I think!"
  1515. Wait 150 : Locate ,24 : Cline 
  1516. Wait 150
  1517. HLL:
  1518.  Locate 9,24 : Pen 5 : Print "Press the A key for answer     "
  1519. Clear Key 
  1520. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1521. HVS:
  1522. Locate 9,24 : Print "                              "
  1523. Wait 50
  1524. Locate ,24
  1525. Centre "The answer is ..."
  1526. Wait 105 : Locate 19,24 : Centre "                 "
  1527. Sam Play 8,1,10000
  1528. Locate ,24 : Pen 5 : Centre "A Wide Load !"
  1529. Locate 22,26
  1530. Wait 150
  1531. Centre "Were You Right ?"
  1532. Wait 150
  1533. Locate ,28 : Pen 4 : Centre "You see it was a bit easy wasn't it!"
  1534. Wait 150
  1535. Locate ,28 : Cline 
  1536. Locate ,26 : Cline 
  1537. Paper 0 : Pen 4
  1538. Locate ,28 : Centre "If you dont understand press HELP "
  1539. Wait 50
  1540. Locate ,30 : Centre "Or press spacebar to continue"
  1541. HNKP:
  1542. Wait 75
  1543. Clear Key 
  1544. Wait Key 
  1545. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1546. HONDAY:
  1547. 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
  1548. Wait 100
  1549. HSW:
  1550. Locate ,30 : Centre "                                  "
  1551. Locate 2,28 : Print "                                    "
  1552. Paper 0 : Pen 2
  1553. Wait 50
  1554. Sam Play 8,7,10000
  1555. Locate ,26 : Centre "Load is very wide..PLONKER!"
  1556. Wait 175
  1557. Locate ,28 : Centre "For Goodness SAKE !!"
  1558. Wait 100
  1559. Locate ,30 : Pen 5 : Centre "Press SPACE BAR to continue"
  1560. Clear Key 
  1561. Wait Key 
  1562. HAAB:
  1563. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1564. Wait 75
  1565. HAAC:
  1566. Ink 2
  1567. For A=1 To 400
  1568.    Draw 0,A To 340,A
  1569.    Draw 0,600-A To 340,1100-A
  1570. Wait 1
  1571. Next A
  1572. 'Fade 7
  1573. Locate ,18 : Paper 2 : Pen 4 : Centre "Im a Wide, sorry, Wise boy!"
  1574. Wait 75
  1575. Locate ,18 : Cline 
  1576. Wait 50
  1577. Fade 7
  1578. Locate ,18 : Paper 2 : Pen 4 : Centre "Toodle Pip !!"
  1579. Wait 150
  1580. Cls 0
  1581. End Proc
  1582. Procedure NNAIN
  1583. Screen Open 0,320,256,32,LORES
  1584. Cls 0 : Flash Off : Curs Off : Hide 
  1585. Sam Play 8,4,14000
  1586. Palette $42
  1587. Cls 0 : Curs Off : Flash Off 
  1588. Paper 0 : Pen 2
  1589. Wait 50
  1590. Locate ,3 : Pen 5
  1591. Centre "What is this well known saying ?"
  1592. Wait 150
  1593. Locate ,3 : Cline 
  1594. Pen 2
  1595. Wait 100
  1596. Sam Play 8,1,10000
  1597. Locate 0,0 : Centre "Hunting"
  1598. Wait 100
  1599. Sam Play 8,1,10000
  1600. Locate 0,31 : Centre "Hunting"
  1601. Pen 4
  1602. Wait 75
  1603. Locate ,17
  1604. Centre "You have 30 seconds to think!!!"
  1605. Wait 100 : Locate ,17
  1606. Centre "                                "
  1607. Wait 250 : Locate ,17 : Centre "I think this is very easy !!"
  1608. Wait 150 : Locate ,17 : Cline 
  1609. Wait 150
  1610. HLL:
  1611.  Locate 9,17 : Pen 5 : Print "Press the A key for answer     "
  1612. Clear Key 
  1613. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1614. HVS:
  1615. Locate 9,17 : Print "                              "
  1616. Wait 50
  1617. Locate ,17
  1618. Centre "The answer is ..."
  1619. Wait 105 : Locate 19,17 : Centre "                 "
  1620. Sam Play 8,1,10000
  1621. Locate ,17 : Pen 3 : Centre "Hunting High and Low !"
  1622. Locate 22,19
  1623. Wait 150
  1624. Centre "Were You Right ?"
  1625. Wait 150
  1626. Locate ,21 : Pen 4 : Centre "You see it was easy was it!"
  1627. Wait 150
  1628. Locate ,21 : Cline 
  1629. Locate ,19 : Cline 
  1630. Paper 0 : Pen 4
  1631. Locate ,21 : Centre "If you dont understand press HELP "
  1632. Wait 50
  1633. Locate ,23 : Centre "Or press spacebar to continue"
  1634. HNKP:
  1635. Wait 75
  1636. Clear Key 
  1637. Wait Key 
  1638. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1639. HONDAY:
  1640. 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
  1641. Wait 100
  1642. HSW:
  1643. Locate ,23 : Centre "                                  "
  1644. Locate 2,21 : Print "                                    "
  1645. Paper 0 : Pen 2
  1646. Wait 50
  1647. Sam Play 8,7,10000
  1648. Locate ,19 : Centre "Hunting is High & Low .PLONKER!"
  1649. Wait 175
  1650. Locate ,21 : Centre "You're at a low level.. THICKO"
  1651. Wait 100
  1652. Locate ,23 : Pen 5 : Centre "Press SPACE BAR to continue"
  1653. Clear Key 
  1654. Wait Key 
  1655. HAAB:
  1656. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1657. Wait 75
  1658. HAAC:
  1659. Ink 2
  1660. For A=1 To 400
  1661.    Draw 0,A To 340,A
  1662.    Draw 0,600-A To 340,1100-A
  1663. Wait 1
  1664. Next A
  1665. 'Fade 7
  1666. Locate ,18 : Paper 2 : Pen 4 : Centre "I'm off to find  higher Brainpower!"
  1667. Wait 75
  1668. Locate ,18 : Cline 
  1669. Wait 50
  1670. Fade 7
  1671. Locate ,18 : Paper 2 : Pen 4 : Centre "Toodle Pip !!"
  1672. Wait 150
  1673. Cls 0
  1674. End Proc
  1675. Procedure XAIN
  1676. Screen Open 0,320,256,32,LORES
  1677. Flash Off : Hide : Curs Off 
  1678. Cls 0
  1679. Sam Play 8,4,14000
  1680. Palette $909
  1681. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  1682. Wait 155 : Locate ,1 : Cline 
  1683. Wait 75
  1684. Ink 3 : 
  1685. Circle 155,84,61
  1686. Ink 4
  1687. Circle 155,84,62
  1688. Ink 1
  1689. Circle 155,84,63
  1690. Ink 6
  1691. Circle 155,84,64
  1692. Ink 6
  1693. Circle 155,84,60
  1694. Paint 161,82
  1695. Wait 100
  1696. Paper 6
  1697. Wait 40
  1698. Sam Play 8,7,10000
  1699. Locate 14,8 : Pen 5 : Print "F"
  1700. Wait 40
  1701. Sam Play 8,7,10000
  1702. Locate 16,8 : Print "I"
  1703. Wait 40
  1704. Sam Play 8,7,10000
  1705. Locate 18,8 : Print "N"
  1706. Wait 40
  1707. Sam Play 8,7,10000
  1708. Locate 20,8 : Print "G"
  1709. Wait 40
  1710. Sam Play 8,7,10000
  1711. Locate 22,8 : Print "E"
  1712. Wait 40
  1713. Sam Play 8,7,10000
  1714. Locate 24,8 : Print "R"
  1715. Wait 100
  1716. Sam Play 8,7,10000
  1717. Locate 14,12 : Print "F"
  1718. Wait 40
  1719. Sam Play 8,7,10000
  1720. Locate 16,12 : Print "I"
  1721. Wait 40
  1722. Sam Play 8,7,10000
  1723. Locate 18,12 : Print "N"
  1724. Wait 40
  1725. Sam Play 8,7,10000
  1726. Locate 20,12 : Print "G"
  1727. Wait 40
  1728. Sam Play 8,7,10000
  1729. Locate 22,12 : Print "E"
  1730. Wait 40
  1731. Sam Play 8,7,10000
  1732. Locate 24,12 : Print "R"
  1733. Wait 100
  1734. Paper 0
  1735. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  1736. Wait 120 : Locate ,21 : Centre "                             "
  1737. Wait 250
  1738. Locate ,25 : Centre "Press the A key for the answer"
  1739. JUGH:
  1740. Clear Key 
  1741. Wait Key 
  1742. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  1743. YUK:
  1744. Locate ,25 : Cline 
  1745. Paper 2
  1746. Paper 0
  1747. Pen 3
  1748. Locate 11,22 : Print "The answer is .....   "
  1749. Wait 120 : Locate ,22 : Centre "                        "
  1750. Sam Play 8,1,10000
  1751. Locate 13,22 : Pen 5 : Print "Green Fingers !"
  1752. Wait 175
  1753. Sam Play 8,1,10000
  1754. Locate 13,24 : Print "Were you right"
  1755. Wait 150
  1756. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  1757. Wait 55
  1758. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  1759. Clear Key 
  1760. GLOB:
  1761. Wait Key 
  1762. If Key State(95)=True Then Gosub DITHO Else Gosub BLEEP
  1763. BLEEP:
  1764. If Key State(64)=True Then Gosub GROO Else Goto GLOB
  1765. DITHO:
  1766. Locate ,26 : Cline 
  1767. Locate ,24 : Cline 
  1768. Sam Play 8,6,10000
  1769. Wait 125
  1770. Sam Play 8,6,10000
  1771. Locate ,26 : Centre "Crikey this is so EASY you Donkey !!"
  1772. Wait 75
  1773. Sam Play 8,6,10000
  1774. Locate ,28 : Centre "The Fingers are Green... PLANK !!"
  1775. Wait 100
  1776. Locate ,30 : Pen 4 : Centre "Press Spacebar to continue"
  1777. Clear Key 
  1778. Wait Key 
  1779. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  1780. GROO:
  1781. Wait 25
  1782. Fade 7
  1783. Wait 150
  1784. Cls 0
  1785. End Proc
  1786. Procedure IAIN
  1787. Screen Open 0,320,256,32,LORES
  1788. Sam Play 8,4,14000
  1789. Curs Off : Flash Off : Hide 
  1790. Cls 0
  1791. Palette $933
  1792. Cls 0 : Curs Off : Paper 0 : Pen 3
  1793. Locate ,2 : Centre "What is this well known Phrase?"
  1794. Wait 150
  1795. Locate ,2 : Cline 
  1796. Wait 40
  1797. Ink 6
  1798. Bar 110,70 To 202,160
  1799. Ink 3
  1800. Box 109,69 To 203,161
  1801. Ink 2
  1802. Box 108,68 To 204,162
  1803. Ink 2
  1804. Box 107,67 To 205,163
  1805. Ink 3
  1806. Box 106,66 To 206,164
  1807. Wait 40
  1808. Paper 6 : Pen 17
  1809. Sam Play 8,7,10000
  1810. Locate 15,13 : Print "L"
  1811. Wait 40
  1812. Sam Play 8,7,10000
  1813. Locate 17,13 : Print "I"
  1814. Wait 40
  1815. Sam Play 8,7,10000
  1816. Locate 19,13 : Print "N"
  1817. Wait 40
  1818. Sam Play 8,7,10000
  1819. Locate 21,13 : Print "E"
  1820. Wait 40
  1821. Sam Play 8,7,10000
  1822. Locate 23,13 : Print "S"
  1823. Wait 100
  1824. Sam Play 8,7,10000
  1825. Locate 15,15 : Print "L"
  1826. Wait 40
  1827. Sam Play 8,7,10000
  1828. Locate 17,15 : Print "I"
  1829. Wait 40
  1830. Sam Play 8,7,10000
  1831. Locate 19,15 : Print "N"
  1832. Wait 40
  1833. Sam Play 8,7,10000
  1834. Locate 21,15 : Print "E"
  1835. Wait 40
  1836. Sam Play 8,7,10000
  1837. Locate 23,15 : Print "S"
  1838. Wait 100
  1839. Locate ,21 : Paper 0 : Pen 6 : Centre "You have 30 seconds to think!!!"
  1840. Wait 175
  1841. Locate ,21 : Centre "                                        "
  1842. Wait 300
  1843. XWER:
  1844.  Locate 7,21 : Paper 0 : Pen 4 : Print "Press the A key for answer     "
  1845. Clear Key 
  1846. Wait Key 
  1847. If Key State(32)=True Then Gosub XREW Else Goto XWER
  1848. XREW:
  1849. Locate ,21 : Centre "                                         "
  1850. Wait 100 : Locate ,21 : Centre "The answer is......"
  1851. Wait 100 : Locate ,21 : Centre "                   "
  1852. Sam Play 8,1,10000
  1853.  Locate 12,21 : Pen 6 : Centre "Double Yellow Lines!"
  1854. Wait 250
  1855. Locate ,23 : Cline 
  1856. Paper 0 : Pen 4
  1857. Locate ,23 : Centre "If you dont understand press HELP "
  1858. Locate ,25 : Centre "Or press spacebar to continue"
  1859. XBUR:
  1860. Wait 75
  1861. Clear Key 
  1862. Wait Key 
  1863. If Key State(95)=True Then Gosub XDYM Else Goto XRUB
  1864. XRUB:
  1865. If Key State(64)=True Then Gosub XCYC Else Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,26 : Centre "You pressed the wrong key" : Wait 100 : Locate ,26 : Centre "                             " : Goto XBUR
  1866. Wait 100
  1867. Locate ,23 : Centre "                                  "
  1868. Locate ,25 : Centre "                                  "
  1869. XDYM:
  1870. Locate ,23 : Centre "                                  "
  1871. Locate ,25 : Centre "                                  "
  1872. Paper 0 : Pen 17
  1873. Sam Play 8,7,10000
  1874. Locate ,23 : Centre "Come on!Yellow Lines Twice...!"
  1875. Wait 250
  1876. Sam Play 8,6,10000
  1877. Locate ,25 : Centre "Twice is double...Ditho"
  1878. Wait 100
  1879. Locate ,27 : Pen 4 : Centre "press SPACE BAR to continue"
  1880. Clear Key 
  1881. Wait Key 
  1882. XFFD:
  1883. If Key State(64)=True Then Gosub XCYC Else Goto XFFD
  1884. XCYC:
  1885. Fade 7
  1886. Wait 50
  1887. Cls 0
  1888. Wait 70
  1889. End Proc
  1890. Procedure ZAIN
  1891. Screen Open 0,320,256,16,LORES
  1892. Cls 0 : Flash Off : Curs Off : Hide 
  1893. Sam Play 8,4,14000
  1894. Palette $818
  1895. Cls 0 : Curs Off : Flash Off 
  1896. Paper 0 : Pen 2
  1897. Wait 50
  1898. Locate ,3 : Pen 5
  1899. Centre "What is this well known saying ?"
  1900. Wait 150
  1901. Locate ,3 : Cline 
  1902. Set Pattern 14
  1903. Wait 50
  1904. Sam Play 8,2,10000
  1905. Bar 100,80 To 105,180
  1906. Wait 50
  1907. Sam Play 8,2,10000
  1908. Bar 100,175 To 150,180
  1909. Wait 50
  1910. Sam Play 8,2,10000
  1911. Bar 150,80 To 155,180
  1912. Wait 50
  1913. Sam Play 8,2,10000
  1914. Bar 180,80 To 185,180
  1915. Wait 50
  1916. Sam Play 8,2,10000
  1917. Bar 180,80 To 230,85
  1918. Wait 50
  1919. Sam Play 8,2,10000
  1920. Bar 225,80 To 230,135
  1921. Wait 50
  1922. Sam Play 8,2,10000
  1923. Bar 180,135 To 230,140
  1924. Wait 75
  1925. Locate ,24 : Centre "You have 20 seconds to think"
  1926. Wait 100
  1927. Locate ,24 : Cline 
  1928. Wait 200
  1929. HLL:
  1930.  Locate 9,24 : Pen 5 : Paper 0 : Print "Press the A key for answer     "
  1931. Clear Key 
  1932. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1933. HVS:
  1934. Locate 9,24 : Print "                              "
  1935. Wait 50
  1936. Locate ,24
  1937. Centre "The answer is ..."
  1938. Wait 105 : Locate 19,24 : Centre "                 "
  1939. Sam Play 8,1,10000
  1940. Locate ,24 : Pen 5 : Centre "A Check Up!"
  1941. Locate 22,26
  1942. Wait 150
  1943. Centre "Were You Right ?"
  1944. Wait 150
  1945. Locate ,26 : Cline 
  1946. Paper 0 : Pen 4
  1947. Locate ,28 : Centre "If you dont understand press HELP "
  1948. Wait 80
  1949. Locate ,30 : Centre "Or press spacebar to continue"
  1950. HNKP:
  1951. Wait 75
  1952. Clear Key 
  1953. Wait Key 
  1954. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1955. HONDAY:
  1956. 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
  1957. Wait 100
  1958. HSW:
  1959. Locate ,30 : Centre "                                  "
  1960. Locate 2,28 : Print "                                    "
  1961. Paper 0 : Pen 5
  1962. Wait 50
  1963. Sam Play 8,7,10000
  1964. Locate ,26 : Centre "Up is checked...PLONKER"
  1965. Wait 175
  1966. Locate ,28 : Centre "CHECK if your brain is O.K.!!"
  1967. Wait 100
  1968. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1969. Clear Key 
  1970. Wait Key 
  1971. HAAB:
  1972. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1973. Wait 75
  1974. HAAC:
  1975. Locate ,24 : Cline 
  1976. Locate ,26 : Cline 
  1977. Locate ,28 : Cline 
  1978. Locate ,30 : Cline 
  1979. Locate ,26 : Paper 0 : Pen 6 : Centre "I'm Checking out !!"
  1980. Wait 150
  1981. Fade 7
  1982. Wait 125
  1983. Cls 0
  1984. End Proc
  1985. Procedure CAIN
  1986. Screen Open 0,320,256,16,LORES
  1987. Curs Off : Flash Off : Hide : Cls 0
  1988. Sam Play 8,4,14000
  1989. Palette 111
  1990. Locate ,4 : Paper 0 : Pen 4 : Centre "What is this well known Phrase ?"
  1991. Wait 150
  1992. Locate ,4 : Cline 
  1993. Wait 50
  1994. Ink 4
  1995. Bar 74,58 To 251,130
  1996. Ink 2
  1997. Box 73,58 To 252,131
  1998. Ink 6
  1999. Box 72,57 To 253,132
  2000. Ink 2
  2001. Box 71,56 To 254,133
  2002. Ink 3
  2003. Box 70,55 To 255,134
  2004. Wait 50
  2005. Paper 4 : Pen 6
  2006. Wait 50
  2007. Sam Play 8,2,10000
  2008. Locate 12,11 : Print "W"
  2009. Pen 5
  2010. Wait 50
  2011. Sam Play 8,2,10000
  2012. Locate 14,11 : Print "R"
  2013. Pen 6
  2014. Wait 50
  2015. Sam Play 8,2,10000
  2016. Locate 16,11 : Print "I"
  2017. Pen 5
  2018. Wait 50
  2019. Sam Play 8,2,10000
  2020. Locate 18,11 : Print "T"
  2021. Pen 6
  2022. Wait 50
  2023. Sam Play 8,2,10000
  2024. Locate 20,11 : Print "I"
  2025. Pen 5
  2026. Wait 50
  2027. Sam Play 8,2,10000
  2028. Locate 22,11 : Print "T"
  2029. Pen 6
  2030. Wait 50
  2031. Sam Play 8,2,10000
  2032. Locate 24,11 : Pen 6 : Print "I"
  2033. Pen 5
  2034. Wait 50
  2035. Sam Play 8,2,10000
  2036. Locate 26,11 : Print "N"
  2037. Pen 6
  2038. Wait 50
  2039. Sam Play 8,2,10000
  2040. Locate 28,11 : Print "G"
  2041. Paper 4
  2042. Wait 100
  2043. Locate ,22 : Pen 5 : Paper 0 : Centre "You have 30 seconds to think"
  2044. Wait 150
  2045. Locate ,22 : Cline 
  2046. Wait 200
  2047. JUGH:
  2048. Locate ,27 : Centre "Press the A key for the answer"
  2049. Clear Key 
  2050. Wait Key 
  2051. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  2052. YUK:
  2053. Locate ,27 : Centre "                                 "
  2054. Paper 2
  2055. Paper 0
  2056. Pen 5
  2057. Locate ,24 : Centre "The answer is .....   "
  2058. Wait 75 : Locate ,24 : Centre "                        "
  2059. Sam Play 8,1,10000
  2060. Locate 12,24 : Pen 5 : Centre "Put it in Writing !"
  2061. Wait 150
  2062. Pen 4
  2063. Wait 150
  2064. Locate ,26 : Pen 3 : Centre "If you dont understand press'Help'"
  2065. Wait 25
  2066. Wait 50
  2067. Locate ,28 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  2068. Clear Key 
  2069. Wait Key 
  2070. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  2071. DITHO:
  2072. Locate ,28 : Cline 
  2073. Locate ,26 : Cline 
  2074. Locate ,26 : Pen 2 : Centre "It is in writing...Donkey!"
  2075. Sam Play 8,7,10000 : Wait 150
  2076. Locate ,28 : Centre "Put some braincells to work..Plonker !!"
  2077. Wait 200
  2078. Locate ,30 : Pen 4 : Centre "Press Spacebar to continue"
  2079. Clear Key 
  2080. Wait Key 
  2081. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  2082. GROO:
  2083. Wait 25
  2084. Fade 7
  2085. Wait 150
  2086. Cls 0
  2087. End Proc
  2088. Procedure UAIN
  2089. Sam Play 8,4,14000
  2090. Screen Open 0,320,256,64,LORES
  2091. Cls 0 : Flash Off : Curs Off : Hide 
  2092. Ink 0
  2093. Bar 0,0 To 10,10
  2094. Locate ,2 : Paper 0 : Centre "What is this well known saying ?"
  2095. Wait 150
  2096. 'Load Iff "df1:cook" 
  2097. 'spack 0 To 2
  2098. Wait 50
  2099. Sam Play 8,2,10000
  2100. Unpack 2 To 0
  2101. Wait 150
  2102. Locate ,24 : Paper 0 : Pen 2 : Centre "You have 30 seconds to think"
  2103. Wait 125
  2104. Locate ,24 : Cline 
  2105. Wait 300
  2106. HLL:
  2107.  Locate 8,24 : Pen 1 : Paper 0 : Print "Press the A key for answer     "
  2108. Clear Key 
  2109. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  2110. HVS:
  2111. Locate 8,24 : Print "                              "
  2112. Wait 50
  2113. Locate 19,24 : Pen 2
  2114. Centre "The answer is ..."
  2115. Wait 75 : Locate 19,24 : Centre "                 "
  2116. Sam Play 8,1,10000
  2117. Paper 0
  2118. Locate 10,24 : Pen 10 : Centre "It's Overcooked !"
  2119. Locate 12,28
  2120. Wait 150 : Pen 10
  2121. Print "Were You Right ?"
  2122. Wait 150
  2123. Locate ,28 : Cline 
  2124. Locate ,26 : Cline 
  2125. Sam Play 8,2,10000
  2126. Locate ,26 : Pen 3 : Centre "If you dont understand press HELP "
  2127. Wait 150
  2128. Sam Play 8,2,10000
  2129. Locate ,28 : Centre "Or press spacebar to continue"
  2130. HNKP:
  2131. Wait 75
  2132. Clear Key 
  2133. Wait Key 
  2134. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  2135. HONDAY:
  2136. 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
  2137. Wait 100
  2138. HSW:
  2139. Sam Play 8,7,10000
  2140. Locate ,26 : Cline 
  2141. Locate 2,28 : Print "                                    "
  2142.  Pen 10
  2143. Sam Play 8,6,10000
  2144. Locate ,26 : Centre "Cooked is turned over..Dumbo!"
  2145. Wait 250
  2146. Sam Play 8,7,10000
  2147. Locate ,28 : Centre "Will you turn over a new leaf!! "
  2148. Wait 150
  2149. Locate ,26 : Cline 
  2150. Locate ,28 : Cline 
  2151. Wait 75
  2152. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  2153. Clear Key 
  2154. Wait Key 
  2155. HAAB:
  2156. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  2157. Wait 75
  2158. HAAC:
  2159. WIPE
  2160. Cls 0
  2161. Locate ,12 : Centre "I'm OVER to the next one now"
  2162. Wait 250
  2163. End Proc
  2164. Procedure YAIN
  2165. Sam Play 8,4,14000
  2166. Screen Open 0,320,256,32,LORES
  2167. Cls 0 : Flash Off : Curs Off : Hide 
  2168. Palette $157
  2169. Cls 0 : Curs Off : Flash Off 
  2170. Locate ,3
  2171. Paper 0
  2172. Centre "What is this well known saying ?"
  2173. Wait 150
  2174. Locate ,3 : Cline 
  2175. Wait 60 : Ink 7
  2176. Box 84,89 To 256,161
  2177. Ink 14
  2178. Bar 85,90 To 255,160
  2179. Ink 5
  2180. Box 83,88 To 257,162
  2181. Ink 2
  2182. Box 82,87 To 258,163 : Box 81,86 To 259,164
  2183. Ink 3
  2184. Box 80,85 To 259,165
  2185. Wait 120
  2186. Locate ,21
  2187. Paper 14 : Pen 5
  2188. 'Wait 70 
  2189. 'Sam Play 8,7,10000
  2190. 'Locate 15,15 : Pen 5 : Print "S"
  2191. Sam Play 8,7,10000
  2192. Locate 17,15 : Pen 4 : Print "A"
  2193. Wait 50
  2194. Sam Play 8,7,10000
  2195. Locate 19,15 : Pen 2 : Print "F"
  2196. Wait 50
  2197. Sam Play 8,7,10000
  2198. Locate 21,15 : Pen 2 : Print "I"
  2199. Wait 50
  2200. Sam Play 8,7,10000
  2201. Locate 23,15 : Pen 2 : Print "X"
  2202. Wait 50
  2203. Sam Play 8,7,10000
  2204. Locate 25,15 : Pen 4 : Print "A"
  2205. 'Wait 50 
  2206. 'Sam Play 8,7,10000
  2207. 'Locate 27,15 : Pen 5 : Print "D"
  2208. Wait 100
  2209. Paper 0
  2210. Locate 7,21 : Pen 5 : Print "You have 29 seconds to think"
  2211. Wait 150 : Locate 19,21
  2212. Cline 
  2213. Wait 200
  2214. HLL:
  2215.  Locate 8,21 : Print "Press the A key for answer     "
  2216. Clear Key 
  2217. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  2218. HVS:
  2219. Locate 8,21 : Print "                              "
  2220. Wait 50
  2221. Locate 14,21 : Pen 2
  2222. Print "The answer is ..."
  2223. Wait 75 : Locate 19,21 : Cline 
  2224. Sam Play 8,1,10000
  2225. Locate 17,21 : Pen 2 : Print "In a Fix !"
  2226. Wait 150
  2227. Locate 9,23
  2228. Pen 5
  2229. Locate 14,29
  2230. Pen 5 : Print "Were You Right ?"
  2231. Wait 100
  2232. Paper 0 : Pen 4
  2233. Locate ,29 : Centre "If you dont understand press HELP "
  2234. Wait 150
  2235. Locate ,30 : Centre "Or press spacebar to continue"
  2236. HNKP:
  2237. Wait 75
  2238. Clear Key 
  2239. Wait Key 
  2240. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  2241. HONDAY:
  2242. 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
  2243. Wait 100
  2244. HSW:
  2245. Locate ,23 : Cline 
  2246. Locate ,25 : Cline 
  2247. Locate 2,27 : Print "                                    "
  2248. Locate ,29 : Cline 
  2249. Locate ,30 : Cline 
  2250. Paper 0 : Pen 2
  2251. Sam Play 8,6,10000
  2252. Locate 0,24 : Centre "You are joking this is an easy one !"
  2253. Wait 105
  2254. Sam Play 8,7,10000
  2255. Locate ,26 : Centre "A Fix is between A's..Plankhead!"
  2256. Wait 105
  2257. Sam Play 8,7,10000
  2258. Locate ,28 : Centre "Are your brain cells fixed solid...Dodo"
  2259. Wait 175
  2260. Sam Play 8,2,10000
  2261. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  2262. Clear Key 
  2263. Wait Key 
  2264. HAAB:
  2265. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  2266. Wait 75
  2267. HAAC:
  2268. Locate ,24 : Cline 
  2269. Locate ,26 : Cline : Locate ,30 : Cline 
  2270. Wait 150
  2271. Locate ,26 : Centre "LOOK OUT !!"
  2272. WIPE
  2273. Wait 50
  2274. Locate ,14 : Centre "Wow ! Something tried to FIX me then!!"
  2275. Wait 250
  2276. Cls 0
  2277. End Proc
  2278. '
  2279. '
  2280. Procedure SCNON[SCR]
  2281. For SD=-180 To 48 : Screen Display SCR,128,SD,, : For MAT=1 To 20 : Next MAT : Next SD
  2282.    For LOP=30 To 0 Step -10
  2283.       For LOP1=1 To LOP Step 5 : Screen Display SCR,,50-LOP1,,256 : View : Wait Vbl : Next LOP1
  2284.       For LOP2=LOP To 1 Step -5 : Screen Display SCR,,50-LOP2,,256 : View : Wait Vbl : Next LOP2
  2285.    Next LOP : Screen Display SCR,,50,,256 : View 
  2286. End Proc
  2287. Procedure SCNOFF[SCR]
  2288. For SD=48 To -256 Step -1 : Screen Display SCR,128,SD,, : For MAT=1 To 20 : Next MAT : Next SD
  2289. End Proc
  2290. Procedure WIPE
  2291. Ink 0
  2292.    For X=1 To 320 : Polyline 160,100 To X,0 : Next X
  2293.    For Y=1 To 256 : Polyline 160,100 To 320,Y : Next Y
  2294.    For X=1 To 320 : Polyline 160,100 To 320-X,256 : Next X
  2295.    For Y=1 To 256 : Polyline 160,100 To 0,256-Y : Next Y
  2296. End Proc
  2297. Procedure LASTBIT
  2298. Music Off 
  2299. Screen Open 0,640,256,16,Hires
  2300. Curs Off : Flash Off : Hide : Cls 0
  2301. Palette $F36
  2302. Cls 0 : Curs Off 
  2303. Paper 0
  2304. Wait 100
  2305. Locate ,5 : Bell : Centre "Well Done,that was the last one on this disc"
  2306. Wait 100
  2307. Locate ,7 : Bell : Centre "I hope you enjoyed it as much I as I did Doing it"
  2308. Wait 100
  2309. Locate ,9 : Bell : Centre "Be Warned,I am doing another one!!!! "
  2310. Wait 150 : Boom 
  2311. Pen 5
  2312. Locate ,15 : Centre "THE END"
  2313. Pen 6 : Wait 150 : Boom 
  2314. Locate ,19 : Centre "AU REVOIR!!!!!"
  2315. Wait 700
  2316. Cls 0
  2317. End 
  2318. End Proc
  2319. Procedure OPENBIT
  2320. Screen Open 0,320,256,16,LORES
  2321. Cls 0 : Curs Off : Flash Off : Hide 
  2322. Palette $0
  2323. Cls 0 : Curs Off 
  2324. Locate ,16 : Pen 4 : Paper 0 : Centre "Have Fun"
  2325. Paper 0
  2326. Wait 100
  2327. Wait 100
  2328. End Proc
  2329. Procedure _SPLURGE[SPEED,SOURCE,DEST]
  2330. 'SPEED=3 
  2331. 'SOURCE=1
  2332. 'DEST=2
  2333. Screen SOURCE
  2334. SOURCE_SIZE=Screen Height
  2335. Screen DEST
  2336. DEST_SIZE=Screen Height
  2337. V=Min(SOURCE_SIZE,DEST_SIZE)
  2338. Screen SOURCE
  2339. SOURCE_SIZE=Screen Width
  2340. Screen DEST
  2341. DEST_SIZE=Screen Width
  2342. H=Min(SOURCE_SIZE,DEST_SIZE)
  2343. For LOP=V-SPEED To O Step -SPEED
  2344. For LOP1=0 To LOP Step SPEED
  2345. Screen Copy SOURCE,0,LOP,H,LOP+SPEED To DEST,0,LOP1
  2346. Next LOP1
  2347. Next LOP
  2348. End Proc
  2349. Procedure ARF
  2350.    Screen Open 0,320,256,32,LORES
  2351.    Cls 0 : Curs Off : Hide 
  2352.    Palette $F0F
  2353.    Curs Off : Cls 0 : Hide 
  2354.    Paper 0 : Pen 3
  2355. Sam Play 8,8,10000
  2356. Locate ,10 : Centre "You have chosen Halfway"
  2357.    Wait 150
  2358.    Pen 5
  2359. Flash Off : Locate ,16 : Centre "Music by Anon,thanks Anon"
  2360. Wait 100
  2361. Music 1
  2362. Wait 250
  2363.    Fade 7
  2364.    Cls 0
  2365.    Wait 50
  2366. End Proc