Listing of file='TAM.011B' on disk='vmedia/701-2216A.wvd.zip'
# Sector 61, program filename = 'TAM.011B' 0010 REM 'TAM.011B' (SET LOG ON/OFF - DISK WRITE) 0040 DIM Q(7),Q6$64,Q$1,Q3$(2)40,Q1$(2)40,Q7$1 0042 DIM Q$(4)62 1000 % THIS STATEMENT FOR OVERLAYING TAM.011B 5470 ON S6GOSUB 6150 6100 DEFFN'246(Q(1),Q(2)) : IF Q(1)=0THEN 6132 : S6=1 : S5=Q(2) : LIMITS T#S5,"XLOG",Q(1),Q(2),Q(3) : DATA LOAD DC OPEN T#S5,"XLOG" : IF Q(3)>2THEN 6120 : STR(Q$(1),1,2)=HEX(0003) : RETURN 6120 DSKIP #S5,END : DBACKSPACE #S5,1 : DATA LOAD DC #S5,Q$() : STR(Q$(1),1,1)=HEX(00) : DBACKSPACE #S5,1 : RETURN 6132 S6=0 : STR(Q$(1),1,1)=HEX(F0) : DATA SAVE DC #S5,Q$() : DATA SAVE DC #S5,END : RETURN 6150 Q(1)=VAL(STR(Q$(1),2,1)) : IF Q(1)+Q9+1<249THEN 6178 : LIMITS T#S5,Q(2),Q(3),Q(4) : IF Q(3)-Q(4)>2THEN 6170 : GOSUB '246(0,S5) : ADD(Q$,01) : RETURN 6170 DATA SAVE DC #S5,Q$() : STR(Q$(1),1,2)=HEX(0003) : Q(1)=3 6178 BIN(STR(Q$(1),2,1))=Q(1)+Q9+2 : BIN(STR(Q1$(1),2,1))=S7 : BIN(STR(Q1$(1),1,1))=Q9+1 : MAT COPY Q1$()TO Q$()<Q(1),2> : MAT COPY Q3$()<1,Q9>TO Q$()<Q(1)+2,Q9> : RETURN