home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 122 / Tiger_Disk_122_20xx_Tiger-Crew-Disk_de_Side_B.d64 / file-parameter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  116 lines
  1. 10 clr:poke53280,6:poke53281,0:printchr$(147);:
  2. 20 print"[147][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  3. 30 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  4. 40 print"[221] [154]                                     [221]";
  5. 50 print"[221]  >     file-parameter anzeigen    <  [221]";
  6. 60 print"[221] [154]                                     [221]";
  7. 70 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:
  8. 80 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";:print:print
  9. 90 fl=0
  10. 100 poke19,1:input" file-name:       [158]";d$:poke19,0
  11. 105 ifd$="e"thenprint"":end
  12. 110 iflen(d$)<=16then130
  13. 120 print:print"[147]  filename zu lang!":forz=1to1250:next:print"[147]":goto100
  14. 130 open15,8,15,"io":open2,8,2,"#"
  15. 140 t=18:s=1
  16. 150 print#15,"u1";2;0;t;s
  17. 160 print#15,"b-p";2;0
  18. 170 get#2,a$:ifa$=""thena$=chr$(0)
  19. 180 t=asc(a$)
  20. 190 get#2,a$:ifa$=""thena$=chr$(0)
  21. 200 s=asc(a$)
  22. 210 forx=0to7
  23. 220 print#15,"b-p";2;x*32+5
  24. 230 dn$=""
  25. 240 fory=0to15
  26. 250 get#2,a$:ifa$=""thena$=chr$(0)
  27. 260 ifasc(a$)=160then290
  28. 270 dn$=dn$+a$
  29. 280 nexty
  30. 290 ifd$=dn$then370
  31. 300 ifflthenprintdn$
  32. 310 nextx
  33. 320 ift=0then340
  34. 330 goto150
  35. 340 close2:close15
  36. 350 iffl=0thenprint"[147][151][146] das file    [152]";chr$(34);d$;chr$(34);"
  37. 360 [153]"pokewait wurde nicht gefunden!poke":[129]z[178]1[164]1500:[130]:[153]"load":[137]100
  38. 370 [139]fl[167][142]
  39. 380 [152]15,"b-p";2;x[172]32[170]2
  40. 390 [161]#2,a$:[139]a$[178]""[167]a$[178][199](0)
  41. 400 dy[178][198](a$)
  42. 410 fd[178]dy[175]15
  43. 420 [139]fd[178]0[167]dn$"=geloescht"
  44. 430 [139]fd[178]1[167]dn$[178]"seq.-file"
  45. 440 [139]fd[178]2[167]dn$[178]"prg.-file"
  46. 450 [139]fd[178]3[167]dn$[178]"user-file"
  47. 460 [139]fd[178]4[167]dn$[178]"rel.-file"
  48. 470 [139]fd[177]4[167][153]"poke filetyp ungueltig!":[128]
  49. 480 [139]dy[175]128[167]ce$[178]"ja":[137]500
  50. 490 ce$[178]"nein"
  51. 500 [139]ty[175]64[167]a$[178]ja":goto640
  52. 510 la$="nein"
  53. 520 print#15,"b-p";2,x*32+30
  54. 530 get#2,a$:ifa$=""thena$=chr$(0)
  55. 540 lb=asc(a$)
  56. 550 get#2,a$:ifa$=""thena$=chr$(0)
  57. 560 hb=asc(a$)*256
  58. 570 bl=lb+hb
  59. 580 iffd<>4then620
  60. 590 print#15,"b-p";2;x*32+23
  61. 600 get#2,a$:ifa$=""thena$=chr$(0)
  62. 610 rl=asc(a$)
  63. 620 iffd<>2then770
  64. 630 print#15,"b-p";2;x*32+3
  65. 640 get#2,a$:ifa$=""thena$=chr$(0)
  66. 650 tr=asc(a$)
  67. 660 get#2,a$:ifa$=""thena$=chr$(0)
  68. 670 se=asc(a$)
  69. 680 open3,8,3,"#"
  70. 690 print#15,"u1";3;0;tr;se
  71. 700 print#15,"b-p";3;2
  72. 710 get#3,a$:ifa$=""thena$=chr$(0)
  73. 720 lb=asc(a$)
  74. 730 get#3,a$:ifa$=""thena$=chr$(0)
  75. 740 hb=asc(a$)*256
  76. 750 aa=lb+hb
  77. 760 close3
  78. 770 print#15,"u1";2;0;18;0
  79. 780 bf=0
  80. 790 fori=4to140step4
  81. 800 ifi=72then840
  82. 810 print#15,"b-p";2;i
  83. 820 get#2,a$:ifa$=""thena$=chr$(0)
  84. 830 bf=asc(a$)+bf
  85. 840 next
  86. 850 bb=664-bf
  87. 860 ifft<>4then900
  88. 870 bs=bl/121:ifbs=<>int(bs)thenbs=int(bs+1)
  89. 880 rc=int((bl-bs)*254/rl)
  90. 890 print:print" [151]file ";chr$(34);d$;chr$(34);" [146]gefunden -":
  91. 900 printchr$(147)"[151] file ";chr$(34);d$;chr$(34);"[146][151] gefunden -":
  92. 910 print" ausgabe auf b[146]ildschirm oder d[146]rucker";
  93. 920 geta$:ifa$=""ora$<>"b"anda$<>"d"then920
  94. 930 re$=chr$(18):ra$=chr$(146)
  95. 940 ifa$="b"thenopen1,3:print#1,chr$(147)
  96. 950 ifa$="d"thenopen1,4
  97. 960 print#1,"parameter des files    "chr$(34);d$;chr$(34)
  98. 970 print#1,"[151]---------------------------------------"
  99. 980 print#1,"[151]filetyp:                     [152]";dn$;ra$:print#1
  100. 990 print#1,"[151]file geschlossen:            [152]";ce$;ra$:print#1
  101. 1000 print#1,"[151]file geschuetzt:             [152]";la$;ra$:print#1
  102. 1010 print#1,"[151]belegte bloecke:            [152]";bl;ra$:print#1
  103. 1020 iffd<>4then1070
  104. 1030 print#1,"[151]recordlaenge:              [152]";rl;ra$:print#1
  105. 1040 print#1,"[151]side-side bloecke:         [152]";bs;ra$:print#1
  106. 1050 print#1,"[151]datenbloecke:               [152]";bl-bs;ra$:print#1
  107. 1060 print#1,"[151]records:                    [152]";rc;ra$:print#1
  108. 1070 iffd=2then print#1,"[151]anfangsadresse:             [152]";aa;ra$:print#1
  109. 1080 print#1,"[151]freie bloecke (disk):       [152]";bf;ra$:print#1
  110. 1090 print#1,"[151]belegte bloecke (disk):     [152]";bb;ra$:print#1
  111. 1100 close1
  112. 1110 print:print" noch ein file?             <j/n>"
  113. 1120 close2:close15
  114. 1130 geta$:ifa$=""ora$<>"j"anda$<>"n"then1130
  115. 1140 ifa$="j"thenrun
  116.