home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / ultraformat (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  145 lines
  1. 0 rem
  2. 100 rem"[141][142]
  3. 102 [143]"(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$
  4. 103 rem"[221]         written by          [221]
  5. 104 [143]"(NULL)ralph gauer                  (NULL)
  6. 105 rem"[221]weilerstr. 8                 [221]
  7. 106 [143]"(NULL)7968 wilfertsweiler          (NULL)
  8. 107 rem"[171][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][179]
  9. 108 [143]"(NULL)datum: 17. juni 1987         (NULL)
  10. 109 rem"[202][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][203]
  11. 110 [153]"load"[199](142):[151]53280,0:[151]53281,0
  12. 112 [143]                                 ************* entscheidung *************
  13. 114 gg$(0)[178]"ganze diskette formatierenwait"
  14. 116 gg$(1)[178]"nur spur 36-41 formatierenwait"
  15. 118 gg[178]0:[153]gg$(0);gg$(1)
  16. 120 [153]"auswahl mit cursortasten und [returnwait]"
  17. 122 [153]""gg$(gg)
  18. 124 [146]198,1:[161]gg$
  19. 126 [139]gg$[178][199](13)[167]136
  20. 128 [139]gg$[178]""[167][139]gg[178]0[167][153]gg$(gg):gg[178]1:[137]122
  21. 130 [139]gg$[178]"on"[167][139]gg[178]1[167][153]gg$(gg):gg[178]0:[137]122
  22. 132 [137]124
  23. 134 [143]                                 ************* initialisierung **********
  24. 136 [159]1,8,15,"ui"
  25. 138 [150][165]hi(x)[178][181](x[173]256):[150][165]lo(x)[178][181](x[171][165]hi(x)[172]256)
  26. 140 [145]gg[137]200
  27. 142 [143]                                 ************* normal formatieren *******
  28. 144 i$[178]"":[153]i$"                                        ";
  29. 146 ii$[178]i$[170]"diskettenname: ":[153]ii$"                wait"
  30. 148 [153]ii$"tan";:na$[178]""
  31. 150 [146]198,1:[161]o$:[151]198,0
  32. 152 [139]o$[178][199](13)[175]na$[179][177]""[167]164
  33. 154 [139]o$[178][199](20)[176]o$[178]"cmd"[167]146
  34. 156 [139][198](o$)[177]31[175][198](o$)[179]128[175][195](na$)[179]16[167]na$[178]na$[170]o$
  35. 158 [139][198](o$)[177]159[175][195](na$)[179]16[167]na$[178]na$[170]o$
  36. 160 [153]ii$""na$"wait";:[139][195](na$)[179]16[167][153]"tan";
  37. 162 [137]150
  38. 164 [153]ii$na$"               ":[153]ii$"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  39. 166 i$[178]"":[153]i$"                                        ";
  40. 168 ii$[178]i$[170]"disketten-id: ":[153]ii$"     wait"
  41. 170 [153]ii$"tan";:di$[178]""
  42. 172 [146]198,1:[161]o$:[151]198,0
  43. 174 [139]o$[178][199](13)[175]di$[179][177]""[167]di$[178]di$[170]"    ":di$[178][200](di$,5):[137]186
  44. 176 [139]o$[178][199](20)[176]o$[178]"cmd"[167]168
  45. 178 [139][198](o$)[177]31[175][198](o$)[179]128[175][195](di$)[179]5[167]di$[178]di$[170]o$
  46. 180 [139][198](o$)[177]159[175][195](di$)[179]5[167]di$[178]di$[170]o$
  47. 182 [153]ii$""di$"wait";:[139][195](di$)[179]5[167][153]"tan";
  48. 184 [137]172
  49. 186 [153]ii$di$:[153]ii$"tab(tab(tab(tab(tab(":id$[178][200](di$,2)
  50. 188 [152]1,"n:"[170]na$[170]","[170]id$
  51. 190 [159]2,8,2,"#2"
  52. 192 [152]1,"u1"2;0;18;0
  53. 194 [152]1,"b-p"2;162:[152]2,di$;
  54. 196 [152]1,"u2"2;0;18;0:[160]2
  55. 198 [143]                                 ************ vorbereitung **************
  56. 200 [152]1,"m-w"[199](81)[199](0)[199](1)[199](255):[152]1,"i"
  57. 202 [152]1,"m-w"[199](8)[199](0)[199](2)[199](36)[199](0)
  58. 204 [143]                                 ************ uebertragung **************
  59. 206 [129]x[178]1024[164]1024[170]32:[135]a:[152]1,"m-w"[199]([165]lo(x))[199]([165]hi(x))[199](1)[199] (a)
  60. 208 [130]
  61. 210 [143]                                 ************ formatiere ****************
  62. 212 [152]1,"m-w"[199](1)[199](0)[199](1)[199](224)
  63. 214 [143]                                 ************ warten ********************
  64. 216 [152]1,"m-r"[199](1)[199](0)[199](1):[161]#1,a$:[139][198](a$[170][199](0))[177]127[167]216
  65. 218 [143]                                 ************ format-datas **************
  66. 220 [131]165, 81,201,255,240, 24,165, 81,201,  1,208,  6,169, 18,133, 81,133, 34
  67. 222 [131]165, 81,201, 25,208,  6,169, 36,133, 81,133, 34, 76,199,250
  68. 224 [143]                                 ************ two bumps *****************
  69. 226 [129]bu[178]1[164]2:[152]1,"m-w"[199](0)[199](0)[199](1)[199](192)
  70. 228 [152]1,"m-r"[199](0)[199](0)[199](1):[161]#1,a$:[139][198](a$[170][199](0))[177]127[167]228
  71. 230 [130]
  72. 232 [143]                                 ************ spurschaltprogramme *******
  73. 234 [137]254
  74. 236 [152]1,"m-w"[199](6)[199](0)[199](2)[199](1)[199](0)
  75. 238 [152]1,"m-w"[199](0)[199](0)[199](1)[199](128)
  76. 240 [152]1,"m-r"[199](0)[199](0)[199](1):[161]#1,a$:[139][198](a$[170][199](0))[177]127[167]240
  77. 242 [142]
  78. 244 [141]236:[152]1,"m-w"[199](6)[199](0)[199](2)[199](36)[199](0)
  79. 246 [152]1,"m-w"[199](0)[199](0)[199](1)[199](176)
  80. 248 [152]1,"m-r"[199](0)[199](0)[199](1):[161]#1,a$:[139][198](a$[170][199](0))[177]127[167]248
  81. 250 [142]
  82. 252 [143]                                 ************ directory generator *******
  83. 254 [141]236:[159]2,8,2,"#2"
  84. 256 [152]1,"u1"2;0;18;0
  85. 258 [129]x[178]4[164]71:[152]1,"b-p"2;x
  86. 260 [152]2,[199](0);:[130]
  87. 262 [152]1,"b-p"2;72:[152]2,[199](17)[199](252)[199](255)[199](7);:
  88. 264 [129]x[178]76[164]95[169]4:[152]1,"b-p"2;x
  89. 266 [152]2,[199](19)[199](255)[199](255)[199](7);:[130]
  90. 268 [129]x[178]96[164]143:[152]1,"b-p"2;x
  91. 270 [152]2,[199](0);:[130]
  92. 272 [152]1,"b-p"2;162:[152]2,"oben ";
  93. 274 [141]244:[152]1,"u2"2;0;18;0
  94. 276 [141]236
  95. 278 [143]                                 ************ text generieren ***********
  96. 280 [152]1,"u1"2;0;18;1
  97. 282 [141]244
  98. 284 [129]x[178]0[164]255:[152]1,"b-p"2;x:[152]2,[199](0);:[130]
  99. 286 [152]1,"b-p";2;0
  100. 288 [152]2,[199](0)[199](255)[199](192)[199](0)[199](0)"nicht validieren";
  101. 290 [152]1,"u2"2;0;18;1
  102. 292 [160]2:[141]236:[152]1,"i"
  103. 294 [143]                                 ************ diskswitch c000 ***********
  104. 296 [159]2,8,2,"diskswitch c000,p,w"
  105. 298 [132]1,a,b$,c,d:[139]a[179][177]0[167][160]2:[160]1:[153]a;b$;c;d:[128]
  106. 300 [152]2,[199]([165]lo(49152))[199]([165]hi(49152));
  107. 302 [129]x[178]0[164]195:[135]a:[152]2,[199](a);:[130]
  108. 304 [160]2
  109. 306 [132]1,a,b$,c,d:[139]a[179][177]0[167][160]2:[160]1:[153]a;b$;c;d:[128]
  110. 308 [143]                                 ************ diskswitch 033c ***********
  111. 310 [159]2,8,2,"diskswitch 033c,p,w"
  112. 312 [132]1,a,b$,c,d:[139]a[179][177]0[167][160]2:[160]1:[153]a;b$;c;d:[128]
  113. 314 [152]2,[199]([165]lo(828))[199]([165]hi(828));
  114. 316 [129]x[178]0[164]195:[135]a:[152]2,[199](a);:[130]
  115. 318 [160]2
  116. 320 [143]                                 ************ ende **********************
  117. 322 [132]1,a,b$,c,d:[153]a;b$;c;d
  118. 324 [160]1
  119. 326 [143] von 49152 bis 49347             ************ ds c000 data **************
  120. 328 [131]169, 11,141, 24,  3,169,192,141, 25,  3, 96,120,169,161,141, 24,  3
  121. 330 [131]169,  2,133,183,169, 20,133,184,169, 15,133,185,169,  8,133,186,169
  122. 332 [131]193,133,187,169,192,133,188, 32,192,255,169, 20, 32,195,255,173,162
  123. 334 [131]192,240, 11, 32,109,192,169,  0,141,162,192, 76,142,192, 32, 76,192
  124. 336 [131]169,  1,141,162,192, 76,142,192,169,  9,133,183,169,163,133,187, 32
  125. 338 [131]192,255,169, 20, 32,195,255,169,  8,133,183,169,171,133,187, 32,192
  126. 340 [131]255,169, 20, 32,195,255, 96,169,  9,133,183,169,178,133,187, 32,192
  127. 342 [131]255,169, 20, 32,195,255,169,  8,133,183,169,186,133,187, 32,192,255
  128. 344 [131]169, 20, 32,195,255, 96,169,  2,133,183,169,193,133,187, 32,192,255
  129. 346 [131]169, 20, 32,195,255, 32,  0,192, 64,  1, 77, 45, 87,  6,  0,  2, 36
  130. 348 [131]  0, 77, 45, 87,  0,  0,  1,176, 77, 45, 87,  6,  0,  2,  1,  0, 77
  131. 350 [131] 45, 87,  0,  0,  1,128, 73, 68, 78
  132. 352 [143] von 828 bis 1023                ************ ds 033c data **************
  133. 354 [131]169, 71,141, 24,  3,169,  3,141, 25,  3, 96,120,169,221,141, 24,  3
  134. 356 [131]169,  2,133,183,169, 20,133,184,169, 15,133,185,169,  8,133,186,169
  135. 358 [131]253,133,187,169,  3,133,188, 32,192,255,169, 20, 32,195,255,173,222
  136. 360 [131]  3,240, 11, 32,169,  3,169,  0,141,222,  3, 76,202,  3, 32,136,  3
  137. 362 [131]169,  1,141,222,  3, 76,202,  3,169,  9,133,183,169,223,133,187, 32
  138. 364 [131]192,255,169, 20, 32,195,255,169,  8,133,183,169,231,133,187, 32,192
  139. 366 [131]255,169, 20, 32,195,255, 96,169,  9,133,183,169,238,133,187, 32,192
  140. 368 [131]255,169, 20, 32,195,255,169,  8,133,183,169,246,133,187, 32,192,255
  141. 370 [131]169, 20, 32,195,255, 96,169,  2,133,183,169,253,133,187, 32,192,255
  142. 372 [131]169, 20, 32,195,255, 32, 60,  3, 64,  1, 77, 45, 87,  6,  0,  2, 36
  143. 374 [131]  0, 77, 45, 87,  0,  0,  1,176, 77, 45, 87,  6,  0,  2,  1,  0, 77
  144. 376 [131] 45, 87,  0,  0,  1,128, 73, 68,  0
  145.