MIDORU STARソース(Hu-BASIC/SHARP X1)

2010 年 2 月 14 日 コメントをどうぞ コメント

小学校六年生頃に書いた、初めてのRPG「MIDORU STAR」の全ソースコードです。

SHARP X1のHu-BASIC用で、あっちこっち無茶苦茶ですが、その無茶苦茶ぶりを楽しんでいただければと思います。

ちなみにソース中の変な文字はコントロールコード、あるいはグラフィック文字(昔の8bitパソコン専用の絵文字みたいなモノ)ですが、そのまま残してあります。

10 CLS4:TEMPO 80
20 GOSUB 1050
30 ‘ショキ
40 DEFINTA-Z
50 TEMPO 2000
60 INIT:WIDTH 40:COLOR 7,0:CGEN0:WIDTH 40:CLICK OFF:REPEATOFF:X=18:Y=12:STR=STR:DEX=DEX:LI=LI:LIFES=50:LIFEA=10:LIFEC=100:GP=10:TI=0:ST=INT(RND*2000):CC=0
70 TEMPO 2000
80 ‘デモ
90 STR=STR+50:DEX=DEX+50:LI=LI+50:LINE(1,1)-(300,190),PSET,1,B
100 LINE(2,2)-(299,189),PSET,1,B
110 CLS:CSIZE 3:LOCATE 8,4:COLOR 6,0:PRINT#0″*MIDORUSTAR*”
120 COLOR 7,0
130 LOCATE 6,9:CGEN1:PRINT”ーアイウエオタチツテトナミムメモヤユ珮粤蒟涇”;:CGEN0:PRINT”・・・STARDORAGON STR.1-200DEX.100-700 LIFE.100-2000″
140 LOCATE 6,17:CGEN 1:PRINT”IJKLMNPQ”;:CGEN 0:PRINT”・・・GIRAADO STR.? DEX.? LIFE.?”
150 LOCATE14,22:CGEN0:PRINT”HIT ANY KEY”
160 IFINKEY$=””THEN 160ELSE170
170 CLS
180 LOCATE 8,4:COLOR 6,0:PRINT#0″*MIDORUSTAR*”
190 CGEN1:COLOR 7:LOCATE 6,9:PRINT”RSTU”;:CGEN 0:PRINT”・・・FAIYAR”
200 CGEN 1:LOCATE 6,11:PRINT”VWXY”;:CGEN 0:PRINT”・・・SRAIM STR.1-10 DEX.1-30LIFE.1-100″
210 LOCATE 6,14:CGEN1:PRINT”Z[\]”;:CGEN 0:PRINT”・・・KOBORUTO ?”
220 LOCATE 6,16:PRINT”????”;:PRINT”・・・MIDORUSTAR”
230 LOCATE14,21:CGEN0:PRINT”HIT ANY KEY”
240 IFINKEY$=””THEN 240 ELSE 250
250 ‘メイン
260 CLS:CGEN0:INIT:WIDTH 40
270 LINE(220,1)-(220,190),PSET,1
280 LINE(1,1)-(300,190),PSET,1,B
290 LINE(2,2)-(299,189),PSET,1,B
300 CGEN0:LOCATE 28,2:PRINT”LIFE”;LI
310 LOCATE 28,6:PRINT”STR”;STR
320 IF LIFE<0 THEN PLAY”O5CDCDCDDEDEDEEFEFEF”:GOTO30
330 LOCATE 28,10:PRINT”DEX”;DEX
340 LOCATE 28,18:PRINT”嚼瑞瑞瑞雛”
350 LOCATE 28,19:PRINT”・MONSTAR・
360 LOCATE 28,20:PRINT”・?????? ・
370 LOCATE 28,21:PRINT”・?????? ・
380 LOCATE 28,22:PRINT”・?????? ・
390 LOCATE 28,23:PRINT”剞瑞瑞瑞据”
400 S=STICK(0)
410 IF S=4 THEN X=X-1:LOCATE X+2,Y:PRINT”? ? ? ? “:CC=CC+1
420 IF S=6 THEN X=X+1:LOCATE X-2,Y:PRINT”? ? ? ? “:CC=CC+1
430 IF S=8 THEN Y=Y-1:LOCATE X,Y+1:PRINT”? ? ? ? “:CC=CC+1
440 IF S=2 THEN Y=Y+1:LOCATE X,Y-2:PRINT”? ? ? ? “:CC=CC+1
450 IF X<1 THEN X=1
460 IF X>25 THEN X=25
470 IF Y<1 THEN Y=1
480 IF Y>20 THEN Y=20
490 TI=TI+1
500 CGEN1:LOCATE X,Y:PRINT”IJKLMNPQ”
510 H=INT(RND*300):IF H=15 THEN LOCATE X+INT(RND*5),Y+2:PRINT”fghi”:LI=LI+INT(RND*80):DEX=DEX+12
520 K=INT(RND*80)
530 IF K=20 THEN LOCATE30,20:PRINT”VWXY”
540 BEEP0:IFK=20THENLOCATE0,23:CGEN0:INPUT”ナニカガチカズイテキタ ドウシマスカ”;D:IF D=A THEN LABEL”1″:FORI=1TO10:BEEP1:LI=LI-INT(RND*2):LIFES=LIFES-INT(RND*2):BEEP0:LOCATE 28,2:PRINT”LIFE”;LI:IF LI<0THEN560ELSEIFLIFES>1THENGOTO”1″ELSENEXT
550 IF K=20 THEN LOCATE 30,20:CGEN1:PRINT”VWXY”:IF LIFES<0 THEN FOR I=1 TO200:LOCATE0,0:CGEN 0:PRINT”タオシタ”:BEEP1:BEEP0:NEXT:LIFES=50:LI=LI+40:CLS
560 IF LI<1 THEN CGEN0:LOCATE27,3:PRINT”? 0″:LOCATE0,0:PRINT”ヤラレタ!”:BEEP:SOUND 0,128:SOUND 7,13:SOUND 6,16:SOUND 9,16:SOUND 10,16:SOUND 11,10:SOUND 12,30:SOUND 13,9:CLS:GOTO 30
570 IF? LI=56 OR LI=116 OR LI=328 THEN LOCATE 15,10:PRINT”ABCD”
580 IF DEX>100 THEN DEX=100:STR=100
590 IF CHARACTER$(X,Y)=”A”THEN GP=GP+100+INT(RND*10)
600 Z=INT(RND*100)
610 IF Z=16THENLOCATE 30,20:PRINT”Z[\]”
620 IFZ=16THENLOCATE0,23:CGEN0:INPUT”ナニカガチカズイテキタ ドウシマスカ”;N:IF N=ATHEN LABEL”5″:FORV=1TO10:BEEP1:LI=LI-1:LIFEA=LIFEA-INT(RND*10):BEEP0:LOCATE28,2:PRINT”LIFE”;LI:IFLI<0THEN560ELSEIFLIFEA>1THENGOTO”5″ELSENEXT
630 IF Z=16 THEN LOCATE30,20:CGEN1:PRINT”Z[\]”:IFLIFEA<0THENFORI=1TO200:LOCATE0,0:CGEN0:PRINT”タオシタ”:BEEP1:BEEP0:NEXT:CLS:LIFEA=10:LI=LI+30
640 E=INT(RND*30)
650 IF E=1 THEN CGEN0:PRINT”マエニカベガアリマス”:FORI=1TO50:NEXT:LOCATE 1,15:PRINT”ウワッ!”:FORI=1TO500:NEXT:LI=LI-3:CLS
660 IF INKEY$=”S” THEN SAVE”MIDORUSTAR”
670 IF INKEY$=”L” THEN LOAD”MIDORUSTAR”
680 M=INT(RND*900)
690 IF M=15 THEN 820
700 IF STRIG(0) THEN LI=LI+10
710 IF TI=9000?? THEN 850
720 IF TI=19000? THEN 860
730 IF TI=29000?? THEN 870
740 VB=INT(RND*500)
750 BV=INT(RND*531)
760 IFVB=60THENIFBV=80THENLOCATE3,5:CGEN1:PRINT”ーアイウエオタチツテトナミムメモヤユ珮粤蒟涇”:PRINT:PRINT:PRINT:PRINT:CGEN0:PRINT”スタードラゴンダ!”:CGEN1:GOTO 920
770 IF qw<1 THEN GOSUB 960
780 IFWBV<1THENGOSUB990
790 IFVVV<1THENGOSUB1010
800 IFDDD<1THENGOSUB1030
810 GOTO 300
820 LOCATE30,20:CGEN 1:PRINT”RSTU”:CGEN 0
830 LOCATE0,23:INPUT”ナニカガチカズイテキタ ドウシマスカ”;D:IFN=ATHEN LABEL”9″:FORV=1TO10:BEEP1:LI=LI-3:LIFEC=LIFEC-INT(RND*2):BEEP0:LOCATE28,2:PRINT”LIFE”;LI:IFLI<0THEN560ELSEIFLIFEC>1THENGOTO”9″ELSEIFLIFEC<1THENLOCATE0,0:PRINT”タオシタ!”:BEEP1ELSENEXT
840 BEEP 0:GOTO 300
850 CGEN0:LOCATE0,20:PRINT”ウ・・モウ20サイカ・・ハヤイナ・・”:IFINKEY$=””THEN850ELSECLS:GOTO300
860 CGEN0:LOCATE0,20:PRINT”ウワッモウ40サイニナッタ・・・・!”:IFINKEY$=””THEN860ELSE CLS:GOTO300
870 CGEN0:LOCATE0,20:PRINT”グッ・・・6・60サイニナッタ・・・”:PRINT:PRINT”マ・・・マゴヨ・・・ワシノアトヲ・・・ツイデクレ・・・”:PRINT:PRINT”ヨシ!ボクガンバル!!”
880 IFINKEY$=””THEN880ELSETI=0
890 LI=LI+12+INT(RND*12):CLS:GOTO300
900 LOCATE 3,5:CGEN1:PRINT”-アイウエオタチツテトナミムメモヤユ珮粤蒟涇”
910 CGEN0:LOCATE0,0:PRINT”ミドルスターダ!!”:CGEN1:LOCATE15,10:PRINT”^_`a”:CIRCLE(127,87),T,6:T=T+2:Q=Q+1:IFQ>110THEN LABEL”#”:TEMPO900:PLAY”V15O6CCCCCCCCEEEFFFFFGGGGGAAAFFCCDDV14CCCCEEEEDDDV11EEEEV3CFFCCCC:V9O5DDR8DDR8DDR8″:GOTO9900ELSEGOTO910
920 LABEL”・:LI=LI-RND*10:LOCATE28,2:CGEN0:PRINT”LIFE”;LI:IF LI<1THEN560ELSEIFST<1THENCLS4:GOTO 910ELSE IF LI<100THEN930ELSEIFLI<300THEN940ELSEIFLI<600THEN950ELSEST=ST-RND*9:LOCATE0,0:PRINTST ELSE GOTO”・
930 ST=ST-RND*3:GOTO”・
940 ST=ST-RND*5:GOTO”・
950 ST=ST-RND*7:GOTO”・
960 IF CC=110 THEN LOCATEX-3,Y-4:CGEN1:PRINT”bcde”:qw=1:LI=LI+200
970 IF O=1 THEN LOCATEX-3,Y-4:CGEN1:PRINT”bcde”:qw=1:LI=LI+200
980 RETURN
990 IF CC=500 THEN LOCATE X+5,Y-5:PRINT”jklm”:V=1:LI=LI+10:DEX=DEX+150
1000 RETURN
1010 IF CC=690 THEN LOCATEX+5,Y-5:PRINT”nopq”:STR=STR+120:LI=LI+95
1020 RETURN
1030 IF CC=800 THEN LOCATEX+3,Y-5:PRINT”rstu”:LI=LI+300
1040 RETURN
1050 TEMPO 1000:???? PLAY”V15O4CEGCEGCEGGEC”:LOCATE0,0:CGEN:PRINT”P.C.G. SETING”:PRINT:PRINT:PRINT”???????????????? “:DEFCHR$(65)=HEXCHR$(“0000000000000000201009E3070F1F3F201009E3070F1F3F”)
1060 DEFCHR$(66)=HEXCHR$(“000000000000000070F8FCFEFBF7EFDE70F8FCFEFBF7EFDE”)
1070 DEFCHR$(67)=HEXCHR$(“00000000000000005FCFE6F17B3B1B0A5FCFE6F17B3B1B0A”)
1080 DEFCHR$(68)=HEXCHR$(“0000000000000000BC7BF0E4C2911010BC7BF0E4C2911010”)
1090 DEFCHR$(69)=HEXCHR$(“00000000000000000000000000001C00808F9FBFFFA3DDE3”)
1100 DEFCHR$(70)=HEXCHR$(“0000000000000000000000000000700000C2E2F2FE8A768E”)
1110 DEFCHR$(71)=HEXCHR$(“0000000050000000003C7EFFD0FF7F1F7F43010050000000”)
1120 DEFCHR$(72)=HEXCHR$(“00000000C80000000078FCFECAFEFCF0FC840000C8000000”)
1130 DEFCHR$(73)=HEXCHR$(“01038F9B9B9D5F7F0000808080804060000080808080486E”)
1140 DEFCHR$(74)=HEXCHR$(“804071696959FAFE00000101010102060000010101011276”)
1150 DEFCHR$(75)=HEXCHR$(“7F471B0C8FE52F7F60580403C0E070386F470300C0E07C3B”)
1160 DEFCHR$(76)=HEXCHR$(“7F615E3FFFBFFBF1031920C00000040E7B614609150E2AC0”)
1170 DEFCHR$(77)=HEXCHR$(“6A3811011F1E3C3C1F0E0E00000000001F0E0C0011122424”)
1180 DEFCHR$(78)=HEXCHR$(“F171BBBFFC3C1E1E0E0E0400000000006020AA15CC241212”)
1190 DEFCHR$(79)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1200 DEFCHR$(80)=HEXCHR$(“7E7E3C0000000000000000000000000042423C0000000000”)
1210 DEFCHR$(81)=HEXCHR$(“3F3F1E0000000000000000000000000021211E0000000000”)
1220 DEFCHR$(82)=HEXCHR$(“0000000000020103000001031B0F2F3F0000000000000000”)
1230 DEFCHR$(83)=HEXCHR$(“0000000040C0C08070E0E0FCF8F8F0FC0000000000000040”)
1240 DEFCHR$(84)=HEXCHR$(“0D06080C04070000BFDFDF7F3F3F1F0F0201070303000000”)
1250 DEFCHR$(85)=HEXCHR$(“40706060E0C00000F9FAFEFCF8F0F0E08080808000000000”)
1260 DEFCHR$(86)=HEXCHR$(“00000000000000000000000000000000000000030F07277F”)
1270 DEFCHR$(87)=HEXCHR$(“0000000000000000000000000000000000000018F8F0F8FE”)
1280 DEFCHR$(88)=HEXCHR$(“0000000000000000000C000000000000D36D337F3F3C0E00”)
1290 DEFCHR$(89)=HEXCHR$(“00000000000000000030000000000000CAB7CEF8F8FC1800”)
1300 DEFCHR$(90)=HEXCHR$(“00004040404000000000424040404000040F4F4F4743477F”)
1310 DEFCHR$(91)=HEXCHR$(“0000000000000000000080000000000080C0C0C0800080F8”)
1320 DEFCHR$(92)=HEXCHR$(“000000000000000000400000000000007F0F0F0C0C181830”)
1330 DEFCHR$(93)=HEXCHR$(“00000000000000000000000000000000FCCCC0C0C0606030”)
1340 DEFCHR$(94)=HEXCHR$(“020C3C7261E1920C0103030D1E1E6DF30103030D1E1E6DF3”)
1350 DEFCHR$(95)=HEXCHR$(“40303C4E8687493080C0C0B07878B6CF80C0C0B07878B6CF”)
1360 DEFCHR$(96)=HEXCHR$(“0C92E161723C0C02F36D1E1E0D030301F36D1E1E0D030301”)
1370 DEFCHR$(97)=HEXCHR$(“304987864E3C3040CFB67878B0C0C080CFB67878B0C0C080”)
1380 DEFCHR$(98)=HEXCHR$(“00070606067E7E4000000000000000000000020202023E00”)
1390 DEFCHR$(99)=HEXCHR$(“00C0C0C0C0FEFE020000000000000000000080808080FC00”)
1400 DEFCHR$(100)=HEXCHR$(“7E7E06060606060700000000000000003E02020202020200”)
1410 DEFCHR$(101)=HEXCHR$(“FEFEC0C0C0C0C0C00000000000000000FC80808080808000”)
1420 DEFCHR$(102)=HEXCHR$(“0000000000000000000000000006040000000003070F1F1F”)
1430 DEFCHR$(103)=HEXCHR$(“00000000000000000000000000480090000000F0F8FCFCF8”)
1440 DEFCHR$(104)=HEXCHR$(“00000000000000000900030002031F3F1F1F0F0701001F3F”)
1450 DEFCHR$(105)=HEXCHR$(“00000000000000000040040040D8FCFEF8F8F4E08018FCFE”)
1460 DEFCHR$(106)=HEXCHR$(“7F5F517676717F7C00000000000000000000000000000000”)
1470 DEFCHR$(107)=HEXCHR$(“FEFEFEFEFEFEFE7E00000000000000000000000000000000”)
1480 DEFCHR$(108)=HEXCHR$(“7D7C7D7C7F5F5F7F00000000000000000000000000000000”)
1490 DEFCHR$(109)=HEXCHR$(“FE7EDA66E6DAFEFE00000000000000000000000000000000”)
1500 DEFCHR$(110)=HEXCHR$(“010303030003030300000000030000000103030303030303”)
1510 DEFCHR$(111)=HEXCHR$(“808080800080808040404040F8404040C0C0C0C0F8C0C0C0”)
1520 DEFCHR$(112)=HEXCHR$(“03030300010101010000000F020202020303030F00000000”)
1530 DEFCHR$(113)=HEXCHR$(“8080800000000000400000E080808080C08080E000000000”)
1540 DEFCHR$(114)=HEXCHR$(“000000030408101000000000000000000000000003030F0F”)
1550 DEFCHR$(115)=HEXCHR$(“000000E01008040400000000808080800000000060607878”)
1560 DEFCHR$(116)=HEXCHR$(“1010100804020100000F0000000000000E000E0303010000”)
1570 DEFCHR$(117)=HEXCHR$(“040404081020408080F88080808080003800386060400000”)
1580 DEFCHR$(176)=HEXCHR$(“40606070787C7E7F00000000000000000000000000000000”)
1590 DEFCHR$(177)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1600 DEFCHR$(178)=HEXCHR$(“000002060F0F0F1F00000000000000000000000000000000”)
1610 DEFCHR$(179)=HEXCHR$(“00000000008080C000000000000000000000000000000000”)
1620 DEFCHR$(180)=HEXCHR$(“000000000001030700000000000000000000000000000000”)
1630 DEFCHR$(181)=HEXCHR$(“04083878F8F8F8F800000000000000000000000000000000”)
1640 DEFCHR$(182)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1650 DEFCHR$(183)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1660 DEFCHR$(184)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1670 DEFCHR$(185)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1680 DEFCHR$(186)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1690 DEFCHR$(187)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1700 DEFCHR$(188)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1710 DEFCHR$(189)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1720 DEFCHR$(190)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1730 DEFCHR$(191)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1740 DEFCHR$(192)=HEXCHR$(“3F3F3F3F3F3F1F1F00000000000000000000000000000000”)
1750 DEFCHR$(193)=HEXCHR$(“80C0E0F3FFFFFFFF00000000000000000000000000000000”)
1760 DEFCHR$(194)=HEXCHR$(“1F3F7FFFFFFFFFFF00000000000000000000000000000000”)
1770 DEFCHR$(195)=HEXCHR$(“C0C0E0F1FBFFFFFF00000000000000000000000000000000”)
1780 DEFCHR$(196)=HEXCHR$(“1F3F7FFFFFFFFFFF00000000000000000000000000000000”)
1790 DEFCHR$(197)=HEXCHR$(“F0F0E0C08080808000000000000000000000000000000000”)
1800 DEFCHR$(198)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1810 DEFCHR$(199)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1820 DEFCHR$(200)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1830 DEFCHR$(201)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1840 DEFCHR$(202)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1850 DEFCHR$(203)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1860 DEFCHR$(204)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1870 DEFCHR$(205)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1880 DEFCHR$(206)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1890 DEFCHR$(207)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1900 DEFCHR$(208)=HEXCHR$(“0F1F1F0F0F0F0F0F00000000000000000000000000000000”)
1910 DEFCHR$(209)=HEXCHR$(“FFFF9FCFC3C0E0F0000060303C3F1F0F000060303C3F1F0F”)
1920 DEFCHR$(210)=HEXCHR$(“FFFFFFFFFFFF3F3F000000000000C0C0000000000000C0C0”)
1930 DEFCHR$(211)=HEXCHR$(“FFFFFFFFFEF8F0C00000000001070F3F0000000001070F3F”)
1940 DEFCHR$(212)=HEXCHR$(“FFFEBE3E3F3E3E7E000040C0C0C0C080000040C0C0C0C080”)
1950 DEFCHR$(213)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1960 DEFCHR$(214)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1970 DEFCHR$(215)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1980 DEFCHR$(216)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
1990 DEFCHR$(217)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2000 DEFCHR$(218)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2010 DEFCHR$(219)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2020 DEFCHR$(220)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2030 DEFCHR$(221)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2040 DEFCHR$(222)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2050 DEFCHR$(223)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2060 DEFCHR$(224)=HEXCHR$(“0F0F0F0F0F0F0F1F00000000000000000000000000000000”)
2070 DEFCHR$(225)=HEXCHR$(“F0F8FCFEFFFFFFFF0F070301000000000F07030100000000”)
2080 DEFCHR$(226)=HEXCHR$(“3F3F3F3FFFFFFFFFC0C0C0C000000000C0C0C0C000000000”)
2090 DEFCHR$(227)=HEXCHR$(“80808183FFFFFFFF7F7F7E7C000000007F7F7E7C00000000”)
2100 DEFCHR$(228)=HEXCHR$(“7EFEFEFEFFFFFFFF80000000000000008000000000000000”)
2110 DEFCHR$(229)=HEXCHR$(“00000000000000C000000000000000000000000000000000”)
2120 DEFCHR$(230)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2130 DEFCHR$(231)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2140 DEFCHR$(232)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2150 DEFCHR$(233)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2160 DEFCHR$(234)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2170 DEFCHR$(235)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2180 DEFCHR$(236)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2190 DEFCHR$(237)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2200 DEFCHR$(238)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2210 DEFCHR$(239)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2220 DEFCHR$(240)=HEXCHR$(“1F1F1F1F1F3F3F3E00000000000000000000000000000000”)
2230 DEFCHR$(241)=HEXCHR$(“FFFFFFFFFFFFFF1F00000000000000000000000000000000”)
2240 DEFCHR$(242)=HEXCHR$(“FFFFFFFFFFFFFFFC00000000000000000000000000000000”)
2250 DEFCHR$(243)=HEXCHR$(“FFFFFFFFFFFFFFFC00000000000000000000000000000000”)
2260 DEFCHR$(244)=HEXCHR$(“FFFFFFFFFFFFFF1F00000000000000000000000000000000”)
2270 DEFCHR$(245)=HEXCHR$(“C0C0C0C0C0C0C0E000000000000000000000000000000000”)
2280 DEFCHR$(246)=HEXCHR$(“7870F0C08000000000000000000000000000000000000000”)
2290 DEFCHR$(247)=HEXCHR$(“03070F0F1F3E000000000000000000000000000000000000”)
2300 DEFCHR$(248)=HEXCHR$(“F0F0E0C08000000000000000000000000000000000000000”)
2310 DEFCHR$(249)=HEXCHR$(“7F1F1F070301000000000000000000000000000000000000”)
2320 DEFCHR$(250)=HEXCHR$(“078180C0E0F0000000000000000000000000000000000000”)
2330 DEFCHR$(251)=HEXCHR$(“F0F83C0E0000000000000000000000000000000000000000”)
2340 DEFCHR$(252)=HEXCHR$(“000000000000000000000000000000000000000000000000”)
2350 DEFCHR$(253)=HEXCHR$(“000000000000000000000000000000000000000000000000″)
2360 RETURN
9900 REPEAT ON
10000 CLS0:LOCATE1,1:CGEN0:PRINT”コウシテ、アウト・バースノヘイワハモドリ”:LOCATE3,3:CGEN0PRINT”モトノ、ヘイワナマチニナッタ・・・”:LOCATE5,5:CGEN0:PRINT”イダイナルユウシ、ギラードニ、エイコウアレ!”:LOCATE5,9:CGEN0:PRINT”リプレイ?(Y/N)”: LABEL”?”:IFINKEY$=”Y”THENGOTO30ELSEIFINKEY$=”N”THENGOTO10010ELSEGOTO”?”
10010 END