home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 May / 64er_Magazin_89-05_1989_Markt__Technik_de.d64 / revarsi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 0 poke53281,5:poke53280,5:reada$,b$,c$,d$:fori=0to1:readu(i),v(i),w(i):next
  2. 1 print"[144][147]"tab(23)"  [217]  "d$spc(25)c$"[157][199]"c$spc(25)"[145][145][145][145][145]"c$"[157][200]"c$d$spc(65);
  3. 2 print"  [194]  ":fori=0to9:printtab(15)a$a$"[219]"spc(19)b$b$"[221]":next:printspc(15)a$a$"[219]
  4. 3 [129]i[178]0[164]9:[151]1080[170]i[172]2,48[170]i:[151]1158[170]i[172]80,48[170]i:[130]:d[178]1:[153]"(NULL)pieler"d;0
  5. 4 s[178]54273:[151]s[170]23,15:[151]s[170]4,136:[151]s[170]5,248:[151]s[170]3,16
  6. 5 [153]"(NULL)ummer:  ":[153]"(NULL)ichtung: ":[153]"   (NULL)cmdcmdchr$peekonleft$   ononononononon";:[151]204,0
  7. 6 [161]z$:a[178][197](z$):[139]z$[178]"0"[176]a[167][153]"cmd"a"";:u[178]w([171](d[178]1))[172]2:[141]16:[137]8
  8. 7 [139]z$[179][177]"restore"[167]6:[131]"(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan","(NULL) (NULL) (NULL) (NULL) (NULL) ","cmd cmd ",""
  9. 8 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"b"[175]a$[179][177]"g"[175]a$[179][177]"h"[175]z$[179][177]"restore"[167]8:[131],9,1,9,,-1
  10. 9 a$[178]a$[170]" ":b[178]([198](a$)[175]1):[151]204,1:w[178]w(b):h[178]2:g[178]80:[139]a$[178]"y "[176]a$[178]"b "[167]h[178]g:g[178]2
  11. 10 [153]a$:[141]16:q[178]u(b):[129]i[178]q[164]v(b)[169]w:z[178]1160[170]a[172]g[170]h[172]i:[139][194](z)[178]32[167]q[178]i
  12. 11 [130]:[139]q[179][177]v(b)[167][129]i[178]q[164]v(b)[171]w[169]w:z[178]1160[170]a[172]g[170]h[172]i:[151]z,[194](z[170]w[172]h):[130]
  13. 12 z[178]1160[170]a[172]g[170]h[172]v(b):[151]z,87[170]d[172]4:j[178]0:g[178]z[171]h[172]9[172]w:[129]i[178]z[164]g[169][171]h[172]w:p%[178][194](i)
  14. 13 [139]p%[178]87[170]d[172]4[176]p%[178]32[167]j[178]j[170]1[170](p%[178]32)[172]2:[139]j[177]1[167]j[178]3
  15. 14 [130]:[129]i[178]z[164]g[169][171]h[172]w(b):[139]j[177]1[175][194](i)[178]99[171]d[172]4[167][151]i,87[170]d[172]4:j[178]j[170]1:[141]19
  16. 15 j[178]j[171]1:[130]:d[178]3[171]d:[153]""[163]7)d;[180](r)[173]2[170]1.5[172][182]([180](r)):[137]5
  17. 16 r[178]r[170]u[173]4:[151]s[170]3,33:[151]s,10:[129]l[178]1[164]60:[130]:[151]s[170]3,16:[139]z$[179][177]"restore"[167][142]
  18. 17 z$[178]"":[151]s[170]3,33:[129]k[178]50[164]10[169][171]5:[151]s,k:[129]l[178]1[164]200:[130]:[151]s,k[170]1
  19. 18 [129]l[178]1[164]200:[130]:[130]:[153]"chr$ewinner:":[141]16:[151]198,0:[146]198,1:[138]
  20. 19 r[178]r[170]u:[151]s[170]3,17:[129]k[178]20[164]60[169]20:[151]s,k:[129]l[178]1[164]99:[130]:[130]:[151]s[170]3,16:[142]
  21.