Progress-Bar Racing by EdwardianTeaChest

Гонки на полосе прогресса! от EdwardianTeaChest

Обзор

========

Название: Гонки Progress-Bar!

Автор: EdwardianTeaChest

Жанр: Ставки

Система: Commodore VIC-20

Язык: CBM BASIC V2

Номинация конкурса: ПУР-80

Описание

===========

Гонки на полосе прогресса! это игра на ставки для Commodore VIC-20. Игра

играть, просто введя номер индикатора выполнения (1-8), который вы хотите

победить, а затем нажать [Return], чтобы начать гонку.

Список программ

===============

0poke36879,238:printchr$(147):fori=0to7:reada,b:a(i)=a:b(i)=b:c(i)=0:d(i)=0:следующий 1print"*гонки прогресс-бара!*":fori=0to7:forj=0to21:c=i:ifj=21thenc=1 2pokeb(i)+j+30720,c:ifj=0thenpokeb(i)+j,i+49:data101,7834,116,7878,117,7922,97 3ifj=21thenpokeb(i)+j,102:данные7966,246,8010,234,8054,231,8098,160,8142 4next:b(i)=b(i)+1:next:input"панель выбора (1-8)";s:s=s-1 5x=rnd(-ti):x=int(rnd(1)*8):pokeb(x),a(c(x)):c(x)=c(x)+1 6если с(х)=8, то с(х)=0:d(х)=d(х)+1:b(х)=b(х)+1 7еслиd(x)<>20тогда5 8ifs=xтогда напечатайте"вы выиграли!":введите"играйте еще раз";a$:ifa$="y"затем восстановите:goto0 9ifs<>xthenprint"вы не выиграли.":input"играть еще раз";a$:ifa$="y"thenrestore:goto0 10бэр 11рем (с) 2022 и т.д.