Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;       В│ВнВчВ╠ЛGР▀    FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
  2. ;               ГVБ[ГУБ@ВTВOВPБQВP
  3. ;               Ч╤К╘КwНZБ@Ф╟Х╥Рм
  4.  
  5.         INCLUDE SUPER_S.INC
  6.  
  7. START:
  8.         DW      SCTBL,MSGTBL,COMTBL,VNTBL,ENDTBL
  9. SCTBL:
  10.         DW      S1, S2, S3, S4, S5, S6, S7, S8
  11. MSGTBL:
  12.         DW      M1
  13. COMTBL:
  14.         DW      CM1, CM2, CM3
  15. VNTBL:
  16.         DW      V_FNAME,N_FNAME
  17. ENDTBL:
  18.  
  19.         INCLUDE "V_NAME00.INC"                  ; 0=NoCommand , 1-49=NormalCommand
  20.         INCLUDE "N_NAME00.INC"                  ; 50-99=HseenCommand
  21.  
  22. ;       Б@Б@Б@ УоОМБ@Б@Ц╝ОММQ
  23. CM1:    DW      VV1,    NN1,-1
  24. CM2:    DW      VV2,    NN2,-1
  25. CM3:    DW      VV3,    NN3,NN4,NN5,NN6,NN7,NN8,-1
  26.  
  27. ;VV1:   DB      1,      'МйВщ',0
  28. VV1:    DB      1,      'LOOK',0
  29. ;VV2:   DB      2,      'НlВжВщ',0
  30. VV2:    DB      2,      'THINK',0
  31. ;VV3:   DB      3,      'ПСВн',0
  32. VV3:    DB      3,      'WRITE',0
  33.  
  34. ;NN1:   DB      1,      'В▄ВэВш',0
  35. NN1:    DB      1,      'AROUND',0
  36. ;NN2:   DB      2,      'Ч╤К╘КwНZ',0
  37. NN2:    DB      2,      'SCHOOL TRIP',0
  38. ;NN3:   DB      3,      'ЧщОq',0
  39. NN3:    DB      3,      'REIKO',0
  40. ;NN4:   DB      4,      'П╦Оq',0
  41. NN4:    DB      4,      'SHOKO',0
  42. ;NN5:   DB      5,      'Р┤Ф№',0
  43. NN5:    DB      5,      'KIYOMI',0
  44. ;NN6:   DB      6,      'Ч┌ЧЮ',0
  45. NN6:    DB      6,      'RURI',0
  46. ;NN7:   DB      7,      'РпИд',0
  47. NN7:    DB      7,      'SEIA',0
  48. ;NN8:   DB      8,      'МbИ╦Ф№',0
  49. NN8:    DB      8,      'MEIMI',0
  50.  
  51. ;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
  52. S1:             DW      VV1, NN1,  1, M2, M3            ;МйВщБ@О№ВшВQ
  53. S2:             DW      VV2, NN2,  2, M4, M5, M6                ;НlВжВщБ@Ч╤К╘КwНZВR
  54. S3:             DW      VV3, NN3,  3, M7                ;ПСВнБ@ЧщОqВP
  55. S4:             DW      VV3, NN4,  4, M8                ;ПСВнБ@П╦ОqВP
  56. S5:             DW      VV3, NN5,  5, M9                ;ПСВнБ@Р┤Ф№ВP
  57. S6:             DW      VV3, NN6,  6, M10               ;ПСВнБ@Ч┌ЧЮВP
  58. S7:             DW      VV3, NN8,  7, M11               ;ПСВнБ@МbИ╦Ф№ВP
  59. S8:             DW      VV3, NN7,  8, M12               ;ПСВнБ@РпИдВP
  60.  
  61.  
  62. ;ГCГjГVГГГЛГБГbГZБ[ГW
  63. M1:
  64.         DB      BGM,6
  65.         E_CG B_SUDA,'AB_36_4'
  66. ;       DB      'Бy%001БzБFБEБEБEБEБEБEВ│В─В╞БBВ╞В┴В╞В╞ЩrВ▀В╦Б`В╞В╚БB'
  67.         DB      "%001:  Well, I guess I'd better choose who I want."
  68.         DB G_FLG,G_COPYF,110,110
  69.         DB G_FLG,G_COPYF,120,120
  70.         DB G_FLG,G_COPYF,140,140
  71.         DB G_FLG,G_COPYF,150,150
  72.         DB G_FLG,G_COPYF,170,170
  73.         DB G_FLG,G_COPYF,180,180
  74.         DB FLG,F_COPYI,200,0
  75.         DB FLG,F_COPYI,202,0
  76.         DB C_BLD,C_V_ON,3
  77.         DW      0000H
  78.  
  79. M2:             ;МйВщБ@О№ВшВP
  80. ;       DB      'ОЎЛ╞ТЖВ╛ВпВаВ┴В─БAЧмР╬В╔В▌ВёВ╚Р├ВйВ╛БB'
  81.         DB      "Class is going on right now, so it's quiet."
  82.         DB      FLG,F_COPYI,1,1
  83.         DW      0000H
  84.  
  85. M3:             ;МйВщБ@О№ВшВQ
  86. ;       DB      'БEБEБEОЎЛ╞ТЖВ╚ВёВ╛ВйВчБAВаВёВ▄ВшГLГЗГНГLГЗГНВ╡В╦Б`Х√ВкВвВвВ║БB'
  87.         DB      "Class is going on now, so you shouldn't look around too"
  88.         DB      CR
  89.         DB      "much."
  90.         DB      FLG,F_COPYI,1,0
  91.         DW      0000H
  92.  
  93. M4:             ;НlВжВщБ@Ч╤К╘КwНZВP
  94. ;       DB      'СSНZР╢УkВ┼НsВнБAВRФСВSУ·В╠ЦkКCУ╣В╓В╠Ч╖В╛БB'
  95.         DB      "All the students in the school are taking the school trip"
  96.         DB      CR
  97.         DB      "to Hokkaido for four days and three nights."
  98.         DB      NEXT
  99. ;       DB      'БEБEБEЙ╜В┼СSНZР╢УkВйВ╞М╛ВдВ╞БEБEБE'
  100.         DB      "It was supposedly the dean's idea to require us all"
  101.         DB      CR
  102.         DB      "to go."
  103.         DB      FLG,F_COPYI,2,1
  104.         DW      0000H
  105.  
  106. M5:             ;НlВжВщБ@Ч╤К╘КwНZВQ
  107. ;       DB      'БEБEБEВ┼БAУЦСRНsВ┴В╜РцВ┼В═Ф╟ТPИ╩В┼НsУоВ╖ВщЦєВ╛ВкБEБEБE'
  108.         DB      "The dean wants us to be organized in groups, and each"
  109.         DB      CR
  110.         DB      "group has to have students from each graduating class in"
  111.         DB      CR
  112.         DB      "it."
  113.         DB      NEXT
  114. ;       DB      'В╛ВйВчЙ┤В╠ПъНЗВ═ТЖУЩХФВйВчЙ╜РlВйВ╞БAУёФNВйОOФNВйВчЙ╜РlВйВЁСIВ╬В╚ВлВсВ╚ВчВёЦєВ╛БB'
  115.         DB      "So I've got to pick some students to be in my group."
  116.         DB      FLG,F_COPYI,2,2
  117.         DW      0000H
  118.  
  119. M6:             ;НlВжВщБ@Ч╤К╘КwНZВR
  120. ;       DB      'БEБEБEВёВ┼БAЙ┤В╠Ц┌В╠СOВ╔ВаВщОЖВ╔В═ВUВ┬БAЦ╝СOВЁПСВнЧУВкВаВщБB'
  121.         DB      "There are six spaces on the paper in front of me, room for"
  122.         DB      CR
  123.         DB      "six names."
  124.         DB      NEXT
  125. ;       DB      'В╗В╠УрВRВ┬В═БAК∙В╔ЦДВ▄В┴В─ВвВщБB'
  126.         DB      "Three of the names are already filled in."
  127.         DB      NEXT
  128. ;       DB      'ВPБDР╜БiВ▄ВЯВвВ┐ВиБ`ЧFТBВ╛ВйВчБj',CR
  129.         DB      "1. Makoko"
  130.         DB      NEXT
  131. ;       DB      'ВQБDФ№ППВ┐ВсВёБiТЖУЩХФВ╠ТmВшНЗВвВ┴В─В▒В╠Ц║ВнВчВвВ╡ВйВвВ╚ВвВйВчБj',CR
  132.         DB      "2. Mio"
  133.         DB      NEXT
  134. ;       DB      'ВRБDИЯКєВ┐ВсВёБiФ№ППВ┐ВсВёПСВвВ─В▒В╠Ц║ПСВйВ╚ВвВ╞БAМуВ┼Л░В╗ВдВ╛ВйВчБj'
  135.         DB      "3. Aki"
  136.         DB      NEXT
  137. ;       DB      'БEБEБEБEБEБE'
  138.         DB      "..............................."
  139.         DB      NEXT
  140. ;       DB      'ЦтСшВ═БAОcВшВ╠ВRРlВ╛В╚БB'
  141.         DB      "There are three spaces left. Who should I write?"
  142.         DB C_BLD,C_V_ON,2
  143.         DB C_BLD,C_V_OFF,3
  144.         DW      0000H
  145.  
  146. M7:             ;ПСВнБ@ЧщОqВP
  147. ;       DB      'БEБEБEВ╗ВдВ╛В╚БAЧщОqВ│ВёВ╔В╡ВцВдБB'
  148.         DB      "Reiko's a good choice."
  149.         DB      NEXT
  150. ;       DB      'ВйВлВйВл'
  151.         DB      "*write write*"
  152.         DB      NEXT
  153. ;       DB      'БEБEБEБEБEБE'
  154.         DB      "..............................."
  155.         DB      NEXT
  156. ;       DB      'ЧщОqВ│ВёВ╞Р╝ЦьВ│ВёБAГXГQБ[СКРлИлВвВ▌В╜ВвВ╛ВйВчВ╚БBЧщОqВ│ВёВЁУ№ВъВ╜ВйВчБAР╝ЦьВ│ВёВ═ПСВйВ╚ВвХ√ВкВвВвВ╚БB'
  157.         DB      "Reiko really doesn't get along with Shoko. Since I've"
  158.         DB      CR
  159.         DB      "written Reiko's name down, I'd better not write Shoko."
  160.         DB C_BLD,C_N_ON,3,1
  161.         DB C_BLD,C_N_ON,3,2
  162.         DB      FLG,F_CALI,110,5
  163.         DB      FLG,F_COPYI,111,1
  164.         DB      FLG,F_COPYI,201,1
  165.         DB      FLG,F_CALLS,200
  166.         DW      M_SUB1,M_SUB2
  167.         DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
  168.         DW      0000H
  169.  
  170. M8:             ;ПСВнБ@П╦ОqВP
  171. ;       DB      'БEБEБEБEБEБE'
  172.         DB      "..............................."
  173.         DB      PAUSE
  174. ;       DB      'ВвВвВ╠ВйБH'
  175.         DB      "Is that really okay?"
  176.         DB      NEXT
  177. ;       DB      'ВйВлВйВл'
  178.         DB      "*write write*"
  179.         DB      NEXT
  180. ;       DB      'БEБEБEБEБEБE'
  181.         DB      "..............................."
  182.         DB      NEXT
  183. ;       DB      'ЧщОqВ│ВёВ╞Р╝ЦьВ│ВёБAГXГQБ[СКРлИлВвВ▌В╜ВвВ╛ВйВчВ╚БBР╝ЦьВ│ВёВЁУ№ВъВ╜ВйВчБAЧщОqВ│ВёВ═ПСВйВ╚ВвХ√ВкВвВвВ╚БB'
  184.         DB      "Reiko really doesn't get along with Shoko. Since I've"
  185.         DB      CR
  186.         DB      "written Shoko's name down, I'd better not write Reiko."
  187.         DB C_BLD,C_N_ON,3,1
  188.         DB C_BLD,C_N_ON,3,2
  189.         DB      FLG,F_CALI,140,5
  190.         DB      FLG,F_COPYI,141,1
  191.         DB      FLG,F_COPYI,201,4
  192.         DB      FLG,F_CALLS,200
  193.         DW      M_SUB1,M_SUB2
  194.         DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
  195.         DW      0000H
  196.  
  197. M9:             ;ПСВнБ@Р┤Ф№ВP
  198. ;       DB      'БEБEБEВ╗ВдВ╛В╚БAРVУбВ│ВёВ╔В╡ВцВдБB'
  199.         DB      "Yes, Kiyomi's a good person to write."
  200.         DB      NEXT
  201. ;       DB      'ВйВлВйВл'
  202.         DB      "*write write*"
  203.         DB C_BLD,C_N_ON,3,3
  204.         DB      FLG,F_CALI,120,5
  205.         DB      FLG,F_COPYI,121,1
  206.         DB      FLG,F_COPYI,201,2
  207.         DB      FLG,F_CALLS,200
  208.         DW      M_SUB1,M_SUB2
  209.         DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
  210.         DW      0000H
  211.  
  212. M10:            ;ПСВнБ@Ч┌ЧЮВP
  213. ;       DB      'БEБEБEФТРЕВ│ВёБAВйБEБEБE'
  214.         DB      ".......Okay, Ruri it is..."
  215.         DB      NEXT
  216. ;       DB      'ВйВлВйВл'
  217.         DB      "*write write*"
  218.         DB C_BLD,C_N_ON,3,4
  219.         DB      FLG,F_CALI,150,5
  220.         DB      FLG,F_COPYI,151,1
  221.         DB      FLG,F_COPYI,201,5
  222.         DB      FLG,F_CALLS,200
  223.         DW      M_SUB1,M_SUB2
  224.         DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
  225.         DW      0000H
  226.  
  227. M11:            ;ПСВнБ@МbИ╦Ф№ВP
  228. ;       DB      'БEБEБEТЖЦьВйБB'
  229.         DB      "......Okay, I'll write Meimi's name."
  230.         DB      NEXT
  231. ;       DB      'ВйВлВйВл'
  232.         DB      "*write write*"
  233.         DB C_BLD,C_N_ON,3,6
  234.         DB      FLG,F_CALI,180,5
  235.         DB      FLG,F_COPYI,181,1
  236.         DB      FLG,F_COPYI,201,8
  237.         DB      FLG,F_CALLS,200
  238.         DW      M_SUB1,M_SUB2
  239.         DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
  240.         DW      0000H
  241.  
  242. M12:            ;ПСВнБ@РпИдВP
  243. ;       DB      'БEБEБEЛgУcВ╦БB'
  244.         DB      ".....Seia's a good one to write."
  245.         DB      NEXT
  246. ;       DB      'ВйВлВйВл'
  247.         DB      "*write write*"
  248.         DB C_BLD,C_N_ON,3,5
  249.         DB      FLG,F_CALI,170,5
  250.         DB      FLG,F_COPYI,171,1
  251.         DB      FLG,F_COPYI,201,7
  252.         DB      FLG,F_CALLS,200
  253.         DW      M_SUB1,M_SUB2
  254.         DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
  255.         DW      0000H
  256.  
  257. EXIT:           ;
  258.         DB      NEXT
  259. ;       DB      'БEБEБEВцВ╡БAСSХФЦДВ▀В╜В╝БB'
  260.         DB      "Okay, that's finished."
  261.         DB      NEXT
  262. ;       DB      'БEБEБEБEБEБEВ│Б`В─БAВ╟Б`В╚ВщВйКyВ╡В▌В╛БEБEБEБEБEБE'
  263.         DB      ".....I wonder what'll happen up in Hokkaido."
  264.         DB      NEXT
  265. ;       DB      'БyЛ│ОtБzБFОЯВ╠ЦтСшВЁБEБEБE',PAUSE,'ОRР_БAУЪВжВ─В▌ВыБB'
  266.         DB      "Teacher:  And the answer is...",PAUSE," Yamagami, why don't you tell us?"
  267.         DB      NEXT
  268. ;       DB      'Бy%001БzБFВ═В┴В═ВвБIБH'
  269.         DB      "%001:  Huh??"
  270.         DB      NEXT
  271.         E_CG B_NORM,'T_05'
  272.         DB      NEXT
  273.         DB G_FLG,G_COPYG,110,110
  274.         DB G_FLG,G_COPYG,120,120
  275.         DB G_FLG,G_COPYG,140,140
  276.         DB G_FLG,G_COPYG,150,150
  277.         DB G_FLG,G_COPYG,170,170
  278.         DB G_FLG,G_COPYG,180,180
  279.         DB      SINARIO,'CS502.OVL',0
  280.         DW      0000H
  281.  
  282. M_SUB1:         ;ИъФ╘Ц┌ВЁВfГtГЙГOВ╓
  283.         DB      FLG,F_COPYI,200,1                               ;ГWГГГУГvРцВЁ M_SUB2 В╓
  284.         DB      G_FLG,G_COPYG,255,201                   ;ВfГtГЙГOУ]СЧ
  285.         DB      FLG,F_CALI,202,1
  286.         DW      0000H
  287.  
  288. M_SUB2:
  289.         DB      FLG,F_CALI,202,1
  290.         DB      FLG,F_COMPI,255,202,2
  291.         DB      FLG,F_JGR,255                                   ;ВRРlСIВёВ╛ВйБH
  292.         DW      EXIT
  293.         DW      0000H
  294.  
  295.  
  296.  
  297. end
  298.