Skip to content

Instantly share code, notes, and snippets.

@Tamakichi

Tamakichi/Display_of_the_numbers.bas

Created May 21, 2016 03:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Tamakichi/f2425eb9469ae6e67b3c2432bc3d6510 to your computer and use it in GitHub Desktop.
Save Tamakichi/f2425eb9469ae6e67b3c2432bc3d6510 to your computer and use it in GitHub Desktop.
Download ZIP
IchigoJamによる数字表示プログラム
Raw
Display_of_the_numbers.bas
10 CLS
30 [0]=31599:[1]=4681:[2]=29671:[3]=29647:[4]=23497
40 [5]=31183:[6]=31215:[7]=29257:[8]=31727:[9]=31695
50 [10]=1040:[11]=0:[20]=32:[21]=1
100 N=0:P=0:Q=0
210 X=P:Y=Q:GOSUB 500
220 N=N+1:IF N=10 N=0
230 P=P+4:IF P>31 P=0:Q=Q+6:IF Q >20 ?:END
240 GOTO 210
500 B=12
510 D=[N]>>B&7:GOSUB 600:IF B>=0 GOTO 510
520 RETURN
600 LC X,Y:?CHR$([20+(D&4>0)]);CHR$([20+(D&2>0)]);CHR$([20+(D&1>0)]);
610 Y=Y+1:B=B-3
620 RETURN
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment