LoginLogin
Nintendo shutting down 3DS + Wii U online services, see our post

Sample Programs

Root / General / [.]

HitomiHoshinoCreated:
Hello, just curious, are the example programs that come with SB typed out somewhere? I thought I saw the Japanese ones. I am considering going through it and examining line by line what the Jump-kun game does and putting notes in it. I tried looking at how it loads maps and there are alot of things it does that I'm not sure why it does it yet.

http://smileboom.com/special/ptcm3/sample/ Click button below title of any to view source code. Unfortunately not available on English website. Jump-kun: http://smileboom.com/special/ptcm3/sample/code/game3.php

Excellent, thank you.

Nice; when we get sticky threads, we should probably sticky this lol.

Someone should translate this one.
'======ใƒ“ใ‚ฎใƒŠใƒผใƒ—ใƒญใ‚ฐใƒฉใƒ  Ver 1,2=======  
'                                
'  ใ€Œ'ใ€ใ‚’ใ‹ใใ“ใจใงใƒ—ใƒญใ‚ฐใƒฉใƒ ใฏใ€Œ'ใ€ใ‚ˆใ‚ŠใฟใŽใŒใ‚ใฎ     
'  ใ‚‚ใ˜ใฏใ‚€ใ—ใ—ใฆใฉใ†ใ•ใ™ใ‚‹ใ‚ˆ!                
'  ใ‚€ใ—ใ•ใ‚Œใ‚‹ใ‚‚ใ˜ใฏใ“ใฎใ„ใ‚(ใฟใฉใ‚Š)ใซใชใ‚‹ใ‚ˆ!        
'  ใ€Œใ‚ชใƒ—ใ‚ทใƒงใƒณใ€ใฎใ€ŒใŠใ‚Šใ‹ใˆใ—ใฒใ‚‡ใ†ใ˜ใ€ใฏใ‚ชใƒ•ใซใ—ใฆใ‚ˆใ‚“ใงใญ!
'                                
'==============================  
                       ' ใƒ—ใƒญใ‚ฐใƒฉใƒ ใฏใใปใ‚“ใฆใใซใ€ใ†ใˆใ‹ใ‚‰ใ˜ใ‚…ใ‚“ใซใ—ใ‚‡ใ‚Šใ•ใ‚Œใฆใ„ใใ‚ˆใ€‚               
ACLS                   '๎ˆใ€ŒACLSใ€ใฏใŒใ‚ใ‚“ใœใ‚“ใŸใ„ใ‚’ใ—ใ‚‡ใ†ใใ‚‡ใ™ใ‚‹ใ‚ใ„ใ‚Œใ„ใ ใ‚ˆใ€‚                 
                       ' ใจใ‚Šใ‚ใˆใšใ„ใพใฏใ„ใกใฐใ‚“ใฏใ˜ใ‚ใซใ‹ใ„ใฆใŠใ“ใ†ใ€‚                       
                       '                                               
X=100:Y=50             '๎ˆXใจYใฏใ€ใฎใกใซใฒใ‚‡ใ†ใ˜ใ™ใ‚‹ใ€ใ—ใ‹ใใ‘ใ„ใฎใ–ใฒใ‚‡ใ†ใ‚’ใปใžใ‚“ใ—ใฆใ„ใ‚‹ใ‚ˆใ€‚           
                       ' ใ™ใ†ใกใ‚’ใˆใ„ใ˜ใฎใชใ‹ใซใปใžใ‚“ใ—ใฆใŠใ‘ใ‚‹ใ‚“ใ ใ€‚                        
                       ' ใ“ใ†ใ„ใ†ใฎใ‚’ใ€Œใธใ‚“ใ™ใ†ใ€ใฃใฆใ„ใ†ใ‚“ใ ใ‚ˆใ€‚                          
                       ' A+Bใจใ‹ใ€ใธใ‚“ใ™ใ†ใฉใ†ใ—ใงใ‘ใ„ใ•ใ‚“ใ™ใ‚‹ใ“ใจใ‚‚ใงใใ‚‹ใ‚“ใ ใ€‚                 
                       ' ใƒ—ใƒญใ‚ฐใƒฉใƒ ใฏใ€ใ“ใฎใ€Œใธใ‚“ใ™ใ†ใ€ใงใ™ในใฆใชใ‚ŠใŸใฃใฆใ‚‹ใจใ„ใฃใฆใ‚‚ใ‹ใ”ใ‚“ใ˜ใ‚ƒใชใ„ใ‚ˆใ€‚       
                       ' ใใปใ‚“ใฆใใซใ€ใ‚ใ„ใ‚Œใ„ใชใฉใซใคใ‹ใ‚ใ‚Œใฆใ„ใชใ„ใˆใ„ใ˜ใชใ‚‰ใŠใ‚‚ใ„ใคใใฎใˆใ„ใ˜ใงใ‚‚ใคใ‹ใˆใ‚‹ใ‚ˆใ€‚  
                       '                                               
                       ' ใƒ—ใƒญใ‚ฐใƒฉใƒ ใฏใ€ใ†ใˆใ‹ใ‚‰ใ—ใ‚‡ใ‚Šใ™ใ‚‹ใ‘ใฉใ€ใ„ใกใฐใ‚“ใ—ใŸใพใงใ„ใฃใฆใ—ใพใ†ใจ            
                       ' ใฉใ†ใ•ใŒSTOPใ—ใฆใ—ใพใ†ใ‚“ใ ใ€‚                              
                       ' ใ ใ‹ใ‚‰ใ€ใฆใ„ใ—ใ•ใ›ใŸใใชใ„ใฐใ‚ใ„ใฏใ€ใ‚ใ‚‹ใฐใ—ใ‚‡ใซใใŸใ‚‰ใ‚‚ใฉใ—ใฆใ‚ใ’ใชใ‘ใ‚Œใฐใชใ‚‰ใชใ„ใ€‚    
                       '                                               
