Важная информация
RSS лента

SaintTurnip

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)




Sharp X1 CZ-800C интерьере: (click to enlarge)




Клавиатура (click to enlarge)
- У Sharp X1 было два порта для джойстиков Atari, поэтому расположение клавиш-стрелок неудобное, но не преступное
- ТВ-тюнер встроен в монитор и работал даже при выключенном компьютере. Управление приемником программное, но продублировано на клавиатуре - правее F-клавиш. После выключения компьютера эти клавиши продолжали работать

Ничего не напоминает? Японцы украли дизайн Корвет ПК8020, но человеческий numpad не осилили.


Клавиатура Sharp CZ-800C - разъем и свитч


Дека Sharp X1 CZ-800C крупным планом: (click to enlarge)




Что внутри у Sharp X1 CZ-800C: (click to enlarge)



Материнская плата и ГЗУ



Hu-BASIC



Бейсик очень развитый (источник). Вот примерный список команд (разбит на группы):

Скрытый текст


Код:
Системные операторы:

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
[свернуть]



Эмуляция

Нет.
Метки: Нет Добавить / редактировать метки
Категории
Без категории

Комментарии

Трекбэков