Listing of file='LPPROIN' on disk='vmedia/701-2721C.wvd.zip'
# Sector 467, program filename = 'LPPROIN' 2702 REM % O P E N 2703 DEFFN'131(C1,STR(B0$(C1),1,8),STR(B0$(C1),16,1)) : IF STR(B0$(C1),16,1)<>"O"THEN 2706 : LIMITS TSTR(B0$(C1),1,8),B9(1),B9(2),B9(3) : ERRORDATA SAVE DC OPEN T(150)STR(B0$(C1),1,8) 2706 LIMITS TSTR(B0$(C1),1,8),B9(1),B9(2),B9(3) : ERRORSTOP "OPEN file not found"# 2707 STR(B0$(C1),12,2)=BIN(B9(1)+1,2) : STR(B0$(C1),14,2)=BIN(B9(2)-1,2) : STR(B0$(C1),19,2)=STR(B0$(C1),12,2) : STR(B0$(C1),21,2)=BIN(1,2) : IF STR(B0$(C1),16,1)="U"OR STR(B0$(C1),16,1)="I"THEN 2713 : RETURN 2713 DATA LOAD BA T(B9(1)+1)B2$() : ERRORGOTO 2716 2714 STR(B0$(C1),17,2)=STR(B2$(),1,2) : RETURN 2716 PRINT "Error number";ERR;"has occurred" : STOP 2718 DEFFN'132(C1) : IF STR(B0$(C1),16,1)="I"THEN 2725 : IF STR(B0$(C1),16,1)="O"THEN 2727 : X1=VAL(STR(B0$(C1),19,2),2) : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 2723 S1=0 : RETURN 2725 S1=0 : RETURN 2727 X1=VAL(STR(B0$(C1),19,2),2) : Y1=VAL(STR(B0$(C1),21,2),2) : IF Y1>255THEN 2734 : STR(B2$(),Y1,2)=BIN(0,2) : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 2732 S1=0 : RETURN 2734 IF Y1>256THEN 2736 : STR(B2$(),256,1)=BIN(0) 2736 DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 2737 X1=X1+1 : IF X1<=VAL(STR(B0$(C1),14,2),2)THEN 2741 : S1=9 : RETURN 2741 B2$()=ALL(FF) : STR(B2$(),1,2)=BIN(0,2) : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 2744 S1=0 : RETURN 2747 DEFFN'133(C1,S1) : IF STR(B0$(C1),16,1)="I"OR STR(B0$(C1),16,1)="U"THEN 2750 : STOP "READS illegal open mode"# 2750 X1=VAL(STR(B0$(C1),19,2),2) : Y1=VAL(STR(B0$(C1),21,2),2) : IF Y1<>257THEN 2758 : IF STR(B0$(C1),16,1)<>"U"THEN 2753 : IF STR(B0$(C1),23,1)<>"Y"THEN 2753 : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 : STR(B0$(C1),23,1)="N" 2753 X1=X1+1 : IF X1<=VAL(STR(B0$(C1),14,2),2)THEN 2754 : S1=9 : RETURN 2754 DATA LOAD BA T(X1)B2$() : ERRORGOTO 2716 2756 Y1=1 : GOTO 2772 2758 IF Y1<>256THEN 2766 : IF STR(B0$(C1),16,1)<>"U"THEN 2759 : IF STR(B0$(C1),23,1)<>"Y"THEN 2759 : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 : STR(B0$(C1),23,1)="N" 2759 STR(B1$(),1,1)=STR(B2$(),256,1) : X1=X1+1 : IF X1<=VAL(STR(B0$(C1),14,2),2)THEN 2761 : S1=9 : RETURN 2761 DATA LOAD BA T(X1)B2$() : ERRORGOTO 2716 2762 STR(B1$(),2,1)=STR(B2$(),1,1) : B1=VAL(STR(B1$(),1,2),2) : Y1=2 : GOTO 2774 2766 IF Y1<>255THEN 2772 : IF STR(B0$(C1),16,1)<>"U"THEN 2767 : IF STR(B0$(C1),23,1)<>"Y"THEN 2767 : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 : STR(B0$(C1),23,1)="N" 2767 B1=VAL(STR(B2$(),255,2),2) : X1=X1+1 : IF X1<=VAL(STR(B0$(C1),14,2),2)THEN 2769 : S1=9 : RETURN 2769 DATA LOAD BA T(X1)B2$() : ERRORGOTO 2716 2770 Y1=1 : GOTO 2774 2772 B1=VAL(STR(B2$(),Y1,2),2) : IF B1>1008THEN STOP "Illegal Record Size "# : Y1=Y1+2 2774 Y2=0 : IF B1<>0THEN 2778 : S1=1 : RETURN 2778 IF 257-Y1<B1-Y2THEN 2781 : STR(B1$(),Y2+1,B1-Y2)=STR(B2$(),Y1,B1-Y2) : Y1=Y1+B1-Y2 : GOTO 2787 2781 STR(B1$(),Y2+1,257-Y1)=STR(B2$(),Y1,257-Y1) : Y2=Y2+257-Y1 : IF STR(B0$(C1),16,1)<>"U"THEN 2783 : IF STR(B0$(C1),23,1)<>"Y"THEN 2783 : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2716 : STR(B0$(C1),23,1)="N" 2783 X1=X1+1 : IF X1<=VAL(STR(B0$(C1),14,2),2)THEN 2784 : S1=9 : RETURN 2784 DATA LOAD BA T(X1)B2$() : ERRORGOTO 2716 2785 Y1=1 : GOTO 2778 2787 STR(B0$(C1),19,2)=BIN(X1,2) : STR(B0$(C1),21,2)=BIN(Y1,2) : S1=0 : RETURN 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPPROIN";HEX(22); 9010 DEFFN'1"SAVE T () ";HEX(22);"LPPROIN";HEX(22);