64'er 1989 March/64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64/splitscreen.run

Commodore BASIC | 2022-10-26 | 2KB | 39 lines

10 m=200:d=50:e=14:z=-1:vn=z:print"* microcomp v1.0 *":print"code area: ";
15 dim l$(m),lv(m),c$(m),c(m),o$(m),p$(m),v$(d),w$(e),le(e),lx(e),x(e,30)
20 forn=0toe:readw$(n),le(n),lx(n):fori=0tolx(n):readx(n,i):nexti,n
30 vn=vn+1:readv$(vn):on-(v$(vn)<>"*=")goto30:read sa,vb,l$
35 z=z+1:l$(z)=l$:readc$(z),o$(z),p$(z):zm=z:readl$:on-(l$<>"_")goto35:ad=sa
50 printsa;"-";:forz=0tozm:lv(z)=ad:forn=0toe:ifc$(z)=w$(n)thenc(z)=n:ad=ad+le(n)
55 nextn,z:ce=ad:printce:ad=sa:forz=0tozm:c=c(z):v$=o$(z):gosub80:o(0)=v:v$=p$(z)
60 gosub80:o(2)=v:forn=0tolx(c):x=x(c,n):ifx>=0thenpokead,x:ad=ad+1:nextn,z:end
65 onxand4goto,,,75:j=int(o(xand2)/256):pokead,j:ifxand1thenpokead,o(xand2)-j*256
70 ad=ad+1:nextn,z:end
75 i=o(xand2)+(xand1):pokead+1,i/256:pokead,i-int(i/256)*256:ad=ad+2:nextn,z:end
80 v=val(v$):v=v-65536*(v<0):fori=0tovn-1:v=v-(v$=v$(i))*(2*i+vb-ce*(vb=0)):next
85 fori=0tozm:v=v-lv(i)*(v$=l$(i)):next:return
90 dataadd,19,12,24,173,-4,109,-2,141,-2,173,-3,109,-1,141,-1,sub,19,12,56,173,-2
91 data237,-4,141,-2,173,-1,237,-3,141,-1,move,12,7,173,-4,141,-2,173,-3,141,-1
92 datagoto,3,1,76,-4,if,11,7,173,-4,13,-3,240,3,76,-2,move#,10,7,169,-7,141,-2
93 data169,-8,141,-1,cmove,6,3,173,-4,141,-2,gosub,3,1,32,-4,return,1,0,96,setregs
94 data9,5,173,-4,174,-2,172,-1,cmove#,5,3,169,-7,141,-2,add#,17,12,24,169,-7,109
95 data-2,141,-2,169,-8,109,-1,141,-1,goto(),3,1,108,-4,cmove(),26,21,173,-4,133,34
96 data173,-3,133,35,173,-2,133,36,173,-1,133,37,160,0,177,34,145,36,word,2,0,-4
100 rem splitscreen
110 data a
120 data *=,828,0
130 data l2,gosub,l1,
140 data   ,if,a,l3
150 data   ,goto,l2,
160 data l3,cmove#,3,53281
170 data l4,gosub,l1,
180 data   ,if,a,l4
190 data   ,cmove#,2,53281
200 data   ,goto,l2,
210 rem
300 data l1,move#,0,a
310 data   ,cmove,53266,a
320 data   ,add,a,a
330 data   ,cmove#,0,a
340 data   ,return,,
350 data _