'=======ใƒกใ‚คใƒณใƒซใƒผใƒ—======== '๎ˆใใฎใŸใ‚ใฎใƒซใƒผใƒ—ใŒใ“ใฎใŽใ‚‡ใ†ใ‹ใ‚‰ใฏใ˜ใพใ‚‹ใ‚ˆ!                        
@MAINLOOP              '๎ˆใ€Œ@๎‹ก๎‹กใ€ใจใ˜ใ‚†ใ†ใซใ‚ใ‹ใ‚Šใ‚„ใ™ใ„ใชใพใˆใ‚’ใคใ‘ใ‚‰ใ‚Œใ‚‹ใ‚ˆ!                   
                       ' ใ“ใ‚Œใงใ„ใคใงใ‚‚ใ€ŒGOTO @๎‹ก๎‹กใ€ใจใ€ใ‹ใ‘ใฐใใฎใŽใ‚‡ใ†ใซใจใฐใ™ใ“ใจใŒใงใใ‚‹ใ€‚        
 GCLS:CLS              '๎ˆใ€ŒGCLSใ€ใฏใ‚ฐใƒฉใƒ•ใ‚ฃใƒƒใ‚ฏใ‹ใ‚“ใ‘ใ„ใฎใ—ใ‚‡ใ†ใใ‚‡ใ€ใ€ŒCLSใ€ใฏใ‚‚ใ˜ใฎใ—ใ‚‡ใ†ใใ‚‡ใ ใ‚ˆใ€‚       
                       ' ACLSใฏใ„ใ‚ใ„ใ‚ใƒชใ‚ปใƒƒใƒˆใ•ใ‚Œใ‚‹ใ—ใ€ใ‹ใ„ใ—ใกใ‚‡ใใ”ใ„ใŒใ„ใฏใ€ใ‚ใพใ‚Šใคใ‹ใ‚ใชใ„ใ‚ˆใ€‚        
 GOSUB @KEISAN         '๎ˆใ€ŒGOTOใ€ใฏใ„ใฃใŸใฃใใ‚Š ใ ใ‘ใฉใ€ŒGOSUBใ€ใฎใฐใ‚ใ„ใฏใพใŸใ“ใ“ใซใ‚‚ใฉใฃใฆใใ‚‹ใ‚“ใ ใ€‚     
 GOSUB @HYOUZI         ' 100ใŽใ‚‡ใ†ใ‚ใงใ‚ˆใณใ ใ—ใŸใ‚‰ใ€ใพใŸใ‚‚ใฉใฃใฆใใŸใจใ101ใŽใ‚‡ใ†ใ‚ใ‹ใ‚‰ใžใฃใ“ใ†ใ•ใ‚Œใ‚‹ใ‚“ใ ใ€‚    
                       ' ใตใใ™ใ†ใฎใฐใ—ใ‚‡ใ‹ใ‚‰ใ‚ขใ‚ฏใ‚ปใ‚นใงใใ‚‹ใ‚ˆใ†ใซใชใ‚‹ใ‚“ใ ใ‚ˆใ€‚                      
 VSYNC 1               '๎ˆใ“ใ‚ŒใฏใŒใ‚ใ‚“ใณใ‚‡ใ†ใŒใ‚ฟใ‚คใƒŸใƒณใ‚ฐใพใงใ€ใฉใ†ใ•ใ‚’ใฆใ„ใ—ใ—ใฆใ€ใŸใ„ใใ™ใ‚‹ใ‚ใ„ใ‚Œใ„ใ ใ‚ˆใ€‚        
                       ' ใ“ใ‚ŒใŒใชใ„ใจใŒใ‚ใ‚“ใŒใกใ‚‰ใคใ„ใŸใ‚Šใ€ใ—ใ‚‡ใ‚Šใฎใ‚Šใ‚‡ใ†ใงใ‚ฒใƒผใƒ ใ‚นใƒ”ใƒผใƒ‰ใŒใŠใŠใใใธใ‚“ใ‹ใ—ใกใ‚ƒใ†ใ‚“ใ ใ€‚ 
