44 ─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG 2012-01-15 15:05:54 ID: …創生期に限定してるからムダなゴロツキも発生しにくいなw
偏差値レベルAAA以上。 - - - - - - - - - -
《参考》 PC誌購読者の偏差値レベル
SSS Bit(共立出版) / インターフェイス(CQ出版) SS トランジスタ技術(CQ出版) / トラ技スペシャル(CQ出版) S プロセッサ(技術評論社) AAA アスキー(アスキー出版) / Oh!MZ [ Oh!X ](ソフトバンク出版) AA Oh!FM(ソフトバンク出版) A Oh!PC(ソフトバンク出版) BB Pio(工学社) MSXマガジン(アスキー出版) B I/O(工学社) マイコンBASICマガジン(電波新聞社) C マイコン(電波新聞社) D バックアップ活用研究(三才ブックス) E ログイン(アスキー出版) / テクノポリス(徳間出版) F ファミ通(アスキー出版) / ゲームラボ(三才ブックス)
95 ─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG 2012-01-16 08:00:57 ID: 310 FOR I=0 TO 1 320 C$="" 330 FOR J=0 TO 15 340 READ TX$ 350 FOR K=0 TO 15 360 C$=C$+CHR$(VAL("&H"+MID$(TX$,K+1,1))) 370 NEXT K 380 NEXT J 390 CHRGEN$(ASC("0")+I)=C$ 400 NEXT I 410 END 420 ' 430 *PALETTE_DATA 440 DATA "202020" 450 DATA "404040" 460 DATA "606060" 470 DATA "808080" 480 DATA "A0A0A0" 490 DATA "C0C0C0" 500 DATA "E0E0E0" 510 DATA "FFFFFF" 520 ' 530 DATA "004000" 540 DATA "106010" 550 DATA "208020" 560 DATA "30A030" 570 DATA "40C040" 580 DATA "50E050" 590 DATA "60FF60" 600 '
96 ─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG 2012-01-16 08:01:17 ID: 610 *PATTERN_DATA 620 DATA "9ABCDEFEDCBA9ABC" 630 DATA "ABCDEFEDCBA9ABCB" 640 DATA "BCDEFEDCBA9ABCBA" 650 DATA "CDEFEDCBA9ABCBA9" 660 DATA "DEFEDCBA9ABCBA9A" 670 DATA "EFEDCBA9ABCBA9AB" 680 DATA "FEDCBA9ABCBA9ABC" 690 DATA "EDCBA9ABCBA9ABCD" 700 DATA "DCBA9ABCBA9ABCDE" 710 DATA "CBA9ABCBA9ABCDEF" 720 DATA "BA9ABCBA9ABCDEFE" 730 DATA "A9ABCBA9ABCDEFED" 740 DATA "9ABCBA9ABCDEFEDC" 750 DATA "ABCBA9ABCDEFEDCB" 760 DATA "BCBA9ABCDEFEDCBA" 770 DATA "CBA9ABCDEFEDCBA9" 780 ' 790 DATA "1111111111111111" 800 DATA "1222222222222221" 810 DATA "1233333333333321" 820 DATA "1234444444444321" 830 DATA "1234555555554321" 840 DATA "1234566666654321" 850 DATA "1234567777654321" 860 DATA "1234567887654321" 870 DATA "1234567887654321" 880 DATA "1234567777654321" 890 DATA "1234566666654321" 900 DATA "1234555555554321"
97 ─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG 2012-01-16 08:01:28 ID: 910 DATA "1234444444444321" 920 DATA "1233333333333321" 930 DATA "1222222222222221" 940 DATA "1111111111111111" 950 '
105 ─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG 2012-01-16 20:05:42 ID: …次は画面の同期を取る方法を考えながら事例をプログラムしてみよう。
99BASICはVSYNCを正確に捕えるコマンドがないから、タイマー割り込みを使って代用する。
10 ' SAVE"CIRCLE.BAS",A 20 ON INTERVAL GOSUB *TSYNC:INTERVAL ON,16 30 DEFDBL A-Z 40 SCREEN 3 50 WIDTH 56,16 60 FOR J=1 TO 15 70 PALETTE J,(J*16+15,J*16+15,J*16+15) 80 NEXT J 90 COLOR 15:CLS 3 100 ' 110 DP=3.141592653#/180 120 FOR J=0 TO 359 130 CLS 2 140 CIRCLE(192,16)-(448-192,256-16),255,,J*DP 150 PAINT(448/2,256/2),J AND 15,255 160 TS=0 170 IF TS=0 THEN 170 180 NEXT J 190 END 200 ' 210 *TSYNC 220 TS=1 230 RETURN