home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / commercial / hssoftware / kevin / !kevinquiz / !RUN next >
Encoding:
Text File  |  1994-09-18  |  1.7 KB  |  70 lines
  1.  
  2. QUIT
  3.  
  4.  
  5.  
  6. Run <Obey$Dir>.checkmode
  7.  
  8.  
  9. IF hsmode$ = 15 THEN echo <22><15>
  10.  
  11. IF hsmode$ = 28 THEN echo <22><28>
  12.  
  13.  
  14.  
  15. <Obey$Dir>.voicesoff
  16.  
  17.  
  18.  
  19. Set ofprefix$  <Font$Prefix> 
  20.  
  21. SET Font$Prefix <Obey$Dir>.!Fonts
  22.  
  23. WimpSlot -min 1k -max 1k
  24.  
  25. RMENSURE ColourTrans 0.51 RMLOAD <Obey$Dir>.COLOURS
  26. RMENSURE 1 RMLOAD <Obey$Dir>.qsamples.1
  27. RMENSURE 2 RMLOAD <Obey$Dir>.qsamples.2
  28. RMENSURE 3 RMLOAD <Obey$Dir>.qsamples.3
  29. RMENSURE 4 RMLOAD <Obey$Dir>.qsamples.4
  30. RMENSURE 5 RMLOAD <Obey$Dir>.qsamples.5
  31. RMENSURE 6 RMLOAD <Obey$Dir>.qsamples.6
  32. RMENSURE 7 RMLOAD <Obey$Dir>.qsamples.7
  33. RMENSURE 8 RMLOAD <Obey$Dir>.qsamples.8
  34. RMENSURE 9 RMLOAD <Obey$Dir>.qsamples.9
  35. RMENSURE 10 RMLOAD <Obey$Dir>.qsamples.10
  36. RMENSURE 11 RMLOAD <Obey$Dir>.qsamples.11
  37. RMENSURE 12 RMLOAD <Obey$Dir>.qsamples.12
  38. RMENSURE thir RMLOAD <Obey$Dir>.qsamples.thir
  39. RMENSURE teen RMLOAD <Obey$Dir>.qsamples.teen
  40. RMENSURE fif RMLOAD <Obey$Dir>.qsamples.fif
  41. RMENSURE twen RMLOAD <Obey$Dir>.qsamples.twen
  42. RMENSURE ty RMLOAD <Obey$Dir>.qsamples.ty
  43. RMENSURE player RMLOAD <Obey$Dir>.qsamples.player
  44. RMENSURE and RMLOAD <Obey$Dir>.qsamples.and
  45. RMENSURE plus RMLOAD <Obey$Dir>.qsamples.plus
  46. RMENSURE takeaway RMLOAD <Obey$Dir>.qsamples.takeaway
  47. RMENSURE minus RMLOAD <Obey$Dir>.qsamples.minus
  48. RMENSURE times RMLOAD <Obey$Dir>.qsamples.times
  49. RMENSURE multiply RMLOAD <Obey$Dir>.qsamples.multiply
  50. RMENSURE makes RMLOAD <Obey$Dir>.qsamples.makes
  51. RMENSURE equals RMLOAD <Obey$Dir>.qsamples.equals
  52. RMENSURE whatis RMLOAD <Obey$Dir>.qsamples.whatis
  53. RMENSURE timeup RMLOAD <Obey$Dir>.qsamples.timeup
  54. RMENSURE anyone RMLOAD <Obey$Dir>.qsamples.anyone
  55. RMENSURE whistle RMLOAD <Obey$Dir>.qsamples.whistle
  56.  
  57.  
  58.  
  59. IF hsmode$ = 15 THEN WimpSlot -min 270k -max 270k
  60. IF hsmode$ = 28 THEN WimpSlot -min 580k -max 580k
  61.  
  62.  
  63.  
  64. |
  65. | Go, Go, Go
  66. |
  67. Run <Obey$Dir>.!RUNIMAGE
  68.  
  69.  
  70.