IchigoJamによるサンプルゲーム
■WIZ & BUG
100 'WIZ & BUG
110 A=20:C=20:E=15:F=20:G=60:H=20:M=30:N=10:P=0
120 ?"PC RESET"
130 ?"PC MUSIC SCORE 00 00 83 $CDCECFEGDGF"
140 ?"PC MUSIC SCORE 01 00 80 BCE"
150 ?"PC MUSIC PLAY 00"
160 ?"PC SPRITE START 06"
170 ?"PC SPRITE CREATE 01 A6"
180 ?"PC SPRITE CREATE 02 A6"
190 ?"PC SPRITE CREATE 03 01"
200 ?"PC SPRITE CREATE 04 45"
210 ?"PC SPRITE CREATE 05 1F"
220 ?"PC SPRITE CREATE 06 46"
230 ?"PC SPRITE MOVE 01 00 00"
240 ?"PC SPRITE MOVE 02 06 00"
250 ?"PC SPRITE FLIP 05 01"
260 ?CHR$(#80,#6,#8,3,15,A)
270 ?CHR$(#80,#6,#8,5,60,C)
280 ?CHR$(#80,#5,#7,1,#A6+P/10)
290 ?CHR$(#80,#5,#7,2,#A6+P%10)
300 K=INKEY()
310 IF K==30 A=A-4
320 IF K==31 A=A+4
330 ?CHR$(#80,#6,#8,3,15,A)
340 IF M%50==0 F=A
350 M=M+1:E=15+M%50
360 ?CHR$(#80,#6,#8,4,E,F)
370 IF F!=C OR E!=60 GOTO 420
380 ?CHR$(#80,#4,#C,1):P=P+1
390 C=RND(40)
400 IF C<=4 OR C%4!=0 GOTO 390
410 ?CHR$(#80,#6,#8,5,60,C)
420 IF N%50==0 H=C
430 N=N+1:G=60-N%50
440 ?CHR$(#80,#6,#8,6,G,H)
450 IF H!=A OR G!=15 GOTO 280
460 ?"PC MUSIC PLAY 0"
470 ?"PC MUSIC SCORE 02 01 40 DEFCFCD"
