10 REM1
20 REM Ported by Fujiishi
90 RESTORE 1000
100 AD=&HED00
110 READ A$
120 IF A$="@" THEN 160
130 POKE AD,VAL("&H"+A$)
140 AD=AD+1
150 GOTO 110
160 REM
170 RESTORE 1500
180 AD=&HC000
190 READ A$
200 IF A$="@" THEN 240
210 POKE AD,VAL("&H"+A$)
220 AD=AD+1
230 GOTO 190
240 REM
250 REM
260 REM
270 REM
280 REM
290 POKE &HFAEB,&H00
300 POKE &HFAEC,&HC0
305 REM
310 REM
320 RESTORE 2000
330 FOR AD=&HEE00 TO &HEE00+767
340 READ A$:POKE AD ,VAL("&h"+A$)
350 NEXT AD
360 END
1000 DATA E5,21,28,00,19,54,5D,E1
1010 DATA 18,16,26,60,1E,01,44,16
1020 DATA 00,62,6A,19,10,FD,01,00
1030 DATA EE,09,ED,5B,F5,ED,06,0F,DD
1040 DATA 21,00,00,DD,19,FD,21,00
1050 DATA 20,FD,19,7E,DD,77,00,23
1060 DATA 7E,FD,77,00,23,7E,DD,77
1070 DATA 01,23,7E,FD,77,01,23,7E
1080 DATA DD,77,02,23,7E,FD,77,02
1090 DATA 23,10,B4,C9,00,00,00,00,@

1500 DATA 16,05,1E,07,D5,01,58,02,5A,16,00,21,00,00,3E,10,29,CB,13,CB
1510 DATA 12,30,04,09,30,01,13,3D,20,F2,D1,16,00,19,19,19,54,5D,ED,53
1520 DATA F5,ED,CD,0A,ED,C9,@


2000 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
2010 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
2020 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
2030 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
2040 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
2050 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00


2060 DATA A8,56,A8,54,A8,54,80,7E,80,7C,80,7C,80,7E,80,7C
2070 DATA 80,7C,00,00,00,00,00,00,2A,15,2A,15,2A,15,20,1F
2080 DATA 20,1F,20,1F,20,1F,20,1F,20,1F,00,00,00,00,00,00
2090 DATA 8A,45,8A,45,8A,45,08,C7,08,C7,08,C7,08,C7,08,C7
2100 DATA 08,C7,00,00,00,00,00,00,A2,51,A2,51,A2,51,02,F1
2110 DATA 02,F1,02,F1,02,F1,02,F1,02,F1,00,00,00,00,00,00


2120 DATA 00,00,00,00,00,00,02,02,A0,A0,00,00,2A,2A,AA,AA
2130 DATA 0A,05,BE,BE,AA,AA,A8,94,BA,BA,AA,AA,88,84,AA,AA
2140 DATA AA,AA,88,84,AA,AA,AA,AA,88,84,2A,2A,AA,AA,08,04
2150 DATA 02,02,A2,A2,A8,A4,00,00,2A,2A,A8,A8,00,00,BE,BE
2160 DATA AA,AA,00,00,BA,BA,AA,AA,00,00,AA,AA,AA,AA,00,00
2170 DATA AA,AA,AA,AA,00,00,2A,2A,AA,AA,00,00,02,02,A0,A0

2180 DATA 00,00,00,3F,00,00,3C,00,00,30,3C,00,FF,3C,00,30
2190 DATA EA,2A,FA,3A,FF,00,AA,AA,FA,3A,AA,AA,AA,AA,EA,2A
2200 DATA AA,AA,AA,A8,EA,2A,AA,AA,AA,A8,AA,AA,AA,AA,AA,A8
2210 DATA 2A,2A,AA,AA,A8,A0,2A,2A,AA,AA,A8,A0,2A,2A,AA,AA
2220 DATA A8,A0,0A,0A,AA,AA,A0,80,0A,0A,AA,AA,A0,80,0A,0A
2230 DATA AA,AA,A0,80,02,00,82,00,80,00,00,00,00,00,00,00


2340 DATA 00,00,AA,FF,00,00,0A,0F,AA,FF,A0,F0,2A,3F,AA,FF
2350 DATA A8,FC,28,3E,AA,FF,28,BC,A2,FB,28,BE,8A,EF,AA,FF
2360 DATA AA,FF,AA,FF,AA,FF,AA,FF,AA,FF,AA,FF,AA,FF,AA,FF
2370 DATA 2A,3F,28,BE,A8,FC,2A,3F,82,EB,A8,FC,0A,0F,AA,FF
2380 DATA A0,F0,00,00,AA,FF,00,00,00,00,08,0C,00,00,00,00
2390 DATA 08,0C,20,30,00,00,02,03,80,C0,00,00,00,00,00,00


2400 DATA 00,00,00,00,00,00,00,00,55,FF,00,00,01,03,AA,55
2410 DATA 40,C0,06,0D,AA,55,90,70,06,0D,AA,55,90,70,1A,35
2420 DATA AA,55,A4,5C,1A,35,AA,55,A4,5C,3E,01,AA,99,A8,A8
2430 DATA 3A,05,AA,65,A4,6C,7E,C1,AA,65,A9,67,7A,C5,AA,65
2440 DATA A9,67,7E,C1,AA,99,A9,67,6A,D5,AA,55,A9,57,6A,D5
2450 DATA AA,55,A9,57,6A,D5,AA,55,A9,57,6A,D5,AA,55,A9,57


2460 DATA E0,DF,00,EB,0B,F7,E0,DF,00,FF,0B,F7,E0,DF,3C,3C
2470 DATA 0B,F7,E0,DC,BE,7D,0B,37,E0,DC,BE,7D,0B,37,E0,D3
2480 DATA BE,7D,0B,C7,C0,CF,BE,7D,03,F3,00,BF,BE,7D,00,FC
2490 DATA 00,BF,BE,7D,00,FC,C0,CF,BE,7D,03,FB,E0,D3,BE,7D
2500 DATA 0B,E7,E0,DC,BE,7D,0B,B7,E0,DC,BE,7D,0B,B7,E0,DF
2510 DATA 3C,3C,0B,F7,E0,DF,00,FF,0B,F7,E0,DD,00,EB,0B,F7


2520 DATA 10,10,AA,00,10,10,42,40,AA,03,A4,08,09,01,56,A8
2530 DATA A9,F1,15,26,F6,54,AA,FC,17,19,DF,55,AA,3C,57,69
2540 DATA 7F,55,AA,3C,15,29,FD,55,AA,3C,17,25,F7,55,AA,3C
2550 DATA 97,19,DF,55,BA,3C,95,2A,7F,55,BA,3C,A1,01,FE,54
2560 DATA BA,FC,2B,01,F6,54,BA,FC,1A,10,AA,03,EA,FC,4A,43
2570 DATA AF,FF,A8,F0,02,00,AA,FF,A1,01,04,04,AA,00,04,04