- ’┌──────────────────┐
- ’│SAMPLE13 │
- ’│ TALK ノ オンセイシュツリョク│
- ’└──────────────────┘
- CLEAR
- DIM SPK$(12),STY$(17)
- SPK$(0)=”ワカイ タ゛ンセイ”
- SPK$(1)=”ワカイ シ゛ョセイ”
- SPK$(2)=”タ゛ンセイ”
- SPK$(3)=”シ゛ョセイ”
- SPK$(4)=”トシオイタ タ゛ンセイ”
- SPK$(5)=”トシオイタ シ゛ョセイ”
- SPK$(6)=”オトコ ノ コ”
- SPK$(7)=”オンナ ノ コ”
- SPK$(8)=”ワカイシ゛ョセイxワカイシ゛ョセイ”
- SPK$(9)=”アニメキャラクタ”
- SPK$(10)=”ウチュウシ゛ン”
- SPK$(11)=”オオ オトコ”
- STY$(0)=”オコッタ ヨウニ”
- STY$(1)=”ヒ゛シ゛ネスライク ニ”
- STY$(2)=”ナコ゛ヤカ ニ”
- STY$(3)=”ラクタン シタ ヨウニ”
- STY$(4)=”コウフンシタ ヨウニ”
- STY$(5)=”ウラコ゛エ テ゛”
- STY$(6)=”シアワセ ソウニ”
- STY$(7)=”オオキナコエ テ゛”
- STY$(8)=”タンチョウ ニ”
- STY$(9)=”ケ゛ンキ ニ”
- STY$(10)=”シス゛カ ニ”
- STY$(11)=”ヒニク ッホ゜ク”
- STY$(12)=”オヒ゛エタ ヨウニ”
- STY$(13)=”サケンタ゛ ヨウニ”
- STY$(14)=”キンチョウシタ ヨウニ”
- STY$(15)=”ササヤキコ゛エ テ゛”
- STY$(16)=”ウタウ ヨウニ”
- ’---
- @CHANGE
- WASYA=RND(12)
- KANJO=RND(17)
- SPD=RND(300)+30
- @REPLAY
- ACLS
- PRINT ”┌────────────────────┐”
- PRINT ”│SAMPLE13 │”
- PRINT ”│ TALKメイレイ テ゛ シャヘ゛リマス│”
- PRINT ”└────────────────────┘”
- PRINT
- T$=””
- T$=T$+”@S”+STR$(WASYA) ’ワシャ(0-11)
- T$=T$+”@E”+STR$(KANJO) ’カンシ゛ョウ(0-16)
- T$=T$+”@H0” ’イントネ-ション(0-3)
- T$=T$+”@T”+STR$(SPD) ’ソクト゛(0-1000)
- T$=T$+”@V80” ’ホ゛リュ-ム(0-80)
- PRINT ”カタリテ ヲ ランタ゛ム ニ セッテイ”
- PRINT ”(”;
- COLOR 3
- PRINT SPK$(WASYA);
- COLOR 0
- PRINT ” カ゛ ”;
- COLOR 9
- PRINT STY$(KANJO);
- COLOR 0
- PRINT ”)”
- PRINT ”(ソクト゛=”;
- COLOR 4
- PRINT SPD;
- COLOR 0
- PRINT ”)”
- PRINT
- RESTORE @KOTOBA
- ’---
- @MAIN
- READ A$
- IF A$==”” THEN @SYURYO
- PRINT ”Ж:”+A$
- PRINT
- TALK T$+A$
- @BUSY
- IF TALKCHK()==TRUE THEN @BUSY
- GOTO @MAIN
- ’---
- @SYURYO
- PRINT
- COLOR 3
- PRINT ”[X]:モウイチト゛ オナシ゛コエテ゛”
- PRINT ”[A]:ヘ゛ツノコエ テ゛”
- PRINT ”[B]:シュウリョウ”
- COLOR 0
- @BTWAIT
- VSYNC 1
- BT=BUTTON()
- IF BT==0 THEN @BTWAIT
- IF BT AND 64 THEN @REPLAY
- IF BT AND 16 THEN @CHANGE
- IF (BT AND 32)==0 THEN @BTWAIT
- CLS:END
- @KOTOBA
- DATA ”カキクエハ゛”
- DATA ”カネカ゛ナルナリ”
- DATA ”ホウリュウシ゛”
- DATA ””
- ’┌─────────────────────────┐
- ’│ オワリ │
- ’└─────────────────────────┘