image of READY prompt

Wang2200.org

Listing of file='TPUT040B' on disk='vmedia/733-1004.wvd.zip'

# Sector 295, program filename = 'TPUT040B'
0012 REM .      TPUT040B,     00-00 (08/10/77),     10189A
0013 DIM N$8,A1$(16),Z2$1,L$1,H$2,N$8
   : I8,P2=1
   : I0=12
   : GOSUB 285
   : GOSUB '101(STR(Y$,1,2))
   : GOSUB '101(STR(Y$,3,2))
0090 V1=64-P1+1
   : V2=64-P2+1
   : IF V1<P9THEN 110
   : V1=P9
0110 IF V1>V2THEN 155
   : STR(D$(I8),P2,V1)=STR(C$(I9),P1,V1)
   : P2=P2+V1
   : P9=P9-V1
   : IF P2<=64THEN 140
   : GOSUB 425
0140 GOSUB 660
   : IF H9=1THEN 205
   : GOTO 90
0155 STR(D$(I8),P2,V2)=STR(C$(I9),P1,V2)
   : P1=P1+V2
   : P9=P9-V2
   : P2=1
   : I8=I8+1
   : IF I8<=4THEN 190
   : GOSUB 470
0190 GOSUB 670
   : IF H9=1THEN 205
   : GOTO 90
0205 DATA SAVE BA T#2,(A,A)D$()
   : GOSUB 760
   : STR(N0$(1),8,1)="0"
   : DATA SAVE DC OPEN T#2,A-A1+2,N0$(1)
   : DSKIP #2,A-A1S
   : DATA SAVE DC #2,END
   : DATA SAVE DC CLOSE#2
   : PRINT HEX(030A0A);" END OF THE PROGRAM"
   : O$="C"
   : GOSUB '31(6)
   : STOP
0285 INIT(20)C$()
   : GOSUB '31(I0)
   : I0=32
   : GOSUB '204(T0)
   : B9=B9+1
   : IF STR(B$,7,1)<>HEX(04)THEN 330
   : IF H8=0THEN 320
   : H9=1
   : GOTO 370
0320 H8=1
   : GOTO 335
0330 H8=0
0335 P1,I9=1
   : GOSUB '31(22)
   : L3,P9=256*VAL(STR(B$,9,1))+VAL(STR(B$,10,1))
   : IF L3=1THEN 375
   : STR(Y$,1,2)=STR(B$,9,2)
   : L0=INT(L2/256)
   : BIN(STR(Y$,3,1))=L0
   : BIN(STR(Y$,4,1))=L2-L0*256
0370 RETURN
0375 STR(Y$,1,2),STR(Y$,3,2)=HEX(0001)
   : RETURN
0385 DEFFN'101(Y1$)
   : STR(D$(I8),P2,1)=STR(Y1$,1,1)
   : P2=P2+1
   : IF P2>64THEN 445
0405 STR(D$(I8),P2,1)=STR(Y1$,2,1)
   : P2=P2+1
   : IF P2>64THEN 425
   : RETURN
0425 IF I8=4THEN 470
   : I8=I8+1
   : P2=1
   : RETURN
0445 IF I8<4THEN 455
   : GOSUB 470
   : GOTO 405
0455 I8=I8+1
   : P2=1
   : GOTO 405
0470 PRINT HEX(010A);"  DATA SAVE ON THE DISK SECTOR ";A
   : DATA SAVE BA T#2,(A,A)D$()
   : IF A<A9-2THEN 650
   : GOSUB 760
   : STR(N0$(1),8,1)="1"
   : DATA SAVE DC OPEN T#2,A9-A1,N0$(1)
   : DSKIP #2,A-A1S
   : DATA SAVE DC #2,END
   : DATA SAVE DC CLOSE#2
   : GOSUB '248(1,0,8)
0550 GOSUB '243("REMOVE THE CURRENT DISK, MOUNT NEXT ONE KEY (EXEC) TO RESUME"
     ,0)
   : Z=0
   : GOSUB '248(1,0,8)
0565 GOSUB '243("ENTER THE DISK STATUS (O=OLD FILE, N=NEW FILE)",1)
   : IF Q6$="O"THEN 590
   : IF Q6$="N"THEN 630
   : GOSUB 9854
   : GOTO 565
0590 CONVERT VTO STR(N0$(1),6,2),(##)
   : STR(N0$(2),6,2)=STR(N0$(1),6,2)
   : GOSUB '209(N0$(1),1)
   : IF H0<>1THEN 615
0605 PRINT HEX(0A0A);" * FILE ALREADY CATALOGED *"
   : GOTO 550
0615 GOSUB '209(N0$(2),2)
   : IF H0=1THEN 605
   : GOTO 635
0630 GOSUB '245("ENTER THE SECTOR # OF 'END CAT. AREA'",4,0)
   : SCRATCH DISK T#2,END =Q9
0635 GOSUB '248(1,0,8)
   : GOSUB 715
   : IF Z=1THEN 550
0650 I8,P2=1
   : RETURN
0660 P1=1
   : I9=I9+1
0670 IF P9<=0THEN 685
   : IF (I8-1)*64+P2>256THEN 470
   : RETURN
0685 GOSUB 285
   : IF H9=0THEN 700
   : Y$="EOF1"
0700 GOSUB '101(STR(Y$,1,2))
   : GOSUB '101(STR(Y$,3,2))
   : RETURN
0715 DATA LOAD BA T#2,(0,M$)D$()
   : AND (STR(D$(1),3,1),7F)
   : A,A1=256*VAL(STR(D$(1),3,1))+VAL(STR(D$(1),4,1))
   : AND (STR(D$(1),5,1),7F)
   : A9=256*VAL(STR(D$(1),5,1))+VAL(STR(D$(1),6,1))
   : IF A9>A1THEN 755
   : PRINT " * REACH THE 'END CAT. AREA' *"
0730 Z=1
0755 RETURN
0760 DATA LOAD BA T#2,(0,M$)D$()
   : AND (STR(D$(1),3,1),80)
   : A8=INT((A+1)/256)
   : BIN(STR(V$,1,1))=A8
   : BIN(STR(D$(1),4,1))=A-A8*256+1
   : OR (STR(D$(1),3,1),STR(V$,1,1))
   : CONVERT VTO STR(N0$(1),6,2),(##)
   : V=V+1
   : RETURN