home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 January / 64er_Magazin_90-01_1990_Markt__Technik_de_Side_A.d64 / rem_space.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  173 lines
  1. 100  step"rem/space.obj,p,w",8
  2. 110  =1,8,2,"rem/space.lst,p,w"
  3. 120  >2,8,3,"rem/space.sym,p,w"
  4. 1000 ;*********************************
  5. 1010 ;*  schnellster rem-killer v1.0  *
  6. 1020 ;* schnellster space-killer v2.0 *
  7. 1030 ;*===============================*
  8. 1040 ;* geschrieben im september 1989 *
  9. 1050 ;* von: matthias andree          *
  10. 1060 ;*      stormstrasse 14          *
  11. 1070 ;*    d-5800 hagen 1             *
  12. 1080 ;*      0 23 31/68 95 50         *
  13. 1090 ;*-------------------------------*
  14. 1100 ;* kein teil dieses programms ist*
  15. 1110 ;* aus einem anderen programm    *
  16. 1120 ;* entnommen.                    *
  17. 1130 ;*********************************
  18. 1140 ;
  19. 1150 ;
  20. 1160 ;*** adressen, global ***
  21. 1170 ;
  22. 1180  tab(basic=43;basicstart low
  23. 1190  tab(variablen=45;variablenstart
  24. 1200  tab(quell=3;quellzeiger low
  25. 1210  tab(ziel=5;zielzeiger low
  26. 1220  tab(basout=$ffd2;zeichen (ascii im akku) ausgeben
  27. 1230  tab(intout=$bdcd;integerzahl x/a (lo/hi) ausgeben
  28. 1240  tab(strout=$ab1e;text ab a/y (lo/hi) ausgeben
  29. 1250  tab(binden=$a533;linkzeiger richten
  30. 1260  tab(clr=$a659;variable loeschen
  31. 1270  tab(ready=$a474;ready
  32. 1280  tomal10=$bae2
  33. 1290  tofacarg=$bc0c
  34. 1300  todiv=$bb14
  35. 1310  tointfac=$b395
  36. 1320  toprintfac=$bdd7
  37. 1330 ;
  38. 1340 ; *** startadresse ***
  39. 1350 ;
  40. 1360  +$c000
  41. 1370 ;
  42. 1380 ; *** makros ***
  43. 1390 ;
  44. 1400  getlies
  45. 1410  mid$(quell),y;lesen
  46. 1420  (NULL);prozessorstatus retten
  47. 1430  right$quell;zeiger inkrementieren
  48. 1440  (NULL)l1;kein uebertrag
  49. 1450  right$quell+1;high-byte
  50. 1460 l1 (NULL);prozessorstatus holen
  51. 1470  new;ende
  52. 1480 ; ********************************
  53. 1490  getschreib
  54. 1500  (NULL)(ziel),y;schreiben
  55. 1510  (NULL);prozessorstatus retten
  56. 1520  right$ziel;zeiger inkrementieren
  57. 1530  (NULL)l1;kein uebertrag
  58. 1540  right$ziel+1;high-byte
  59. 1550 l1 (NULL);prozessorstatus holen
  60. 1560  new;ende
  61. 1570 ; ********************************
  62. 1580  gettextclosead
  63. 1590  mid$#<(ad)
  64. 1600  len#>(ad)
  65. 1610  (NULL)strout
  66. 1620  new
  67. 1630 ;
  68. 1640 ; ********************************
  69. 1650 ; *********** programm ***********
  70. 1660 ; ********************************
  71. 1670 ;
  72. 1680  (NULL)run
  73. 1690 start mid$basic;lo * zeiger kopieren
  74. 1700  peekbasic+1;hi * zeiger ist 2 byte lang
  75. 1710  (NULL)quell;lo * quelle
  76. 1720  (NULL)quell+1;hi * quelle
  77. 1730  (NULL)ziel;lo * ziel
  78. 1740  (NULL)ziel+1;hi * ziel
  79. 1750 anfang mid$quell;quellzeiger
  80. 1760  str$variablen;groesser als
  81. 1770  (NULL)keinende1;programmende
  82. 1780  mid$quell+1;auch high-byte
  83. 1790  str$variablen+1;pruefen
  84. 1800  (NULL)keinende1
  85. 1810 ende1 len#0
  86. 1820  lies
  87. 1830  schreib
  88. 1840  lies
  89. 1850  schreib
  90. 1860  mid$ziel;zielzeiger
  91. 1870  peekziel+1;in programmende-
  92. 1880  (NULL)variablen;zeiger ueber-
  93. 1890  (NULL)variablen+1;tragen
  94. 1900  (NULL)
  95. 1910  (NULL)binden;linkzeiler berechnen
  96. 1920  (NULL)clr;clr
  97. 1930  (NULL)ready;zum basic
  98. 1940 keinende1 len#0
  99. 1950  mid$(quell),y;auf zwei
  100. 1960  (NULL);nullbytes
  101. 1970  (NULL)(quell),y;pruefen
  102. 1980  (NULL)ende1;zwei nullen als pointer: ende
  103. 1990  len#0
  104. 2000  peek#0;zaehler fuer vier
  105. 2010 kopiere1 lies;bytes nach
  106. 2020  schreib;zeilenanfang
  107. 2030  (NULL);zaehler inkrementieren
  108. 2040  tan#4;vier erreicht?
  109. 2050  (NULL)kopiere1;nein, kopieren
  110. 2060 zeile lies;byte lesen
  111. 2070  str$#$20;$20 ist ascii-code
  112. 2080  (NULL)zeile;fuer space; nicht uebertragen
  113. 2090 nz schreib;speichern
  114. 2100  str$#0;zeilenende?
  115. 2110  (NULL)anfang1;neue zeile
  116. 2120  str$#$22;anfuehrungszeichen?
  117. 2130  (NULL)anfz;ja
  118. 2140  str$#$8f;token fuer rem
  119. 2150  (NULL)zeile
  120. 2160 rem lies;auf zeilenende
  121. 2170  (NULL)rem;warten
  122. 2180  (NULL)nz;0 schreiben, neue zeile
  123. 2190 anfz lies
  124. 2200  (NULL)nz;neue zeile
  125. 2210  schreib
  126. 2220  str$#$22;anfuehrungszeichen
  127. 2230  (NULL)anfz;nein
  128. 2240  (NULL)zeile
  129. 2250 anfang1 (NULL)anfang
  130. 2260 ;ende
  131. 2270 run mid$variablen
  132. 2280  (NULL)
  133. 2290  (NULL)basic
  134. 2300  (NULL)251
  135. 2310  mid$variablen+1
  136. 2320  (NULL)basic+1
  137. 2330  (NULL)252
  138. 2340  textclosetext1
  139. 2350  (NULL)start
  140. 2360  (NULL)binden
  141. 2370  mid$$22
  142. 2380  peek$23
  143. 2390  (NULL)
  144. 2400  val#2
  145. 2410  (NULL)variablen
  146. 2420  (NULL)
  147. 2430  val#0
  148. 2440  (NULL)variablen+1
  149. 2450  mid$variablen
  150. 2460  (NULL)
  151. 2470  (NULL)basic
  152. 2480  (NULL)253
  153. 2490  mid$variablen+1
  154. 2500  (NULL)basic+1
  155. 2510  (NULL)254
  156. 2520  len253
  157. 2530  mid$254
  158. 2540  (NULL)intfac
  159. 2550  (NULL)facarg
  160. 2560  mid$252
  161. 2570  len251
  162. 2580  (NULL)intfac
  163. 2590  (NULL)div
  164. 2600  (NULL)mal10
  165. 2610  (NULL)mal10
  166. 2620  (NULL)printfac
  167. 2630  textclosetext2
  168. 2640  (NULL)ready
  169. 2000 text1 not"bitte warten
  170. 2005  [165]$0d,$91,$00
  171. 2010 text2 [168]"% sind uebrig.
  172. 2015  fn$0d,$00
  173.