SaintTurnip
16.10.2018, 20:37
Sharp X1 CZ-800C - домашний компьютр, созданный телевизионным дивизионом компании Sharp (wiki (https://ru.wikipedia.org/wiki/Sharp_X1), occ (http://www.old-computers.com/museum/computer.asp?c=313))
Приличная спецификация: (для 1982 года)
Исполнение: десктоп с монитором и клавиатурой. Отдельно выпускался моноблок без монитора CZ-801C (https://image.ibb.co/b3EDy0/ad-CZ-801-C.jpg).
Клавиатура: механика, с полным ходом клавиш
CPU: Sharp Z80A/4 MHz
RAM: 64 KB
VRAM: 4-48 KB
ROM: 6 KB
Текст: 80 x 25
Графика: 320 x 200 / 640 x 200 / 8 цветов / страницы
ТВ-тюнер:: есть
Телетекст:: есть
Звук:AY-3-8910
Накопитель: встроенная кассетная дека (на wiki написано, там CP/M - посмотреть бы на FORMAT, RENAME, COPY :) )
Цена: 155000 йен, это примерно USD$700 (для сравнения: IBM PC 5150 - USD$1550, Commodore 64 - USD$595)
Компьютер противоречивый:
- VRAM отображена в область портов УВВ - спорное решение. Да, не занимает ОЗУ и всегда доступно. Но как же регистры, LDIR, вот это вот всё.
- захват кадров из видеосигнала при 8-то цветах (возможно, это выглядело так (https://image.ibb.co/hn8WJ0/capture.png))
- дека с электронным управлением (но кнопки нажимать вручную (https://www.youtube.com/watch?v=u9aYo-hZerI))
- нет встроенного языка программирования "ради освобождения ОЗУ"
- зато в кассетном бейсике есть команды для имитации клавиатурного ввода, создания UDG в переменной, throw exception, REPEAT...UNTIL и даже команда вычисления факториала (https://image.ibb.co/hBR8Ff/image.jpg).
Каков красавец (click to enlarge)
https://preview.ibb.co/kxRhaf/935d10d4e807f08f5cd3e68925d0ceec.jpg (https://ibb.co/cNBtgL)
Sharp X1 CZ-800C интерьере: (click to enlarge)
https://preview.ibb.co/mWinQf/abak-general.jpg (https://ibb.co/fDdbJ0)https://preview.ibb.co/kGgXrL/abak-corner.jpg (https://ibb.co/gtMnQf)https://preview.ibb.co/ixZVd0/abak-back.jpg (https://ibb.co/fsOOy0)
Клавиатура (click to enlarge)
- У Sharp X1 было два порта для джойстиков Atari, поэтому расположение клавиш-стрелок неудобное, но не преступное
- ТВ-тюнер встроен в монитор и работал даже при выключенном компьютере. Управление приемником программное, но продублировано на клавиатуре - правее F-клавиш. После выключения компьютера эти клавиши продолжали работать
Ничего не напоминает? Японцы украли дизайн Корвет ПК8020, но человеческий numpad не осилили.
https://preview.ibb.co/hrgtWL/keyboard.jpg (https://ibb.co/bSbSrL)https://preview.ibb.co/eKxdFf/keyboard-numpad.jpg (https://ibb.co/mOLb1L)
Клавиатура Sharp CZ-800C - разъем и свитч
https://preview.ibb.co/ewZ3gL/keyboard-cable2.jpg (https://ibb.co/jMdUML)https://preview.ibb.co/jaCdFf/keyboard-switch.jpg (https://ibb.co/b0xpML)
Дека Sharp X1 CZ-800C крупным планом: (click to enlarge)
https://preview.ibb.co/mb5BJ0/tape-lpm.jpg (https://ibb.co/d1qNQf)https://preview.ibb.co/c0tyy0/tape-controls.jpg (https://ibb.co/dQkYWL)
Что внутри у Sharp X1 CZ-800C: (click to enlarge)
https://thumb.ibb.co/bOnad0/disassembly-1.jpg (https://ibb.co/bOnad0) https://thumb.ibb.co/dm2xrL/disassembly-2.jpg (https://ibb.co/dm2xrL) https://thumb.ibb.co/eM11J0/disassembly-3.jpg (https://ibb.co/eM11J0) https://thumb.ibb.co/g3s8y0/disassembly-4.jpg (https://ibb.co/g3s8y0) https://thumb.ibb.co/cDwqBL/disassembly-5.jpg (https://ibb.co/cDwqBL) https://thumb.ibb.co/mcnK5f/disassembly-6.jpg (https://ibb.co/mcnK5f) https://thumb.ibb.co/kjPoy0/disassembly-7.jpg (https://ibb.co/kjPoy0) https://thumb.ibb.co/ftjoy0/disassembly-8.jpg (https://ibb.co/ftjoy0) https://thumb.ibb.co/gCCK5f/disassembly-9.jpg (https://ibb.co/gCCK5f)
Материнская плата и ГЗУ
https://thumb.ibb.co/cE43gL/disassembly-motherboard.jpg (https://ibb.co/cE43gL) https://thumb.ibb.co/cVGG1L/disassembly-gram.jpg (https://ibb.co/cVGG1L) https://thumb.ibb.co/gsfb1L/disassembly-motherboard2.jpg (https://ibb.co/gsfb1L)
Hu-BASIC
https://thumb.ibb.co/gtDqBL/tabe-basic2.jpg (https://ibb.co/gtDqBL)https://thumb.ibb.co/hPpXQf/tape-basic.jpg (https://ibb.co/hPpXQf)
Бейсик очень развитый (источник (https://original.sharpmz.org/mz-700/hubasic01.htm)). Вот примерный список команд (разбит на группы):
Системные операторы:
CLEAR Clears and partitions memory.
NEWON Restores machine to “power on" status.
MON Jump to RAM monitor.
EDIT Brings a program line to view for editing.
SEARCH Searches for a string within a program.
BOOT
NEW
AUTO
LIST
DELETE
RENUM
TRON
TROFF
REM
KEYO Simulates the input of data from the keyboard.
REPEAT ON/OFF Turns on/off the character repeat feature of keys held down.
CLICK ON/OFF Turns on/off a click sound when typing.
LIMIT
KEY/DEF KEY
KEYLIST
Операторы потока:
LABEL Assigns an identifying label to a point in a program.
UNTIL Ends a REPEAT loop and defines the conditions for its termination.
REPEAT Initiates a loop concluded by an UNTIL statement.
WHILE/WEND Similar to above.
CALL Calls a machine code subroutine.
PAUSE Pauses program for a specified period.
TIME Sets the program execution timer to zero.
ERROR Simulates an error condition.
ON ERROR GOTO
ERR Similar to ERN.
ERL
ON
RESUME
IF...THEN
FOR...TO, NEXT
GOTO
GOSUB, RETURN
RUN, CONT, STOP, END
USING
Переменные и функции:
DEFtype Assigns numeric or string types to groups of variables.
DEF FN
DEF CHR$ Creates a user-defined character.
DIM, LET
OPTION BASE Sets the lowest subscript of arrays to 0 or 1.
DEF USR Defines a user-defined machine code subroutine.
SWAP Swaps the values of two variables.
LEN, SIN, COS, TAN, ATN, ABS, SGN, INT, SQR, EXP, LOG, PAI, RAD, RND, ASC, CHR$, VAL, STR$, HEX$, LEFT$, RIGHT$, MID$, USR and
FIX Truncates decimal numbers, making them integer.
FRAC Returns decimal portion of a number.
CINT/CSNG/COBL Convert numbers to integer, single-precision, and double-precision type, respectively.
FAC Returns a factorial of a number.
OCT$ Converts a number to octal form.
BIN$ Converts a number to binary form.
HEXCHR$ Returns a hexadecimal representation of a character string.
STRING$ Returns a string of a specified length made of a single character.
SPACE$ Returns a string of blanks.
INSTR Reports the position of a substring within a string.
INKEY$ Similar to GET A$.
INPUT
TIME$ Similar to TI$.
DAY$ Sets the day of the week.
DATE$ Sets the day, month and year.
Данные и файлы:
LOADM Loads machine code into memory for use by BASIC.
SAVEM Saves machine code to tape.
OPEN Opens an input/output buffer.
CLOSE Closes an input/output buffer.
PRINT# Writes data to a sequential file.
WRITE# As above, but with use of commas and quotes.
INPUT# Reads sequential file.
LINPUT# Reads a complex data string from sequential file.
DATA
READ
DTL Reports line number of the currently read DATA statement.
RESTORE
Звук и экран:
BEEP Similar to USR(62).
PLAY, MUSIC, TEMPO Performs the function of both MUSIC and TEMPO statements.
OPTION SCREEN Switches graphics memory to use as ordinary read/write memory.
WRITE Prints data on the screen using quotes and commas.
LINPUT Stops program and awaits a complex string of data from the keyboard.
PRINT
LOCATE Similar to CURSOR.
POS Reports the horizontal position of the cursor.
CSRLIN Reports the vertical position of the cursor.
CREV Prints characters in reverse image.
CFLASH Prints blinking characters.
CSIZE Creates oversized characters.
WINDOW Relates logical graphics coordinates and absolute screen coordinates.
CHARACTER$ Returns the character from a specified position.
SCRN$ Returns a string of specified length taken from the video display.
POINT Reports the pallet code of a dot on the screen.
COLOR
CONSOLE
CURSOR
CLS
CLR
Память и УВВ:
POKE
PEEK
OUT Sends a byte of data to a specified output port.
POKE@ Puts a byte of data into video RAM.
PEEK@ Reads the contents of a specified location in video memory.
MEM$ Writes or returns a string to a specified memory location.
WAIT Awaits a specified byte of data at an input port.
FRE Similar to SIZE.
Принтер:
LPRINT Similar to PRINT/P
LPOS Reports the position of the printer head.
LLIST Similar to LIST/P
Недокументированные:
AND, OR, NOT, KLIST, DEVI$, DEVO$, SPEED, ERASE, FILE, LFILE, DEVICE, NAME, JOY, KILL, LSET, RSET, INIT, VDI, MAXFILE, CGEN, MKI$, MKS$, MKD$, RANDOMIZE
Пример RPG игры на Hu-BASIC:
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:LIFE S=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=5 0: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:IF LI<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:P RINT: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:IFL I<0THEN560ELSEIFLIFEC>1THENGOTO”9″ELSEIFLIFEC<1THENLOCATE0,0:PRINT”ﾀｵｼﾀ!”:BEEP1ELSEN EXT
840 BEEP 0:GOTO 300
850 CGEN0:LOCATE0,20:PRINT”ｳ･･ﾓｳ20ｻｲ ･･ﾊﾔｲﾅ･･”:IFINKEY$=””THEN85 0ELSECLS:GOTO300
860 CGEN0:LOCATE0,20:PRINT”ｳﾜｯﾓｳ40ｻｲ ﾅｯﾀ････!”:IFINKEY$=””THEN860E LSE 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(12 7,87),T,6:T=T+2:Q=Q+1:IFQ>110THEN LABEL”#”:TEMPO900:PLAY”V15O6CCCCCCCCEEEFFFFF GGGGGAAAFFCCDDV14CCCCEEEEDDDV11EEEEV3CFFCCCC:V9O5D DR8DDR8DDR8″: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$(“0000000000000000201009E 3070F1F3F201009E3070F1F3F”)
1060 DEFCHR$(66)=HEXCHR$(“000000000000000070F8FCFEFBF 7EFDE70F8FCFEFBF7EFDE”)
1070 DEFCHR$(67)=HEXCHR$(“00000000000000005FCFE6F17B3 B1B0A5FCFE6F17B3B1B0A”)
1080 DEFCHR$(68)=HEXCHR$(“0000000000000000BC7BF0E4C29 11010BC7BF0E4C2911010”)
1090 DEFCHR$(69)=HEXCHR$(“000000000000000000000000000 01C00808F9FBFFFA3DDE3”)
1100 DEFCHR$(70)=HEXCHR$(“000000000000000000000000000 0700000C2E2F2FE8A768E”)
1110 DEFCHR$(71)=HEXCHR$(“0000000050000000003C7EFFD0F F7F1F7F43010050000000”)
1120 DEFCHR$(72)=HEXCHR$(“00000000C80000000078FCFECAF EFCF0FC840000C8000000”)
1130 DEFCHR$(73)=HEXCHR$(“01038F9B9B9D5F7F00008080808 04060000080808080486E”)
1140 DEFCHR$(74)=HEXCHR$(“804071696959FAFE00000101010 102060000010101011276”)
1150 DEFCHR$(75)=HEXCHR$(“7F471B0C8FE52F7F60580403C0E 070386F470300C0E07C3B”)
1160 DEFCHR$(76)=HEXCHR$(“7F615E3FFFBFFBF1031920C0000 0040E7B614609150E2AC0”)
1170 DEFCHR$(77)=HEXCHR$(“6A3811011F1E3C3C1F0E0E00000 000001F0E0C0011122424”)
1180 DEFCHR$(78)=HEXCHR$(“F171BBBFFC3C1E1E0E0E0400000 000006020AA15CC241212”)
1190 DEFCHR$(79)=HEXCHR$(“000000000000000000000000000 000000000000000000000”)
1200 DEFCHR$(80)=HEXCHR$(“7E7E3C000000000000000000000 0000042423C0000000000”)
1210 DEFCHR$(81)=HEXCHR$(“3F3F1E000000000000000000000 0000021211E0000000000”)
1220 DEFCHR$(82)=HEXCHR$(“0000000000020103000001031B0 F2F3F0000000000000000”)
1230 DEFCHR$(83)=HEXCHR$(“0000000040C0C08070E0E0FCF8F 8F0FC0000000000000040”)
1240 DEFCHR$(84)=HEXCHR$(“0D06080C04070000BFDFDF7F3F3 F1F0F0201070303000000”)
1250 DEFCHR$(85)=HEXCHR$(“40706060E0C00000F9FAFEFCF8F 0F0E08080808000000000”)
1260 DEFCHR$(86)=HEXCHR$(“000000000000000000000000000 00000000000030F07277F”)
1270 DEFCHR$(87)=HEXCHR$(“000000000000000000000000000 0000000000018F8F0F8FE”)
1280 DEFCHR$(88)=HEXCHR$(“0000000000000000000C0000000 00000D36D337F3F3C0E00”)
1290 DEFCHR$(89)=HEXCHR$(“000000000000000000300000000 00000CAB7CEF8F8FC1800”)
1300 DEFCHR$(90)=HEXCHR$(“000040404040000000004240404 04000040F4F4F4743477F”)
1310 DEFCHR$(91)=HEXCHR$(“000000000000000000008000000 0000080C0C0C0800080F8”)
1320 DEFCHR$(92)=HEXCHR$(“000000000000000000400000000 000007F0F0F0C0C181830”)
1330 DEFCHR$(93)=HEXCHR$(“000000000000000000000000000 00000FCCCC0C0C0606030”)
1340 DEFCHR$(94)=HEXCHR$(“020C3C7261E1920C0103030D1E1 E6DF30103030D1E1E6DF3”)
1350 DEFCHR$(95)=HEXCHR$(“40303C4E8687493080C0C0B0787 8B6CF80C0C0B07878B6CF”)
1360 DEFCHR$(96)=HEXCHR$(“0C92E161723C0C02F36D1E1E0D0 30301F36D1E1E0D030301”)
1370 DEFCHR$(97)=HEXCHR$(“304987864E3C3040CFB67878B0C 0C080CFB67878B0C0C080”)
1380 DEFCHR$(98)=HEXCHR$(“00070606067E7E4000000000000 000000000020202023E00”)
1390 DEFCHR$(99)=HEXCHR$(“00C0C0C0C0FEFE0200000000000 00000000080808080FC00”)
1400 DEFCHR$(100)=HEXCHR$(“7E7E0606060606070000000000 0000003E02020202020200”)
1410 DEFCHR$(101)=HEXCHR$(“FEFEC0C0C0C0C0C00000000000 000000FC80808080808000”)
1420 DEFCHR$(102)=HEXCHR$(“00000000000000000000000000 06040000000003070F1F1F”)
1430 DEFCHR$(103)=HEXCHR$(“00000000000000000000000000 480090000000F0F8FCFCF8”)
1440 DEFCHR$(104)=HEXCHR$(“00000000000000000900030002 031F3F1F1F0F0701001F3F”)
1450 DEFCHR$(105)=HEXCHR$(“00000000000000000040040040 D8FCFEF8F8F4E08018FCFE”)
1460 DEFCHR$(106)=HEXCHR$(“7F5F517676717F7C0000000000 0000000000000000000000”)
1470 DEFCHR$(107)=HEXCHR$(“FEFEFEFEFEFEFE7E0000000000 0000000000000000000000”)
1480 DEFCHR$(108)=HEXCHR$(“7D7C7D7C7F5F5F7F0000000000 0000000000000000000000”)
1490 DEFCHR$(109)=HEXCHR$(“FE7EDA66E6DAFEFE0000000000 0000000000000000000000”)
1500 DEFCHR$(110)=HEXCHR$(“01030303000303030000000003 0000000103030303030303”)
1510 DEFCHR$(111)=HEXCHR$(“808080800080808040404040F8 404040C0C0C0C0F8C0C0C0”)
1520 DEFCHR$(112)=HEXCHR$(“03030300010101010000000F02 0202020303030F00000000”)
1530 DEFCHR$(113)=HEXCHR$(“8080800000000000400000E080 808080C08080E000000000”)
1540 DEFCHR$(114)=HEXCHR$(“00000003040810100000000000 0000000000000003030F0F”)
1550 DEFCHR$(115)=HEXCHR$(“000000E0100804040000000080 8080800000000060607878”)
1560 DEFCHR$(116)=HEXCHR$(“1010100804020100000F000000 0000000E000E0303010000”)
1570 DEFCHR$(117)=HEXCHR$(“040404081020408080F8808080 8080003800386060400000”)
1580 DEFCHR$(176)=HEXCHR$(“40606070787C7E7F0000000000 0000000000000000000000”)
1590 DEFCHR$(177)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1600 DEFCHR$(178)=HEXCHR$(“000002060F0F0F1F0000000000 0000000000000000000000”)
1610 DEFCHR$(179)=HEXCHR$(“00000000008080C00000000000 0000000000000000000000”)
1620 DEFCHR$(180)=HEXCHR$(“00000000000103070000000000 0000000000000000000000”)
1630 DEFCHR$(181)=HEXCHR$(“04083878F8F8F8F80000000000 0000000000000000000000”)
1640 DEFCHR$(182)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1650 DEFCHR$(183)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1660 DEFCHR$(184)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1670 DEFCHR$(185)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1680 DEFCHR$(186)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1690 DEFCHR$(187)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1700 DEFCHR$(188)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1710 DEFCHR$(189)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1720 DEFCHR$(190)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1730 DEFCHR$(191)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1740 DEFCHR$(192)=HEXCHR$(“3F3F3F3F3F3F1F1F0000000000 0000000000000000000000”)
1750 DEFCHR$(193)=HEXCHR$(“80C0E0F3FFFFFFFF0000000000 0000000000000000000000”)
1760 DEFCHR$(194)=HEXCHR$(“1F3F7FFFFFFFFFFF0000000000 0000000000000000000000”)
1770 DEFCHR$(195)=HEXCHR$(“C0C0E0F1FBFFFFFF0000000000 0000000000000000000000”)
1780 DEFCHR$(196)=HEXCHR$(“1F3F7FFFFFFFFFFF0000000000 0000000000000000000000”)
1790 DEFCHR$(197)=HEXCHR$(“F0F0E0C0808080800000000000 0000000000000000000000”)
1800 DEFCHR$(198)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1810 DEFCHR$(199)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1820 DEFCHR$(200)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1830 DEFCHR$(201)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1840 DEFCHR$(202)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1850 DEFCHR$(203)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1860 DEFCHR$(204)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1870 DEFCHR$(205)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1880 DEFCHR$(206)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1890 DEFCHR$(207)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1900 DEFCHR$(208)=HEXCHR$(“0F1F1F0F0F0F0F0F0000000000 0000000000000000000000”)
1910 DEFCHR$(209)=HEXCHR$(“FFFF9FCFC3C0E0F0000060303C 3F1F0F000060303C3F1F0F”)
1920 DEFCHR$(210)=HEXCHR$(“FFFFFFFFFFFF3F3F0000000000 00C0C0000000000000C0C0”)
1930 DEFCHR$(211)=HEXCHR$(“FFFFFFFFFEF8F0C00000000001 070F3F0000000001070F3F”)
1940 DEFCHR$(212)=HEXCHR$(“FFFEBE3E3F3E3E7E000040C0C0 C0C080000040C0C0C0C080”)
1950 DEFCHR$(213)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1960 DEFCHR$(214)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1970 DEFCHR$(215)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1980 DEFCHR$(216)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1990 DEFCHR$(217)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2000 DEFCHR$(218)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2010 DEFCHR$(219)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2020 DEFCHR$(220)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2030 DEFCHR$(221)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2040 DEFCHR$(222)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2050 DEFCHR$(223)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2060 DEFCHR$(224)=HEXCHR$(“0F0F0F0F0F0F0F1F0000000000 0000000000000000000000”)
2070 DEFCHR$(225)=HEXCHR$(“F0F8FCFEFFFFFFFF0F07030100 0000000F07030100000000”)
2080 DEFCHR$(226)=HEXCHR$(“3F3F3F3FFFFFFFFFC0C0C0C000 000000C0C0C0C000000000”)
2090 DEFCHR$(227)=HEXCHR$(“80808183FFFFFFFF7F7F7E7C00 0000007F7F7E7C00000000”)
2100 DEFCHR$(228)=HEXCHR$(“7EFEFEFEFFFFFFFF8000000000 0000008000000000000000”)
2110 DEFCHR$(229)=HEXCHR$(“00000000000000C00000000000 0000000000000000000000”)
2120 DEFCHR$(230)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2130 DEFCHR$(231)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2140 DEFCHR$(232)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2150 DEFCHR$(233)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2160 DEFCHR$(234)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2170 DEFCHR$(235)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2180 DEFCHR$(236)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2190 DEFCHR$(237)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2200 DEFCHR$(238)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2210 DEFCHR$(239)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2220 DEFCHR$(240)=HEXCHR$(“1F1F1F1F1F3F3F3E0000000000 0000000000000000000000”)
2230 DEFCHR$(241)=HEXCHR$(“FFFFFFFFFFFFFF1F0000000000 0000000000000000000000”)
2240 DEFCHR$(242)=HEXCHR$(“FFFFFFFFFFFFFFFC0000000000 0000000000000000000000”)
2250 DEFCHR$(243)=HEXCHR$(“FFFFFFFFFFFFFFFC0000000000 0000000000000000000000”)
2260 DEFCHR$(244)=HEXCHR$(“FFFFFFFFFFFFFF1F0000000000 0000000000000000000000”)
2270 DEFCHR$(245)=HEXCHR$(“C0C0C0C0C0C0C0E00000000000 0000000000000000000000”)
2280 DEFCHR$(246)=HEXCHR$(“7870F0C0800000000000000000 0000000000000000000000”)
2290 DEFCHR$(247)=HEXCHR$(“03070F0F1F3E00000000000000 0000000000000000000000”)
2300 DEFCHR$(248)=HEXCHR$(“F0F0E0C0800000000000000000 0000000000000000000000”)
2310 DEFCHR$(249)=HEXCHR$(“7F1F1F07030100000000000000 0000000000000000000000”)
2320 DEFCHR$(250)=HEXCHR$(“078180C0E0F000000000000000 0000000000000000000000”)
2330 DEFCHR$(251)=HEXCHR$(“F0F83C0E000000000000000000 0000000000000000000000”)
2340 DEFCHR$(252)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2350 DEFCHR$(253)=HEXCHR$(“00000000000000000000000000 0000000000000000000000″)
2360 RETURN
9900 REPEAT ON
10000 CLS0:LOCATE1,1:CGEN0:PRINT”ｺｳｼﾃ､ｱｳ ﾄ･ﾊﾞｰｽﾉﾍｲﾜﾊﾓﾄﾞﾘ”:L OCATE3,3:CGEN0PRINT”ﾓﾄﾉ､ﾍｲﾜﾅﾏ ﾆﾅｯﾀ･･･”:LOCATE5,5:CGEN0:PRINT ｲﾀﾞｲﾅﾙﾕｳｼ､ｷﾞﾗｰﾄﾞ ､ｴｲｺｳｱﾚ!”:LOCATE5,9:CGEN0:PRINT ﾘﾌﾟﾚｲ?(Y/N)”: LABEL”?”:IFINKEY$=”Y”THENGOTO30ELSEIFINKEY $=”N”THENGOTO10010ELSEGOTO”?”
10010 END
Эмуляция
Нет.
Приличная спецификация: (для 1982 года)
Исполнение: десктоп с монитором и клавиатурой. Отдельно выпускался моноблок без монитора CZ-801C (https://image.ibb.co/b3EDy0/ad-CZ-801-C.jpg).
Клавиатура: механика, с полным ходом клавиш
CPU: Sharp Z80A/4 MHz
RAM: 64 KB
VRAM: 4-48 KB
ROM: 6 KB
Текст: 80 x 25
Графика: 320 x 200 / 640 x 200 / 8 цветов / страницы
ТВ-тюнер:: есть
Телетекст:: есть
Звук:AY-3-8910
Накопитель: встроенная кассетная дека (на wiki написано, там CP/M - посмотреть бы на FORMAT, RENAME, COPY :) )
Цена: 155000 йен, это примерно USD$700 (для сравнения: IBM PC 5150 - USD$1550, Commodore 64 - USD$595)
Компьютер противоречивый:
- VRAM отображена в область портов УВВ - спорное решение. Да, не занимает ОЗУ и всегда доступно. Но как же регистры, LDIR, вот это вот всё.
- захват кадров из видеосигнала при 8-то цветах (возможно, это выглядело так (https://image.ibb.co/hn8WJ0/capture.png))
- дека с электронным управлением (но кнопки нажимать вручную (https://www.youtube.com/watch?v=u9aYo-hZerI))
- нет встроенного языка программирования "ради освобождения ОЗУ"
- зато в кассетном бейсике есть команды для имитации клавиатурного ввода, создания UDG в переменной, throw exception, REPEAT...UNTIL и даже команда вычисления факториала (https://image.ibb.co/hBR8Ff/image.jpg).
Каков красавец (click to enlarge)
https://preview.ibb.co/kxRhaf/935d10d4e807f08f5cd3e68925d0ceec.jpg (https://ibb.co/cNBtgL)
Sharp X1 CZ-800C интерьере: (click to enlarge)
https://preview.ibb.co/mWinQf/abak-general.jpg (https://ibb.co/fDdbJ0)https://preview.ibb.co/kGgXrL/abak-corner.jpg (https://ibb.co/gtMnQf)https://preview.ibb.co/ixZVd0/abak-back.jpg (https://ibb.co/fsOOy0)
Клавиатура (click to enlarge)
- У Sharp X1 было два порта для джойстиков Atari, поэтому расположение клавиш-стрелок неудобное, но не преступное
- ТВ-тюнер встроен в монитор и работал даже при выключенном компьютере. Управление приемником программное, но продублировано на клавиатуре - правее F-клавиш. После выключения компьютера эти клавиши продолжали работать
Ничего не напоминает? Японцы украли дизайн Корвет ПК8020, но человеческий numpad не осилили.
https://preview.ibb.co/hrgtWL/keyboard.jpg (https://ibb.co/bSbSrL)https://preview.ibb.co/eKxdFf/keyboard-numpad.jpg (https://ibb.co/mOLb1L)
Клавиатура Sharp CZ-800C - разъем и свитч
https://preview.ibb.co/ewZ3gL/keyboard-cable2.jpg (https://ibb.co/jMdUML)https://preview.ibb.co/jaCdFf/keyboard-switch.jpg (https://ibb.co/b0xpML)
Дека Sharp X1 CZ-800C крупным планом: (click to enlarge)
https://preview.ibb.co/mb5BJ0/tape-lpm.jpg (https://ibb.co/d1qNQf)https://preview.ibb.co/c0tyy0/tape-controls.jpg (https://ibb.co/dQkYWL)
Что внутри у Sharp X1 CZ-800C: (click to enlarge)
https://thumb.ibb.co/bOnad0/disassembly-1.jpg (https://ibb.co/bOnad0) https://thumb.ibb.co/dm2xrL/disassembly-2.jpg (https://ibb.co/dm2xrL) https://thumb.ibb.co/eM11J0/disassembly-3.jpg (https://ibb.co/eM11J0) https://thumb.ibb.co/g3s8y0/disassembly-4.jpg (https://ibb.co/g3s8y0) https://thumb.ibb.co/cDwqBL/disassembly-5.jpg (https://ibb.co/cDwqBL) https://thumb.ibb.co/mcnK5f/disassembly-6.jpg (https://ibb.co/mcnK5f) https://thumb.ibb.co/kjPoy0/disassembly-7.jpg (https://ibb.co/kjPoy0) https://thumb.ibb.co/ftjoy0/disassembly-8.jpg (https://ibb.co/ftjoy0) https://thumb.ibb.co/gCCK5f/disassembly-9.jpg (https://ibb.co/gCCK5f)
Материнская плата и ГЗУ
https://thumb.ibb.co/cE43gL/disassembly-motherboard.jpg (https://ibb.co/cE43gL) https://thumb.ibb.co/cVGG1L/disassembly-gram.jpg (https://ibb.co/cVGG1L) https://thumb.ibb.co/gsfb1L/disassembly-motherboard2.jpg (https://ibb.co/gsfb1L)
Hu-BASIC
https://thumb.ibb.co/gtDqBL/tabe-basic2.jpg (https://ibb.co/gtDqBL)https://thumb.ibb.co/hPpXQf/tape-basic.jpg (https://ibb.co/hPpXQf)
Бейсик очень развитый (источник (https://original.sharpmz.org/mz-700/hubasic01.htm)). Вот примерный список команд (разбит на группы):
Системные операторы:
CLEAR Clears and partitions memory.
NEWON Restores machine to “power on" status.
MON Jump to RAM monitor.
EDIT Brings a program line to view for editing.
SEARCH Searches for a string within a program.
BOOT
NEW
AUTO
LIST
DELETE
RENUM
TRON
TROFF
REM
KEYO Simulates the input of data from the keyboard.
REPEAT ON/OFF Turns on/off the character repeat feature of keys held down.
CLICK ON/OFF Turns on/off a click sound when typing.
LIMIT
KEY/DEF KEY
KEYLIST
Операторы потока:
LABEL Assigns an identifying label to a point in a program.
UNTIL Ends a REPEAT loop and defines the conditions for its termination.
REPEAT Initiates a loop concluded by an UNTIL statement.
WHILE/WEND Similar to above.
CALL Calls a machine code subroutine.
PAUSE Pauses program for a specified period.
TIME Sets the program execution timer to zero.
ERROR Simulates an error condition.
ON ERROR GOTO
ERR Similar to ERN.
ERL
ON
RESUME
IF...THEN
FOR...TO, NEXT
GOTO
GOSUB, RETURN
RUN, CONT, STOP, END
USING
Переменные и функции:
DEFtype Assigns numeric or string types to groups of variables.
DEF FN
DEF CHR$ Creates a user-defined character.
DIM, LET
OPTION BASE Sets the lowest subscript of arrays to 0 or 1.
DEF USR Defines a user-defined machine code subroutine.
SWAP Swaps the values of two variables.
LEN, SIN, COS, TAN, ATN, ABS, SGN, INT, SQR, EXP, LOG, PAI, RAD, RND, ASC, CHR$, VAL, STR$, HEX$, LEFT$, RIGHT$, MID$, USR and
FIX Truncates decimal numbers, making them integer.
FRAC Returns decimal portion of a number.
CINT/CSNG/COBL Convert numbers to integer, single-precision, and double-precision type, respectively.
FAC Returns a factorial of a number.
OCT$ Converts a number to octal form.
BIN$ Converts a number to binary form.
HEXCHR$ Returns a hexadecimal representation of a character string.
STRING$ Returns a string of a specified length made of a single character.
SPACE$ Returns a string of blanks.
INSTR Reports the position of a substring within a string.
INKEY$ Similar to GET A$.
INPUT
TIME$ Similar to TI$.
DAY$ Sets the day of the week.
DATE$ Sets the day, month and year.
Данные и файлы:
LOADM Loads machine code into memory for use by BASIC.
SAVEM Saves machine code to tape.
OPEN Opens an input/output buffer.
CLOSE Closes an input/output buffer.
PRINT# Writes data to a sequential file.
WRITE# As above, but with use of commas and quotes.
INPUT# Reads sequential file.
LINPUT# Reads a complex data string from sequential file.
DATA
READ
DTL Reports line number of the currently read DATA statement.
RESTORE
Звук и экран:
BEEP Similar to USR(62).
PLAY, MUSIC, TEMPO Performs the function of both MUSIC and TEMPO statements.
OPTION SCREEN Switches graphics memory to use as ordinary read/write memory.
WRITE Prints data on the screen using quotes and commas.
LINPUT Stops program and awaits a complex string of data from the keyboard.
LOCATE Similar to CURSOR.
POS Reports the horizontal position of the cursor.
CSRLIN Reports the vertical position of the cursor.
CREV Prints characters in reverse image.
CFLASH Prints blinking characters.
CSIZE Creates oversized characters.
WINDOW Relates logical graphics coordinates and absolute screen coordinates.
CHARACTER$ Returns the character from a specified position.
SCRN$ Returns a string of specified length taken from the video display.
POINT Reports the pallet code of a dot on the screen.
COLOR
CONSOLE
CURSOR
CLS
CLR
Память и УВВ:
POKE
PEEK
OUT Sends a byte of data to a specified output port.
POKE@ Puts a byte of data into video RAM.
PEEK@ Reads the contents of a specified location in video memory.
MEM$ Writes or returns a string to a specified memory location.
WAIT Awaits a specified byte of data at an input port.
FRE Similar to SIZE.
Принтер:
LPRINT Similar to PRINT/P
LPOS Reports the position of the printer head.
LLIST Similar to LIST/P
Недокументированные:
AND, OR, NOT, KLIST, DEVI$, DEVO$, SPEED, ERASE, FILE, LFILE, DEVICE, NAME, JOY, KILL, LSET, RSET, INIT, VDI, MAXFILE, CGEN, MKI$, MKS$, MKD$, RANDOMIZE
Пример RPG игры на Hu-BASIC:
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:LIFE S=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=5 0: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:IF LI<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:P RINT: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:IFL I<0THEN560ELSEIFLIFEC>1THENGOTO”9″ELSEIFLIFEC<1THENLOCATE0,0:PRINT”ﾀｵｼﾀ!”:BEEP1ELSEN EXT
840 BEEP 0:GOTO 300
850 CGEN0:LOCATE0,20:PRINT”ｳ･･ﾓｳ20ｻｲ ･･ﾊﾔｲﾅ･･”:IFINKEY$=””THEN85 0ELSECLS:GOTO300
860 CGEN0:LOCATE0,20:PRINT”ｳﾜｯﾓｳ40ｻｲ ﾅｯﾀ････!”:IFINKEY$=””THEN860E LSE 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(12 7,87),T,6:T=T+2:Q=Q+1:IFQ>110THEN LABEL”#”:TEMPO900:PLAY”V15O6CCCCCCCCEEEFFFFF GGGGGAAAFFCCDDV14CCCCEEEEDDDV11EEEEV3CFFCCCC:V9O5D DR8DDR8DDR8″: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$(“0000000000000000201009E 3070F1F3F201009E3070F1F3F”)
1060 DEFCHR$(66)=HEXCHR$(“000000000000000070F8FCFEFBF 7EFDE70F8FCFEFBF7EFDE”)
1070 DEFCHR$(67)=HEXCHR$(“00000000000000005FCFE6F17B3 B1B0A5FCFE6F17B3B1B0A”)
1080 DEFCHR$(68)=HEXCHR$(“0000000000000000BC7BF0E4C29 11010BC7BF0E4C2911010”)
1090 DEFCHR$(69)=HEXCHR$(“000000000000000000000000000 01C00808F9FBFFFA3DDE3”)
1100 DEFCHR$(70)=HEXCHR$(“000000000000000000000000000 0700000C2E2F2FE8A768E”)
1110 DEFCHR$(71)=HEXCHR$(“0000000050000000003C7EFFD0F F7F1F7F43010050000000”)
1120 DEFCHR$(72)=HEXCHR$(“00000000C80000000078FCFECAF EFCF0FC840000C8000000”)
1130 DEFCHR$(73)=HEXCHR$(“01038F9B9B9D5F7F00008080808 04060000080808080486E”)
1140 DEFCHR$(74)=HEXCHR$(“804071696959FAFE00000101010 102060000010101011276”)
1150 DEFCHR$(75)=HEXCHR$(“7F471B0C8FE52F7F60580403C0E 070386F470300C0E07C3B”)
1160 DEFCHR$(76)=HEXCHR$(“7F615E3FFFBFFBF1031920C0000 0040E7B614609150E2AC0”)
1170 DEFCHR$(77)=HEXCHR$(“6A3811011F1E3C3C1F0E0E00000 000001F0E0C0011122424”)
1180 DEFCHR$(78)=HEXCHR$(“F171BBBFFC3C1E1E0E0E0400000 000006020AA15CC241212”)
1190 DEFCHR$(79)=HEXCHR$(“000000000000000000000000000 000000000000000000000”)
1200 DEFCHR$(80)=HEXCHR$(“7E7E3C000000000000000000000 0000042423C0000000000”)
1210 DEFCHR$(81)=HEXCHR$(“3F3F1E000000000000000000000 0000021211E0000000000”)
1220 DEFCHR$(82)=HEXCHR$(“0000000000020103000001031B0 F2F3F0000000000000000”)
1230 DEFCHR$(83)=HEXCHR$(“0000000040C0C08070E0E0FCF8F 8F0FC0000000000000040”)
1240 DEFCHR$(84)=HEXCHR$(“0D06080C04070000BFDFDF7F3F3 F1F0F0201070303000000”)
1250 DEFCHR$(85)=HEXCHR$(“40706060E0C00000F9FAFEFCF8F 0F0E08080808000000000”)
1260 DEFCHR$(86)=HEXCHR$(“000000000000000000000000000 00000000000030F07277F”)
1270 DEFCHR$(87)=HEXCHR$(“000000000000000000000000000 0000000000018F8F0F8FE”)
1280 DEFCHR$(88)=HEXCHR$(“0000000000000000000C0000000 00000D36D337F3F3C0E00”)
1290 DEFCHR$(89)=HEXCHR$(“000000000000000000300000000 00000CAB7CEF8F8FC1800”)
1300 DEFCHR$(90)=HEXCHR$(“000040404040000000004240404 04000040F4F4F4743477F”)
1310 DEFCHR$(91)=HEXCHR$(“000000000000000000008000000 0000080C0C0C0800080F8”)
1320 DEFCHR$(92)=HEXCHR$(“000000000000000000400000000 000007F0F0F0C0C181830”)
1330 DEFCHR$(93)=HEXCHR$(“000000000000000000000000000 00000FCCCC0C0C0606030”)
1340 DEFCHR$(94)=HEXCHR$(“020C3C7261E1920C0103030D1E1 E6DF30103030D1E1E6DF3”)
1350 DEFCHR$(95)=HEXCHR$(“40303C4E8687493080C0C0B0787 8B6CF80C0C0B07878B6CF”)
1360 DEFCHR$(96)=HEXCHR$(“0C92E161723C0C02F36D1E1E0D0 30301F36D1E1E0D030301”)
1370 DEFCHR$(97)=HEXCHR$(“304987864E3C3040CFB67878B0C 0C080CFB67878B0C0C080”)
1380 DEFCHR$(98)=HEXCHR$(“00070606067E7E4000000000000 000000000020202023E00”)
1390 DEFCHR$(99)=HEXCHR$(“00C0C0C0C0FEFE0200000000000 00000000080808080FC00”)
1400 DEFCHR$(100)=HEXCHR$(“7E7E0606060606070000000000 0000003E02020202020200”)
1410 DEFCHR$(101)=HEXCHR$(“FEFEC0C0C0C0C0C00000000000 000000FC80808080808000”)
1420 DEFCHR$(102)=HEXCHR$(“00000000000000000000000000 06040000000003070F1F1F”)
1430 DEFCHR$(103)=HEXCHR$(“00000000000000000000000000 480090000000F0F8FCFCF8”)
1440 DEFCHR$(104)=HEXCHR$(“00000000000000000900030002 031F3F1F1F0F0701001F3F”)
1450 DEFCHR$(105)=HEXCHR$(“00000000000000000040040040 D8FCFEF8F8F4E08018FCFE”)
1460 DEFCHR$(106)=HEXCHR$(“7F5F517676717F7C0000000000 0000000000000000000000”)
1470 DEFCHR$(107)=HEXCHR$(“FEFEFEFEFEFEFE7E0000000000 0000000000000000000000”)
1480 DEFCHR$(108)=HEXCHR$(“7D7C7D7C7F5F5F7F0000000000 0000000000000000000000”)
1490 DEFCHR$(109)=HEXCHR$(“FE7EDA66E6DAFEFE0000000000 0000000000000000000000”)
1500 DEFCHR$(110)=HEXCHR$(“01030303000303030000000003 0000000103030303030303”)
1510 DEFCHR$(111)=HEXCHR$(“808080800080808040404040F8 404040C0C0C0C0F8C0C0C0”)
1520 DEFCHR$(112)=HEXCHR$(“03030300010101010000000F02 0202020303030F00000000”)
1530 DEFCHR$(113)=HEXCHR$(“8080800000000000400000E080 808080C08080E000000000”)
1540 DEFCHR$(114)=HEXCHR$(“00000003040810100000000000 0000000000000003030F0F”)
1550 DEFCHR$(115)=HEXCHR$(“000000E0100804040000000080 8080800000000060607878”)
1560 DEFCHR$(116)=HEXCHR$(“1010100804020100000F000000 0000000E000E0303010000”)
1570 DEFCHR$(117)=HEXCHR$(“040404081020408080F8808080 8080003800386060400000”)
1580 DEFCHR$(176)=HEXCHR$(“40606070787C7E7F0000000000 0000000000000000000000”)
1590 DEFCHR$(177)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1600 DEFCHR$(178)=HEXCHR$(“000002060F0F0F1F0000000000 0000000000000000000000”)
1610 DEFCHR$(179)=HEXCHR$(“00000000008080C00000000000 0000000000000000000000”)
1620 DEFCHR$(180)=HEXCHR$(“00000000000103070000000000 0000000000000000000000”)
1630 DEFCHR$(181)=HEXCHR$(“04083878F8F8F8F80000000000 0000000000000000000000”)
1640 DEFCHR$(182)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1650 DEFCHR$(183)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1660 DEFCHR$(184)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1670 DEFCHR$(185)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1680 DEFCHR$(186)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1690 DEFCHR$(187)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1700 DEFCHR$(188)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1710 DEFCHR$(189)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1720 DEFCHR$(190)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1730 DEFCHR$(191)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1740 DEFCHR$(192)=HEXCHR$(“3F3F3F3F3F3F1F1F0000000000 0000000000000000000000”)
1750 DEFCHR$(193)=HEXCHR$(“80C0E0F3FFFFFFFF0000000000 0000000000000000000000”)
1760 DEFCHR$(194)=HEXCHR$(“1F3F7FFFFFFFFFFF0000000000 0000000000000000000000”)
1770 DEFCHR$(195)=HEXCHR$(“C0C0E0F1FBFFFFFF0000000000 0000000000000000000000”)
1780 DEFCHR$(196)=HEXCHR$(“1F3F7FFFFFFFFFFF0000000000 0000000000000000000000”)
1790 DEFCHR$(197)=HEXCHR$(“F0F0E0C0808080800000000000 0000000000000000000000”)
1800 DEFCHR$(198)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1810 DEFCHR$(199)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1820 DEFCHR$(200)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1830 DEFCHR$(201)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1840 DEFCHR$(202)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1850 DEFCHR$(203)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1860 DEFCHR$(204)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1870 DEFCHR$(205)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1880 DEFCHR$(206)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1890 DEFCHR$(207)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1900 DEFCHR$(208)=HEXCHR$(“0F1F1F0F0F0F0F0F0000000000 0000000000000000000000”)
1910 DEFCHR$(209)=HEXCHR$(“FFFF9FCFC3C0E0F0000060303C 3F1F0F000060303C3F1F0F”)
1920 DEFCHR$(210)=HEXCHR$(“FFFFFFFFFFFF3F3F0000000000 00C0C0000000000000C0C0”)
1930 DEFCHR$(211)=HEXCHR$(“FFFFFFFFFEF8F0C00000000001 070F3F0000000001070F3F”)
1940 DEFCHR$(212)=HEXCHR$(“FFFEBE3E3F3E3E7E000040C0C0 C0C080000040C0C0C0C080”)
1950 DEFCHR$(213)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1960 DEFCHR$(214)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1970 DEFCHR$(215)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1980 DEFCHR$(216)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
1990 DEFCHR$(217)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2000 DEFCHR$(218)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2010 DEFCHR$(219)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2020 DEFCHR$(220)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2030 DEFCHR$(221)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2040 DEFCHR$(222)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2050 DEFCHR$(223)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2060 DEFCHR$(224)=HEXCHR$(“0F0F0F0F0F0F0F1F0000000000 0000000000000000000000”)
2070 DEFCHR$(225)=HEXCHR$(“F0F8FCFEFFFFFFFF0F07030100 0000000F07030100000000”)
2080 DEFCHR$(226)=HEXCHR$(“3F3F3F3FFFFFFFFFC0C0C0C000 000000C0C0C0C000000000”)
2090 DEFCHR$(227)=HEXCHR$(“80808183FFFFFFFF7F7F7E7C00 0000007F7F7E7C00000000”)
2100 DEFCHR$(228)=HEXCHR$(“7EFEFEFEFFFFFFFF8000000000 0000008000000000000000”)
2110 DEFCHR$(229)=HEXCHR$(“00000000000000C00000000000 0000000000000000000000”)
2120 DEFCHR$(230)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2130 DEFCHR$(231)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2140 DEFCHR$(232)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2150 DEFCHR$(233)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2160 DEFCHR$(234)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2170 DEFCHR$(235)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2180 DEFCHR$(236)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2190 DEFCHR$(237)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2200 DEFCHR$(238)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2210 DEFCHR$(239)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2220 DEFCHR$(240)=HEXCHR$(“1F1F1F1F1F3F3F3E0000000000 0000000000000000000000”)
2230 DEFCHR$(241)=HEXCHR$(“FFFFFFFFFFFFFF1F0000000000 0000000000000000000000”)
2240 DEFCHR$(242)=HEXCHR$(“FFFFFFFFFFFFFFFC0000000000 0000000000000000000000”)
2250 DEFCHR$(243)=HEXCHR$(“FFFFFFFFFFFFFFFC0000000000 0000000000000000000000”)
2260 DEFCHR$(244)=HEXCHR$(“FFFFFFFFFFFFFF1F0000000000 0000000000000000000000”)
2270 DEFCHR$(245)=HEXCHR$(“C0C0C0C0C0C0C0E00000000000 0000000000000000000000”)
2280 DEFCHR$(246)=HEXCHR$(“7870F0C0800000000000000000 0000000000000000000000”)
2290 DEFCHR$(247)=HEXCHR$(“03070F0F1F3E00000000000000 0000000000000000000000”)
2300 DEFCHR$(248)=HEXCHR$(“F0F0E0C0800000000000000000 0000000000000000000000”)
2310 DEFCHR$(249)=HEXCHR$(“7F1F1F07030100000000000000 0000000000000000000000”)
2320 DEFCHR$(250)=HEXCHR$(“078180C0E0F000000000000000 0000000000000000000000”)
2330 DEFCHR$(251)=HEXCHR$(“F0F83C0E000000000000000000 0000000000000000000000”)
2340 DEFCHR$(252)=HEXCHR$(“00000000000000000000000000 0000000000000000000000”)
2350 DEFCHR$(253)=HEXCHR$(“00000000000000000000000000 0000000000000000000000″)
2360 RETURN
9900 REPEAT ON
10000 CLS0:LOCATE1,1:CGEN0:PRINT”ｺｳｼﾃ､ｱｳ ﾄ･ﾊﾞｰｽﾉﾍｲﾜﾊﾓﾄﾞﾘ”:L OCATE3,3:CGEN0PRINT”ﾓﾄﾉ､ﾍｲﾜﾅﾏ ﾆﾅｯﾀ･･･”:LOCATE5,5:CGEN0:PRINT ｲﾀﾞｲﾅﾙﾕｳｼ､ｷﾞﾗｰﾄﾞ ､ｴｲｺｳｱﾚ!”:LOCATE5,9:CGEN0:PRINT ﾘﾌﾟﾚｲ?(Y/N)”: LABEL”?”:IFINKEY$=”Y”THENGOTO30ELSEIFINKEY $=”N”THENGOTO10010ELSEGOTO”?”
10010 END
Эмуляция
Нет.