Бейсик-помощь

[Eltaron]

Разве, при нажатии курка экран на кадр (или несколько кадров) не гасится, а подсвечивается только квадрат спрайта в который нужно "попасть" фотоприемником пистолета?!

Именно так. А по принципу светового пера работает мифический пистолет от Super Nintendo.

Не световое перо, конечно - но принцип "как-то" привязан к частоте кадров (явно, учитывалась некая инерционность и послесвечение ЭЛТ экрана).

Есть мнение, что единственная причина, по которой пистолет не работает - это тормознутость АЦП ЖК-телевизора, что он просто не успевает вовремя белые квадраты выводить. Ещё говорят, что фотоприемник больше в инфракрасный спектр смещен. Это тоже похоже на правду, я однажды подцеплял пистолет к микроконтроллеру, ну и, в общем, даже практически в упор разница между уровнями черного и белого на ЖК была маловата для четкого различения.

[Advertiser]

[null_device]

единственная причина, по которой пистолет не работает - это тормознутость АЦП ЖК-телевизора, что он просто не успевает вовремя белые квадраты выводить.

Скорее, "большой пинг" между событиями: нажатие на курок -> подсвечивание квадрата ->проверка наличия в фокусе "белого пятна".

говорят, что фотоприемник больше в инфракрасный спектр смещен.

ЕМНИП, сильно разный принцип. ЭЛТ - "пушка", которая лупит по люминофору только в нужных местах, заставляя его светиться. ЖК - позади экрана, установлены лампы или светодиоды, которые, через систему зеркал и линз френеля, задают равномерную и яркость светового потока, а матрица, лишь перекрывает его в нужных местах (при этом, зачастую имеют место проблемы с отображением абсолютно черного цвета - чаще, он серый).

[ZEman]

натолкнулся на такое.
делал оцифровки с некоторых своих кассет и наткнулся на одну недописанную программу.
проще говоря запись где-то в конце просто обрывается (конец программы затёрт когда-то давно по неизвестным причинам).
в результате запись открывается, можно просмотреть листинг программы.
смотреть можно до 495 строки.
удалить 495 строку не получается, прога после этого просто зависает или пишется всякая чепуха.
как можно удалить из программы эту дрянь чтобы с программой можно было работать дальше ?

[Alex Rider]

как можно удалить из программы эту дрянь чтобы с программой можно было работать дальше ?

1. Первый байт строки 495 (первый байт ее номера, а не оператора). Искать любым монитором.
2. Написать в первый байт строки 495 (после кода 13 предыдущей строки) число 128.
3. Записать адрес байта 128 в переменную VARS (23627/23628)
4. Сделать CLEAR.
5. Сохранить программу.

[ZEman]

если быть честным то я мало что понял из объяснения, мониторами никогда не пользовался раньше.

удалил 495 строку, но после этого сразу появилась нулевая строка с кучей вопросов.
пытался переименовать эту нулевую строку в какую-нибудь другую с помощью poke 23756 но не выходит.

[goodboy]

как можно удалить из программы эту дрянь чтобы с программой можно было работать дальше ?

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

  1 BORDER 0: PAPER 0: INK 7: CLS 

  2 POKE 23607,250

  3 FOR A=-60 TO 60 STEP 5: BEEP 0.01,A: NEXT A

  5 GO SUB 9000

  10 REM ==TOPITIP==

  15 PRINT  AT 0,17;" TOPITIP"

  17 PRINT  AT 2,17;"=2.173"

  20 PRINT  AT 6,0;"IGRA PROSTA:  UPRAVLdd NOLIKOM NADO COBRATa    OPREDELENNOE KOLIWESTVO DOLLAROV ($),PRI cTOM NELad NATbKATaSd NA REHETKU (#),TAKJE MOJNO SOBIRATa VOPROSb () PRI cTOM Vb MOJETE LIBO POLUWITa 100 OWKOV LIBO MOJETE UMERETa,TAK-WTO VbBIRAITE."

  22 PRINT  AT 18,0;" q , A , O , p  "

  24 PRINT  AT 21,17;"1"

  25 PAUSE 0

  26 PAUSE 0

  29 REM ==MATEMATIKA==

  30 GO SUB 9000

  31 PRINT  AT 0,17;" MATEMATIKA"

  35 PRINT  AT 2,17;"=2.624"

  40 PRINT  AT 6,0;" MATEMATIKA: IGRA OBUWAQeAd SLOJENIQ,VbWITANIQ,UMNOJENIQ I DELENIQ,A TAKJE REHENIQ PROSTEIHIX UROVNENII,DLd VTOROGO-TRETaETaEGO KLASA."

  42 PRINT  AT 18,0;"ENTR - VVOD WISEL,KLAVIHI: 1,2.."

  45 PRINT  AT 21,17;"2"

  47 PAUSE 0

  48 PAUSE 0

  49 REM ==TABBLE==

  50 GO SUB 9000

  55 PRINT  AT 0,17;" TABBLE"

  60 PRINT  AT 2,17;"929 BAIT."

  65 PRINT  AT 6,0;" TABBLE: PROGRAMMA DLd VbWISLENId: SINUSA,KOSINUSA,TANGENSA,VbWISLENIE KORNd,NAXOJDENIE ABSOLQTNOGO WISA DANNOGO WISLA I.T.D."

  67 PRINT  AT 18,0;" LQBbE KLAVIHI.."

  69 PRINT  AT 21,17;"3"

  70 PAUSE 0

  71 PAUSE 0

  75 REM ==BLOK-L==

  80 GO SUB 9000

  85 PRINT  AT 0,17;" BLOK-L"

  87 PRINT  AT 2,17;"=7.659(OBeAd)"

  89 PRINT  AT 6,0;"BLOK-L: BEISIK ZAGRUZWIK PROGRAMMb _LASER-BEISIK_"

  91 PRINT  AT 18,0;" OTSUTSTVUQT."

  93 PRINT  AT 21,17;"4"

  94 PAUSE 0

  96 PAUSE 0

  99 REM ==BUM I BOM"

  100 GO SUB 9000

  102 PRINT  AT 0,17;" BUM I BOM"

  105 PRINT  AT 2,17;"=4.469(OBeAd)"

  107 PRINT  AT 6,0;"BUM I BOM: PRIKLQWENId DVUX ZABAVNbX KOLOBKOV,UPRABLdd IMI Vb DOLJNb SOBRATa KAK-MOJNO BOLaHE VSdKIX VKUSNbX VEeEI: _dBLOKI,VIHENKI,BANANb,TARELKI S SUPOM,A TAKJE VAM NADO IZBEGATa STOLKNOVENId S SERDCAMI,KOTORbE VO MNOJESTVE RAZBROSANb PO cKRANU POBEJDAET TOT KTO NABERET BOLaHE OWKOV."

  109 PRINT  AT 18,0;"SINKLAIR-DJOISTIK,              KLAVIHI:q,A,O,p"

  111 PRINT  AT 21,17;"5"

  113 PAUSE 0

  115 PAUSE 0

  120 REM ==BUM I BOM 2"

  122 GO SUB 9000

  125 PRINT  AT 0,17;" BUM I BOM2"

  127 PRINT  AT 2,17;"=4.501(OBeAd)"

  130 PRINT  AT 6,0;" BUM I BOM2: ,NA cTOT RAZ BUMU NADO SPASTI BOMA,VAM TAKJE MEHAQTSd SERDCA  RAZBROSANbE PO cKRANU,NO IGRA USLOJNdTSd: Vb MOJETE XODITa LIH VLEVO I VPRAVO,NASTUPIV NA PUSTOE MESTO Vb PADAETE VNIZ,VAM NADO VZdTa S SOBOI _BOMA_,MIGAQeII KOLOBOK,PO PUTI SOBIRAITE VEeI,V IGRE DESdTa UROVNEI."

  135 PRINT  AT 18,0;"SINKLAIR-DJOISTIK."

  137 PRINT  AT 21,17;"6"

  138 PAUSE 0

  139 PAUSE 0

  140 REM == ==TANK== ==

  145 GO SUB 9000

  150 PRINT  AT 0,17;"=TANK="

  152 PRINT  AT 2,17;"=3.339(OBeAd)"

  154 PRINT  AT 6,0;" =TANK=: POLNOE NAZVANIE IGRb(TANKOS KOMANDOS),UPRAVLdd TANKOM Vb DOLJNb LOVKO OBYEZJAd MINb PROEXATa PO POLQ I SOBRATa VSEX SOLDAT A ZATEM ZAEXATa V KREPOSTa,IGRA PROSTAd,VAM DAETSd 5 JIZNEI, U VAS ESTa I cNERGId,SLEDITE ZA NEI I VREMd OT VREMENI POPOLNdITE EE ZAPAS(MOLNII)."

  156 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  158 PRINT  AT 21,17;"7"

  159 PAUSE 0

  160 PAUSE 0

  165 REM ==DITETRIS==

  170 GO SUB 9000

  175 PRINT  AT 0,17;" DITETRIS"

  177 PRINT  AT 2,17;"=6.545(OBeAd)"

  179 PRINT  AT 6,0;" DITETRIS: RAZNOVIDNOSTa TETRISA,V NEM NE NUJNO SOBIRATa LINII,NO ZATO V cTOI IGRE ESTa NESKOLaKO SQRaPRIZOV,KOTORbX NET NIVKAKOM DRUGOM TETRISE,A CELa IGRb OWENa PROSTA VAM NADO SLOJITa OPREDELENNOE KOLIWESTVO KUBIKOV,SQRPRIZb NAIDITE SAMI."

  181 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  184 PRINT  AT 21,17;"8"

  186 PAUSE 0

  188 PAUSE 0

  190 REM ==INZZ==

  195 GO SUB 9000

  197 PRINT  AT 0,17;" INZZ"

  200 PRINT  AT 2,17;"=2.218(OBeAd)"

  205 PRINT  AT 6,0;" INZZ: PITON,VAM NADO SOBRATa ZA OGRANIWENNOE VREMd ODINADCATa MUXOMOROV I IZBEJATa STOLKNOVENId S HARIKAMI,KOTORbE RAZBROSANNb PO VSEMU cKRANU."

  207 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  209 PRINT  AT 21,17;"9"

  211 PAUSE 0

  212 PAUSE 0

  215 REM ==DIGGER.==

  217 GO SUB 9000

  220 PRINT  AT 0,17;" DIGGER."

  222 PRINT  AT 2,17;"=4.012(OBeAd)"

  224 PRINT  AT 6,0;"DIGGER: WELOVEWEK BEGAET PO cKRANU I SOBIRAET ALMAZb, MOJNO DVIGATa KAMNI,ESTa V cTOI IGRE ODNA SLOJNOSTa: WELOVEWEK ROd ZEMLQ,KOTOROI POKRbT VESa cKRAN OCTAVLdET POZADI SEBd SLEDb PO KOTORbM BEGATa ON UJE NE MOJET,KAMNI VOKRUG VAS WASTO VZRbVATSd,A NA IX MESTE OPdTa-JE POdBLdQTSd SLEDb."

  226 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  228 PRINT  AT 21,17;"10"

  229 PAUSE 0

  230 PAUSE 0

  235 REM ==M-KODE 1==

  237 GO SUB 9000

  239 PRINT  AT 0,17;" M - KODE 1"

  241 PRINT  AT 2,17;"=1.206(OBeAd)"

  243 PRINT  AT 6,0;"M - KODE 1: MALENaKAd,MUZbKALaNAd PROGRAMKA SDELANNAd S POMOeaQ _VHAM_."

  245 PRINT  AT 18,0;" - / - / -"

  247 PRINT  AT 21,17;"11"

  249 PAUSE 0

  250 PAUSE 0

  255 REM ==.,. ILI XARIOS==

  257 GO SUB 9000

  259 PRINT  AT 0,17;" XARIOS"

  261 PRINT  AT 2,17;"=3.503(OBeAd)"

  263 PRINT  AT 6,0;" XARIOS: UPRAVLdd VOZDUHNbM HAPIKOM,KOTORbI VSE VREMd LETIT VVERX,VAM NODO VbLETETaNARUJU WEREZ VbXOD,MIGAQeIE STRELKI,IZBEGAITE STOLKNOVENII S KANCELdRSKIMI KNOPKAMI,HARIK VSE VREMd DERGAETSd V RAZNbE STORONb IZZA VETRA,BUDaTE OSTOROJNb U VAS VSEGO ODNA JIZNa,A UROVNEI CELbX DESdTa." 

  265 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  267 PRINT  AT 21,17;"12"

  268 PAUSE 0

  269 PAUSE 0

  270 REM ==TREASURE==

  272 GO SUB 9000

  275 PRINT  AT 0,17;" TREASURE"

  277 PRINT  AT 2,17;"=4.059(OBeAd)"

  279 PRINT  AT 6,0;" TREASURE: POISKI PODVODNbX SOKROVIe,VAM NADO PODNATa SO DNA MORSKOGO NESKOLaKO SUNDUKOV S ZOLOTOM,SLEDITE ZA KISLORODOM,ZA KAJDbI SUNDUK VAM BUDUT DAVATa PO BALLONU KISLORODA,OSTEREGAITESa WUDOVIeA."

  280 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  281 PRINT  AT 21,17;"13"

  282 PAUSE 0

  283 PAUSE 0

  285 REM ==MAZE==

  287 GO SUB 9000

  290 PRINT  AT 0,17;" MAZE"

  295 PRINT  AT 2,17;"=5.672"

  297 PRINT  AT 6,0;" MAZE: cTO LABIRINT,PO KOTOROMU RAZBROSANb ALMAZb,SOBERITE IX VSE INAWE IX SOBERUT DVA STRAJA,KOTORbMI UPRAVLdET KOMPaQTER,KTO BOLaHE(KOMPaQTOR ILI Vb) SOBERET ALMAZOV TOT I VbIGRAET,VREMd OGRANIWENO."

  299 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  301 PRINT  AT 21,17;"14"

  303 PAUSE 0

  304 PAUSE 0

  305 REM ==BOMB ATOM==

  310 GO SUB 9000

  315 PRINT  AT 0,17;" BOMB ATOM"

  317 PRINT  AT 2,17;"=5.742(OBeAd)"

  319 PRINT  AT 6,0;" BOMB ATOM: CELI TUT NIKAKOI NET,PROSTO BOMBITE VSE WTO DVIJETSd I NABIRAITE OWKI."

  320 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  322 PRINT  AT 21,17;"15"

  324 PAUSE 0

  326 PAUSE 0

  330 REM ==STAR VARS==

  332 GO SUB 9000

  334 PRINT  AT 0,17;" STAR VARS"

  336 PRINT  AT 2,17;"=5.440(OBeAd)"

  338 PRINT  AT 6,0;" STAR VARS: ZVEZDNbE VOINb,BOMBITE KORABLI I SLADITE ZA VREMENEM,BSd IGRA."

  340 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  345 PRINT  AT 21,17;"16"

  347 PAUSE 0

  348 PAUSE 0

  350 REM ==XONIK==

  352 GO SUB 9000

  354 PRINT  AT 0,17;" XONIK"

  356 PRINT  AT 2,17;"=3.203"

  358 PRINT  AT 6,0;"XONIK: WELOVEWEK LAZAET PO POLQ I OSTAVLdET ZA SOBOI SLEDb PO KOTORbM UJE NELaZd XODITa,ZA VAMI GONdQTSd DVA BANDITA,NADO UNIWTOJITa KAK MOJNO BOLaHE ZEMLI."

  360 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  362 PRINT  AT 21,17;"17"

  363 PAUSE 0

  364 PAUSE 0

  365 REM ==KAR.==

  367 GO SUB 9000

  369 PRINT  AT 0,17;"KAR."

  370 PRINT  AT 2,17;"=5.797(OBeAd)"

  372 PRINT  AT 6,0;"KAR.: cTO KARATE,KOMENTARIEV NE NUJNO."

  374 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  376 PRINT  AT 21,17;"18"

  378 PAUSE 0

  379 PAUSE 0

  380 REM ==FISHER==

  382 GO SUB 9000

  384 PRINT  AT 0,17;" FISHER"

  385 PRINT  AT 2,17;"=6.105(OBeAd)"

  387 PRINT  AT 6,0;" FISHER: RbBAK,STARAITESa POIMATa,KAK MOJNO BOLaHE RbB,NO NE OSaMINOGOV I KONSERVNbX BANOK."

  389 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  390 PRINT  AT 21,17;"19"

  392 PAUSE 0

  394 PAUSE 0

  395 REM ==PRESS ==

  397 GO SUB 9000

  399 PRINT  AT 0,17;" PRESS "

  401 PRINT  AT 2,17;"=4963(OBeAd)"

  403 PRINT  AT 6,0;" PRESS: Vb KOLOBOK,VAM NADO SOBRATa DRAGOCENNOSTI,VAM MEHAQT: DRUGOI KOLOBOK,PRESSb,A TAKJE DbRKI WEREZ KOTORbE NADO PEREPRbGIVATa,SLEDITE ZA VREMENEM,IGRA OWENa INTERESNAd."

  405 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  407 PRINT  AT 21,17;"20"

  408 PAUSE 0

  409 PAUSE 0

  410 REM ==TIR==

  411 GO SUB 9000

  412 PRINT  AT 0,17;" TIR"

  414 PRINT  AT 2,17;"=3.850(OBeAd)"

  416 PRINT  AT 6,0;"TIR: POdSNENId NIKWEMU."

  418 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  420 PRINT  AT 21,17;"21"

  422 PAUSE 0

  423 PAUSE 0

  425 REM ==* GUN *==

  427 GO SUB 9000

  429 PRINT  AT 0,17;" * GUN *"

  431 PRINT  AT 2,17;"=7.509(OBeAd)"

  433 PRINT  AT 6,0;" GUN: PERESTRELKI NA PUHKAX,SLEDITE ZA dDRAMI,S POMOeaQ VSdKIX VEeEI UMNOJAQTSd VAHI OWKI,IGRA INTERESNAd I ZABAVNAd,CELa: SBITa FLAG PROTIVNIKA."

  435 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  437 PRINT  AT 21,17;"22"

  438 PAUSE 0

  439 PAUSE 0

  440 REM ==DONIXLOGIK==

  442 GO SUB 9000

  445 PRINT  AT 0,17;" DONIXlogik"

  447 PRINT  AT 2,17;"3.826(OBeAd)"

  449 PRINT  AT 6,0;"DONIXlogik: LOGIWESKAd IGRA,SLEDITE ZA VREMENEM,A O CELI DOGADAITESa SAMI,SKAJIM LIH ODNO STAVTE KUBIKI V KUWKU MOJET DOGADAETESa TOGDA OCELI."

  451 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  453 PRINT  AT 21,17;"23"

  454 PAUSE 0

  455 PAUSE 0

  460 REM ==LALALA==

  462 GO SUB 9000

  464 PRINT  AT 0,17;" LALALA"

  466 PRINT  AT 2,17;"=639(BAIT)"

  468 PRINT  AT 6,0;" LALALA: LABIRINT."

  470 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  472 PRINT  AT 21,17;"24"

  473 PAUSE 0

  474 PAUSE 0

  475 REM ==SUPERMAZE==

  477 GO SUB 9000

  479 PRINT  AT 0,17;" SUPERMAZE"

  480 PRINT  AT 2,17;"=2.809(BAIT)"

  482 PRINT  AT 6,0;"SUPERMAZE: LABIRINT,cTO PROSTO LABIRINT,LAZAITE PO NEMU KAK XOTITE,OSTEREGAITESa WUDOVIeA,V IGRE 6 BLOKOV."

  484 PRINT  AT 18,0;"SINKLAIR-DJOISTIK"

  486 PRINT  AT 21,17;"25"

  488 PAUSE 0

  489 PAUSE 0

  490 CLS 

  495 PRINT  AT 11,10

[свернуть]

(надеюсь конвертер из текста в бейсик найдёшь самостоятельно)

[ZEman]

goodboy, так я уже делал, но так неинтересно.

[goodboy]

я конечно могу посоветовать ввести после сообщения об ошибке POKE 33463,128
только боюсь ты не хрена не-поймёшь что это меняет

[ZEman]

goodboy, насколько я понимаю это будет означать ввод значения 128 в адрес последней строки программы (495 или 490).

[null_device]

удалил 495 строку, но после этого сразу появилась нулевая строка с кучей вопросов.

Интерпретатор бейсика, пытается найти следующую строку, взяв из адреса текущей строки ее длину и понять есть ли что-то после нее. Но т.к. дальнейшее содержимое памяти мало поддается его логике -листинг, превращается в труху.