GOTO @MAINLOOP         '๎ˆใ“ใ“ใง25ใŽใ‚‡ใ†ใ‚ใฎใ€Œ@MAINLOOPใ€ใซใพใŸใจใฐใ™ใ‚“ใ ใ‚ˆใ€‚                 
                       ' ใ“ใ“ใพใงใŒใƒกใ‚คใƒณใƒซใƒผใƒ—ใ€ใ“ใ“ใ‚’ใšใƒผใฃใจใ‚ฐใƒซใ‚ฐใƒซใพใ‚ใฃใฆใ„ใ‚‹ใ‚ˆใ€‚                 
                       ' ใงใฏใ“ใฃใ‹ใ‚‰ใ—ใŸใฏใ€ใจใกใ‚…ใ†ใงใ‚ˆใณใ ใ•ใ‚Œใฆใ‚‹ใ‚ตใƒ–ใƒซใƒผใƒใƒณใ€ŒGOSUBใ€ใงใจใ‚“ใ ใ•ใใฎใ›ใคใ‚ใ„ใ !
'===================== '                                                 
'                      '                                                         
'--------------------- '                                                         
@KEISAN                '๎ˆใ“ใ‚“ใ‹ใ„ใฏใ€Œใ‘ใ„ใ•ใ‚“ใ€ใฎใ„ใฟใงใ—ใ‚‡ใ‚Šใ ใ‘ใ‚’ใ™ใ‚‹ใ‚ตใƒ–ใƒซใƒผใƒใƒณใซใ—ใฆใฟใŸใ‚ˆใ€‚                    
                       '                                                         
 CX=CX+0.2             '๎ˆCXใฏใ€ใ„ใฉใ†ใ™ใ‚‹ใถใ‚“ใ—ใ‚‡ใ†ใฎXใ–ใฒใ‚‡ใ†ใ‚’ใ„ใ‚Œใฆใ„ใ‚‹ใ‚ˆใ€‚ใคใ†ใ‹ใฎใŸใณใซCXใซ0.2ใšใคใ‹ใ•ใ‚“ใ—ใฆใ„ใ‚‹ใ‚ˆ     
 IF 40<CX THEN CX=0    ' IF~THENใฏใ€Œใ‚‚ใ—~ใชใ‚‰ใ€ใจใ„ใ†ใ„ใฟใ ใ‚ˆใ€‚ใ“ใฎใฐใ‚ใ„ใฏใ€Œใ‚‚ใ—CXใŒ40ใ‚’ใ“ใˆใŸใชใ‚‰ใ€๎ˆœใ€ŒCXใ‚’0ใซใ™ใ‚‹ใ€  
                       '                                                         
 B=BUTTON(0)           ' ใ€ŒBUTTONใ€ใฏใŠใ•ใ‚ŒใŸใ‚ญใƒผใ˜ใ‚‡ใ†ใปใ†ใ‚’ใ‹ใˆใ™ใ‚ใ„ใ‚Œใ„ใ ใ‚ˆใ€‚ใ˜ใ‚‡ใ†ใใ‚‡ใ†ใ‚’ใƒ˜ใƒณใ‚นใ‚ฆBใซใ„ใ‚ŒใŸใ‚ˆ        
 IF B AND 1 THEN Y=Y-1 ' 2ใ—ใ‚“ใ™ใ†ใงใฎใƒ‡ใƒผใ‚ฟใซใชใฃใฆใ„ใ‚‹ใ‚“ใ ใ‘ใฉใ€ใใ‚Œใ‚’10ใ—ใ‚“ใ™ใ†ใงใ€ใ—ใฆใ„ใ—ใฆใ„ใ‚‹ใ‚ˆใ€‚               
 IF B AND 2 THEN Y=Y+1 '   0000 0000 0100 0001 (๎ˆใ“ใ‚Œใ‚‰1ใคใšใคใ‚’1ใƒ“ใƒƒใƒˆใ€8ใคใง1ใƒใ‚คใƒˆใ€ใฒใ ใ‚Šใฏ2ใƒใ‚คใƒˆใ‹ใ„ใฆใ‚‹ใญ
 IF B AND 4 THEN X=X-1 ' ใŠใ•ใ‚ŒใŸใฐใ—ใ‚‡ใŒ1ใซใชใ‚‹ใ‚“ใ ใ€‚ใ†ใˆใฎใฐใ‚ใ„ใฏ10ใ—ใ‚“ใ™ใ†ใงใฏ64(X)+1(๎ˆž)                
 IF B AND 8 THEN X=X+1 ' ใ‘ใ„65ใ€‚10ใ—ใ‚“ใ™ใ†ใ—ใฆใ„ใงใฏ64ใ‚’ใซใ‚“ใ—ใใงใใชใ„ใ€‚                            
                       ' ใใฎใŸใ‚ใฎใƒ“ใƒƒใƒˆใฒใ‹ใใˆใ‚“ใ–ใ‚“(AND)ใ‚’ใคใ‹ใฃใฆใ‚‹ใ‚“ใ ใ€‚ใ“ใ‚Œใง64ใฎใฐใ—ใ‚‡ใŒ1ใ‹ใฉใ†ใ‹ใฟใ‚ใ‘ใ‚‰ใ‚Œใ‚‹ใ‚ˆใ€‚    
