Sharp X1 CZ-800C - i'm sexy and I know it!
Sharp X1 CZ-800C - домашний компьютр, созданный телевизионным дивизионом компании Sharp (wiki, occ)
Приличная спецификация: (для 1982 года)
Исполнение: десктоп с монитором и клавиатурой. Отдельно выпускался моноблок без монитора CZ-801C.
Клавиатура: механика, с полным ходом клавиш
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-то цветах (возможно, это выглядело так)
- дека с электронным управлением (но кнопки нажимать вручную)
- нет встроенного языка программирования "ради освобождения ОЗУ"
- зато в кассетном бейсике есть команды для имитации клавиатурного ввода, создания UDG в переменной, throw exception, REPEAT...UNTIL и даже команда вычисления факториала.
Каков красавец (click to enlarge)
https://preview.ibb.co/kxRhaf/935d10...8925d0ceec.jpg
Sharp X1 CZ-800C интерьере: (click to enlarge)
https://preview.ibb.co/mWinQf/abak-general.jpghttps://preview.ibb.co/kGgXrL/abak-corner.jpghttps://preview.ibb.co/ixZVd0/abak-back.jpg
Клавиатура (click to enlarge)
- У Sharp X1 было два порта для джойстиков Atari, поэтому расположение клавиш-стрелок неудобное, но не преступное
- ТВ-тюнер встроен в монитор и работал даже при выключенном компьютере. Управление приемником программное, но продублировано на клавиатуре - правее F-клавиш. После выключения компьютера эти клавиши продолжали работать
Ничего не напоминает? Японцы украли дизайн Корвет ПК8020, но человеческий numpad не осилили.
https://preview.ibb.co/hrgtWL/keyboard.jpghttps://preview.ibb.co/eKxdFf/keyboard-numpad.jpg
Клавиатура Sharp CZ-800C - разъем и свитч
https://preview.ibb.co/ewZ3gL/keyboard-cable2.jpghttps://preview.ibb.co/jaCdFf/keyboard-switch.jpg
Дека Sharp X1 CZ-800C крупным планом: (click to enlarge)
https://preview.ibb.co/mb5BJ0/tape-lpm.jpghttps://preview.ibb.co/c0tyy0/tape-controls.jpg
Что внутри у Sharp X1 CZ-800C: (click to enlarge)
https://thumb.ibb.co/bOnad0/disassembly-1.jpg https://thumb.ibb.co/dm2xrL/disassembly-2.jpg https://thumb.ibb.co/eM11J0/disassembly-3.jpg https://thumb.ibb.co/g3s8y0/disassembly-4.jpg https://thumb.ibb.co/cDwqBL/disassembly-5.jpg https://thumb.ibb.co/mcnK5f/disassembly-6.jpg https://thumb.ibb.co/kjPoy0/disassembly-7.jpg https://thumb.ibb.co/ftjoy0/disassembly-8.jpg https://thumb.ibb.co/gCCK5f/disassembly-9.jpg
Материнская плата и ГЗУ
https://thumb.ibb.co/cE43gL/disassembly-motherboard.jpg https://thumb.ibb.co/cVGG1L/disassembly-gram.jpg https://thumb.ibb.co/gsfb1L/disassem...therboard2.jpg
Hu-BASIC
https://thumb.ibb.co/gtDqBL/tabe-basic2.jpghttps://thumb.ibb.co/hPpXQf/tape-basic.jpg
Бейсик очень развитый (источник). Вот примерный список команд (разбит на группы):
Скрытый текст
Код:
Системные операторы:
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: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
[свернуть]
Эмуляция
Нет.
