800327 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

冷静とオタクのあいだ

リスト:BGTEST

プチコン プログラムリスト

タイトル:BGTEST
BG画面のテスト表示
十字キーでスクロールします。
表示しているものは標準で用意されている画像を順に並べただけです。
BGTEST.JPG

http://www43.tok2.com/home/ogut/index.html
リスト作成に上記サイトの「PTC2HTML」を利用させていただいています。

01. ACLS
02. CLEAR
03. BGPAGE 0
04. K=0
05. FOR I=0 TO 63
06.  FOR J=0 TO 63
07.   BGPUT 0,J,I,K,0,0,0
08.   K=K+1
09.   IF K>1023 THEN K=0
10.  NEXT J
11. NEXT I
12. VISIBLE 0,0,1,0,0,0
13. BGX=0
14. BGY=0
15. @LOOP
16. BTN=BUTTON(0)
17. IF BTN AND 1 THEN YY=4
18. IF BTN AND 2 THEN YY=-4
19. IF BTN AND 4 THEN XX=4
20. IF BTN AND 8 THEN XX=-4
21. 
22. IF BTN AND 64 GOTO @EXIT
23. 
24. BGX=BGX+XX
25. BGY=BGY+YY
26. IF BGX<0 THEN BGX=511-(BGX-511)
27. IF BGX>511 THEN BGX=BGX-511
28. IF BGY<0 THEN BGY=511-(BGY-511)
29. IF BGY>511 THEN BGY=BGY-511
30. 
31. WAIT 1
32. BGOFS 0,BGX,BGY
33. XX=0
34. YY=0
35. GOTO @LOOP
36. 
37. @EXIT
38. ACLS
39. CLEAR
40. 
41. 

BGTEST_1.jpg


Copyright (c) 1997-2020 Rakuten, Inc. All Rights Reserved.