home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 June
/
64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64
/
turmit
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
21 lines
0 poke19,1:for t=0to3:print"col";t;": ";:input c(t):print:next:poke19,0:print"[147]";
1 print" [171]e)[146]am[146]@d%[146][187][146][201][146]@[146]p[146]a[160]%[146][187][146][201][146][160]0[146]a[160]$[146][191][146]1[146][186][146]%[189][146]*[146]=[146]";
2 print"@[192][146][176][146]?[201][146]a[176][146][175][201][146]b[208][146]c[204][201][146]d)[146]@e[146][190][146]%[146][189][146][202][202]0[146]gf[190][146]f[190][146][204]3d%[146]";
3 print"[189][146][201][191][146]m[146][202]d$[146][191][146]1[146][186][146])@e[190][146]q[146][186][146][206][146]@d-[146]@d[201][146][191][146][208][146]e)[146]cm[146]@d";
4 print"[204][186][146]d)[146]ae[146][190][146]%[146][189][146][202][202]0[146]gf[190][146]f[190][146][204][167]d%[146][189][146][201][191][146]m[146][190]d$[146][191][146]1[146][186][146]";
5 print")@e[190][146]q[146][186][146][174][146]@d-[146]@d[201][146]d[208][146]e)[146]@m[146]@d[204][186][146]d)[146]be[146][190][146]%[146][189][146][202][202]0[146]";
6 print"gf[190][146]f[190][146][204][[146]d%[146][189][146][201][191][146]m[146]2[146]d$[146][191][146]1[146][186][146])@e[190][146]q[146][186][146][174][146]@d-[146]@d";
7 print"[201][146]d[208][146]e)[146]@m[146]@d[204][186][146]d)[146]ce[146][190][146]%[146][189][146][202][202]0[146]gf[190][146]f[190][146][204][207][146]d%[146][189][146][201][191][146]";
8 print"m[146][166][146]d$[146][191][146]1[146][186][146])@e[190][146]q[146][186][146][206][146]@d-[146]@d[201][146][191][146][208][146]e)[146]cm[146]@d-[146]@d";
9 print"[176][146][212][201][146]a[176][146]8[201][146]b[176][146]\[166][146][191][146]%[146][191][146][201][146]h[208][146]q)[146]@e[146][191][146]%[146][186][146]x[169][192]e[146][186][146]";
10 print"%[146][187][146][169]ae[146][187][146][204][168]e[198][189][146][198][189][146]p[146]o)[146][192][146]e[146][189][146]%[146][186][146]x[169]he[146][186][146]p[146]b[166][146][187][146]";
11 print"[204][168]e[198][146][191][146]pq)[146]ge[146][191][146]%[146][186][146]8[169][146][192]e[146][186][146]%[146][187][146][169][146]ae[146][187][146][204][168]ef[189][146]f[189][146]";
12 print"p[146]o)[146]ce[146][189][146]%[146][186][146]8[169][146]he[146][186][146]0[146]b[198][146][187][146][204]hd)[146]@m[146]![208][146]"chr$(34)chr$(34)"[157][146]";
13 print"@)[146]r][146]@[196]][146]@[197]][146]@[198]][146]@[199])[146]c][146]@[216][146]][146]@[217][146]][146]@[218][146]][146]@[219][146][168][146][208][146][161][146]";
14 print")[146]@e[146][186][146])[146][160]e[146][187][146] [146]@)[146]@q[146][186][146][200][146][208][146][187][146][166][146][187][146]%[146][187][146][201][146]@[146][208][146][177][146]";
15 print""chr$(34)chr$(34)"[157][146]@<[146][166][146]ej[146])cy[146]@[192][146][168][146][160][146]p[208][146][178][146])[146]@e[146][188][146])[146]ce[146]";
16 print"[189][146])[146]@e[146][191][146])[146] [146]e[146][186][146])[146][175]e[146][187][146])[146]v[146]m[146]@"chr$(221)"[146])[146];m[146]q[208][146]";
17 print"-[146]v[208][146]ipm[146]v[208][146])[146]xm[146]x[208][146][160]@abc@dhl@p 0@[192]@[146][192][146]abc@-[146] ";
18 poke 1388,c(0):poke1395,16*c(1):poke1395,peek(1395)and 240 or c(2):poke1408,c(3)
19 sys 1024