プチコンmkII

  1. ’┌─────────────────┐
  2. ’│SAMPLE2          │
  3. ’│ モシ゛ニュウリョクト フ゛ンキ │
  4. ’└─────────────────┘
  5. VISIBLE 1,1,0,0,0,0
  6. CLS:COLOR 0
  7. PRINT”┌────────────────────┐”
  8. PRINT”│ケイサンCOMPUTER(ニコチャンЖ)│”
  9. PRINT”└────────────────────┘”
  10. PRINT”Ж:コンニチハ ニコチャンテ゛ス”
  11. PRINT”Ж:ホ゛クノシツモンニ コタエテネ”
  12. ’---
  13. @LOOP
  14. PRINT
  15. COLOR 9
  16. INPUT”Ж:1ツメノ スウシ゛ハ”;NO1
  17. COLOR 7
  18. INPUT”Ж:2ツメノ スウシ゛ハ”;NO2
  19. ’---
  20. @MARK
  21. COLOR 0
  22. PRINT”Ж:(1)”;NO1;”ト”;
  23. PRINT”(2)”;NO2;”テ゛スネ”
  24. COLOR 2
  25. PRINT”+ → (1)ト(2)ヲタス”
  26. PRINT”- → (1)カラ(2)ヲヒク”
  27. PRINT”/ → (1)ヲ(2)テ゛ワル”
  28. PRINT”% → (1)ヲ(2)テ゛ワッタアマリ”
  29. PRINT”* → (1)ト(2)ヲカケル”
  30. COLOR 0
  31. INPUT”Ж:キコ゛ウハ(+-/%*)”;K$
  32. PRINT”Ж:オコタエシマス・・・”
  33. ’---
  34. MARK=0
  35. IF K$==”+” THEN MARK=1
  36. IF K$==”-” THEN MARK=2
  37. IF K$==”/” THEN MARK=3
  38. IF K$==”%” THEN MARK=4
  39. IF K$==”*” THEN MARK=5
  40. ON MARK GOTO @SKIP,@PLUS,@MINUS,@DIV,@MOD,@MUL
  41. ’---
  42. @SKIP
  43. BEEP 4
  44. PRINT”Ё:シラナイキコ゛ウテ゛ス・・コ゛メン”
  45. PRINT
  46. GOTO @MARK
  47. ’---
  48. @PLUS
  49. PRINT NO1;”+”;NO2;”=”;NO1+NO2
  50. GOTO @LOOP
  51. ’---
  52. @MINUS
  53. PRINT NO1;”-”;NO2;”=”;NO1-NO2
  54. GOTO @LOOP
  55. ’---
  56. @DIV
  57. PRINT NO1;”/”;NO2;”=”;NO1/NO2
  58. GOTO @LOOP
  59. ’---
  60. @MOD
  61. PRINT NO1;”%”;NO2;”=”;NO1%NO2
  62. GOTO @LOOP
  63. ’---
  64. @MUL
  65. PRINT NO1;”x”;NO2;”=”;NO1*NO2
  66. GOTO @LOOP