home *** CD-ROM | disk | FTP | other *** search
/ Inverse 8 / Inverse_08_19xx_Oxygen_Side_B.d64 / k (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  59 lines
  1. 1 ifq=0thenq=1:load")",8,1
  2. 2 n=100:dimpl$(n),an$(n):e$=chr$(13):b$="           [213]staw ta[174]m[177] [159]![210][197][212][213][210][206]!
  3. 3 [153]"load list(NULL)opiowanie plikposw:"e$"str$openysk -> ta^ma"e$"(NULL)clra^ma -> dysk
  4. 4 forq=1to36:f$=f$+" ":next:print" [155][203][154]atalog"e$" [155][215]yj[174]cie
  5. 5 [161]q$:[139]q$[178]"d"[137]12
  6. 6 [139]q$[178]"t"[137]35
  7. 7 [139]q$[178]"(NULL)"[167][153]"load       list(NULL)\pos@ g\poswny dysk open!(NULL)val(NULL)(NULL)(NULL)(NULL)!stop":[137]57
  8. 8 [139]q$[179][177]"k"[137]5
  9. 9 [153]"loadlist"[199](142):[158]49152
  10. 10 [161]q$:[139]q$[178]""[137]10
  11. 11 [138]2
  12. 12 t$[178]"":[153]"load     list(NULL)\pos@ odpowiedni dysk open!(NULL)val(NULL)(NULL)(NULL)(NULL)!
  13. 13 getq$:ifq$<>e$goto13
  14. 14 open2,8,2,"[165]*,s,r":input#2,t$:close2:ift$=""thenopen1,8,15,"i":close1:goto12
  15. 15 print"[147] [156][208]liki: "t$spc(59)"[151]([155][212][152]/[155][206][151])
  16. 16 [161]q$:[139]q$[178]"n"[137]12
  17. 17 [139]q$[179][177]"t"[137]16
  18. 18 [159]2,8,2,"tab(,s,r":[132]2,a,x:[160]2:[139]x[179]n[167]a[178]a[171]1
  19. 19 a$[178]"loadpoke print#  list   (NULL)opiowanie:print z dysku sysna ta^m>.list  print#  poke wait":[141]47
  20. 20 [141]52
  21. 21 [161]q$:[139]q$[178]"n"[137]19
  22. 22 [139]q$[179][177]"t"[137]21
  23. 23 [141]53:[129]x[178]q[164]w:w$[178][196](x):[153]"load(NULL)lik:open"x:[159]1,8,15
  24. 24 [159]2,8,2,w$[170]",s,r":[132]1,o:[139]o[178]0[137]27
  25. 25 [153][163]8)"listpeekrak tego pliku na dysku!on":[161]q$:[139]q$[179][177]e$[137]25
  26. 26 [160]2:[153]f$"on":[137]24
  27. 27 [129]o[178]1[164]n:[132]2,pl$(o),an$(o):[130]o:[160]2:[160]1
  28. 28 [153]"      (NULL)ci^nij sys(NULL)vallen(NULL)(NULL)str$ w magnetofonie.stop":[159]1,1,1,w$:[129]o[178]1[164]n
  29. 29 [152]1,pl$(o)e$an$(o):[130]o:[160]1:[130]x
  30. 30 [141]56:[153]"(NULL)print#enu"e$"right$clrnne pliki":[139]x[179]a[167][153]"(NULL)contolejny plik
  31. 31 getq$:ifq$="m"thenrun2
  32. 32 ifx<aandq$="k"thenq=x:w=q:goto20
  33. 33 ifq$="i"goto19
  34. 34 goto31
  35. 35 a=80:a$="[147][151] [152]  [155]   [203]opiowanie:[158] z ta[174]my [153]na dysk. [155]  [152]  [151] [146]":gosub47
  36. 36 gosub52
  37. 37 getq$:ifq$="n"goto36
  38. 38 ifq$<>"t"goto37
  39. 39 gosub53
  40. 40 forx=qtow:w$=str$(x):print"[147][213]staw [158]dysk [155]i wci[174]nij [158][208][204][193][217] w magnetofonie[144]
  41. 41 [159]1,1,0,w$:[129]o[178]1[164]n:[132]1,pl$(o),an$(o):[130]o:[160]1:[153]"loadplik:list"x
  42. 42 [159]2,8,2,w$[170]",s,w":[129]o[178]1[164]n:[152]2,pl$(o)e$an$(o):[130]o:[160]2:[130]x
  43. 43 [141]56:[153][163]54)"listright$nne pliki?
  44. 44 getq$:ifq$="n"thenrun2
  45. 45 ifq$="t"goto35
  46. 46 goto44
  47. 47 printa$"[208]odaj numer pliku: [153]0 -"a"
  48. 48 [153]"onlistpierwszy: ";:[133]q:[139]q[179]0[176]q[177]a[137]48
  49. 49 [153]
  50. 50 [153]"onlistostatni:  ";:[133]w:[139]w[179]q[176]w[177]a[137]50
  51. 51 [142]
  52. 52 [153]a$"     list(NULL)kopiowanie plikposw:open"q"-"w"?":[142]
  53. 53 [153]a$b$
  54. 54 [161]q$:[139]q$[179][177]e$[137]54
  55. 55 [142]
  56. 56 [153]a$[166]9)"list(NULL)likisys"q"-"w"listnagrane.":[142]
  57. 57 [161]q$:[139]q$[179][177]e$[137]57
  58. 58 [153]"g(NULL)57"e$"g(NULL)57":[151]631,13:[151]198,1:[147]"/",8
  59.