home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
89xx
/
8903a.d64
/
splitscreen.run
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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 _