home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / av / sample.bas < prev    next >
BASIC Source File  |  1990-06-14  |  1KB  |  28 lines
  1. 1000 '   "xbas.rex" をLOADM し、CALLM します。
  2. 1010 '
  3. 1020 '   引数 1 モード指定(ロング整数)
  4. 1030 '            00H..xamout
  5. 1040 '            01H..xamkey
  6. 1050 '        2 ダイアル指定値(文字型)のアドレス
  7. 1060 '        3 キー指定値(文字型)のアドレス
  8. 1070 '        4 タイムカウンタ値(>45000)(ロング整数)
  9. 1080 ' 
  10. 1090 ' 注意:ＣＲＯＳＳＡＭは右側のジョイスティックポートに接続して下さい
  11. 1100 '      マウスは左です。
  12. 1110 '
  13. 1120 SCREEN@0:COLOR 7,0:CLS
  14. 1130 CLEAR ,,,,50000
  15. 1140 PRINT "CROSSAMを接続したら、タウンズのキーを押して下さい":DMY$=INPUT$(1)
  16. 1150 LOADM"xbas.rex",0
  17. 1160 MODE& = 1:DIAL$ = CHR$(1):KNO$ = CHR$(1):CNT&= 45000
  18. 1170 PRINT "赤いLEDが点灯したら、どれかCROSSAMのキーを押して下さい"
  19. 1180 A=CALLM(0,MODE&,VARPTR(DIAL$),VARPTR(KNO$),CNT&)
  20. 1190 PRINT "終了コード = ";A
  21. 1200 PRINT "ダイアル = ";ASC(DIAL$);" ,  キー = ";ASC(KNO$);" が押されました":PRINT
  22. 1210 PRINT "ダイアル = 1 ,  キー = 14 の信号を出力します"
  23. 1220 PRINT "タウンズのキーを押して下さい":DMY$=INPUT$(1)
  24. 1230 MODE& = 0:DIAL$ = CHR$(1):KNO$ = CHR$(14):CNT&= 45000
  25. 1240 A=CALLM(0,MODE&,VARPTR(DIAL$),VARPTR(KNO$),CNT&)
  26. 1250 PRINT "終了コード = ";A
  27. 1260 END
  28.