home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 122 / Tiger_Disk_122_20xx_Tiger-Crew-Disk_de_Side_B.d64 / directory-loader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  169 lines
  1. 10 print"[147]mit diesem programm kannst du an die    file-namen eines directorys"
  2. 20 print" ,8:  [146] (basic-start) oder":print" ,8,1 [146] anhaengen."
  3. 30 print"mit '^' blaetterst du im directory      weiter,"
  4. 40 print"mit '@' kannst du aus einem mit diesem  programm bearbeiteten dir.";
  5. 50 print" den 'anhang'":print"wieder entfernen."
  6. 60 print"            taste zum start!"
  7. 70 poke198,0:wait198,1:poke198,0
  8. 90 rem **
  9. 100 rem ***************************
  10. 110 rem ^ = pfeil nach oben
  11. 120 rem @ = klammeraffe
  12. 130 rem ***************************
  13. 140 rem **  direktory routine
  14. 150 rem ***************************
  15. 160 rem
  16. 170 rem
  17. 180 data169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
  18. 190 data133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
  19. 200 data255,169,0,133,144,160,3,132,251,32,165,255,133,252,164,144,208,47
  20. 210 data32,165,255,164,144,208,40,164,251,136,208,233,166,252,32,205,189
  21. 220 data169,32,32,210,255,32,165,255,166,144,208,18,170,240,6,32,210,255
  22. 230 data76,76,192,169,13,32,210,255,160,2,208,198,32,66,246,96,234
  23. 240 for i=49152 to 49152+105:readd:pokei,d:o=o+d:next
  24. 250 if o<>15577 then poke199,1:print"  fehler in datas  ":stop
  25. 260 rem
  26. 270 rem
  27. 280 rem ****************************
  28. 290 rem ** titel
  29. 300 rem ****************************
  30. 310 rem
  31. 320 rem
  32. 330 poke53280,0:poke53281,0:printchr$(152)
  33. 340 printchr$(14):printchr$(147)
  34. 350 print"     [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  35. 360 print"     [181]                           [182]"
  36. 370 print"     [181]     [196]irectory [204]oader      [182]"
  37. 380 print"     [181]                           [182]"
  38. 390 print"     [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  39. 400 print
  40. 410 print"
  41. 420 [153]"     ";[199](18);" peekitte auswaehlen ";[199](146):[153]:[153]
  42. 430 [153]"        ";[199](18);"1";[199](146);"   str$irectory anzeigen":[153]
  43. 440 [153]"        ";[199](18);"2";[199](146);"   str$irectory bearbeiten":[153]
  44. 450 [153]"        ";[199](18);"3";[199](146);"   (NULL)uit":[153]
  45. 470 [161] x$:[139] x$[178]"" [167] 470
  46. 480 k[178][197](x$):[139] k[179]1 [176] k[177]3 [167] 470
  47. 490 [145] k [137] 510,660,1740
  48. 500 [137] 330
  49. 510 [143]
  50. 520 [143]
  51. 530 [143] *******************************
  52. 540 [143] **   direktory anzeigen
  53. 550 [143] *******************************
  54. 560 [143]
  55. 570 [143]
  56. 580 [153][199](147):[153]:[153]:[151]199,1:[153]" peekitte str$isk einlegen und (NULL)aste druecken "
  57. 590 [161] x$:[139] x$[178]"" [167] 590
  58. 600 [153][199](147) :[158] 49152
  59. 610 [153]:[153]:[151]199,1:[153]" (NULL)aste druecken "
  60. 620 [161] x$:[139] x$[178]"" [167] 620
  61. 630 [137] 330
  62. 640 [143]
  63. 650 [143]
  64. 660 [143] ***************************
  65. 670 [143] ***  komma achter
  66. 680 [143] ***************************
  67. 690 [143]
  68. 700 [143]
  69. 710 t[178]18:s[178]1:z[178]5
  70. 720 [159] 1,8,15
  71. 730 [159] 2,8,2,"#"
  72. 740 [152]1,"u1";2;0;t;s
  73. 750 [161]#2,t$,s$
  74. 760 p[178]t:q[178]s
  75. 770 [139] t$[178]"" [167] t[178]0:s[178]255:[137]800
  76. 780 t[178][198](t$):s[178][198](s$):
  77. 790 [152]1,"b-p";2;1
  78. 800 [152]1,"b-p";2;z:
  79. 810 [129] i[178]1 [164] 16
  80. 820 [161]#2,n$
  81. 830 d$[178]d$[170]n$
  82. 840 [130] i
  83. 850 [152]1,"b-p";2;z
  84. 860 [139] d$[178]"" [167] 1510
  85. 870 [153][199](147):[153]:[153]:[153]"   (NULL)ext str$irectory peeklock :"
  86. 880 [153]:[153]"   (NULL)rack :";t;" (NULL)ektor :";s
  87. 890 [153]:[153]:[153]:[153]:[153]"   (NULL)rogramm :";d$
  88. 900 [153]:[153]
  89. 915 [153]"   ";[199](18);"peek";[199](146);"asic oder ";[199](18);"(NULL)";[199](146);"aschinenprogramm"
  90. 920 [153]
  91. 930 [153]:[153]:[153]:[153]:[151]199,1:[153]"    <^> (NULL)eiter   <@> (NULL)oeschen      "
  92. 940 [161] x$:[139] x$[178]"" [167] 940
  93. 950 [139] x$[178]"b"[167] 1070
  94. 960 [139] x$[178]"m"[167] 1160
  95. 970 [139] x$[178]"^"[167] 1300
  96. 980 [139] x$[178]"@" [167] 1420
  97. 990 [137] 940
  98. 1000 [143]
  99. 1010 [143]
  100. 1020 [143] **************************
  101. 1030 [143] ** basicprogramm
  102. 1040 [143] **************************
  103. 1050 [143]
  104. 1060 [143]
  105. 1070 d$[178][200](d$,12)
  106. 1080 ne$[178]d$[170][199](160)[170]",8:"
  107. 1100 [152]2,ne$
  108. 1110 ne$[178]"":d$[178]"":z[178]z[170]32
  109. 1120 [139] z[177]256 [167] z[178]5:[137] 1510
  110. 1130 [137] 800
  111. 1140 [143]
  112. 1150 [143]
  113. 1160 [143] **************************
  114. 1170 [143] ** maschprogramm
  115. 1180 [143] **************************
  116. 1190 [143]
  117. 1200 [143]
  118. 1210 d$[178][200](d$,11)
  119. 1220 ne$[178]d$[170][199](160)[170]",8,1"
  120. 1240 [152]2,ne$
  121. 1250 ne$[178]"":d$[178]"":z[178]z[170]32
  122. 1260 [139] z[177]256 [167]z[178]5:[137] 1510
  123. 1270 [137] 800
  124. 1280 [143]
  125. 1290 [143]
  126. 1300 [143] ****************************
  127. 1310 [143] ** keine aenderung
  128. 1320 [143] ****************************
  129. 1330 [143]
  130. 1340 [143]
  131. 1350 [152]2,d$:d$[178]""
  132. 1360 z[178]z[170]32
  133. 1370 [139] z[177]256 [167]z[178]5:[137] 1510
  134. 1380 [137] 800
  135. 1390 [143]
  136. 1400 [143]
  137. 1410 [143] ****************************
  138. 1420 [143] ** loeschen des anhangs
  139. 1430 [143] ****************************
  140. 1440 [143]
  141. 1450 [143]
  142. 1460 d$[178][200](d$,12)[170][199](160)[170][199](160)[170][199](160)[170][199](160)
  143. 1470 [152]2,d$:d$[178]""
  144. 1480 z[178]z[170]32
  145. 1490 [139] z[177]256 [167] z[178]5:[137] 1510
  146. 1500 [137] 800
  147. 1510 [143]
  148. 1520 [143]
  149. 1530 [143] ****************************
  150. 1540 [143] ** rueckschreiben
  151. 1550 [143] ****************************
  152. 1560 [143]
  153. 1570 [143]
  154. 1580 [139] t[178]0 [175] s[178]255 [167] [152]1,"u2";2;0;p;q:[137] 1690
  155. 1590 [152]1,"u2";2;0;p,q
  156. 1600 p[178]t:q[178]s:[160]2:[160]1:[137]720
  157. 1610 [143]
  158. 1620 [143]
  159. 1630 [143]
  160. 1640 [143] ****************************
  161. 1650 [143] ** ende
  162. 1660 [143] ****************************
  163. 1670 [143]
  164. 1680 [143]
  165. 1690 [153]:[153]:[151]199,1:[153]"           (NULL)aste str$ruecken          "
  166. 1720 [161] x$:[139] x$[178]"" [167] 1720
  167. 1730 [160]2:[160]1:[137] 330
  168. 1740 [158] 64738
  169.