プチコンmkII

  1. ’┌──────────────────┐
  2. ’│SAMPLE1           │
  3. ’│ コンソ-ルヘノモシ゛シュッリョク │
  4. ’└──────────────────┘
  5. VISIBLE 1,1,0,0,0,0
  6. CLS:COLOR 0
  7. ’--- タンシ゛ュンナ モシ゛ノヒョウシ゛
  8. PRINT”Ж:ニコチャン”
  9. PRINT”ALPHABET”
  10. PRINT”12345”;”カタカナ”
  11. ’--- イロシテイ
  12. COLOR 12:PRINT”а”;
  13. COLOR 13:PRINT”б”;
  14. COLOR 11:PRINT”Я”;
  15. COLOR 9:PRINT”в”
  16. COLOR 0
  17. ’--- ヘンスウ ヲ ツカウ
  18. APPLE=56
  19. ORANGE=123
  20. ’--- ヒョウシ゛イチヲシテイ
  21. LOCATE 5,10
  22. PRINT”リンコ゛ = ”;APPLE;”コ”
  23. LOCATE 5,11
  24. PRINT”ミカン  = ”;ORANGE;”コ”
  25. LOCATE 5,12
  26. PRINT”-----------”
  27. LOCATE 5,13
  28. TOTAL=APPLE+ORANGE
  29. PRINT”コ゛ウケイ= ”;TOTAL
  30. ’--- オワリ
  31. PRINT ””
  32. PRINT ”─”*32;
  33. PRINT ”PUSH А BUTTON”
  34. @KLOOP
  35. VSYNC 1
  36. IF BTRIG()!=16 THEN @KLOOP
  37. END