1 REM Ins{nd av Anders Frans`n <5258>    1984-11-17 14.49.55
100 REM *********************
101 REM *                   *
102 REM * MUNKAR 1984-08-28 *
103 REM *                   *
104 REM * Med detta program *
105 REM * f}r du tio sm}    *
106 REM * "munkar" seglande *
107 REM * p} din bildsk{rm. *
108 REM *                   *
109 REM * Huvudbearbetning- *
110 REM * en utf|rs i ett   *
111 REM * assemblerprogram. *
112 REM *                   *
113 REM *********************
114 REM 
115 REM 
116 REM +-------------------+
117 REM !                   !
118 REM ! Reservera utrymme !
119 REM ! f|r maskinkoden.  !
120 REM !                   !
121 REM +-------------------+
122 REM 
123 I=PEEK(65064)*256+PEEK(65063)
124 IF I>63488 POKE 65063,0,248 : Z=CALL(3223+PEEK(25))
125 REM 
126 REM 
127 REM +-------------------+
128 REM !                   !
129 REM ! Placera maskinkod !
130 REM ! i reserverat ut-  !
131 REM ! rymme.            !
132 REM !                   !
133 REM +-------------------+
134 REM 
135 POKE -2048%,205%,62%,3%,192%,205%,114%,248%,123%,167%,40%,245%,67%,118%,16%
136 POKE -2034%,253%,24%,239%,1%,0%,98%,248%,5%,5%,1%,1%,2%,0%,98%
137 POKE -2020%,248%,10%,10%,2%,1%,3%,0%,98%,248%,15%,15%,1%,2%,4%
138 POKE -2006%,0%,98%,248%,20%,20%,1%,3%,5%,0%,98%,248%,25%,25%,3%
139 POKE -1992%,1%,6%,0%,98%,248%,30%,30%,3%,2%,7%,0%,98%,248%,35%
140 POKE -1978%,35%,2%,3%,8%,0%,98%,248%,40%,40%,3%,3%,9%,0%,98%
141 POKE -1964%,248%,4%,45%,0%,3%,10%,0%,98%,248%,50%,50%,3%,0%,255%
142 POKE -1950%,3%,3%,3%,1%,79%,71%,0%,0%,0%,0%,0%,0%,141%,249%
143 POKE -1936%,247%,128%,229%,213%,197%,221%,229%,253%,229%,253%,33%,17%,248%,253%
144 POKE -1922%,126%,0%,60%,40%,101%,253%,203%,1%,134%,253%,203%,1%,150%,205%
145 POKE -1908%,240%,248%,221%,110%,8%,221%,102%,9%,253%,203%,0%,70%,204%,228%
146 POKE -1894%,248%,221%,110%,6%,221%,102%,7%,205%,228%,248%,253%,203%,1%,94%
147 POKE -1880%,32%,51%,253%,126%,4%,253%,134%,6%,253%,119%,4%,253%,126%,5%
148 POKE -1866%,253%,134%,7%,253%,119%,5%,253%,54%,1%,4%,205%,240%,248%,221%
149 POKE -1852%,110%,10%,221%,102%,11%,253%,203%,1%,70%,196%,228%,248%,221%,110%
150 POKE -1838%,12%,221%,102%,13%,253%,203%,1%,78%,196%,228%,248%,17%,8%,0%
151 POKE -1824%,253%,25%,24%,153%,124%,181%,200%,233%,253%,225%,221%,225%,193%,209%
152 POKE -1810%,225%,201%,253%,110%,2%,253%,102%,3%,229%,221%,225%,17%,14%,0%
153 POKE -1796%,25%,221%,94%,0%,221%,86%,1%,78%,35%,6%,8%,203%,17%,48%
154 POKE -1782%,54%,229%,213%,253%,126%,4%,221%,134%,0%,147%,95%,253%,126%,5%
155 POKE -1768%,221%,134%,1%,146%,87%,205%,77%,249%,56%,22%,245%,166%,30%,1%
156 POKE -1754%,32%,1%,95%,241%,253%,203%,1%,86%,32%,4%,47%,166%,24%,1%
157 POKE -1740%,182%,246%,32%,119%,253%,126%,1%,179%,253%,119%,1%,209%,225%,29%
158 POKE -1726%,32%,5%,21%,200%,221%,94%,0%,16%,188%,24%,182%,123%,221%,190%
159 POKE -1712%,2%,30%,18%,216%,221%,190%,4%,63%,30%,34%,216%,31%,111%,122%
160 POKE -1698%,22%,64%,48%,2%,22%,128%,221%,190%,3%,30%,66%,216%,221%,190%
161 POKE -1684%,5%,63%,30%,130%,216%,93%,33%,114%,3%,35%,35%,214%,3%,48%
162 POKE -1670%,250%,203%,10%,203%,10%,60%,32%,249%,126%,131%,35%,102%,111%,122%
163 POKE -1656%,198%,32%,230%,223%,201%,253%,126%,1%,230%,48%,40%,8%,253%,126%
164 POKE -1642%,6%,237%,68%,253%,119%,6%,253%,126%,1%,230%,192%,200%,253%,126%
165 POKE -1628%,7%,237%,68%,253%,119%,7%,201%,253%,203%,1%,222%,201%
166 REM 
167 REM 
168 REM +-------------------+
169 REM !                   !
170 REM ! S{tt sk{rmen i    !
171 REM ! grafisk mod.      !
172 REM !                   !
173 REM +-------------------+
174 REM 
175 PRINT CHR$(12)
176 FOR I=0 TO 24
177 PRINT CUR(I,0)CHR$(151);
178 NEXT I
179 REM 
180 REM 
181 REM +-------------------+
182 REM !                   !
183 REM ! Rita en snygg ram.!
184 REM !                   !
185 REM +-------------------+
186 REM 
187 FOR I=2 TO 79
188 SETDOT 0,I : SETDOT 71,I
189 NEXT I
190 FOR I=1 TO 70
191 SETDOT I,2 : SETDOT I,79
192 NEXT I
193 REM 
194 REM 
195 REM +-------------------+
196 REM !                   !
197 REM ! Anropa maskin-    !
198 REM ! kodsprogrammet.   !
199 REM !                   !
200 REM ! Den medskickade   !
201 REM ! parametern anger  !
202 REM ! hastighet som     !
203 REM ! munkarna ska ha.  !
204 REM !                   !
205 REM ! 0   = h|gsta fart !
206 REM ! 255 = l{gsta fart !
207 REM !                   !
208 REM +-------------------+
209 REM 
210 Z=CALL(63488,0)