64'er 1989 September/64er_Magazin_89-09_1989_Markt__Technik_de_Side_A.d64/wizball-cheat

Commodore BASIC | 2022-10-26 | 320b | 15 lines

10 dima(30):print"[147]wizball-cheat"
11 print"by m.fichtner"
12 fort=1to5:print"level";t;"= ";
13 poke19,64:inputa(t):poke19,0
14 print:next:print"code: ";
15 a$="raiwvbhdwkjzezwiofmlcosqntyjgu"
16 t=a(2)-a(5)+a(3):c=a(3)-2*t
17 ift<1ort>30then23
18 p=a(t)+a(t-1)-3*c
19 ifp<1orp>30then23
20 printmid$(a$,p,1);
21 t=t+1:ift>=a(4)thent=c:c=c+1
22 ifc<a(3)then17
23 print