Skip to content

Instantly share code, notes, and snippets.

@robo8080

robo8080/ichigo_jam_test1.txt

Created October 22, 2016 12:21
Show Gist options
  • Save robo8080/afc1f8a60706cc404e7ca3e572dc04f2 to your computer and use it in GitHub Desktop.
Save robo8080/afc1f8a60706cc404e7ca3e572dc04f2 to your computer and use it in GitHub Desktop.
Download ZIP
IchigoJamTest エスケープシーケンスプログラム
Raw
ichigo_jam_test1.txt
10 ? CHR$(27);"[2J";:? CHR$(27);"[?25l";:WAIT 5
20 FOR I = 1 TO 7
30 ? CHR$(27);"[";I;";";I;"H";CHR$(27);"[3";I;"m";"IchigoJam";:WAIT 5
40 NEXT
50 ? CHR$(27);"[30m";
60 FOR I = 1 TO 7
70 ? CHR$(27);"[";I+7;";";I+7;"H";CHR$(27);"[4";I;"m";"IchigoJam";:WAIT 5
80 NEXT
90 ? CHR$(27);"[39m";CHR$(27);"[49m";
100 WAIT 90:? CHR$(27);"[2J";
110 FOR I = 1 TO 50
120 ? CHR$(27);"[";RND(20)+1;";";RND(40)+1;"H";CHR$(27);"[3";RND(7)+1;"m";"IchigoJam";:WAIT 5
130 NEXT
140 ? CHR$(27);"[39m";CHR$(27);"[49m";:? CHR$(27);"[?25h"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment