1 Temat przez w1k

  • w1k
  • Referent
  • Nieaktywny
  • Skąd: slovakia
  • Zarejestrowany: 2009-03-17
  • Posty: 428

Temat: help me with BASIC :)

i have problem with stick 14 - it's doesnt work.. it's a simple PMG.. move to left, right, bottom is OK, but TOP is broke..?

"
LOAD "D1:HRA.BAS"
RUN

enter your name, return.
"

http://podstromami.com/hra.atr

Ostatnio edytowany przez w1k (2009-03-24 20:37:33)

ATARI 800XE with u1mb, stereo, covox, ramdisk hell led, ultra video 1.0 XE.
SIO2SD, SIDE3, sio2usb, sio splitter, dragon cart, lantronix mss-100, fujinet (lotharek), rverter, A8PicoCart, BT-100, XC12 (T2000), XC12 (SUPER TURBO, TURBO D), both with internal speakers
https://www.youtube.com/@w1katari/

w1k's Strona

2 Odpowiedź przez seban

  • seban
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 2,988

Odp: help me with BASIC :)

Hi!

At line 280 you have:

280 IF STICK(0)=14 THEN RKT1H=RKT1H-1:DIR=NAHORU:GOTO 340

if you change the DIR=HAHORU to DIR1=NAHORU it will be work:

280 IF STICK(0)=14 THEN RKT1H=RKT1H-1:DIR1=NAHORU:GOTO 340

greetings
Seban

GitHUB: https://github.com/seban-slt

seban's Strona

3 Odpowiedź przez w1k

  • w1k
  • Referent
  • Nieaktywny
  • Skąd: slovakia
  • Zarejestrowany: 2009-03-17
  • Posty: 428

Odp: help me with BASIC :)

great.. i'm silly.. :) thanks

ATARI 800XE with u1mb, stereo, covox, ramdisk hell led, ultra video 1.0 XE.
SIO2SD, SIDE3, sio2usb, sio splitter, dragon cart, lantronix mss-100, fujinet (lotharek), rverter, A8PicoCart, BT-100, XC12 (T2000), XC12 (SUPER TURBO, TURBO D), both with internal speakers
https://www.youtube.com/@w1katari/

w1k's Strona