RETURN                 '๎ˆใ“ใฎใ‚ใ„ใ‚Œใ„ใงใ€ŒGOSUBใ€ใงใ‚ˆใณใ ใ•ใ‚ŒใŸใ‚‚ใจใฎใฐใ—ใ‚‡ใซใ‹ใˆใ‚‹ใ‚“ใ ใ€‚ใ“ใ‚“ใ‹ใ„ใฏ29ใŽใ‚‡ใ†ใ‚           
                       '
'--------------------- '
@HYOUZI                              ' ใคใŽใฏใ€Œใฒใ‚‡ใ†ใ˜ใ€ใซใ‹ใ‚“ใ™ใ‚‹ใ—ใ‚‡ใ‚Šใฎใ‚ตใƒ–ใƒซใƒผใƒใƒณใฎใ›ใคใ‚ใ„ใ ใ‚ˆใ€‚                                 
                                     ' ใ„ใ‚ใ‚“ใชใ—ใ‚‡ใ‚ŠใŒใ™ใฟใ€ใ‚ใจใฏใ‘ใฃใ‹ใ‚’ใฒใ‚‡ใ†ใ˜ใ•ใ›ใ‚‹ใ ใ‘ใ ใญใ€‚                                   
 LOCATE CX,20:PRINT "ใŠใฏใ‚ˆใ†ใ”ใ–ใ„ใพใ™ใ€‚"     '๎ˆใ€ŒLOCATEใ€ใฏใ‚‚ใ˜ใ‚’ใ‹ใใ›ใ‚“ใ‚ˆใ†ใฎใŒใ‚ใ‚“ใฎใ‚ซใƒผใ‚ฝใƒซใฎใ„ใกใ‚’ใ—ใฆใ„ใ—ใฆใ„ใ‚‹ใ‚ˆใ€‚X(ใ‚ˆใ“),Y(ใŸใฆ)              
                                     ' ใ„ใคใ‚‚ใ‚ซใƒผใ‚ฝใƒซใฏใฟใˆใชใ„ใ‘ใฉCLSใ”ใฏ0,0ใซใชใ‚Šใ€PRINTใ”ใฏใ‹ใ„ใŽใ‚‡ใ†ใ•ใ‚ŒใฆใŸใ‚Šใ—ใฆใ„ใ‚‹ใ‚ˆ                 
 LOCATE 0,0                          ' ใธใ‚“ใ™ใ†ใ€ŒCXใ€ใฎใ˜ใ‚‡ใ†ใใ‚‡ใ†ใงใ‚ซใƒผใ‚ฝใƒซใ„ใกใ‚’ใšใ‚‰ใ—PRINTใ„ใกใ‚’ใ‹ใˆใฆใ‚‹ใ‚“ใ ใ€‚                        
 PRINT "ใ˜ใ‚…ใ†ใ˜ใ‚ญใƒผใงใ€ใ—ใ‹ใใŒใ„ใฉใ†ใ™ใ‚‹ใ‚ˆ"          '๎ˆPRINTใฏใ€Œ?ใ€ใจใ‹ใใ“ใจใ‚‚ใงใใ‚‹ ใ€Œ?"ใ“ใ‚“ใซใกใฏ"ใ€                                    
 PRINT "X=";X,"Y=";Y                 ' ใ€Œ;ใ€ใ ใจใคใฅใ‘ใฆใ‹ใใ€ใ€Œ,ใ€ใ ใจTABใใŽใ‚Šใซใชใ‚‹ใ‚“ใ ใ€‚                                    
                                     ' ใ€Œ""ใ€ใงใ‹ใ“ใฃใฆใชใ„ใ‚‚ใ˜ใฏใธใ‚“ใ™ใ†ใ‚ใคใ‹ใ„ใ•ใ‚Œใ€ใใฎใชใ„ใ‚ˆใ†ใŒใฒใ‚‡ใ†ใ˜ใ•ใ‚Œใ‚‹ใ‚ˆใ€‚                        
 GFILL X,Y,X+32,Y+32,RGB(50,100,255) '๎ˆใ“ใ‚Œใฏใ—ใ‹ใใ‘ใ„ใ‚’ใ‹ใใ‚ใ„ใ‚Œใ„ใ ใ‚ˆใ€‚ใฒใ ใ‚Šใ†ใˆใ™ใฟX,Yใ€ใฟใŽใ—ใŸใ™ใฟใฎX,Yใจใ„ใฃใŸใ—ใฆใ„ใ‚’ใ—ใฆใ‚‹ใ‚ˆใ€‚             
                                     ' RGBใฏRed(ใ‚ใ‹)ใ€Green(ใฟใฉใ‚Š)ใ€Blue(ใ‚ใŠ)ใฎใ›ใ„ใถใ‚“ใฎใ‚Šใ‚‡ใ†ใงใ€ใ“ใฎ3ใ—ใ‚‡ใใงใ™ในใฆใฎใ„ใ‚ใŒใฒใ‚‡ใ†ใ’ใ‚“ใงใใ‚‹ใ€‚
