BASICでｴﾛｹﾞ作ってみてる漏れ萌え（´ｰ`)y-~~

100 SCREEN@ 2:CLS:PALETTE
110 'ステ－タス､その他諸々
120 'DIM JIN$(2,3),SOUBI$(2,4),DOUGU$(2,
130 '
140 '
150   JIN$(0,0)=" アンディ"  :  JIN$(1,0)=" エフィ  "
160   JIN$(0,1)="    男   "  :  JIN$(1,1)="    女   "
170   JIN$(0,2)="職業:ナイト":  JIN$(1,2)="職業:魔導戦士"
180   JIN$(0,3)=" 健  康  "  :  JIN$(1,3)=" 健  康  "
190 SOUBI$(0,0)="ｼｮ-ﾄｿ-ﾄﾞ"   :SOUBI$(1,0)=" スピア  "
200 SOUBI$(0,1)="ﾚｻﾞ-ｱ-ﾏ- "  :SOUBI$(1,1)="ﾚｻﾞ-ｱ-ﾏ- "
210 SOUBI$(0,2)="ｽﾓ-ﾙｼ-ﾙﾄﾞ"  :SOUBI$(1,2)="-------- "
220 SOUBI$(0,3)="-------- "  :SOUBI$(1,3)="  マント "
230 SOUBI$(0,4)=" ｸﾛｽﾎﾞｳ  "  :SOUBI$(1,4)="銀の指輪 "
240 '
250 SOUBI$(2,0)=" ダガ－  "
260 SOUBI$(2,1)="ﾚｻﾞ-ｱ-ﾏ- "
270 SOUBI$(2,2)="-------- "
280 SOUBI$(2,3)="-------- "
290 SOUBI$(2,4)=" ｻ-ｸﾚｯﾄ  "
300 'アンディ
310 DIM ANDY1%(1000),ANDY2%(1000),ANDY3%(1000),ANDY4%(1000)
320 DIM ANDY5%(1000),ANDY6%(1000),ANDY7%(1000),ANDY8%(1000)
330 DIM KENA1%(1000),KENA2%(1000),YUMI1%(1000),YUMI2%(1000)
340 'エフィ
350 DIM  EFY1%(1000), EFY2%(1000),KENE1%(1000),KENE2%(1000)
360 DIM MAHO1%(1000),MAHO2%(1000)
370 'アンディ
380 LOAD@"b:ｱﾝﾃﾞｨｷｬﾗ.TIF"
390 LINE(0,0)-(640,0),PSET,0
400  GET@A(  0,0)-( 31,50),ANDY1%
410  GET@A( 32,0)-( 63,50),ANDY2%
420  GET@A( 64,0)-( 95,50),ANDY3%
430  GET@A( 96,0)-(127,50),ANDY4%
440  GET@A(128,0)-(159,50),ANDY5%
450  GET@A(160,0)-(191,50),ANDY6%
460  GET@A(192,0)-(223,50),ANDY7%
470  GET@A(224,0)-(255,50),ANDY8%
480  GET@A(256,0)-(287,50),KENA1%
490  GET@A(288,0)-(319,50),KENA2%
500  GET@A(320,0)-(351,50),YUMI1%
510  GET@A(352,0)-(383,50),YUMI2%
515  CLS
520 'エフィ
530 LOAD@"b:ｴﾌｨｷｬﾗ.TIF"
540  LINE(0,0)-(640,0),PSET,0
550  GET@A(  0,0)-( 31,50),EFY1%
560  GET@A( 32,0)-( 63,50),EFY2%
570  GET@A( 64,0)-( 95,50),KENE1%
580  GET@A( 96,0)-(127,50),KENE2%
590  GET@A(128,0)-(159,50),MAHO1%
600  GET@A(160,0)-(191,50),MAHO2%
610  CLS