Toi Acid Game

Download

Infinite Lifes & Acid For All (Part 2 - Only Infinite Lifes) (TOI.POK)

Part 1
10 SCREEN2
20 BLOAD"TOI01",R
30 BLOAD"TOI02",R
40 BLOAD"TOI13"
50 POKE&H8AB1,0:POKE&H8E66,0:POKE&H9211
,0
60 DEFUSR=&HC800:PRINTUSR(0)
70 BLOAD"TOI14",R
80 BLOAD"TOI15"
90 DEFUSR=51200!:OUT&HD4,0:PRINTUSR(0)

Part 2
10 SCREEN2
20 BLOAD"TOI01",R
30 BLOAD"TOI02",R
40 BLOAD"TOI23",R:POKE&H9BB1,0:DEFUSR=&
HD9F8:A=USR(0)
50 BLOAD"TOI24"
60 DEFUSR=&HFD9A:FORT=1TO255:A=USR(0):N
EXT
70 DEFUSR=54900!:OUT&HD4,0:A=USR(0)

Part 3
1 IF PEEK(&HF347)<>1 THEN 100
10 SCREEN2
20 BLOAD"TOI01",R
30 BLOAD"TOI02",R
40 BLOAD"TOI33"
50 POKE&H9E42,0:POKE&HA28E,0:POKE&HA866
,0
60 DEFUSR=&HDCE6:PRINTUSR(0)
70 BLOAD"TOI34"
80 DEFUSR=54900!:OUT&HD4,0:PRINTUSR(0)
100 FORX=1TO10:CLS:LOCTE10,10:PRINT"PRE
SS CONTROL":BEEP:NEXT
110 DEFUSR=0:A=USR(0)

Part 4
10 SCREEN2
20 BLOAD"TOI01",R
30 BLOAD"TOI02",R
40 BLOAD"TOI43"
50 POKE&H8B41,0:POKE&H8E62,0:POKE&HA0E5
,0
60 DEFUSR=&HC800:PRINTUSR(0)
70 BLOAD"TOI44",R
80 BLOAD"TOI45"
90 DEFUSR=51200!:OUT&HD4,0:PRINTUSR(0)