home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 2 Years / Tiger_Disk_2_Years_19xx_Tiger-Crew-Disk_de_Side_B.d64 / seq.-read_-write (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  97 lines
  1. 10 poke788,52
  2. 20 poke53280,0:poke53281,6:print"[147][153]"
  3. 30 printchr$(14):gosub870:goto620
  4. 40 print"[147][211]chreiben...":clr
  5. 50 l=1:dima$(500),b$(81)
  6. 60 a=1:print"[218]eile #"l:print
  7. 70 gety$:ify$=""then70
  8. 80 x=asc(y$)
  9. 90 ifx=145orx=17orx=157orx=29then70
  10. 100 ifx=147orx=19then70
  11. 110 ifx=20anda>1thena=a-1:printy$;:goto70
  12. 120 ifx=20then70
  13. 130 ifx=13thenprint:goto170
  14. 140 printy$;:b$(a)=y$
  15. 150 a=a+1:ifa>80thenprintchr$(20);:a=a-1:goto70
  16. 160 goto70
  17. 170 ifb$(1)=""then220
  18. 180 fort=1toa:a$(l)=a$(l)+b$(t):b$(t)="":next
  19. 190 l=l+1:goto60
  20. 200 gety$:ify$=""then200
  21. 210 printasc(y$):goto200
  22. 220 print"[147][153]":input"(z)eigen, (s)peichern oder (e)nde";q$
  23. 230 q$=left$(q$,1):ifq$<>"z"andq$<>"s"andq$<>"e"then230
  24. 240 ifq$="s"then520
  25. 250 ifq$="e"thenrun
  26. 260 print"[147][159][218]eigen ([211][208][193][195][197] fuer  [208][193][213][211][197])":print
  27. 270 fort=1tol
  28. 280 printa$(t):next
  29. 290 gosub310
  30. 300 goto220
  31. 310 poke198,0
  32. 320 input" [210][197][212][213][210][206] fuer [215][197][201][212][197][210]";q$
  33. 330 return
  34. 340 print"[147] [198]ile lesen..."
  35. 350 print"[196][210][213][195][203][197][206] - ([202]) oder ([206])"
  36. 360 poke198,0:hc=0
  37. 370 gety$:ify$=""then370
  38. 380 ify$="j"ory$="[202]"thenhc=1:open4,4,7:print#4," ";
  39. 390 input"[198]ile-[206]ame   $[157][157][157]";f$
  40. 400 iff$="$"thensys49152:poke198,0:wait198,1:poke198,0:print"[147]":goto390
  41. 410 open15,8,15
  42. 420 open2,8,2,"0:"+f$+",s,r"
  43. 430 input#15,er,er$
  44. 440 iferthengosub600:goto390
  45. 450 get#2,a$
  46. 460 ifst<>0then500
  47. 470 gety$:ify$=" "thengosub320
  48. 480 printa$;:ifhc=1thenprint#4,a$;
  49. 490 goto450
  50. 500 close2:close15:close4:gosub320
  51. 510 goto640
  52. 520 input"[198]ile-[206]ame   $[157][157][157]";f$
  53. 530 open15,8,15
  54. 540 open2,8,2,"0:"+f$+",s,w"
  55. 550 input#15,er,er$
  56. 560 iferthengosub600:goto520
  57. 570 fort=1tol:print#2,a$(t):next
  58. 580 close2:close15
  59. 590 print"[207].[203].!":goto640
  60. 600 print"[147] [196]isk [197]rror [146]";er;er$
  61. 610 close15:close2:return
  62. 620 print"[147]     [211]eq-[198]ile - [211]chreiber / - [204]eser"
  63. 630 forty=1to1000:next
  64. 640 print"[147][153]    **** [205]enue *****":clr
  65. 650 print:print" (1) [211]eq. [198]ile anlegen ":print" (2) [211]eq. [198]ile lesen   "
  66. 660 print" (3) [197]nde              "
  67. 670 print" (4) [201]nfo              "
  68. 680 poke198,0:print" [196]eine [215]ahl >"
  69. 690 gety$:ify$=""then690
  70. 700 x=val(y$):ifx<1orx>4then690
  71. 710 onxgoto40,340,720,730
  72. 720 end
  73. 730 print"[147] [194]ei [204][197][211][197][206] entscheidest [196]u vor der [193]us- gabe, ob diese"
  74. 740 print"auf [196][210][213][195][203][197][210] (<j> eingeben) erfolgen soll- oder nicht..."
  75. 750 print"[196]ann gibst [196]u den [206]amen des [198]iles ein   und drueckst [210][197][212][213][210][206]."
  76. 760 print"([206][213][210] [210][197][212][213][210][206] (bei [193]nzeige von $[146]) zeigt   [196]ir das [196][201][210][197][195][212][207][210][217].";
  77. 770 print" ([211][208][193][195][197] zum [193][206][200][193][204][212][197][206])"
  78. 780 print"[196]as [198]ile wird jetzt eingelesen."
  79. 790 print"[196]ie [193][213][211][199][193][194][197] kannst [196]u mit [211][208][193][195][197] anhaltenund mit [210][197][212][213][210][206] fortsetzen..."
  80. 800 print" [194]ei [193][206][204][197][199][197][206] gibst [196]u jeweils eine [212]ext-[218]eile ein - und drueckst";
  81. 810 print" dann [210][197][212][213][210][206].":print"[196]eine [197]ingaben beendest [196]u, indem [196]u in"
  82. 820 print"in einer [218]eile anstatt einer [197]ingabe    [206][213][210] [210][197][212][213][210][206] drueckst."
  83. 830 print"[196]anach kannst [196]u entscheiden, ob [196]u [196]ir die [197]ingaben  ansehen [146] oder"
  84. 840 print"diese  speichern [146] moechtest.":print"[205]it ende[146] kommst [196]u wieder zum";
  85. 850 print" [205][197][206][213][197][146].":print"                             info by [212][195][146][145]"
  86. 860 poke198,0:wait198,1:poke198,0:goto640
  87. 870 rem  msp-routine  directory zeigen
  88. 880 fori=49152to49267:readq:pokei,q:next:return
  89. 890 data 169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183
  90. 900 data 169,8,133,186,169,96,133,185,32,213,243,165,186,32,180,255
  91. 910 data 165,185,32,150,255,169,0,133,144,160,3,132,251,32,165,255
  92. 920 data 133,252,164,144,208,58,32,165,255,164,144,208,51,164,251,136
  93. 930 data 208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166
  94. 940 data 144,208,29,170,240,17,32,210,255,173,197,0,201,64,240,4
  95. 950 data 201,60,240,245,76,76,192,169,13,32,210,255,160,2,208,187
  96. 960 data 32,66,246,96
  97.