Listing of file='START060' on disk='vmedia/701-2086B.wvd.zip'
# Sector 185, program filename = 'START060' 0010 REM START060,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0060 DIM R1$8,R2$1,R3$2,R9$8,R9$(16) : DIM I$(6)3 : I$(1)="310" : I$(2)="320" : I$(3)="330" : I$(4)="B10" : I$(5)="B20" : I$(6)="B30" : SELECT PRINT 005(64),CO 005(64) : IF S1<>0THEN 260 : PRINT HEX(030A0A0A0A0A0A0A0A0A) 0170 PRINT ,"1 - 310 4 - B10" : PRINT ,"2 - 320 5 - B20" : PRINT ,"3 - 330 6 - B30" : PRINT HEX(010A);"ENTER THE DISK DEVICE ADDRESS OF APPLICATION" 0220 PRINT HEX(010A0A);" -/";TAB(40);HEX(0D); : S1=0 : INPUT S1 0260 IF S1<1THEN 290 : IF S1<7THEN 320 0290 PRINT "INVALID. RE-ENTER" : GOTO 220 0320 ON S1-1GOTO 370,400,430,460,490 : SELECT #1310 : GOTO 510 0370 SELECT #1320 : GOTO 510 0400 SELECT #1330 : GOTO 510 0430 SELECT #1B10 : GOTO 510 0460 SELECT #1B20 : GOTO 510 0490 SELECT #1B30 0510 PRINT HEX(03) 0520 PRINT HEX(01);"MOUNT APPLICATION PROGRAM DISK IN DISK UNIT - ";I$(S1) : PRINT HEX(010A);"KEY RETURN(EXEC) TO RESUME" : PRINT HEX(010A0A);" -";TAB(40);HEX(0D); : Q6$=" " : INPUT Q6$ : IF Q6$<>"X"THEN 600 : S1=0 : GOTO 60 0600 GOSUB '229(1,"START") : IF R2$=HEX(10)THEN 650 : PRINT HEX(010A0A0A);"FILE - START - NOT ON SELECTED DRIVE" : GOTO 520 0650 LOAD DC T#1,"START" 0660 DEFFN'15 : LOAD DC T#0,"START" 0690 DEFFN'229(R9,R9$) : DATA LOAD BA T#R9,(0,R3)R9$() : AND (STR(R9$(1),2,1),7F) : R4=VAL(STR(R9$(1),2,1)) : R1$=R9$ : XOR (STR(R1$,2),R1$) : R2$=STR(R1$,8,1) : R3$=HEX(0000) : ADDC(R3$,R2$) : ADDC(R3$,R2$) : ADDC(R3$,R2$) 0850 ADD(STR(R3$,1,1),STR(R3$,2,1)) : R3=VAL(R3$) : R3=R3-INT(R3/R4)*R4 : R5=R3 0930 DATA LOAD BA T#R9,(R3,R)R9$() : R6=0 : FOR R7=1TO 16 : IF R3<>0THEN 1010 : IF R7<>1THEN 1010 : R7=2 1010 R2$=STR(R9$(R7),1,1) : IF R2$=HEX(00)THEN 1100 : IF R2$=HEX(10)THEN 1070 : IF R2$<>HEX(11)THEN 1110 1070 IF STR(R9$(R7),9,8)<>R9$THEN 1110 : R6=R7 1100 R7=16 1110 NEXT R7 : IF R2$=HEX(00)THEN 1240 : IF R6<>0THEN 1240 : R2$=HEX(00) : R3=R3-1 : IF R3=R5THEN 1240 : IF R3>=0THEN 930 : R3=R4-1 : GOTO 930 1240 RETURN