RETURN                               '๎ˆใ“ใ‚Œใงใ€ŒGOSUBใ€ใงใ‚ˆใณใ ใ•ใ‚ŒใŸใ‚‚ใจใฎใฐใ—ใ‚‡ใซใ‚‚ใฉใ‚‹ใ‚“ใ ใ€‚ใƒกใ‚คใƒณใƒซใƒผใƒ—ใซใ‚‚ใฉใฃใŸใ‚‰ใ€ŒVSYNC 1ใ€ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œใ‚‹ใ‚ˆ     

'----------------------------------------
'A=B+(C*30) ใชใฉใ€ใธใ‚“ใ™ใ†ใฎใคใ‹ใ„ใ‹ใŸใฏใ•ใพใ–ใพใงใ™ใ€‚
'A$="ใ“ใ‚“ใซใกใฏ" ใ€Œ$ใ€ใ‚’ใ‚‚ใกใ„ใŸใ€Œใ‚‚ใ˜ใ‚ŒใคใŒใŸ ใธใ‚“ใ™ใ†ใ€ใ‚‚ใ‚ใ‚Šใพใ™ใ€‚
'B$=A$+"ใ€ใŠใ’ใ‚“ใใงใ—ใ‚…ใ‹"
'----------
'ใใปใ‚“ใฆใใชใ›ใคใ‚ใ„ใฏใ„ใ˜ใ‚‡ใ†ใงใ™ใ€‚
'ใ“ใ“ใพใงใ‚Šใ‹ใ„ใงใใ‚Œใฐใ€ใ‘ใฃใ“ใ†ใชใ‚“ใงใ‚‚ใคใใ‚Œใ‚‹ใฎใงใ™ใ€‚
'ใ‚นใƒ—ใƒฉใ‚คใƒˆใชใฉใ‚‚ใ€ใใปใ‚“ใฏใŠใชใ˜ใ‹ใ‚“ใŒใˆใงใ€ใ‚ใจใฏใใฎใคใฉ
'ใ€Œใ‚ใ„ใ‚Œใ„ใฒใ‚‡ใ†ใ€ใชใฉใ‹ใ‚‰ใคใ‹ใˆใใ†ใชใ‚ใ„ใ‚Œใ„ใ‚’ใ•ใŒใ›ใฐใ„ใ„ใ ใ‘ใงใ™ใ€‚
'ใŠใชใ˜ใฉใ†ใ•ใงใ‚‚ใ€ใ•ใพใ–ใพใชใ‹ใใ‹ใŸใŒใ‚ใ‚Šใพใ™ใ€‚
'ใ„ใ‚ใ„ใ‚ใ‚„ใฃใฆใฟใพใ—ใ‚‡ใ†ใ€‚
'
'-------------------' ใ“ใ†ใ„ใ†ใฎใ‚‚ใ‚ใ‚Šใพใ™ใ€‚
'IF A==1 THEN       ' 
'  B=1              '  A =1ใชใ‚‰B=1ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œ
' ELSE              ' ELSE
'  C=1              '  A!=1ใชใ‚‰C=1ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œใ‚‹
'ENDIF              '  (=ใ€ŒB=1ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œใชใ‹ใฃใŸใจใใ€)
'-------------------'
'
'-------------------'IFใฎใชใ‹ใซIFใ‚‚ใ„ใ‚Œใ‚‰ใ‚Œใพใ™ใ€‚
'IF A==1 THEN       '
' IF B==1 THEN      'A=1ใงใ•ใ‚‰ใซB=1ใฎใจใใฎใฟOK!ใ‚’ใฒใ‚‡ใ†ใ˜
'    PRINT "OK!"    '
' ENDIF             '
'ENDIF              '
'-------------------'
'
'ใ“ใ‚“ใ‹ใ„(3ใ”ใ† ใ—ใ‚‡ใฐใ‚“)ใƒใ‚ฐใŒใ‚ใ‚Šใ€ŒGCLS:CLSใ€ใจใ‹ใ‹ใชใ„ใจ
'ใ‚ณใƒณใ‚ฝใƒผใƒซใ‚‚ใ˜ใŒใ›ใ„ใ˜ใ‚‡ใ†ใซใฉใ†ใใฒใ‚‡ใ†ใ˜ใงใใพใ›ใ‚“
'ใ€ŒCLS:GCLSใ€ใงใฏ๎ˆงใ€‚

I got a bunch of work dumped on me halfway through but I guess here's
'====Beginner Program Ver 1.2=====  
'                                
' By writing a ' before the line
' Text from there will be ignored!                
' Ignored text is colored like this       
' [Can be configured in the options]
'                                
'=================================  
                       ' Programs are processed from the top               
ACLS                   '๎ˆACLS is a command to clear the screen                
                       ' Anyway, let us begin writing                       
                       '                                               
