Commodore-okon szoktak nagyon ronda, kinézetre képernyőre hányt Basic programokat írni

BASIC-ben ami a program olvashatóságát javítja (szóközök, megjegyzések, utasítások külön sorokba írása, stb.), az általában lassítja is és a méretét növeli.

BASIC-ben ami a program olvashatóságát javítja (szóközök, megjegyzések, utasítások külön sorokba írása, stb.), az általában lassítja is és a méretét növeli.

Az a vicc, hogy Ep-n gyorsabban fut a program! A Plus4-es RENUMBER pedig valószínűleg a világ leglassabb átsorszámozása.

"Imádom" ezt a Microsoft BASIC-nek csúfolt gájnyolást...
Erre varjatok gombot:

700 for k=1 to 9
702 if o$(k)<>o$ then next:print"drop what??":goto 180
710 if o(k)>0 then print"You dont have that item!":goto 180
720 ml=ml-1:o(k)=l:print"Okay,it's done!":goto 180
730 for k=1 to 9:if o$(k)<>o$ then next:print"Get what??":goto 180
740 if o(k)=-1 then print"You already have it!":goto 180

Valaki ezt nekem lefordítaná "magyarra"? A 702., 730. sorban a next utáni rész mikor fut le?

then next

haha ez vicces, bár belegondolva, gépi kódban úgyis ez lesz/lehet belőle XD

Máshol nem tartozik hozzá NEXT
Én így alakítottam át:

700 for k=1 to 9
702 if o$(k)<>o$ then 722
710 if o(k)>0 then print"You dont have that item!":goto 180
720 ml=ml-1:o(k)=l:print"Okay,it's done!":goto 180
722 next
724 print"Drop what??":goto 180
Az "igazi  érdekességek" a GET és a BUY ciklusban vannak. A két ciklus között GOTO-zik ezzerrel össze-vissza, mint atom... Hogy nekem mekkora szerencsém van, hogy anno Ep-t kaptunk öcsémmel...

Az "igazi  érdekességek" a GET és a BUY ciklusban vannak. A két ciklus között GOTO-zik ezzerrel össze-vissza, mint atom... Hogy nekem mekkora szerencsém van, hogy anno Ep-t kaptunk öcsémmel...

Ez egyébként ugyanabból a sorozatból egy újabb játék lesz? A kód hasonlónak tűnik, de nem találom a Mansion-ben.

Szerintem elkészült.