home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 January / 64er_Magazin_85-01_1985_Markt__Technik_de.d64 / hypra.load-track (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  311 lines
  1. 100 data011,008,192,007,158,051,050,051
  2. 101 data056,000,000,000,032,047,243,169
  3. 102 data226,162,248,133,167,134,168,169
  4. 103 data000,162,003,133,169,134,170,169
  5. 104 data008,032,012,237,169,111,032,185
  6. 105 data237,169,077,032,221,237,169,045
  7. 106 data032,221,237,169,087,032,221,237
  8. 107 data160,000,165,169,032,221,237,165
  9. 108 data170,032,221,237,169,030,032,221
  10. 109 data237,177,167,032,221,237,200,192
  11. 110 data030,144,246,032,254,237,024,165
  12. 111 data167,105,030,133,167,144,003,230
  13. 112 data168,024,165,169,166,170,105,030
  14. 113 data133,169,144,002,230,170,224,005
  15. 114 data144,173,201,000,144,169,169,008
  16. 115 data032,012,237,169,111,032,185,237
  17. 116 data169,077,032,221,237,169,045,032
  18. 117 data221,237,169,069,032,221,237,169
  19. 118 data139,032,221,237,169,004,032,221
  20. 119 data237,169,011,141,017,208,032,251
  21. 120 data237,234,234,076,046,240,169,011
  22. 121 data141,000,221,044,000,221,016,251
  23. 122 data169,003,141,000,221,162,005,202
  24. 123 data234,208,252,162,004,173,000,221
  25. 124 data042,042,102,176,106,102,176,234
  26. 125 data202,208,242,165,176,073,255,096
  27. 126 data032,082,239,201,255,240,248,160
  28. 127 data000,169,011,141,000,221,044,000
  29. 128 data221,016,251,169,003,141,000,221
  30. 129 data162,007,202,208,253,173,000,221
  31. 130 data042,042,102,176,106,102,176,234
  32. 131 data234,173,000,221,042,042,102,176
  33. 132 data106,102,176,234,234,173,000,221
  34. 133 data042,042,102,176,106,102,176,234
  35. 134 data234,173,000,221,042,042,102,176
  36. 135 data106,102,176,165,176,073,255,153
  37. 136 data166,251,200,208,180,096,120,169
  38. 137 data001,133,167,160,255,032,124,239
  39. 138 data192,255,240,064,162,002,165,167
  40. 139 data240,002,162,004,173,166,251,208
  41. 140 data007,238,167,251,173,167,251,044
  42. 141 data169,000,133,168,189,166,251,145
  43. 142 data174,230,174,208,002,230,175,232
  44. 143 data228,168,208,240,162,000,134,167
  45. 144 data173,166,251,208,198,169,053,133
  46. 145 data001,169,027,141,017,208,169,064
  47. 146 data133,144,024,096,169,053,133,001
  48. 147 data169,027,141,017,208,234,169,029
  49. 148 data056,096,160,000,185,066,240,153
  50. 149 data048,001,200,192,031,208,245,032
  51. 150 data210,239,076,048,001,234,008,072
  52. 151 data169,000,168,089,000,160,200,208
  53. 152 data250,201,128,240,004,169,055,133
  54. 153 data001,166,174,164,175,104,040,088
  55. 154 data096,221,016,173,240,034,173,161
  56. 155 data002,074,176,250,173,001,221,041
  57. 156 data253,141,001,221,173,001,221,041
  58. 157 data004,240,249,169,144,024,076,059
  59. 158 data239,173,161,002,041,018,240,243
  60. 159 data024,096,173,151,002,172,156,002
  61. 160 data204,155,002,240,011,041,247,141
  62. 161 data151,002,177,247,238,156,002,096
  63. 162 data009,008,141,151,002,169,000,096
  64. 163 data072,173,161,002,240,017,173,161
  65. 164 data002,041,003,208,249,169,016,141
  66. 165 data013,221,169,000,141,161,002,104
  67. 166 data096,165,000,041,006,201,002,240
  68. 167 data003,076,158,253,234,169,005,133
  69. 168 data009,162,090,134,075,162,000,169
  70. 169 data082,133,036,032,086,245,080,254
  71. 170 data184,173,001,028,197,036,240,009
  72. 171 data198,075,208,239,169,010,076,105
  73. 172 data249,080,254,184,173,001,028,149
  74. 173 data037,232,224,007,208,243,032,151
  75. 174 data244,165,022,069,023,069,024,069
  76. 175 data025,069,026,240,007,198,009,208
  77. 176 data192,076,030,244,165,024,197,006
  78. 177 data240,003,076,011,244,133,034,169
  79. 178 data006,133,049,076,060,004,165,018
  80. 179 data166,019,133,022,134,023,165,006
  81. 180 data133,024,165,007,133,025,169,000
  82. 181 data069,022,069,023,069,024,069,025
  83. 182 data133,026,032,052,249,162,090,032
  84. 183 data086,245,160,000,080,254,184,173
  85. 184 data001,028,217,036,000,240,006,202
  86. 185 data208,237,076,081,245,200,192,008
  87. 186 data208,234,032,086,245,080,254,184
  88. 187 data173,001,028,145,048,200,208,245
  89. 188 data160,186,080,254,184,173,001,028
  90. 189 data153,000,001,200,208,244,032,224
  91. 190 data248,165,056,197,071,240,003,076
  92. 191 data246,244,032,233,245,197,058,240
  93. 192 data003,076,002,245,160,000,169,085
  94. 193 data032,082,004,185,000,006,133,119
  95. 194 data044,000,024,016,251,169,016,141
  96. 195 data000,024,044,000,024,048,251,162
  97. 196 data000,138,102,119,042,042,102,119
  98. 197 data042,042,141,000,024,138,102,119
  99. 198 data042,042,102,119,042,042,141,000
  100. 199 data024,138,102,119,042,042,102,119
  101. 200 data042,042,141,000,024,138,102,119
  102. 201 data042,042,102,119,042,042,141,000
  103. 202 data024,162,002,202,208,253,169,015
  104. 203 data141,000,024,200,208,173,234,234
  105. 204 data234,234,234,234,234,173,000,028
  106. 205 data009,008,141,000,028,173,000,006
  107. 206 data208,003,076,158,253,197,024,208
  108. 207 data249,133,006,173,001,006,133,007
  109. 208 data076,101,003,133,119,044,000,024
  110. 209 data016,251,169,016,141,000,024,044
  111. 210 data000,024,048,251,162,004,169,000
  112. 211 data102,119,042,042,102,119,042,042
  113. 212 data141,000,024,202,208,240,234,234
  114. 213 data234,234,234,234,169,015,141,000
  115. 214 data024,096,096,133,000,088,165,000
  116. 215 data048,252,120,096,120,234,234,234
  117. 216 data234,234,234,165,024,141,000,006
  118. 217 data133,006,165,025,141,001,006,133
  119. 218 data007,169,004,133,120,169,226,032
  120. 219 data130,004,201,002,144,051,160,000
  121. 220 data132,120,164,120,185,219,254,240
  122. 221 data018,088,032,118,214,120,169,226
  123. 222 data032,130,004,201,002,144,026,230
  124. 223 data120,208,231,169,192,032,130,004
  125. 224 data169,226,032,130,004,201,002,144
  126. 225 data008,169,255,032,082,004,076,034
  127. 226 data235,173,000,006,240,248,197,024
  128. 227 data240,196,173,000,006,133,006,173
  129. 228 data001,006,133,007,076,160,004,234
  130. 229 data234,234,234,160,000,185,025,244
  131. 230 data153,048,001,200,192,031,208,245
  132. 231 data076,048,001,169,000,168,089,000
  133. 232 data160,200,208,250,201,128,240,007
  134. 233 data169,055,133,001,076,001,245,076
  135. 234 data048,244,160,000,177,187,201,036
  136. 235 data240,242,169,001,133,167,169,000
  137. 236 data133,144,165,167,032,012,237,169
  138. 237 data111,032,185,237,165,144,016,011
  139. 238 data230,167,165,167,201,016,208,230
  140. 239 data076,187,238,165,167,201,008,240
  141. 240 data239,160,000,185,122,244,240,006
  142. 241 data032,210,255,200,208,245,032,225
  143. 242 data255,208,251,238,234,234,234,234
  144. 243 data076,187,238,234,013,066,073,084
  145. 244 data084,069,032,078,085,082,032,070
  146. 245 data076,079,080,080,089,032,065,078
  147. 246 data083,067,072,065,076,084,069,078
  148. 247 data013,000,000,000,000,000,000,000
  149. 248 data000,000,000,000,000,120,169,055
  150. 249 data133,001,160,000,132,003,169,160
  151. 250 data133,004,177,003,145,003,230,003
  152. 251 data208,248,230,004,208,244,169,229
  153. 252 data141,214,253,169,076,141,114,254
  154. 253 data141,249,244,169,188,141,115,254
  155. 254 data169,254,141,116,254,169,009,141
  156. 255 data250,244,169,244,141,251,244,169
  157. 256 data018,133,003,169,010,133,004,169
  158. 257 data226,133,005,169,248,133,006,177
  159. 258 data003,145,005,200,208,249,230,004
  160. 259 data230,006,165,006,201,250,208,239
  161. 260 data169,016,162,008,133,003,134,004
  162. 261 data169,187,162,238,133,005,134,006
  163. 262 data177,003,145,005,200,208,249,230
  164. 263 data004,230,006,165,006,201,240,208
  165. 264 data239,185,067,013,153,095,228,200
  166. 265 data192,080,208,245,160,000,185,012
  167. 266 data012,153,009,244,200,192,148,208
  168. 267 data245,169,053,133,001,076,248,252
  169. 268 data234,234,000,032,066,089,084,069
  170. 269 data083,032,070,082,069,069,013,000
  171. 270 data000,000,000,000,000,000,147,013
  172. 271 data032,032,032,032,042,042,042,042
  173. 272 data032,067,054,052,045,072,089,080
  174. 273 data082,065,045,076,079,065,068,045
  175. 274 data083,089,083,084,069,077,032,042
  176. 275 data042,042,042,013,013,032,040,067
  177. 276 data041,056,052,032,018,084,082,073
  178. 277 data066,065,082,146,032,032,000,129
  179. 278 data072,032,000,000,000,000,000,000
  180. 279 data000,000,000,000,000,000,000,000
  181. 1000 clr
  182. 1010 rem
  183. 1020 rem ********************************
  184. 1030 rem ***                          ***
  185. 1040 rem ***       hypra-load         ***
  186. 1050 rem *** mit 0 bloecken auf disk  ***
  187. 1060 rem ***                          ***
  188. 1070 rem ***          by              ***
  189. 1080 rem ***    uwe schoenewolf       ***
  190. 1090 rem ***    guenther reimuth      ***
  191. 1100 rem ***                          ***
  192. 1110 rem ********************************
  193. 1120 rem
  194. 1130 poke53280,0:poke53281,6
  195. 1140 na$=chr$(130)+chr$(18)+chr$(3)
  196. 1150 nb$=",8:"
  197. 1160 print"[147]  hypra load mit 0 blocks auf diskette"
  198. 1170 print"          [155]von: uwe schoenewolf"
  199. 1180 print"          [155]     guenther reimuth[158]"
  200. 1190 a$="":input" hypra load auf diskette schreiben  j[157][157][157]";a$
  201. 1200 ifa$="j"thenprint"":goto1220
  202. 1210 sys64738
  203. 1220 open1,0
  204. 1230 n$="":print"[145][145]file name max. 1-12 >hypra load[157][157][157][157][157][157][157][157][157][157]";:input#1,n$
  205. 1240 la=len(n$)
  206. 1250 close1
  207. 1260 ifla>12orla<1then1220
  208. 1270 open1,8,15
  209. 1280 open2,8,2,n$
  210. 1290 input#1,a
  211. 1300 close2
  212. 1310 close1
  213. 1320 ifa=0thenprint:print"  file schon vorhanden [146]":goto1670
  214. 1330 na$=na$+n$+chr$(160)+nb$
  215. 1340 la=len(na$)
  216. 1350 fori=19-lato1step-1
  217. 1360 na$=na$+chr$(160)
  218. 1370 next
  219. 1380 fori=1to12
  220. 1390 na$=na$+chr$(0):next
  221. 1400 rem *********************
  222. 1410 rem * test auf freiraum *
  223. 1420 rem * fuer hypra-load   *
  224. 1430 rem *********************
  225. 1440 t=18:s=1:y=1
  226. 1450 open1,8,15
  227. 1460 open2,8,2,"#"
  228. 1470 print#1,"u1 2 0";t;s
  229. 1480 print#1,"b-p";2;0
  230. 1490 get#2,t1$:ift1$=""thent1$=chr$(0)
  231. 1500 get#2,s1$:ifs1$=""thens1$=chr$(0)
  232. 1510 t1=asc(t1$):s1=asc(s1$)
  233. 1520 ift1<>0thent=t1:s=s1:y=y+1:goto1470
  234. 1530 ify>12thenprint:print"  kein platz mehr auf diskete [146]":goto1570
  235. 1540 close2
  236. 1550 close1
  237. 1560 goto1630
  238. 1570 close2
  239. 1580 close1
  240. 1590 goto1670
  241. 1600 rem *****************************
  242. 1610 rem * h-load auf disk schreiben *
  243. 1620 rem *****************************
  244. 1630 gosub1730
  245. 1640 gosub2010
  246. 1650 print
  247. 1660 print" fertig"
  248. 1670 print" weiter mit [ space ]"
  249. 1680 geta$:ifa$=""then1680
  250. 1690 goto1130
  251. 1700 rem ******************
  252. 1710 rem * name schreiben *
  253. 1720 rem ******************
  254. 1730 t=18:s=1:y=1
  255. 1740 open1,8,15
  256. 1750 open2,8,2,"#"
  257. 1760 print#1,"u1 2 0";t;s
  258. 1770 print#1,"b-p";2;0
  259. 1780 get#2,t1$:ift1$=""thent1$=chr$(0)
  260. 1790 get#2,s1$:ifs1$=""thens1$=chr$(0)
  261. 1800 t1=asc(t1$)
  262. 1810 s1=asc(s1$)
  263. 1820 forq=0to7
  264. 1830 print#1,"b-p";2;q*32+2
  265. 1840 get#2,x$
  266. 1850 ifx$=""thenx$=chr$(0)
  267. 1860 ifasc(x$)=0then1960
  268. 1870 next
  269. 1880 ift1<>0thent=t1:s=s1:y=y+1:goto1760
  270. 1890 ify>12thenprint:print" zuviele files auf der diskette[146]":goto1990
  271. 1900 ifq<8then1960
  272. 1910 print#1,"b-p";2;0
  273. 1920 print#2,chr$(t)+chr$(s+3);
  274. 1930 print#1,"u2 2 0";t;s
  275. 1940 s=s+3
  276. 1950 print#1,"u1 2 0";t;s
  277. 1960 print#1,"b-p";2;q*32+2
  278. 1970 print#2,na$;
  279. 1980 print#1,"u2 2 0";t;s
  280. 1990 close2:close1:return
  281. 2000 rem *********************
  282. 2010 rem * datas abspeichern *
  283. 2020 rem *********************
  284. 2030 restore
  285. 2040 open1,8,15
  286. 2050 open2,8,2,"#"
  287. 2060 fors=3to15step3
  288. 2070 print#1,"b-p 2 0"
  289. 2080 a$="":a$=a$+chr$(18)+chr$(s+3)
  290. 2090 print#2,a$
  291. 2100 print#1,"b-p 2 2"
  292. 2110 a$=""
  293. 2120 en=253
  294. 2130 ifs=3thenprint#2,chr$(1);chr$(8);:en=251
  295. 2140 fori=0toen
  296. 2150 readx
  297. 2160 a$=a$+chr$(x)
  298. 2170 next
  299. 2180 print#2,a$;
  300. 2190 print#1,"u2 2 0 18";s
  301. 2200 next
  302. 2210 print#1,"b-p 2 0"
  303. 2220 a$="":a$=a$+chr$(0)+chr$(170)
  304. 2230 fori=1to170
  305. 2240 readx
  306. 2250 a$=a$+chr$(x)
  307. 2260 next
  308. 2270 print#2,a$;
  309. 2280 print#1,"u2 2 0 18";s
  310. 2290 close2:close1:return
  311.