Просмотр полной версии : Народ помогите)) что набирать ??
Народ появился спек рабочий , пытаюсь загрузить игру через магнитофон , что нужно нажать в бейсике?? кабели есть , мафон рабочий , все отлично ...
нужно набрать run L??:frown::speccy::smile:
LOAD "" Enter
И увидишь бордюр начнет мигать тогда включишь магнитофон.
billgilbert81
05.11.2008, 06:20
Прикольный вопрос!!! Прям детство вспомнил....
нормально нормально,а вдруг у человека спектрума ниразу небыло..
или забыл..хотя..имхо если пару лет поюзал кассетный агрегат-такое из памяти не стирается:)..
головку мафона спиртиком протри перед процессом для уверенности. Если сигнал будет плыть, то надо подкрутить головку до чистого ууууууу. Но если мафон современный, то не надо.
ага,а сколько болтиков подстроечных,в своё время,на головке поменял-ужос..резьба стачивалась от постоянных кручений (касеты то всякие были):)..
Rene Sens
06.11.2008, 11:20
А на меня иногда находит, так я на эмуляторе запускаю кассетную загрузку на нормальной скорости и слушаю, слушаю, слушаю... :)
А на меня иногда находит, так я на эмуляторе запускаю кассетную загрузку на нормальной скорости и слушаю, слушаю, слушаю... :)
+1, я тоже.
Avtofaer
07.11.2008, 12:15
Мужики у меня тот же вопрос. что нажимать, в смысле написать. давно дело было: программка на бейсике строчек пять. помню было BEEP .5,A; FOR A=1 TO 40; ... и в конце GOTO10 в смысле в начало. запускаем по RUN и получаем гамму в один голос от тона 1 до тона 40 по 0,5 сек. каждую ноту. что-то с памятью моей стало.
SAM style
07.11.2008, 13:22
10 for a=1 to 40
20 beep .5,a
30 next a
40 go to 10
Avtofaer
07.11.2008, 13:44
спасибо. вечером отполируем. а где еще простеньких программ рукописных можно насобирать?
где еще простеньких программ рукописных можно насобирать?
на сайте виртуал тр дос (http://trd.speccy.cz/) в разделе book есть все ответы на все твои вопросы
Именно небольшие простые программы на бейсике лучше посмотреть в ZX-Ревю 91-93, плюс (если не изменяет память) 94№3 и в некоторых других номерах. Есть книга "Игры на Бейсике своими руками", но там программы посложнее.
Искать
на сайте виртуал тр дос (http://trd.speccy.cz/) в разделе book есть все ответы на все твои вопросы
Avtofaer
07.11.2008, 16:24
непременно понабираю, и позапускаю.
Firelord
11.11.2008, 20:08
А на меня иногда находит, так я на эмуляторе запускаю кассетную загрузку на нормальной скорости и слушаю, слушаю, слушаю...
На меня тоже. Там местами попадалась весьма "музыкальная" загрузка. Взять хотя бы Finders Keepers (ближе к концу, это вообще симфония), Knight Lore (загрузка экрана). Местами даже лучше, чем определённая современная музыка. :-)
спасибо. вечером отполируем. а где еще простеньких программ рукописных можно насобирать?
по мотивам прошлой -
10 for a=0 to 100
20 circle a,a,a
30 next a
=)
plot 100,90:draw 60,0,4000
последний параметр можно менять. +- порядок
:)
Avtofaer
12.11.2008, 01:09
классные узоры рисует. новички рекомендую. у нас даже мама стала набирать сама чтобы лишний раз посмотреть. всем спасибо.
На меня тоже. Там местами попадалась весьма "музыкальная" загрузка. Взять хотя бы Finders Keepers (ближе к концу, это вообще симфония), Knight Lore (загрузка экрана). Местами даже лучше, чем определённая современная музыка. :-)
Durak Медноногова, переведённый на кассету, звучит классно. Особенно последний блок :)
Программа для вывода разноцветных полосок (сгодится для тестирования).
10 FOR C =1 TO 22
20 FOR S= 0 TO 7
30 PRINT PAPER S; " "; (4 ПРОБЕЛА)
40 NEXT S: NEXT C
рисует Спектрум Спектрума )
в строке 90 число 8 можно менять в пределах от 1 до 8. Например, для 1 экран будет раскрашен сразу, а уже потом скошены полосы...
10 FOR A=1 TO 8
20 LET B=2^A-1: LET C=1
30 FOR D=0 TO 31
40 FOR E=0 TO 7
50 LET F=E*32+D
60 POKE 16128+A*256+F,B
70 POKE 18176+A*256+F,B
80 POKE 20224+A*256+F,B
90 IF A=8 THEN POKE 22528+F,C: POKE 22784+F,C: POKE 23040+F,C
100 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
110 NEXT E
120 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
130 NEXT D: NEXT A
140 PAUSE 0: PAUSE 0
рисует Спектрум Спектрума )
в строке 90 число 8 можно менять в пределах от 1 до 8. Например, для 1 экран будет раскрашен сразу, а уже потом скошены полосы...
10 FOR A=1 TO 8
20 LET B=2^A-1: LET C=1
30 FOR D=0 TO 31
40 FOR E=0 TO 7
50 LET F=E*32+D
60 POKE 16128+A*256+F,B
70 POKE 18176+A*256+F,B
80 POKE 20224+A*256+F,B
90 IF A=8 THEN POKE 22528+F,C: POKE 22784+F,C: POKE 23040+F,C
100 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
110 NEXT E
120 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
130 NEXT D: NEXT A
140 PAUSE 0: PAUSE 0
еле вбил это в мозг спектрума :speccy:
попробывал это вбить на эмуляторе... - разрыв мозга наступил на второй строке :)
Во второй строке беда только с символом степени ^
На ZX он изображается как настоящая "стрелочка вверх" /|\, а на IBM - нет вертикальной палочки.
На Спектруме стрелочка вверх - на клавише H. Вводится (извиняюсь, ошибся :( ) "SymbolShift+H".
надо поднять тему!
Что еще есть)?
10 OVER 1
20 FOR A=0 TO 175
30 PLOT 0, 0
40 DRAW 255, A
50 NEXT A
60 FOR A=254 TO 0 STEP -1
70 PLOT 0, 0
80 DRAW A, 175
90 NEXT A
100 OVER 0
вчера повспоминал бейсик :)
16:
32:
64:
96:
112:
128:
256 BORDER 0: BORDER 7::::: BORDER 1::::: BORDER 2::::: BORDER 0: PAUSE 1: GO TO ABS (PEEK 23672-128)
---------------
10 BORDER 0: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
20 BORDER 0:::::::: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
30 GO TO 10
...возможно, потребуется подобрать количество двоеточий.
Гениально и просто, особенно анимация нарисованного.
вчера повспоминал бейсик :)
16:
32:
64:
96:
112:
128:
256 BORDER 0: BORDER 7::::: BORDER 1::::: BORDER 2::::: BORDER 0: PAUSE 1: GO TO ABS (PEEK 23672-128)
---------------
10 BORDER 0: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
20 BORDER 0:::::::: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
30 GO TO 10
...возможно, потребуется подобрать количество двоеточий.
Афигеть
:)
кстати, там в началах строк везде BORDER 0 можно убрать.
в анимашке можно удалить 128 строку, и вместо двоеточий, например, в 16 и 32 строке поставить BORDER 0.
и т.д.
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. Перевод: zCarot