1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program .... DELETE2.UTL
3 REM ! Utg}va 1.3 4/1-1982
4 REM ! av (c) Roland Eiworth j;r 350
5 REM ! Margretelundsbacken 27
6 REM ! 183 42 T[BY 0762-13854
7 REM ! screenat av Tom Sj|berg 2401
8 REM ! Minne 16 Kbytes
9 REM ! Ins{nt av 350
10 REM ++++++++++++++++++++++++++++++++
11 REM
99 ; ' L{s REM-satserna ! ' : STOP
100 REM Denna maskinkodsrutin g|r att
101 REM man kan ta bort M]NGA BASIC-
102 REM rader p} knappt m{tbar tid.
103 REM Rutinen anropas med ;
104 REM ;CALL(-128)
105 REM D} fr}gan "-?"
106 REM kommer fram,skriver du l{gsta
107 REM respektive h|gsta radnummer av
108 REM den del av ditt BASIC-program
109 REM som du vill ta bort.
110 REM Radnumren skiljes med
111 REM streck "-" eller komma ","
112 REM Om l{gsta radnummer utel{mnas
113 REM antas radnummer 0 (noll) vara
114 REM l{gst och om h|gsta radnummer
115 REM utel{mnas antas rad 65535 vara
116 REM h|gst. Allts},om man BARA
117 REM skriver "-" eller "," s}
118 REM f|rsvinner hela programmet.
119 REM Om du skriver felaktiga data
120 REM vid fr}gan blir det ERR 31.
121 REM Om du bara trycker
122 REM h{nder ingenting.
123 REM Obs! Denna rutin fungerar p}
124 REM ABC80 med checksumma 10042 och
125 REM 11273. Om den inte fungerar p}
126 REM din ABC80 kan du h|ra av dig
127 REM till mig p} ovanst}ende nummer.
128 REM Rutinen p}verkas ej av RESET.
129 REM VARNING! Anropa endast rutinen
130 REM i "command mode".
131 REM Skriv RUN och testa sedan p}
132 REM exempelvis detta program.
133 REM
134 ; 'Vad har du f|r checksumma'; : INPUT C
135 IF C<11273 THEN X%=0% ELSE X%=2%
136 POKE -128%,33%,204%,0%,227%,1%,18%,0%,33%,225%,255%,205%,11%,0%
137 POKE -115%,1%,120%,0%,33%,64%,254%,229%,205%,5%,0%,225%,231%,254%,13%
138 POKE -101%,200%,205%,28%+X%,24%,213%,126%,254%,13%,40%,17%,254%,45%,40%,5%
139 POKE -87%,254%,44%,194%,33%,7%,205%,27%+X%,24%,48%,3%,17%,254%,255%
140 POKE -74%,19%,66%,75%,209%,197%,205%,57%,15%,209%,229%,205%,57%,15%
141 POKE -61%,209%,229%,68%,77%,42%,30%,254%,237%,66%,68%,77%,3%,225%
142 POKE -48%,237%,176%,27%,237%,83%,30%,254%,1%,8%,0%,33%,243%,255%
143 POKE -35%,205%,11%,0%,201%,13%,10%
144 POKE -29%,60%,114%,97%,100%,110%,114%,62%,45%,60%,114%,97%,100%,110%,114%,62%,63%
145 POKE -13%,13%,10%,75%,76%,65%,82%,84%,33%
146 ; 'Rutinen {r nu inlagd p} adress 65408.'
147 REM Ha det s} roligt!