Progress-Bar Racing by EdwardianTeaChest

Progress-Bar Racing! by EdwardianTeaChest

Overview

========

Title: Progress-Bar Racing!

Author: EdwardianTeaChest

Genre: Betting

System: Commodore VIC-20

Language: CBM BASIC V2

Contest category: PUR-80

Description

===========

Progress-Bar Racing! is a betting game for the Commodore VIC-20.  The game is

played by simply entering the number of the progress bar (1-8) that you want to

win, then pressing [Return] to start the race.

Program listing

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

0poke36879,238:printchr$(147):fori=0to7:reada,b:a(i)=a:b(i)=b:c(i)=0:d(i)=0:next 1print"*progress-bar racing!*":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:data7966,246,8010,234,8054,231,8098,160,8142 4next:b(i)=b(i)+1:next:input"select bar (1-8)";s:s=s-1 5x=rnd(-ti):x=int(rnd(1)*8):pokeb(x),a(c(x)):c(x)=c(x)+1 6ifc(x)=8thenc(x)=0:d(x)=d(x)+1:b(x)=b(x)+1 7ifd(x)<>20then5 8ifs=xthenprint"you won!":input"play again";a$:ifa$="y"thenrestore:goto0 9ifs<>xthenprint"you didn't win.":input"play again";a$:ifa$="y"thenrestore:goto0 10rem 11rem (c) 2022 etc