X=100:Y=50             '๎ˆX and Y will be displayed later
                       ' they are storing coordinates 
                       ' We're saving a numerical value                        
                       ' to something called a "variable"                      
                       ' A+B, would calculate these against
                       ' each other                 
                       ' It is not an exaggeration to say that programs rely on variables      
                       ' Essentially, they are used to store any kind of information  
                       '                                               
                       ' Programs are processed from the top until reaching the end            
                       ' When there are no more instructions, they stop.                              
                       ' If you don't want to stop... we need to prevent the program
                       ' from reaching the end    
                       '                                               
'======Main loop======= Our loop code starts here!                        
@MAINLOOP              '๎ˆ"@XX" we want to give this a meaningful name                 
                       ' Now anytime you write GOTO @XX it will jump to that line   
 GCLS:CLS              '๎ˆGCLS clears the graphics, CLS clears text
                       ' ACLS will reset everything, and we don't want to overuse        
 GOSUB @CALCULATE      '๎ˆGOSUB works like GOTO, but we come back here when done   
 GOSUB @DISPLAY        ' After the call on line 100, we continue from line 101    
                       ' I can go to mulitple locations                     
 VSYNC 1               '๎ˆ[The screen waits x/60th of a second before display]        
                       ' Prevents the screen from flickering by controlling processing speed 
GOTO @MAINLOOP         '๎ˆJump back to the "@MAINLOOP" on line 25                 
                       ' We will stay in this section of the code, going around and around...                 
                       ' [ใงใฏใ“ใฃใ‹ใ‚‰ใ—ใŸใฏใ€ใจใกใ‚…ใ†ใงใ‚ˆใณใ ใ•ใ‚Œใฆใ‚‹ใ‚ตใƒ–ใƒซใƒผใƒใƒณใ€ŒGOSUBใ€ใงใจใ‚“ใ ใ•ใใฎใ›ใคใ‚ใ„ใ !]
'===================== '                                                 
'                      '                                                         
'--------------------- '                                                         
@CALCULATE             '๎ˆThis subroutine performs operations related to 'calculating'                    
                       '                                                         
 CX=CX+0.2             '๎ˆCXใฏใ€ใ„ใฉใ†ใ™ใ‚‹ใถใ‚“ใ—ใ‚‡ใ†ใฎXใ–ใฒใ‚‡ใ†ใ‚’ใ„ใ‚Œใฆใ„ใ‚‹ใ‚ˆใ€‚ใคใ†ใ‹ใฎใŸใณใซCXใซ0.2ใšใคใ‹ใ•ใ‚“ใ—ใฆใ„ใ‚‹ใ‚ˆ     
 IF 40<CX THEN CX=0    ' IF~THENใฏใ€Œใ‚‚ใ—~ใชใ‚‰ใ€ใจใ„ใ†ใ„ใฟใ ใ‚ˆใ€‚ใ“ใฎใฐใ‚ใ„ใฏใ€Œใ‚‚ใ—CXใŒ40ใ‚’ใ“ใˆใŸใชใ‚‰ใ€๎ˆœใ€ŒCXใ‚’0ใซใ™ใ‚‹ใ€  
                       '                                                         
 B=BUTTON(0)           ' ใ€ŒBUTTONใ€ใฏใŠใ•ใ‚ŒใŸใ‚ญใƒผใ˜ใ‚‡ใ†ใปใ†ใ‚’ใ‹ใˆใ™ใ‚ใ„ใ‚Œใ„ใ ใ‚ˆใ€‚ใ˜ใ‚‡ใ†ใใ‚‡ใ†ใ‚’ใƒ˜ใƒณใ‚นใ‚ฆBใซใ„ใ‚ŒใŸใ‚ˆ        
 IF B AND 1 THEN Y=Y-1 ' 2ใ—ใ‚“ใ™ใ†ใงใฎใƒ‡ใƒผใ‚ฟใซใชใฃใฆใ„ใ‚‹ใ‚“ใ ใ‘ใฉใ€ใใ‚Œใ‚’10ใ—ใ‚“ใ™ใ†ใงใ€ใ—ใฆใ„ใ—ใฆใ„ใ‚‹ใ‚ˆใ€‚               
 IF B AND 2 THEN Y=Y+1 '   0000 0000 0100 0001 (๎ˆใ“ใ‚Œใ‚‰1ใคใšใคใ‚’1ใƒ“ใƒƒใƒˆใ€8ใคใง1ใƒใ‚คใƒˆใ€ใฒใ ใ‚Šใฏ2ใƒใ‚คใƒˆใ‹ใ„ใฆใ‚‹ใญ
 IF B AND 4 THEN X=X-1 ' ใŠใ•ใ‚ŒใŸใฐใ—ใ‚‡ใŒ1ใซใชใ‚‹ใ‚“ใ ใ€‚ใ†ใˆใฎใฐใ‚ใ„ใฏ10ใ—ใ‚“ใ™ใ†ใงใฏ64(X)+1(๎ˆž)                
 IF B AND 8 THEN X=X+1 ' ใ‘ใ„65ใ€‚10ใ—ใ‚“ใ™ใ†ใ—ใฆใ„ใงใฏ64ใ‚’ใซใ‚“ใ—ใใงใใชใ„ใ€‚                            
                       ' ใใฎใŸใ‚ใฎใƒ“ใƒƒใƒˆใฒใ‹ใใˆใ‚“ใ–ใ‚“(AND)ใ‚’ใคใ‹ใฃใฆใ‚‹ใ‚“ใ ใ€‚ใ“ใ‚Œใง64ใฎใฐใ—ใ‚‡ใŒ1ใ‹ใฉใ†ใ‹ใฟใ‚ใ‘ใ‚‰ใ‚Œใ‚‹ใ‚ˆใ€‚    
