10 cls 20 locate 0,0 30 DAT=inp(&HE1) 40 DAT=(DAT/64) and 1 50 print DAT 60 goto 20 |
' 画面消去 ' 表示位置を左上に設定する ' I/O ポートよりカセット読み込みデータを取得する ' 右から 6 ビット目を取り出す ' カセット読み込みデータを画面に表示する ' ループする |
端子 1 |
端子 2 |
緑 | : | 端子 1 GND (9 ピン) | ←→ | 端子 2 GND (9 ピン) |
灰 | : | 端子 1 出力 3 (8 ピン) | ←→ | 端子 2 上ボタン (1 ピン) |
赤 | : | 端子 1 上ボタン (1 ピン) | ←→ | 端子 2 出力 3 (8 ピン) |
10 cls 20 DAT=0 30 locate 0,0 40 print DAT 50 I$=inkey$ 60 if I$="" then 30 70 DAT=1-DAT 80 OUTDAT=&HEF+DAT*16 90 OUT &HEF, OUTDAT 100 goto 30 |
' 画面消去 ' DAT を 0 に初期化、DAT は送信するデータ ' 表示位置を左上に設定する ' 送信するデータを画面に表示する ' キー入力、I$ は押したキーが入る ' もしキーが押されてなかったら 30 行に戻る ' キーが押された場合は送信するデータを反転する ' 送信するデータを右から 5 ビット目に設定する ' データを送信する ' ループする |
10 cls 20 locate 0,0 30 DAT=inp(&HEF) 40 DAT=DAT and 1 50 print DAT 60 goto 20 |
' 画面消去 ' 表示位置を左上に設定する ' データを受信する ' 受信したデータの右から 1 ビット目を取り出す。 ' 受信したデータを画面に表示する ' ループする |