約 3,244,334 件
https://w.atwiki.jp/play-games/pages/14.html
imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 ここで紹介するPlay-Asiaは、北米やアジア向けのゲーム、CD、本などの商品を扱っている通販サイトです。 昨今の円高の影響もあって、国内では入手しづらい商品を非常に安く手に入れることができます。 商品購入までの流れ F&Q このサイトでは、全てのリンクがアフィリエイトとなります。 そこで、ここのリンクを使ってくださっている皆さんに向けてクーポンを公開します! 皆さんがこのサイトのリンクから購入していただいた数に応じてクーポンも増やしていくので、どうぞよろしくお願いします クーポン配布
https://w.atwiki.jp/abwiki/pages/100.html
1000 1010 Hello World!! for N88(86)-DOS-BASIC 1020 (C) 2003, Omae-Mona 1030 All rights Reserved 1040 1100 GOTO *MAIN 1110 2000 *INIT 初期化 2010 DEFINT A-N DEFDBL O-Z 2020 SCREEN 3.0.0.1 COLSOLE 0.25,0,1 2030 CLS 3 2040 RETURN 2050 3000 *MAIN メイン関数 3010 GOSUB *INIT 3020 PRINT "Hello, World!!" 3030 END 10 IF INKEY$ "" THEN 30 20 GOTO 10 30 LOCATE 0, 0 40 PRINT "さてはアナタ、ボタンを押しましたね!" 50 I = 0 60 POKE I, HFF 70 I = I + 1 80 GOTO 60 NEW OK 10 COLOR 7 20 PRINT "BASIC ノコマンドダケデカタルスレッド。" 30 PRINT "ハンカクモジ イガイデモ カ。" 40 PRINT "C ゲンゴ トカ ツカイタケレバ ツカッテモヨシ。" 50 PRINT "マターリ カタリアイマセウ" 60 END 40 RUN 10 H$="150エン" N$="ネギダク" O$="オオモリ" T$="ツユダク" Y$="ヨシノヤ" 10 INPUT"ソンナコトヨリ キイテクレヨ 1ヨ。 スレトハ アンマ カンケイナイケドサ。(Y/N)";A$ 20 IF A$="Y"or"y" THEN 40 IF A$="N"or"n" THEN 30 ELSE 10 30 PRINT"ソウイワズニ キケ ゴルァ!" FOR I=0 TO 10 BEEP NEXTI 40 PRINT"コノアイダ キンジョノ";Y$;"イッタンデス。";Y$ 50 PRINT"ソシタラ、ナンカヒトガイーッパイイテ ハイレナインデス。" 60 PRINT"デ、ヨクミタラ ナンカ タレマク サガッテテ、" 70 PRINT H$;"ビキ トカ カイテアルンデス。" 80 PRINT"モウネ、アホカト。 バカカト。" 90 PRINT"オメエラナ、";H$;"ビキ ゴトキデ フダン キテナイ";Y$;"ニ キテンジャネーヨ。" 100 GOSUB 470 110 PRINT H$;"ダヨ、";H$;"。" 120 PRINT"ナンカ オヤコヅレ トカモ イルシ。" 130 PRINT"イッカ ヨニンデ";Y$;"カ。" 140 PRINT"オメデテーナ。" 150 PRINT"ヨーシ、パパトクモリ タノンジャウゾー、トカ イッテルノ。" 160 PRINT"モウミテランナイ。" 170 PRINT"オメエラナ、";H$;"ヤルカラ ソノセキ アケロト。" 180 PRINT Y$;"ッテノハナ、モット サツバツト シテルベキ ナンダヨ。" 190 PRINT"Uノジテーブルノ ムカイニ スワッタ ヤツト イツ ケンカガ ハジマッテモ オカシクナイ。" 200 PRINT"サスカ ササレルカ、ソンナ フンイキガ イインジャネエカ。" 210 PRINT"オンナ コドモハ スッコンデロ。" 220 PRINT"デ、ヤット スワレタカト オモッタラ、トナリノ ヤツガ、" 230 PRINT O$;T$;"デ、トカ イッテルンデス。" 240 PRINT"ソコデ マタ ブチギレ デスヨ。" 250 PRINT"アノナ、";T$;"ナンテ キョウビ ハヤンネーンダヨ。" 260 GOSUB 470 270 PRINT"トクイゲナ カオ シテ ナニガ";T$;"ダ。" 280 PRINT"オメエハ ホントウニ";T$;"ヲ タベタイノカト トイタイ。" 290 PRINT"トイツメタイ。" 300 PRINT"コイチジカン トイツメタイ。" 310 PRINT"オマエ、";T$;"ッテ イイタイ ダケ ナンジャナイカト。" 320 PRINT Y$;"ツウノ オレカラ イワセテ モラエバ、" 330 PRINT"イマ、";Y$;"ツウノ アイダデノ サイシン リュウコウハ ヤッパリ";N$;"。" 340 PRINT"コレダネ。" 350 PRINT N$;"ッテノハ ネギガ オオメニ ハイッテル。" 360 PRINT"ソノカワリ ニクガ スクナメ。" 370 PRINT"コレ。" 380 PRINT"デ、ソレニ";O$;"ギョク。" 390 PRINT"コレ。" 400 PRINT"サイキョウ。" 410 PRINT"シカシ コレヲ タノムト ツギカラ テンインニ マーク サレル トイウ キケンモ トモナウ、モロハノケン。" 420 PRINT"シロウトニハ オススメデキナイ。" 430 INPUT"マア オマエラハ、ギュウサケテイショク デモ クッテナサイッテ コッタ。(Y/N)";A$ 440 IF A$="Y"or"y" THEN 460 IF A$="N"or"n" THEN 450 ELSE 430 450 PRINT"ダマレ チュウボウ!" FOR I=0 TO 10 BEEP NEXTI 460 END 470 PRINT"ボケガ。" RETURN 1000 PRINT"小泉孝太郎は佐藤藍子がお鍋してる時の姿 1010 PRINT"佐藤藍子は小泉孝太郎がお釜してる時の姿 1020 PRINR"だまされるなよ 1 REM ウケケ 5 CLS 10 ON STOP GOSUB 30 20 PRINT "ヘヘヘ" 30 RETURN 100 スロットマシン 105 CLS 110 IK$=CHR$( HFF) WHILE IK$ " " IK$=INKEY$ A%=INT(RND(TIME)*9) LOCATE 1,1 PRINT STR$(A%) WEND 120 IK$=CHR$( HFF) WHILE IK$ " " IK$=INKEY$ B%=INT(RND(TIME)*9) LOCATE 4,1 PRINT STR$(B%) WEND 130 IK$=CHR$( HFF) WHILE IK$ " " IK$=INKEY$ C%=INT(RND(TIME)*9) LOCATE 7,1 PRINT STR$(C%) WEND 140 IF A%=B% AND A%=C% THEN PRINT "オオアタリ" GOTO *ED 150 IF A%=B% OR A%=C% OR B%=C% THEN PRINT "オシイ" GOTO *ED 160 PRINT "ハズレ" 170 *ED 180 END 10 SCREEN 0 WIDTH 32 CALL KANJI 3 CALL CLS 15 DEFINT A-Z 20 25 PRINT "数当てゲーム(^^;;)" 30 AN=RND(1)*10000 40 INPUT "数はいくつでしょう?";QS 50 IF AN QS THEN ME$="小さすぎます。" 60 IF AN QS THEN ME$="大きすぎます。" 70 IF AN = QS THEN 500 80 PRINT ME$ GOTO 40 500 510 NEW 10 CLS 20 RANDOMIZE TIME 30 DEFINT A-Z 40 X1=RND(1)*640 Y1=RND(1)*200 50 X2=RND(1)*640 Y2=RND(1)*200 60 C=RND(1)*8 70 LINE(X1,Y1)-(X2,Y2),C,PSET,BF 80 GOTO 40 行番号が何千行もあるプログラム作って(内容は適当でOK), list だぁーっと表示されているうちに先行入力. new 「お前はもう死んでいる」って言って喜んでた (阿呆 286 :どうよ?1 :02/12/15 23 03 10 CONSOLE 0,25,0 SCREEN 3 CLS 3 COLOR 7 LOCATE ,,0 RANDOMIZE TIME PLAY "CDERCDER","EFGREFGR" 20 LOCATE 30,10 PRINT "KEYBOARD OLYMPIC 99" LOCATE 26,15 PRINT "***** PUSH SPACE KEY *****" WAIT 10 30 FOR I=0 TO 1 I=-(INKEY$=" ") J=RND NEXT PLAY "V100L16O4CDERCDERCDER","V100L16O4EFGREFGREFGR" WAIT 400 40 FOR J=0 TO 180 FOR I=0 TO 6 COLOR I+1 LOCATE 26,15 PRINT"***** PUSH SPACE KEY *****" WAIT 8 NEXT NEXT 50 CLS 3 ST=1 SC=0 55 RESTORE 1000 FOR J=0 TO 3 FOR I=0 TO 2 READ KD$(I,J) NEXT NEXT 60 LOCATE 30,10 PRINT "100m DASH STAGE=";ST LOCATE 28,13 PRINT "Y O U R S C O R E = "SC WAIT 1000 70 CLS 3 X=0 TX=0 KT$=KD$(RND*3,ST-1) KC=0 STM=TIME LOCATE X,12 PRINT " Ω"; LOCATE TX,15 PRINT " γ"; 80 K$=INKEY$ KC$=MID$(KT$,KC+1,1) IF KC$=K$ THEN PLAY "V100O5L128GC","V100O5L128BG" X=X+2 KC=KC+1 SC=SC+1 LOCATE X,12 PRINT" Ω"; GOSUB 200 IF KC LEN(KT$) THEN KC=0 82 IF K$ "" AND KC$ K$ THEN PLAY "V100O2L128GC","V100O2L128BG" SC=SC-5 IF SC 1 THEN SC=0 85 LOCATE 8,4 PRINT "次はこのキーを押せ!:";KC$ LOCATE 42,4 PRINT "B O N U S "1000-(TIME-STM) LOCATE 26,6 PRINT"Y O U R S C O R E = ";SC 88 IF RND ST/1000 THEN TX=TX+2 LOCATE TX,15 PRINT" γ"; IF TX 75 THEN 300 90 GOTO 80 287 :どうよ?2 :02/12/15 23 05 200 GOAL ? 210 IF X 75 THEN PLAY "L16O4CDERCDERCDGGGR","L16O4EFGREFGREFBBBR" WAIT 400 ELSE RETURN 220 FOR J=0 TO 180 FOR I=0 TO 6 COLOR I+1 LOCATE 26,18 PRINT "******** GOAL *********" WAIT 8 NEXT NEXT ST=ST+1 SC=SC+1000-(TIME-STM) CLS GOTO 60 300 GAME OVER 310 PLAY "V100L8O2BGFECDCCC","V100O3(BFE)(DCG)(BFE)(DCG)O2(BGE)(GGF)(EDC)(CCCCCC)" 320 FOR J=0 TO 180 FOR I=0 TO 6 COLOR I+1 LOCATE 30,10 PRINT "GAME OVER STAGE=";ST LOCATE 28,13 PRINT "Y O U R S C O R E = "SC WAIT 8 NEXT NEXT WAIT 5000 CLS 3 COLOR 7 GOTO 20 1000 DATA WATASHIHA,OSYABERI,HAYAUCHI 1010 DATA HANASHIWOKIITA,NAZONOOOIKOTOBA,TUGINOYOUNIKATARU 1020 DATA KUWASHIIMEKANIZUMUHA,AKIRAKANINATTEINAIKOTOGARA,KONOKEKKAKARAKODOMONOHATUIKUNIHA 1030 DATA NICHANNERAANINATTEKARA,INTTERNETYARIHAJIMETEYOKATTA,IMAMADEFURUIKYUUHACHIDATTAKEDO # 今日99BASICをインストールして、その勢いで、その日にタイピングゲーをつくってしまった。。。(まだ4面しかないですが) # こんなプログラムがマジで動いてしまう99BASICはここからタダでGet!!しますた→ttp //www.sagami.ne.jp/tadaka/99Basic/download.html 10 SHASEI 20 screen 3 cls 3 30 line(0,160)-(330,160) 40 line(0,240)-(330,240) 50 for S=-1 to 1 step 2 60 for T=int(-sqr(2000)) to 60 70 X1=T Y1=sqr(3600-X1^2) 80 X=X1+330+int(sqr(2000)) Y=-Y1*S+200 90 pset (X,Y) 100 next next 110 for R=1 to 10 120 for S=0 to 14 130 for T=7 to 0 step -7 140 for U=0 to 15 150 circle (460+S*25,200+2*S^2),U,T 160 next next next next 170 line input "CLS 3 OK?";A$ 180 cls 3 190 end 10 goto 50 20 data "こうやってDataを頭に持ってきて" 30 data "読み込み速度を高速化するということしたよね~" 40 data "それ以外にもサブルーチンを先頭に持ってくるとか。" 50 data "end" 60 Init 70 defstr s 80 read s 90 if s "end" then print s else end 100 goto 80 343 :ナイコンさん :03/08/01 18 21 1 RADAR GAME for PC8801 N88BASIC 10 WIDTH 40 CONSOLE 0,25,0 DEFINT A-Z RANDOMIZE VAL(RIGHT$(TIME$,2)) DIM V(8) 20 CLS GOSUB 230 P=8 F=2 EX=INT(RND(1)*9) EY=INT(RND(1)*9) 30 PRINT "M123456789 E123456789" 40 FOR I=1 TO 9 PRINT USING "#・・・・・・・・・ #・・・・・・・・・";I;I NEXT CONSOLE 12,13 50 CLS PRINT "ミカタ クチクカン ハイビ" GOSUB 180 MX=X MY=Y LOCATE MX+1,MY+1 PRINT "D" 60 CLS PRINT "テキノ コウゲキ" GOSUB 200 ON F GOTO 70,80 70 X=AX+X Y=AY+Y GOSUB 210 IF A THEN PRINT "ヤバーー" GOTO 100 ELSE 100 80 X=X*3+1 Y=Y*3+1 HX=MX HY=MY GOSUB 210 90 IF A THEN PRINT "ヤバー" F=1 AX=X-1 AY=Y-1 GOSUB 230 V(4)=V(8) P=7 100 LOCATE X+1,Y+1 PRINT "+" LOCATE 0,16 PRINT "ミカタノ コウゲキ" GOSUB 180 110 IF (EX=X)*(EY=Y) THEN X=X+12 Y=Y+1 PRINT "ヤッターー!!" GOTO 160 120 HX=EX HY=EY GOSUB 220 M$="+" R$="カスリモシネーョ" IF A THEN M$="O" R$="(゚ロ゚)ウマー" 130 PRINT R$ LOCATE X+12,Y+1 PRINT M$ 140 LOCATE 0,22 PRINT "ナニカ キーヲ オシテ" A$=INPUT$(1) GOTO 60 150 X=X+1 Y=Y+1 PRINT "グハッ ヤラレターー!!" LOCATE EX+12,EY+1 PRINT "E" 160 LOCATE X,Y PRINT "*" BEEP BEEP CONSOLE 0,25 LOCATE 0,22 170 INPUT "Replay? (Y/N)";A$ IF INSTR("Yy",A$) THEN 20 ELSE WIDTH 80 END 180 INPUT "X=";X INPUT "Y=";Y IF (X 1)+(Y 1)+(X 9)+(Y 9) THEN 180 190 X=X-1 Y=Y-1 RETURN 200 A=INT(RND(1)*(P+1)) Y=V(A)\3 X=V(A)-Y*3 V(A)=V(P) P=P-1 RETURN 210 PRINT USING "テキガ #ー# ヲ コウゲキ";X+1;Y+1 IF (MX=X)*(MY=Y) THEN RETURN 150 220 A=0 FOR I=-1 TO 1 FOR J=-1 TO 1 A=A+(HX=X+J)*(HY=Y+I) NEXT NEXT RETURN 230 FOR I=0 TO 8 V(I)=I NEXT RETURN 344 :ナイコンさん :03/08/01 18 36 2 DEBUG ROOM 70 X=AX+X Y=AY+Y HX=MX HY=MY GOSUB 210 IF A THEN PRINT "ヤバーー" GOTO 100 ELSE 100 1 HANABI - PC8801 N88-BASIC 10 SCREEN 0 CLS 3 CONSOLE ,,0 DEFINT A-Z DIM Y(639) 20 A=170 F=1 RANDOMIZE VAL(RIGHT$(TIME$,2)) 30 FOR I=0 TO 639 40 Y(I)=A-1 PSET (I,A),1 A=A+F IF A 150 OR A 190 OR RND(1) .5 THEN F=-F 50 NEXT 60 X=INT(RND(1)*560)+40 Y=INT(RND(1)*70)+40 70 C=INT(RND(1)*7)+1 R=INT(RND(1)*60)+20 S=INT(RND(1)*4)+3 80 FOR I=C TO 0 STEP -C 90 FOR J=Y(X) TO Y STEP -1 100 PSET (X,J),I 110 NEXT NEXT 120 FOR I=C TO 0 STEP -C 130 FOR J=1 TO R STEP S 140 CIRCLE(X,Y),J,I---- 150 NEXT NEXT 160 GOTO 60 昔「MOD」って命令を初めてみたとき、 なんて便利な命令だって驚いたよ。 C=A-INT(A/B)*B とかやってたから(w F1 load " F6 save " F2 auto F7 key F3 go to F8 print F4 list F9 edit .[cr] F5 run[cr] F10 cont[cr] 最初に出てくる How many files(0-15)? は同時に開けるファイルの数。 規定値は3
https://w.atwiki.jp/abwiki/pages/40.html
(4.24と比べて)4.23の方が安定度高いんじゃないかなと思うけどどう思う? 選択肢 投票 はい (47) いいえ (58) 再試行 (49) 好きなAKB48メンバー 選択肢 投票 倉持明日香 (17) 小嶋陽菜 (12) 高橋みなみ (5) 中田ちさと (10) 板野友美 (15) 仁藤萌乃 (32) 藤江れいな (10) 宮澤佐江 (5) 柏木由紀 (11) 北原里英 (5) 佐藤すみれ (10) 近野莉菜 (5) 島崎遥香 (5) 山内鈴蘭 (5) DD (10) その他 (12) よく使う言語 選択肢 投票 BCPL (5) COBOL (10) N88-BASIC (10) N88-日本語BASIC (5) Quick Basic (5) BASIC/98 (5) ファミリーベーシック (6) GAME BASIC for SEGASATURN (5) VBScript (6) PASCAL (10) Ada (5) Whitespace (6) D言語 (5) その他 (51) 尊敬する人 選択肢 投票 福沢諭吉さん (4) 新渡戸稲造さん (1) 樋口一葉さん (2) 夏目漱石さん (3) 野口英世さん (3) 荘口彰久さん (4) 橋本明子さん (1) 特宗清さん (4) その他の人 JAVA -- 上田裕也 (2010-02-23 22 58 16) g++のversion 3 -- k (2010-03-04 16 37 16) HSP! HSP! -- ガンブラー被害 (2010-03-06 00 13 05) みけCAT -- Perl (2010-03-14 08 23 44) ↑逆だ -- みけCAT (2010-03-14 08 24 10) WSH -- AB (2010-03-26 02 13 14) N88 N ASIC ってなんだw -- ばばば (2010-06-01 11 00 11) ↑修正しました -- 名無しさん (2010-06-11 07 51 51) Delphi=Pascalに含まれる -- ガンブラー被害 (2010-06-25 19 34 57) Cとなでしこ -- なでしこ好き (2011-01-23 17 52 06) なんで仁藤が一番なん?まりやんぬいれろよ -- キャラメルクラッチ (2011-02-06 12 40 15) HSP -- 名無しさん (2012-03-01 11 45 26) 名前 コメント
https://w.atwiki.jp/abwiki/pages/655.html
NECのマイコン、PC-8801に搭載されたBASIC言語。 ROMから起動するディスクアクセスのできないROM-BASIC、 FDから起動するディスクアクセスの可能なDISK-BASICとがある。
https://w.atwiki.jp/powerzon/pages/23.html
2006/12/11 本日こちらの商品が届きました。 通常こちらの商品は1500円位しますが、 PLAY-ASIAで、 US$ 2.99 (348.79円)と激安だったため、思わず2個買っちゃいました。 もっと買っても良かったかも(汗) 前回同様、1週間で届きました。 PLAY-ASIAで、ぐるみんをUS$12.90(1533円)で買いました! アジア版ですが、中身は日本版と同じです。 他にも安いソフトたくさんあります。 しかも、送料無料です。 2006/11/20 本日商品が届きました。 1週間で来ました。 海外から発送なのでこんなもんでしょう。 ソフト、説明書は日本版そのままです。 中国語、英語の説明が書かれた紙が1枚追加で入っているだけです。 定形外郵便で来ました。 だから送料無料なのですね。 オプション(有料)で発送方法も指定できます。 パッケージは日本版と変わり有りませんね。 この部分のみがアジア版って感じですね。 サイトは日本語で書かれているし、住所も日本語で登録しても ちゃんと届きました。 また、支払い方法はカード(Visa か Master)払いと考えた方が 良いです。 なので、特に海外通販という気はしません。 ちなみに、私もこれが初めての海外通販です。
https://w.atwiki.jp/openmusic/pages/355.html
入力 説明 デフォ [0] self 音楽オブジェクト。 nil [ key] approx 2なら半音単位、4なら四分音単位、8なら八分音単位・・・etc 2 [ key] interval (開始タイミング[ms] 終了タイミング[ms]) nil [ key] port ポートの指定。 nil [ key] player (使いたいプレイヤー。) nil 音楽オブジェクトに演奏させる。 approx には2・4・8などを入力し、2なら半音単位、4なら四分音単位、8なら八分音単位で解釈されmidi信号が送られる(MicroPlayerがあれば六分音などもできるはず)。これは音楽オブジェクト自体のApprox設定には依存せず、例えば音楽オブジェクトが半音単位でも、Playが八分音単位になっていれば八分音単位としてmidi信号が送られる。 (微分音については多少の細工が必要。クイックスタート 5.2章を参照されたし。) interval は再生したい期間を(開始タイミング[ms] 終了タイミング[ms])で指定。事前に発音されてしまっている音も再生範囲に入るという高性能仕様。 port を指定するとそのポートで鳴らす。 ( player は使いたいプレイヤーのシンボル名(MidiShareとかMicroPlayerとか)を与えるようなものだと思われるが、筆者のOSはWindowsなので分からん。)
https://w.atwiki.jp/darkbasic/pages/55.html
PLAY SOUNDコマンド 指定したサウンドを再生します。 使用例 PLAY SOUND 1 サウンド1を再生します。
https://w.atwiki.jp/nigamushi/pages/29.html
PLAY SOUNDコマンド 指定したサウンドを再生します。 使用例 PLAY SOUND 1 サウンド1を再生します。
https://w.atwiki.jp/pdmatome/pages/16.html
概要 SIE Japanによる 東方二次同人ゲームのパブリッシング企画だったが 今では東方以外の同人ゲームやら、Nintedo Switchへの移植とかしていて、もはやSony関係ない状態。 ついに参加サークル数が 東方<非東方 になった。 (おそらく、ZUNによる著作権ロンダリング事業ではない) パブリッシャーは、メディアスケープ株式会社(※D.N.A. Softwaresの法人格)。 でも、株式会社ヘッドハイも関わってたりする。 最近はSME傘下のUNTIESレーベルとかも関わってる。 (実態はSIE Japanの人がSMEに移っただけやん…) 経緯 SCEJAプレスカンファレンス 2014で「ZUN×PlayStation プロジェクト」として発表される。 当初は東方二次創作ゲームのPS4パブリッシング企画だった。 同年12月、現在の「Play,doujin!」に改名される。 (D.N.A.ことメディアスケープの江崎社長は、当初は東方二次ゲーを扱うつもりは無かったらしい…) 体制 開発・移植は制作サークルが自ら行う。 CERO審査などといった、同人ソフトサークルには縁のない手続きを 「メディアスケープ株式会社」やUNTIESが代理で行いこの会社名義で配信される。 ZUNの立ち位置 一応、協力者という形になっており、 二次創作のガイドラインに、家庭用ゲーム機での配信はPlay,doujin!を通すことが追加されているよう。
https://w.atwiki.jp/abwiki/pages/60.html
N88BASIC互換性について PC8801とかのようにOSなんてものがROM-BASICとゴチャ混ぜ状態だったころのようなあの時代には戻れません。 以下にABのN88BASIC互換性のポイントを挙げる ダイレクトモードは無い 各種コマンドは無い。SAVE,LOAD,LIST,RUNはもちろんAUTO,KEYも無い。 READ,DATA関連は無い 変数はDimで明記しなければならない ON 〇〇 GOTO/GOSUB関連も存在しない SCREEN 3,0,0,1 CONSOLE ,,0,1 DEFINT A-Z CLS 3←CLSしか無い テキスト、グラフィックの重ね合わせはできない。 BEEP(0) BEEP(1)でブザーを作ることはできない。 関数は大文字小文字を区別する(ABSはAbs、ASCはAscとなる) このようなワケで、N88BASICのプログラムを移植するときは苦労します。 画面サイズの変更 Sub N88SIZE(w As Long, h As Long)Dim wrc As RECT, crc As RECTDim ps[1] As POINTAPIGetWindowRect(_PromptSys_hWnd, wrc)GetClientRect(_PromptSys_hWnd, crc)ps[0].x=crc.left ps[0].y=crc.topps[1].x=crc.right ps[1].y=crc.bottomClientToScreen(_PromptSys_hWnd,ps[0])ClientToScreen(_PromptSys_hWnd,ps[1])crc.left=ps[0].x crc.top=ps[0].ycrc.right=ps[1].x crc.bottom=ps[1].yps[0].x = (crc.left-wrc.left) + (wrc.right-crc.right)+wps[0].y = (wrc.bottom -crc.bottom) + (crc.top-wrc.top)+hSetWindowPos(_PromptSys_hWnd,0,0,0,ps[0].x, ps[0].y, SWP_NOMOVE)End Sub ウェイト ループによるウェイトは速度の問題から使えません。 Sleep()で対処するか、Time$を使うなどして下さい。 Sub WAIT()Dim i$ As StringDim j$ As Stringi$=Time$() j$=Time$()While i$=j$j$=Time$()WendEnd Sub 対応表 ○=ABに存在し互換性がある △=ABに存在するが利用に注意が必要 ×=ABに存在しない ○ ABS ○ ASC ○ ATN × ATTR$ × AUTO △ BEEP × BLOAD × BSAVE × CALL ○ CDBL × CHAIN ○ CHR$ ○ CINT △ CIRCLE × CLEAR ○ CLOSE △ CLS × COLOR × COMMON × CONSOLE × CONT × COPY ○ COS ○ CSNG × CSRLIN × CVD × CVI × CVS × DATA △ DATE$ △ DEF FN × DEF USR × DEFDBL × DEFINT × DEFSNG × DEFSTR × DELETE △ DIM × DSKF × DSKI$ × DSKO$ × EDIT ○ END ○ EOF × ERASE × ERL × ERR × ERROR ○ EXP △ FIELD × FILES ○ FIX × FN ○ FOR~NEXT × FORMAT × FPOS × FRE △ GET × GET@ ○ GOSUB ○ GOTO × HELP ON/OFF/STOP ○ HEX$ ○ IF~THEN~ELSE △ INKEY$ × INP △ INPUT △ INPUT$ △ INPUT# ○ INSTR ○ INT × KEY × KEY LIST × KEY ON/OFF/STOP ○ KILL ○ LEFT$ ○ LEN ○ LET × LFILES △ LINE × LINE INPUT × LINE INPUT# × LIST × LLIST × LOAD ○ LOC ○ LOCATE ○ LOF ○ LOG × LPOS × LPRINT × LSET × MERGE △ MID$ × MKD$ × MKI$ × MKS$ × MON × MOTOR × NAME × NEW × NEW ON ○ OCT$ × ON ERROR GOTO × ON HELP GOSUB × ON KEY GOSUB × ON STOP GOSUB × ON TIME$ GOSUB × ON~GOSUB × ON~GOTO △ OPEN × OPTION BASE × OUT × PAINT × PEEK × POINT × POKE × POS(0) × PRESET △ PRINT ○ PSET △ PUT × PUT@ △ RANDOMIZE × READ ○ REM × RENUM × RESTORE × RESUME ○ RETURN ○ RIGHT$ ○ RND × ROLL × RSET × RUN × SAVE × SCREEN × SEARCH × SET ○ SGN ○ SIN ○ SPACE$ ○ SQR × STOP × STOP ON/OFF/STOP ○ STR$ ○ STRING$ × SWAP ○ TAN ○ TIME$ × TIME$ ON/OFF/STOP × TROFF × TRON ○ VAL × VIEW × WAIT ○ WHILE~WEND × WIDTH × WIDTH PRINT × WINDOW △ WRITE