RETURN                 '๎ˆใ“ใฎใ‚ใ„ใ‚Œใ„ใงใ€ŒGOSUBใ€ใงใ‚ˆใณใ ใ•ใ‚ŒใŸใ‚‚ใจใฎใฐใ—ใ‚‡ใซใ‹ใˆใ‚‹ใ‚“ใ ใ€‚ใ“ใ‚“ใ‹ใ„ใฏ29ใŽใ‚‡ใ†ใ‚           
                       '
'--------------------- '
@DISPLAY                             ' ใคใŽใฏใ€Œใฒใ‚‡ใ†ใ˜ใ€ใซใ‹ใ‚“ใ™ใ‚‹ใ—ใ‚‡ใ‚Šใฎใ‚ตใƒ–ใƒซใƒผใƒใƒณใฎใ›ใคใ‚ใ„ใ ใ‚ˆใ€‚                                 
                                     ' ใ„ใ‚ใ‚“ใชใ—ใ‚‡ใ‚ŠใŒใ™ใฟใ€ใ‚ใจใฏใ‘ใฃใ‹ใ‚’ใฒใ‚‡ใ†ใ˜ใ•ใ›ใ‚‹ใ ใ‘ใ ใญใ€‚                                   
 LOCATE CX,20:PRINT "ใŠใฏใ‚ˆใ†ใ”ใ–ใ„ใพใ™ใ€‚"     '๎ˆใ€ŒLOCATEใ€ใฏใ‚‚ใ˜ใ‚’ใ‹ใใ›ใ‚“ใ‚ˆใ†ใฎใŒใ‚ใ‚“ใฎใ‚ซใƒผใ‚ฝใƒซใฎใ„ใกใ‚’ใ—ใฆใ„ใ—ใฆใ„ใ‚‹ใ‚ˆใ€‚X(ใ‚ˆใ“),Y(ใŸใฆ)              
                                     ' ใ„ใคใ‚‚ใ‚ซใƒผใ‚ฝใƒซใฏใฟใˆใชใ„ใ‘ใฉCLSใ”ใฏ0,0ใซใชใ‚Šใ€PRINTใ”ใฏใ‹ใ„ใŽใ‚‡ใ†ใ•ใ‚ŒใฆใŸใ‚Šใ—ใฆใ„ใ‚‹ใ‚ˆ                 
 LOCATE 0,0                          ' ใธใ‚“ใ™ใ†ใ€ŒCXใ€ใฎใ˜ใ‚‡ใ†ใใ‚‡ใ†ใงใ‚ซใƒผใ‚ฝใƒซใ„ใกใ‚’ใšใ‚‰ใ—PRINTใ„ใกใ‚’ใ‹ใˆใฆใ‚‹ใ‚“ใ ใ€‚                        
 PRINT "ใ˜ใ‚…ใ†ใ˜ใ‚ญใƒผใงใ€ใ—ใ‹ใใŒใ„ใฉใ†ใ™ใ‚‹ใ‚ˆ"          '๎ˆPRINTใฏใ€Œ?ใ€ใจใ‹ใใ“ใจใ‚‚ใงใใ‚‹ ใ€Œ?"ใ“ใ‚“ใซใกใฏ"ใ€                                    
 PRINT "X=";X,"Y=";Y                 ' ใ€Œ;ใ€ใ ใจใคใฅใ‘ใฆใ‹ใใ€ใ€Œ,ใ€ใ ใจTABใใŽใ‚Šใซใชใ‚‹ใ‚“ใ ใ€‚                                    
                                     ' ใ€Œ""ใ€ใงใ‹ใ“ใฃใฆใชใ„ใ‚‚ใ˜ใฏใธใ‚“ใ™ใ†ใ‚ใคใ‹ใ„ใ•ใ‚Œใ€ใใฎใชใ„ใ‚ˆใ†ใŒใฒใ‚‡ใ†ใ˜ใ•ใ‚Œใ‚‹ใ‚ˆใ€‚                        
 GFILL X,Y,X+32,Y+32,RGB(50,100,255) '๎ˆใ“ใ‚Œใฏใ—ใ‹ใใ‘ใ„ใ‚’ใ‹ใใ‚ใ„ใ‚Œใ„ใ ใ‚ˆใ€‚ใฒใ ใ‚Šใ†ใˆใ™ใฟX,Yใ€ใฟใŽใ—ใŸใ™ใฟใฎX,Yใจใ„ใฃใŸใ—ใฆใ„ใ‚’ใ—ใฆใ‚‹ใ‚ˆใ€‚             
                                     ' RGBใฏRed(ใ‚ใ‹)ใ€Green(ใฟใฉใ‚Š)ใ€Blue(ใ‚ใŠ)ใฎใ›ใ„ใถใ‚“ใฎใ‚Šใ‚‡ใ†ใงใ€ใ“ใฎ3ใ—ใ‚‡ใใงใ™ในใฆใฎใ„ใ‚ใŒใฒใ‚‡ใ†ใ’ใ‚“ใงใใ‚‹ใ€‚
