home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-01_1988_-_de_Side_B.d64 / disk-mani (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  209 lines
  1. 0 goto5
  2. 1 @l:print"[147]";:list3000-3299
  3. 5 fori=826to920:reada:pokei,a:next
  4. 10 open15,8,15:input#15,a,a$,b,c:print"[147][198][197][200][204][197][210][203][193][206][193][204]: "a$" in"b"[157]"c
  5. 11 poke53280,14:poke53281,0:print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  6. 12 print"[163][163][163][163][163][196][201][211][203]-[205][193][206][201][208][213][204][193][212][201][207][206][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  7. 13 print"[163][163][163][163][163][163][163][163][163][163][163][163][163]([195])[151][163][200]yper[208]rog.[151][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  8. 14 fori=1to3:print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:next:print"[154]"
  9. 17 print"1[146] [194]lockbelegung aendern":print"2[146] [208]rogrammlaengen aendern"
  10. 18 print"3[146] [206]euer [206]ame":print"4[146] [211]chutz":print"5[146] [193]utogramm"
  11. 19 print"6[146] [196]irectory":print"7[146] [214]alidate":print"8[146] [213]nscratch
  12. 20 [153]"9wait (NULL)ein danke"
  13. 21 [151]198,0:[146]203,63:[161]a$:[139][197](a$)[177]9[176]a$[178]""[167]21
  14. 22 [159]1,8,15:[152]1,"i":[160]1
  15. 23 [139]a$[178]"6"[167][153]"":[158]826:[146]203,63:[146]203,64:[137]200
  16. 25 [139]a$[178]"3"[167]1000
  17. 26 [139]a$[178]"9"[167][160]15:[151]198,0:[128]
  18. 28 [159]1,8,15:[152]1,"io"
  19. 29 [159]8,8,8,"#"
  20. 30 [139]a$[178]"8"[167]3000
  21. 31 [139]a$[178]"2"[167]500
  22. 32 [139]a$[178]"5"[167]2000
  23. 33 [139]a$[178]"4"[167]1500
  24. 34 [139]a$[178]"7"[167][160]15:[141]300:[159]15,8,15,"v":[137]200
  25. 35 [139]a$[178]"1"[167]37
  26. 36 [160]1:[160]8:[137]21
  27. 37 [133]"atnlle peeklocks bwaitelegen oder fwaitrei machen";a$:[153]"":[139]a$[178]"e"[167]200
  28. 38 [152]1,"b-r:";8;0;18;0
  29. 40 [139][200](a$,1)[178]"f"[167]100
  30. 50 [152]1,"b-p:"8,4:[129]i[178]1[164]139:[152]8,[199](0);:[130]
  31. 60 [152]1,"u2:";8;0;18;0:[137]200
  32. 100 [152]1,"b-p:"8,4:[129]i[178]1[164]34:[152]8,[199](0)[199](255)[199](255);
  33. 105 [152]8,[199](31);:[130]
  34. 110 [129]i[178]0[164]34:[152]1,"b-p:"8,i[172]4[170]4:[139]i[179]36[167]q[178]17
  35. 112 [139]i[179]31[167]q[178]18
  36. 114 [139]i[179]25[167]q[178]19
  37. 116 [139]i[179]18[167]q[178]21
  38. 120 [152]8,[199](q);:[130]:[152]1,"b-p:"8,140:[152]8,[199](15)
  39. 150 [152]1,"u2:";8;0;18;0:[137]200
  40. 200 [160]8:[160]1:[160]15:[138]10
  41. 300 [152]1,"v":[137]200
  42. 500 [153]"load":bl[178]1:[133]"peekestimmter (NULL)ame";na$:[139]na$[179][177]"n"[167]800
  43. 510 [152]1,"b-r"8;0;18;bl
  44. 520 [129]i[178]1[164]255[169]29:[152]1,"b-p"8,i[170]29
  45. 525 [161]#8,b$:[161]#8,c$:b[178]0:[139]b$[179][177]""[167]b[178][198](b$)
  46. 530 c[178]0:[139]c$[179][177]""[167]c[178][198](c$)
  47. 540 [152]1,"b-p"8,i[170]4
  48. 550 n$[178]"":[129]j[178]1[164]16:[161]#8,a$:n$[178]n$[170]a$:[130]:i[178]i[170]3:[139]n$[178]""[167]700
  49. 560 [153]"(NULL)atn(NULL)val:"[199](34)n$[199](34)"wait(NULL)atnval(NULL)chr$val:wait"b[170]256[172]c" waitpeeklocks":[133]"(NULL)eue (NULL)aenge";l$
  50. 565 [139]l$[179][177]"n"[167][139]l$[179][177]"e"[167][141]600
  51. 567 [139]l$[178]"e"[167]200
  52. 570 [130]:[137]700                            :
  53. 600 l[178][197](l$):[152]1,"b-p"8,i[170]26
  54. 610 y[178][181](l[173]256):x[178]l[171]y[172]256:[153]"on:"x"cmd ",y"cmd "
  55. 620 [152]8,[199](x);[199](y);
  56. 630 [152]1,"u2:";8;0;18;bl
  57. 640 [152]1,"b-r";8;0;18;bl:[142]
  58. 699 :                                      :
  59. 700 [139]i[179]255[167]710
  60. 705 [139]bl[179]16[167]bl[178]bl[170]3:[137]510
  61. 710 [137]200
  62. 800 [129]i[178]1[164][195](na$):[139][202](na$,i,1)[179][177]"*"[167][130]
  63. 805 na$[178][200](na$,i[171]1)
  64. 810 [152]1,"b-r"8;0;18;bl
  65. 820 [129]i[178]1[164]255[169]29:[152]1,"b-p"8,i[170]4
  66. 850 n$[178]"":[129]j[178]1[164]16:[161]#8,a$:n$[178]n$[170]a$:[130]:i[178]i[170]3:[139]n$[178]""[167]900
  67. 855 [139][200](n$,[195](na$))[179][177]na$[167]870
  68. 856 [152]1,"b-p"8,i[170]26
  69. 857 [161]#8,b$:[161]#8,c$:b[178]0:[139]b$[179][177]""[167]b[178][198](b$)
  70. 858 c[178]0:[139]c$[179][177]""[167]c[178][198](c$)
  71. 860 [153]"(NULL)atn(NULL)val:"[199](34)n$[199](34)"wait(NULL)atnval(NULL)chr$val:wait"b[170]256[172]c" waitpeeklocks":[133]"(NULL)eue (NULL)aenge";l$
  72. 865 [139]l$[179][177]"n"[167][139]l$[179][177]"e"[167][141]600
  73. 866 [139]l$[178]"e"[167]200
  74. 867 [137]910
  75. 870 [130]:[137]900                            :
  76. 900 [139]i[179]255[167]910
  77. 905 [139]bl[179]16[167]bl[178]bl[170]3:[137]810
  78. 910 [137]200
  79. 999 [137]200
  80. 1000 [153]"(NULL)omentaner (NULL)ame:";
  81. 1010 [159]1,8,15,"io":[159]8,8,8,"#"
  82. 1020 [152]1,"b-r";8;0;18;0:[152]1,"b-p"8,144
  83. 1030 n$[178]"":[129]i[178]1[164]23:[161]#8,a$:n$[178]n$[170]a$:[130]:[153]n$
  84. 1100 [129]i[178]1[164]23:b$[178]b$[170][199]([198]([202](n$,i,1))[175]127):[130]:n$[178]b$:b$[178]""
  85. 1101 [153]"(NULL)ame:":[153]"  "[199](34)n$:[133]"on";dn$
  86. 1110 [139][195](dn$)[179]23[167]dn$[178]dn$[170]"                        "
  87. 1115 dn$[178][200](dn$,23):[139]dn$[178]n$[167]200
  88. 1120 [152]1,"b-r";8;0;18;0:[152]1,"b-p"8,144
  89. 1130 [152]8,dn$;
  90. 1140 [152]1,"u2:";8;0;18;0
  91. 1150 [160]8:[160]1:[138]
  92. 1500 [141]1800
  93. 1508 [133]"(NULL)icher";a$:[139][200](a$,1)[179][177]"j"[167][137]200
  94. 1510 [152]1,"b-r";8;0;18;0
  95. 1515 [139]s$(1)[178]"j"[167][152]1,"b-p"8,162:[152]8,[199](204);[199](204);
  96. 1520 [159]9,8,9,"#"
  97. 1620 [139]s$(2)[178]"j"[167][152]1,"b-p"8,0:[152]8,[199](75);[199](1);
  98. 1625 [139]s$(3)[178]"j"[167][152]1,"b-p"8,2:[152]8,[199](66);
  99. 1630 [152]1,"b-r";9;0;18;1:[152]1,"b-p"9,0
  100. 1640 [139]s$(2)[178]"j"[167][152]9,[199](75);[199](1);
  101. 1650 [152]1,"u2:";9;0;18;1
  102. 1660 [152]1,"u2:";8;0;18;0
  103. 1700 [137]200
  104. 1800 [133]"atnwaitnalyse oder (NULL)waitchutz ";as$:as$[178][200](as$,1)
  105. 1801 [139]as$[179][177]"a"[175]as$[179][177]"s"[167]1800
  106. 1802 [139]as$[178]"a"[167]1900
  107. 1805 i[178]0:[153]"load(NULL)yntax error in str$irectory ";:[141]1890
  108. 1810 [153]"right$lligal t/s in str$irectory ";:[141]1890
  109. 1820 [153]"str$(NULL)(NULL)-(NULL)ersion veraendern ";:[141]1890:[142]
  110. 1890 i[178]i[170]1:[133]s$(i):[139][200](s$(i),1)[179][177]"j"[175][200](s$(i),1)[179][177]"n"[167]1899
  111. 1895 s$(i)[178][200](s$(i),1):[142]
  112. 1899 [153]"peekitte keinen (NULL)uatsch eingeben !!!":i[178]i[171]1:[137]1890
  113. 1900 [129]i[178]0[164]10:s(i)[178]0:s$(i)[178]"":[130]
  114. 1901 [152]1,"u1:"8;0;18;0:[152]1,"b-p"8;0:[161]#8,a$,b$,c$
  115. 1910 [139]a$[178]""[167]a$[178][199](1)
  116. 1911 [139]b$[178]""[167]b$[178][199](1)
  117. 1912 [139]c$[178]""[167]c$[178][199](1)
  118. 1915 [139][198](a$)[177]36[167]s(1)[178]1
  119. 1916 [139][198](b$)[177]21[167]s(1)[178]1
  120. 1917 [139][198](c$)[179][177]65[167]s(2)[178][198](c$)
  121. 1920 [152]1,"b-p"8,162:[161]#8,a$,b$:[139]a$[178]""[176]b$[178]""[167]s(3)[178]1:[137]1930
  122. 1925 [139][198](a$)[178]204[176][198](b$)[178]204[167]s(3)[178]1
  123. 1930 [152]1,"u1:"8;0;18;1:[152]1,"b-p"8;0:[161]#8,a$,b$
  124. 1941 [139]a$[178]""[167]1950
  125. 1942 [139]b$[178]""[167]b$[178][199](1)
  126. 1945 [139][198](a$)[177]36[167]s(1)[178]1:[143] if(asc(a$)=75)andasc(b$)=1thens(1)=0:goto1950
  127. 1946 [139][198](b$)[177]21[167]s(1)[178]1
  128. 1950 [153]"loadcontatnnalyseergebnis:
  129. 1960 if(s(1)+s(2)+s(3))=0thenprint"[196]ie [196]iskette ist in [207]rdnung.":wait203,63:goto200
  130. 1970 ifs(1)<>0thenprint"[201]lligal t/s im [196]irectory
  131. 1980 [139]s(3)[179][177]0[167][153]"(NULL)yntax error im str$irectory
  132. 1990 ifs(2)<>0thenprint"[196][207][211]-version"s(2)
  133. 1991 print"[153][211]ollen die [196]iskette geknackt werden ?"
  134. 1992 wait203,63:geta$:wait203,64:ifa$<>"j"anda$<>"n"then1992
  135. 1993 ifa$="n"then200
  136. 1995 goto6000
  137. 2000 print#1,"b-r";8;0;18;0:print#1,"b-p"8,180
  138. 2010 fori=180to255:get#8,a$:au$=au$+a$:next
  139. 2020 ifau$=""thenprint"[203]ein [193]utogramm vorhanden.":goto2040
  140. 2030 print"[205]omentanes [193]utogramm:[141]"au$
  141. 2040 :
  142. 2100 print"[193]utogramm";:inputa$:ifa$="n"then200
  143. 2105 ifleft$(a$,6)="delete"thena$=""
  144. 2110 fori=len(a$)+180to255:a$=a$+chr$(0):next
  145. 2120 print#1,"b-r";8;0;18;0:print#1,"b-p"8,2:get#8,t$
  146. 2130 ift$<>"a"thenprint"?wrong dos  error":fori=1to1300:next:goto200
  147. 2140 print#1,"b-p"8,180:print#8,a$;
  148. 2150 print#1,"u2:";8;0;18;0
  149. 2160 goto200
  150. 3000 rem unscratch
  151. 3005 gosub3300:bl=1
  152. 3010 print#1,"b-r"8;0;18;bl
  153. 3020 fori=1to255step29:print#1,"b-p"8,i+1
  154. 3030 get#8,b$:b=0:ifb$<>""thenb=asc(b$)
  155. 3040 ifb=1then200
  156. 3050 ifb>0theni=i+3:next:goto3130
  157. 3100 print#1,"b-p"8,i+4
  158. 3110 n$="":i=i+3:forj=1to16:get#8,a$
  159. 3115 ifa$<>chr$(160)thenn$=n$+a$:next
  160. 3116 ifn$=""then200
  161. 3118 ifleft$(n$,len(p$))<>p$thennexti:goto3130
  162. 3120 printchr$(34)n$chr$(34)" wird gerettet.":goto3200
  163. 3130 ifbl<16thenbl=bl+1:goto3010
  164. 3190 goto200
  165. 3200 :
  166. 3210 print#1,"b-p"8,i-2:print#8,chr$(130);
  167. 3220 print#1,"u2:";8;0;18;bl
  168. 3230 print#1,"v":goto200
  169. 3300 print:input"[215]elches [208]rogramm ";p$
  170. 3310 ifright$(p$,1)="*"thenp$=left$(p$,len(p$)-1)
  171. 3320 return
  172. 4001 data173,134,2,133,190,169,36,133,2,169,1,162,2,160,,32,249,253,173,33
  173. 4002 data 208, 41, 15, 141, 134, 2, 169, 2, 162, 8
  174. 4003 data 160, 0, 32, 0, 254, 169, 0, 162, 0, 160
  175. 4004 data 192, 134, 95, 132, 96, 32, 213, 255, 169, 15
  176. 4005 data 141, 134, 2, 165, 95, 164, 96, 32, 55, 165
  177. 4006 data 173, 0, 3, 72, 173, 1, 3, 72, 169, 61
  178. 4007 data 141, 0, 3, 169, 227, 141, 1, 3, 32, 195
  179. 4008 data 166, 104, 141, 1, 3, 104, 141, 0, 3, 165
  180. 4009 data 190, 141, 134, 2, 96
  181. 5000 rem  prg-suche
  182. 5005 open1,8,15:print#1,"io":open8,8,8,"#":bl=1
  183. 5007 input"[215]elches [208]rogramm wollen [211]ie verfolgen ";na$:ifna$="e"then200
  184. 5010 print#1,"b-r"8;0;18;bl
  185. 5020 fori=1to255step29:print#1,"b-p"8,i+4
  186. 5060 n$="":forj=1to14:get#8,a$:n$=n$+a$:next:i=i+3:ifn$=""then5200
  187. 5070 ifleft$(n$,len(na$))=na$thenprint"[208]rogramm:"chr$(34)n$chr$(34):goto5250
  188. 5110 next:goto5200                           :
  189. 5200 ifi<255then5220
  190. 5210 ifbl<16thenbl=bl+3:goto5010
  191. 5220 print"[208][210][207][199][210][193][205][205] [206][201][195][200][212][160][214][207][210][200][193][206][196][197][206] !":fori=1to2000:next:goto200
  192. 5250 aw=0:mo=1:print#1,"b-p"8,i-1:get#8,a$:get#8,b$:sp=0:ifa$<>""thensp=asc(a$)
  193. 5260 se=0:ifb$<>""thense=asc(b$)
  194. 5270 close15:close1:close8:goto3000
  195. 5499 goto200
  196. 6000 :
  197. 6010 print#1,"u1:"8;0;18;0
  198. 6020 print#1,"m-w"chr$(1)chr$(1)chr$(1)chr$(65)
  199. 6030 print#1,"b-p"8;2:print#8,chr$(65);
  200. 6040 ifs(1)<>0thenprint#1,"b-p"8;0:print#8,chr$(18)chr$(1);
  201. 6050 ifs(3)<>0thenprint#1,"b-p"8;162:print#8,chr$(48)chr$(48);
  202. 6060 print#1,"u2:"8;0;18;0:print#1,"u1:"8;0;18;0
  203. 6070 ifs(1)=0then6100
  204. 6080 print#1,"u1:"8;0;18;1:print#1,"b-p"8;0:get#8,a$,b$:ifa$=""then6100
  205. 6085 ifa$="k"thenprint#1,"b-p"8;0:print#8,chr$(0)chr$(255);:goto6092
  206. 6090 print#1,"b-p"8;0:print#8,chr$(18)chr$(4);
  207. 6092 print#1,"u2:"8;0;18;1
  208. 6100 goto1900
  209.