image of READY prompt

Wang2200.org

Listing of file='TCFORMAT' on disk='vmedia/701-2110C.wvd.zip'

# Sector 16, program filename = 'TCFORMAT'
0010 REM TCFORMAT - SUBROUTINES TO READ AND WRITE TC FILE FORMAT (4/18/78)
0020 DIM X$(4)64,X1$(4)62,X2$(1)1,Q$1
   : SELECT #2310
8000 PRINT HEX(030D0A0D0A);"--- SUBROUTINES '130, '131, AND '132 LOADED ---"
   : PRINT "        SAVE UNDER DESIRED USER NAME"
   : PRINT
   : LOAD DC T#1,"TCCLEAR"8000,8000
9000 DEFFN'130(X3,X4$,X5)
   : Q$="X"
   : ON X3GOTO 9002,9007
   : RETURN
9002 INIT(00)X1$()
   : DATA LOAD DC OPEN T#2,X4$
   : DATA LOAD DC #2,X1$()
   : X7=VAL(STR(X1$(1),2))
   : X8=3
   : Q$=" "
   : RETURN
9007 IF X5>=0THEN 9008
   : RETURN
9008 ON X5+1GOTO 9010
   : DATA SAVE DC OPEN T#2,X5,X4$
   : GOTO 9011
9010 SCRATCH T#2,X4$
   : DATA SAVE DC OPEN T#2,X4$,X4$
9011 X8=3
   : INIT(00)X1$()
   : Q$=" "
   : RETURN
9020 DEFFN'131
   : Q$="X"
   : IF X3=1THEN 9022
   : RETURN
9022 MAT COPY X1$()<X8,1>TO X2$()
   : L=VAL(X2$(1))
   : MAT COPY X1$()<X8+1,L>TO X$()<1,L>
   : X8=X8+L+1
   : IF X8<>X7THEN 9028
   : IF STR(X1$(1),1,1)<>HEX(F0)THEN 9027
   : Q$="E"
   : RETURN
9027 DATA LOAD DC #2,X1$()
   : X7=VAL(STR(X1$(1),2))
   : X8=3
9028 Q$=" "
   : RETURN
9030 DEFFN'132(L,X6)
   : Q$="X"
   : IF X3=2THEN 9032
   : RETURN
9032 IF L=0THEN 9038
   : BIN(X2$(1))=L
   : IF L+X8<249THEN 9035
   : BIN(STR(X1$(1),2,1))=X8
   : DATA SAVE DC #2,X1$()
   : X8=3
9035 MAT COPY X$()<1,L>TO X1$()<X8+1,L>
   : MAT COPY X2$()<1,1>TO X1$()<X8,1>
   : X8=X8+L+1
9038 ON X6GOTO 9039
   : Q$=" "
   : RETURN
9039 STR(X1$(1),1,1)=HEX(F0)
   : BIN(STR(X1$(1),2,1))=X8
   : DATA SAVE DC #2,X1$()
   : DATA SAVE DC #2,END
   : Q$=" "
   : RETURN