Монтируете образ в эмулятор. Загружаете файл, если в эмуляторе нет средств делающих это (полу)автоматически. PROFIT!Цитата:
Сообщение от Viktor2312
Вид для печати
Монтируете образ в эмулятор. Загружаете файл, если в эмуляторе нет средств делающих это (полу)автоматически. PROFIT!Цитата:
Сообщение от Viktor2312
Это как, поподробнее можно.Цитата:
Сообщение от null_device
Я запускаю эмулятор, появляется стандартное окно где можно выбрать 48КБейсик, 128КБейсик, TRDOS, что дальше делать. Я могу нажать F3 и выбрать файл, архива либо уже разархивированный, но это ничего не даёт.
Один из вариантов: Заходите в tr-dos. Даете команду LIST. Ищете имя нужного вам файла (хотя там всего один файл ;) ). Не выходя оттуда, вводите команду LOAD "имя файла".Цитата:
Сообщение от Viktor2312
Спасибо, всё получилось.Цитата:
Сообщение от null_device
Не выкладывайте демы просто так. Отправляйте их на сочипати.
Поместил в ***** архив, гоблину понравуЦитата:
Сообщение от scl^mc
http://zxaaa.untergrund.net/view_demo.php?id=7898
---------- Post added at 13:25 ---------- Previous post was at 13:24 ----------
У группы ХООЙ ПРОГРАММ есть такое пати, там чем хуже тем первое местоЦитата:
Сообщение от Kakos_nonos
Тогда это будет самой крутой демкой.Цитата:
Сообщение от AAA
сейчас что-нибудь придумаю... :)Цитата:
Сообщение от Kakos_nonos
пробегал мимо, глянул ааа-демку...
Viktor2312 ой маниааак :)
не надо вставлять INK, PAPER и BRIGHT в каждый оператор, когда их много, - перед первым оператором в группе - 1 раз просто можно отдельно написать (без draw).
и на заметку:
...
1010 INK 1: PAPER 2: BRIGHT 1
1020 RESTORE 1020: GOSUB 9010: DATA 5, 1,1, 1,2, 1,3, 2,3, 3,3: REM ...plotiki...
1030 INK 3: PAPER 4: BRIGHT 0
1040 RESTORE 1040: GOSUB 9020: DATA 3, 1,1,2,2, 1,2,3,3, 1,3,4,5: REM ...plot+draw...
...
8999 GOTO 9999 : REM vse budet O.K.
9000 REM --- podprogrammi ---
9010 REM plot N raz
9015 READ N: FOR i=1 to N: READ x,y: PLOT x,y: NEXT i: RETURN
9020 REM plot+draw N raz
9025 READ N: FOR i=1 to N: READ x,y: PLOT x,y: READ dx,dy: DRAW dx,dy: NEXT i: RETURN
9030 REM ... drugie podprogrammi ...
...
9999 REM end of program
---------- Post added at 15:54 ---------- Previous post was at 15:41 ----------
кстати еще:
http://zx.pk.ru/showthread.php?p=198358#post198358
И после этого, когда программа перестанет занимать 20 килобайт и уместится вся ниже 40000, можно взять Tobos FP и откомпилировать, станет работать в разы быстрей.Цитата:
Сообщение от char
9030 REM 1plot + Ndraw
9035 READ x,y: PLOT x,y
9037 REM draw N raz
9038 READ N: FOR i=1 to N: READ dx,dy: DRAW dx,dy: NEXT i: RETURN
1050 RESTORE 1050: GOSUB 9030: DATA 100,20, 3, 100,0, -50,80, -50,-80
1053 PLOT 100,18
1055 RESTORE 1055: GOSUB 9037: DATA 3, 100,0, -50,80, -50,-80
...
9040 REM Read + Rectangle(x,y,dx,dy)
9045 READ x,y,dx,dy
9050 REM Rectangle(x,y,dx,dy)
9055 PLOT x,y: DRAW dx,0: DRAW 0,dy: DRAW -dx,0: DRAW 0,-dy: RETURN
1060 RESTORE 1060: GOSUB 9040: DATA 10,10, 230,150
1070 LET x=12: LET y=12: LET dx=226: LET dy=146: GOSUB 9050
...
1 LET R1=9040: LET R2=9050
1080 RESTORE 1080: GOSUB R1: DATA 14,14, 222,142
1090 LET x=16: LET y=16: LET dx=218: LET dy=138: GOSUB R2
... ;)
---------- Post added at 17:16 ---------- Previous post was at 16:59 ----------
9060 REM Bar(color,x,y,dx,dy)
9065 READ color: POKE 23693,color: REM color=ink + (paper*8) + (bright*64) + (flash*128)
9070 REM Bar(x,y,dx,dy)
9075 READ x,y,dx,dy
9080 FOR i=0 to dy: PLOT x,y+i: DRAW dx,0: NEXT i
9090 RETURN
2 LET B1=9060: LET B2=9070
1100 RESTORE 1100: GOSUB B1: DATA 79, 1,1,254,174: REM 79 = ink 7: paper 1: bright 1: flash 0
1110 POKE 23693,5: REM vse po nolyam, ink 5
1115 RESTORE 1115: GOSUB B2: DATA 9,9,238,158
1120 RESTORE 1120: INK 1: GOSUB B2: INK 2: GOSUB B2: INK 3: GOSUB B2: INK 4: GOSUB R1: DATA 30,30,5,50, 40,30,5,60, 50,30,5,40, 60,30,100,100: REM 3 bar + 1 rectangle
...
8000 DATA 66: REM color
8001 DATA 1,2,3,4
8005 DATA 5,6,7,8, 9,10,11,12
8010 DATA 13,14,15,16, 17,18,19,20
8020 DATA 9,8,7,6, 5,4,3,2, 1,2,3,4
8030 DATA 1001,1002,1003,1004,1005: REM ne chitaem )
1130 RESTORE 8000: GOSUB B1: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2
1140 RESTORE 8000: GOSUB B1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1
1150 RESTORE 8010: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2
блин, забыл, как рассчитывать значения для занесения в ячейки 23606/23607 для переключения на символьный набор пользователя... :(
adr=60000
H=int(adr/256)
L=adr-H*256
H=H-1
23606,L
23607,H
:) насколько помню
scl^mc, даете команду RANDOMIZE (n-256). В ячейках 23670\71 будут лежать готовые числа для переменной.
Поигрался с оператором OVER, действительно работает.
Качать и смотреть не обязательно, там рисуется 9 пикселей, после чего они убираются и процесс повторяется до бесконечности.
файлик
Теперь можно мучать дальше.