RETURN                               '๎ˆใ“ใ‚Œใงใ€ŒGOSUBใ€ใงใ‚ˆใณใ ใ•ใ‚ŒใŸใ‚‚ใจใฎใฐใ—ใ‚‡ใซใ‚‚ใฉใ‚‹ใ‚“ใ ใ€‚ใƒกใ‚คใƒณใƒซใƒผใƒ—ใซใ‚‚ใฉใฃใŸใ‚‰ใ€ŒVSYNC 1ใ€ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œใ‚‹ใ‚ˆ     

'----------------------------------------
'A=B+(C*30) ใชใฉใ€ใธใ‚“ใ™ใ†ใฎใคใ‹ใ„ใ‹ใŸใฏใ•ใพใ–ใพใงใ™ใ€‚
'A$="ใ“ใ‚“ใซใกใฏ" ใ€Œ$ใ€ใ‚’ใ‚‚ใกใ„ใŸใ€Œใ‚‚ใ˜ใ‚ŒใคใŒใŸ ใธใ‚“ใ™ใ†ใ€ใ‚‚ใ‚ใ‚Šใพใ™ใ€‚
'B$=A$+"ใ€ใŠใ’ใ‚“ใใงใ—ใ‚…ใ‹"
'----------
'ใใปใ‚“ใฆใใชใ›ใคใ‚ใ„ใฏใ„ใ˜ใ‚‡ใ†ใงใ™ใ€‚
'ใ“ใ“ใพใงใ‚Šใ‹ใ„ใงใใ‚Œใฐใ€ใ‘ใฃใ“ใ†ใชใ‚“ใงใ‚‚ใคใใ‚Œใ‚‹ใฎใงใ™ใ€‚
'ใ‚นใƒ—ใƒฉใ‚คใƒˆใชใฉใ‚‚ใ€ใใปใ‚“ใฏใŠใชใ˜ใ‹ใ‚“ใŒใˆใงใ€ใ‚ใจใฏใใฎใคใฉ
'ใ€Œใ‚ใ„ใ‚Œใ„ใฒใ‚‡ใ†ใ€ใชใฉใ‹ใ‚‰ใคใ‹ใˆใใ†ใชใ‚ใ„ใ‚Œใ„ใ‚’ใ•ใŒใ›ใฐใ„ใ„ใ ใ‘ใงใ™ใ€‚
'ใŠใชใ˜ใฉใ†ใ•ใงใ‚‚ใ€ใ•ใพใ–ใพใชใ‹ใใ‹ใŸใŒใ‚ใ‚Šใพใ™ใ€‚
'ใ„ใ‚ใ„ใ‚ใ‚„ใฃใฆใฟใพใ—ใ‚‡ใ†ใ€‚
'
'-------------------' ใ“ใ†ใ„ใ†ใฎใ‚‚ใ‚ใ‚Šใพใ™ใ€‚
'IF A==1 THEN       ' 
'  B=1              '  A =1ใชใ‚‰B=1ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œ
' ELSE              ' ELSE
'  C=1              '  A!=1ใชใ‚‰C=1ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œใ‚‹
'ENDIF              '  (=ใ€ŒB=1ใŒใ˜ใฃใ“ใ†ใ•ใ‚Œใชใ‹ใฃใŸใจใใ€)
'-------------------'
'
'-------------------'IFใฎใชใ‹ใซIFใ‚‚ใ„ใ‚Œใ‚‰ใ‚Œใพใ™ใ€‚
'IF A==1 THEN       '
' IF B==1 THEN      'A=1ใงใ•ใ‚‰ใซB=1ใฎใจใใฎใฟOK!ใ‚’ใฒใ‚‡ใ†ใ˜
'    PRINT "OK!"    '
' ENDIF             '
'ENDIF              '
'-------------------'
'
'ใ“ใ‚“ใ‹ใ„(3ใ”ใ† ใ—ใ‚‡ใฐใ‚“)ใƒใ‚ฐใŒใ‚ใ‚Šใ€ŒGCLS:CLSใ€ใจใ‹ใ‹ใชใ„ใจ
'ใ‚ณใƒณใ‚ฝใƒผใƒซใ‚‚ใ˜ใŒใ›ใ„ใ˜ใ‚‡ใ†ใซใฉใ†ใใฒใ‚‡ใ†ใ˜ใงใใพใ›ใ‚“
'ใ€ŒCLS:GCLSใ€ใงใฏ๎ˆงใ€‚

whoa! awesome!