home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 December / 64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64 / ask (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  22 lines
  1. 0 rem      save"@:ask",8                : rem * by august schwab, a-8010 graz *
  2. 1 g=8:open1,g,15:open2,g,2,"ask.rel,l,"+chr$(38):poke53280,0:poke53281,0:f=256
  3. 2 dima(99):poke808,230:poke53272,23:fori=0to38:o$=o$+" ":u$=u$+"[192]":next:n$(0)="[206]
  4. 3 [153]"load"u$" atn (NULL) (NULL)   listmid$=mid$a list(NULL)=(NULL)ein list^=(NULL)urueck listatn=atnendern":[153]""u$
  5. 4 j$(1)[178]" ":j$(0)[178]"mid$":d$[178][199](13):c$[178][199](0):y[178]1:[141]15:l[178]r(0):y[178]2:[139]l[179]2[167]l[178]2
  6. 5 [139]y[178]0[167][133]"contascrag   =cmdcmdcmd";g$:[153]"on     ":a$[178][200](g$,1):j[178]1:sp[178]1:[137]13
  7. 6 n$(1)[178]" ":[141]15:m$[178]"sys "[170]j$([171](r(1)[178]0))[170]"/"[170]n$([171](r(0)[178]0))[170]" ?list ":[139]y[178]0[167]5
  8. 7 j[178]2:a(q)[178]y:q[178]q[170]1:[153]m$f$:[151]198,0:[146]198,1:[161]a$:[139]a$[178]"^"[167]13
  9. 8 [139]a$[178]"n"[167][153]"onlist(NULL)ein ":x[178]y:y[178]r(0):z[178]0:[137]5
  10. 9 [139]a$[178]"a"[167][133]"onatnend ";f$:[153]"on    ":[141]17:[153]"onon":[137]7
  11. 10 [153]"on  mid$a ":[139][200](f$,1)[179][177]"="[167]x[178]y:y[178]r(1):z[178]1:[137]5
  12. 11 [139]sp[167]y[178]1:r(0)[178]l:r(1)[178]0:f$[178]"data":[141]17
  13. 12 [160]2:[160]1:[153]""u$:[151]198,0:[146]198,1:[161]a$:[138]
  14. 13 [139]a$[178]"^"[167]q[178](q[171]j)[172][171]((q[171]j)[177][171]1):y[178]a(q):[153]"on"o$"onononon":[137]5
  15. 14 r(z)[178]l:y[178]x:[141]17:f$[178]g$:y[178]l:l[178]l[170]1:r(0)[178]0:r(1)[178]0:[141]17:[153]"onon":[137]7
  16. 15 [141]18:[132]2,f$:[129]i[178]0[164]3:[161]#2,x$(i):[130]:[139][195](f$)[179]32[167]y[178]0:[142]
  17. 16 [129]i[178]0[164]3:x(i)[178][198](x$(i)[170]c$):[130]:r(0)[178]x(0)[172]f[170]x(1):r(1)[178]x(2)[172]f[170]x(3):[142]
  18. 17 [141]18:[152]2,[200](f$[170]o$,32)d$[199](m)[199](n)[199](u)[199](v)"x";:[142]
  19. 18 [141]20:[152]1,"p"[199](98)[199](p)[199](o)[199](1)
  20. 19 [132]1,e:[139]e[178]50[167][152]2,[199](255);:[137]18
  21. 20 o[178][181](y[173]f):p[178]y[171]o[172]f:m[178][181](r(0)[173]f):n[178]r(0)[171]m[172]f:u[178][181](r(1)[173]f):v[178]r(1)[171]u[172]f:[142]
  22.