Last active
December 18, 2019 14:22
-
-
Save fu-sen/fd0d21fda1ecc0ac16e0d5e9c89aa27f to your computer and use it in GitHub Desktop.
拡大文字サンプル - PC-G850 シリーズ用 https://poke-com.jimdofree.com/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 CLS | |
| 20 PRINT "PC-G850V" | |
| 30 FOR Y=6 TO 0 STEP -1 | |
| 40 FOR X=46 TO 0 STEP -1 | |
| 50 IF POINT (X,Y)=1 GOTO 80 | |
| 60 LINE (X*3,Y*6)-(X*3+2,Y*6+5),R,BF | |
| 70 GOTO 90 | |
| 80 LINE (X*3,Y*6)-(X*3+2,Y*6+5),S,BF | |
| 90 NEXT X | |
| 100 NEXT Y | |
| 110 IF INKEY$ ="" GOTO 110 | |
| 120 END |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment