PROGRAM:Arcade Menu 
01 VM 0:CLS :DIR 0:V=15:C=0
02 ? @1,1"Music Volume <-";V;
03 ? " -> ":? " Accept - B1/Enter"
04 V=V+IN(3)-IN(2):LIM V,0,15
05 V=V+KEY(6):LIM V,0,15
06 IF IN(1)=0:EPOKE 0,V:GO 9
07 IF KEY(0)=234:EPOKE 0,V:GO 9
08 WAIT 5:GO 2
09 ? @3,1"Use Credits? <- Yes ->"
10 IF IN(3)=0:? @3,17"No ":C=200
11 IF KEY(6)=-1:? @3,17"No ":C=200
12 IF IN(2)=0:? @3,17"Yes":C=0
13 IF KEY(6)=1:? @3,17"Yes":C=0
14 WAIT 5:IF KEY(0)=234:GO 16
15 IF IN(1)=1:GO 10
16 DA 0,230,4,230,2,232,2,235,4
17 DA 8,235,2,237,2,239,4,239,2
18 DA 16,237,2,235,4,235,2,237,2
19 DA 24,239,4,239,2,237,2,235,2
20 DA 32,235,2,105,1,105,1,232,2
21 DA 40,230,15,237,5,237,2,239,2
22 DA 48,240,4,240,2,239,2,237,4
23 DA 56,237,2,239,2,240,4,240,2
24 DA 64,239,2,237,4,237,2,235,2
25 DA 72,233,1,235,3,233,2,232,2
26 DA 80,230,10,230,2,239,2,237,2
27 DA 88,235,4,235,4,237,1,235,2
28 DA 96,232,1,228,2,232,2,235,4
29 DA 104,237,1,235,2,232,1,235,4
30 DA 112,235,1,237,1,235,1,235,1
31 DA 120,232,2,230,4,223,4,225,1
32 DA 128,223,2,220,1,216,2,220,2
33 DA 136,223,4,225,1,223,2,220,1
34 DA 144,223,4,235,2,233,2,232,4
35 DA 152,228,2,230,2,232,8,237,4
36 DA 160,233,2,235,2,237,10,239,2
37 DA 168,239,2,239,2,240,2,240,2
38 DA 176,237,4,235,8
39 VOL V:PLAY 0,90,6,1
40 VM 0:CLS :DIR 0:P=3
41 COL 5,0:HFRAME 0,0,22,29
42 COL 1,5:? @1,4"AVRcade";
43 ? " - Game Menu"
44 COL 7,0:? @3,5"Game 1 - Blocky"
45 ? @5,5"Game 2 - Skinny Vaders"
46 ? @7,5"Game 3 - Racer"
47 ? @9,5"Game 4 - Setfree"
48 ? @11,5"Game 5"
49 ? @13,5"Game 6"
50 ? @15,5"Test Pattern Menu"
51 COL 6,0:? @17,5;%$A0;
52 ? " +B1 Select Game"
53 ? @19,5"INSERT COIN":'Press INS
54 IF IN($1FF)=187:GO 72
55 IF KEY(0)=252:GO 72
56 IF IN(7)=0:C=C+1:LIM C,0,200
57 IF KEY(0)=232:C=C+1:LIM C,0,200
58 IF C>0:? @19,5"CREDIT ";C;"  "
59 IF C>100:? @19,5" FREE PLAY "
60 IF C=0:GOTO 53
61 COL 3,0:? @P,3;%$81:WAIT 2
62 ? @P,3" ":IF IN(1)=0:GOTO 67
63 IF KEY(0)=234:GO 67
64 P=P+(IN(5)-IN(4))*2:LIM P,3,15
65 P=P-KEY(7)*2:LIM P,3,15
66 WAIT 1:COL 6,0:GOTO 54
67 A=PSTAT(0):C=C-1:LIM C,0,200
68 EPOKE 1,C:G=(P-1)/2:LIM G,1,7
69 IF G>4:G=8:C=C+1:EPOKE 1,C
70 VM 0:CLS :CALL G,1
71 V=EPEEK(0):C=EPEEK(1):GO 16
72 'Start + R to clear high scores
73 'or F12 to clear high scores
74 FOR B=2TO 7:EP B,0:WAIT 10
75 NO B+50:NEXT :GO 56
76 '@jbretro.com 2025
#
